/* * dialog-ab-trans.c -- * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 * Boston, MA 02110-1301, USA gnu@gnu.org */ /** * @internal * @file dialog-ab-trans.c * @brief Templates for AqBanking transactions * @author Copyright (C) 2002 Christian Stimming * @author Copyright (C) 2004 Bernd Wagner * @author Copyright (C) 2006 David Hampton * @author Copyright (C) 2008 Andreas Koehler */ #include #include #include "gnc-ab-utils.h" #if (AQBANKING_VERSION_INT >= 60400) #include #include #endif #include "dialog-ab-trans.h" #include "dialog-transfer.h" #include "dialog-utils.h" #include "gnc-amount-edit.h" #include "gnc-ui.h" /* This static indicates the debugging module that this .o belongs to. */ static QofLogModule log_module = G_LOG_DOMAIN; #if (AQBANKING_VERSION_INT >= 60400) /* Template handling */ static void gnc_ab_trans_dialog_fill_templ_helper(gpointer data, gpointer user_data); static gboolean gnc_ab_trans_dialog_clear_templ_helper(GtkTreeModel *model, GtkTreePath *path, GtkTreeIter *iter, gpointer user_data); static gboolean gnc_ab_trans_dialog_get_templ_helper(GtkTreeModel *model, GtkTreePath *path, GtkTreeIter *iter, gpointer data); #endif static AB_TRANSACTION *gnc_ab_trans_dialog_fill_values(GncABTransDialog *td); static GNC_AB_JOB *gnc_ab_trans_dialog_get_available_empty_job(GNC_AB_ACCOUNT_SPEC *ab_acc, GncABTransType trans_type); static void gnc_ab_trans_dialog_check_iban(const GncABTransDialog *td, const AB_TRANSACTION *trans); /* Callbacks - connected with GtkBuilder - so should not be static */ void gnc_ab_trans_dialog_add_templ_cb(GtkButton *button, gpointer user_data); void gnc_ab_trans_dialog_moveup_templ_cb(GtkButton *button, gpointer user_data); void gnc_ab_trans_dialog_movedown_templ_cb(GtkButton *button, gpointer user_data); void gnc_ab_trans_dialog_sort_templ_cb(GtkButton *button, gpointer user_data); void gnc_ab_trans_dialog_del_templ_cb(GtkButton *button, gpointer user_data); void gnc_ab_trans_dialog_ibanentry_filter_cb (GtkEditable *editable, const gchar *text, gint length, gint *position, gpointer user_data); void gnc_ab_trans_dialog_bicentry_filter_cb (GtkEditable *editable, const gchar *text, gint length, gint *position, gpointer user_data); void gnc_ab_trans_dialog_templ_list_row_activated_cb(GtkTreeView *view, GtkTreePath *path, GtkTreeViewColumn *column, gpointer user_data); static void gnc_ab_trans_dialog_verify_values(GncABTransDialog *td); enum { TEMPLATE_NAME, TEMPLATE_POINTER, TEMPLATE_NUM_COLUMNS }; struct _GncABTransDialog { /* The dialog itself */ GtkWidget *dialog; GtkWidget *parent; GNC_AB_ACCOUNT_SPEC *ab_acc; /* Whether this is a transfer or a direct debit */ GncABTransType trans_type; /* Recipient */ GtkWidget *recp_name_entry; GtkWidget *recp_account_entry; GtkWidget *recp_bankcode_entry; /* Amount */ GtkWidget *amount_edit; /* Purpose, description */ GtkWidget *purpose_entry; GtkWidget *purpose_cont_entry; GtkWidget *purpose_cont2_entry; GtkWidget *purpose_cont3_entry; /* Recipient's bank name (may be filled in automatically sometime later) */ GtkWidget *recp_bankname_label; /* Originator's name (might have to be edited by the user) */ GtkWidget *orig_name_entry; /* The template choosing GtkTreeView/GtkListStore */ GtkTreeView *template_gtktreeview; GtkListStore *template_list_store; /* Exec button */ GtkWidget *exec_button; /* Flag, if template list has been changed */ gboolean templ_changed; /* The aqbanking transaction that got created here */ AB_TRANSACTION *ab_trans; /* The gnucash transaction that got created here */ Transaction *gnc_trans; }; gboolean gnc_ab_trans_isSEPA(GncABTransType t) { switch (t) { case SEPA_TRANSFER: #if (AQBANKING_VERSION_INT >= 60400) case SEPA_INTERNAL_TRANSFER: #endif case SEPA_DEBITNOTE: return TRUE; default: return FALSE; } } #if (AQBANKING_VERSION_INT >= 60400) static void gnc_ab_trans_dialog_fill_templ_helper(gpointer data, gpointer user_data) { GncABTransTempl *templ = data; GtkListStore *store = user_data; GtkTreeIter iter; g_return_if_fail(templ && store); gtk_list_store_append(store, &iter); gtk_list_store_set(store, &iter, TEMPLATE_NAME, gnc_ab_trans_templ_get_name(templ), TEMPLATE_POINTER, templ, -1); } #endif /** * Create a new AB_TRANSACTION, fill the values from the entry fields into it * and return it. The caller must AB_TRANSACTION_free() it when finished. */ static AB_TRANSACTION * gnc_ab_trans_dialog_fill_values(GncABTransDialog *td) { /* Fill in the user-entered values */ AB_TRANSACTION *trans = AB_Transaction_new(); AB_VALUE *value; AB_Banking_FillTransactionFromAccountSpec(trans, td->ab_acc); if (gnc_ab_trans_isSEPA(td->trans_type)) { AB_Transaction_SetRemoteBic( trans, gtk_entry_get_text(GTK_ENTRY(td->recp_bankcode_entry))); AB_Transaction_SetRemoteIban( trans, gtk_entry_get_text(GTK_ENTRY(td->recp_account_entry))); AB_Transaction_SetLocalName( trans, gtk_entry_get_text(GTK_ENTRY(td->orig_name_entry))); } else { AB_Transaction_SetRemoteBankCode( trans, gtk_entry_get_text(GTK_ENTRY(td->recp_bankcode_entry))); AB_Transaction_SetRemoteAccountNumber( trans, gtk_entry_get_text(GTK_ENTRY(td->recp_account_entry))); } AB_Transaction_SetRemoteCountry(trans, "DE"); AB_Transaction_SetRemoteName( trans, gtk_entry_get_text(GTK_ENTRY(td->recp_name_entry))); AB_Transaction_AddPurposeLine( trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_entry))); AB_Transaction_AddPurposeLine( trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_cont_entry))); AB_Transaction_AddPurposeLine( trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_cont2_entry))); value = AB_Value_fromDouble(gnc_amount_edit_get_damount( GNC_AMOUNT_EDIT(td->amount_edit))); /* FIXME: Replace "EUR" by account-dependent string here. */ AB_Value_SetCurrency(value, "EUR"); AB_Transaction_SetValue(trans, value); AB_Value_free(value); /* If this is a direct debit, a textkey/ "Textschluessel"/transactionCode * different from the default has to be set. */ switch (td->trans_type) { case SINGLE_DEBITNOTE: /* AB_Transaction_SetTransactionCode (trans, 05); */ AB_Transaction_SetTextKey(trans, 05); break; default: /* AB_Transaction_SetTransactionCode (trans, 51); */ AB_Transaction_SetTextKey (trans, 51); break; } return trans; } GncABTransDialog * gnc_ab_trans_dialog_new(GtkWidget *parent, GNC_AB_ACCOUNT_SPEC *ab_acc, gint commodity_scu, GncABTransType trans_type, GList *templates) { GncABTransDialog *td; GtkBuilder *builder; const gchar *ab_ownername; const gchar *ab_accountnumber; const gchar *ab_bankname; const gchar *ab_bankcode; G_GNUC_UNUSED GtkWidget *trans_vbox; GtkWidget *heading_label; GtkWidget *recp_name_heading; GtkWidget *recp_account_heading; GtkWidget *recp_bankcode_heading; GtkWidget *amount_hbox, *amount_label; GtkWidget *orig_name_heading; GtkWidget *orig_account_heading; GtkWidget *orig_account_label; G_GNUC_UNUSED GtkWidget *orig_bankname_heading; GtkWidget *orig_bankname_label; GtkWidget *orig_bankcode_heading; GtkWidget *orig_bankcode_label; GtkCellRenderer *renderer; GtkTreeViewColumn *column; #if (AQBANKING_VERSION_INT >= 60400) GtkExpander *template_expander; GtkWidget *template_label; GtkWidget *add_templ_button; GtkWidget *del_templ_button; #endif g_return_val_if_fail(ab_acc, NULL); ab_ownername = AB_AccountSpec_GetOwnerName(ab_acc); if (!ab_ownername) ab_ownername = ""; ab_accountnumber = AB_AccountSpec_GetAccountNumber(ab_acc); ab_bankcode = AB_AccountSpec_GetBankCode(ab_acc); ab_bankname = _("(unknown)"); td = g_new0(GncABTransDialog, 1); td->parent = parent; td->ab_acc = ab_acc; td->trans_type = trans_type; builder = gtk_builder_new(); gnc_builder_add_from_file (builder, "dialog-ab.glade", "aqbanking_transaction_dialog"); td->dialog = GTK_WIDGET(gtk_builder_get_object (builder, "aqbanking_transaction_dialog")); if (parent) gtk_window_set_transient_for(GTK_WINDOW(td->dialog), GTK_WINDOW(parent)); /* Extract widgets */ trans_vbox = GTK_WIDGET(gtk_builder_get_object (builder, "trans_vbox")); heading_label = GTK_WIDGET(gtk_builder_get_object (builder, "heading_label")); recp_name_heading = GTK_WIDGET(gtk_builder_get_object (builder, "recp_name_heading")); td->recp_name_entry = GTK_WIDGET(gtk_builder_get_object (builder, "recp_name_entry")); recp_account_heading = GTK_WIDGET(gtk_builder_get_object (builder, "recp_account_heading")); td->recp_account_entry = GTK_WIDGET(gtk_builder_get_object (builder, "recp_account_entry")); recp_bankcode_heading = GTK_WIDGET(gtk_builder_get_object (builder, "recp_bankcode_heading")); td->recp_bankcode_entry = GTK_WIDGET(gtk_builder_get_object (builder, "recp_bankcode_entry")); td->recp_bankname_label = GTK_WIDGET(gtk_builder_get_object (builder, "recp_bankname_label")); amount_hbox = GTK_WIDGET(gtk_builder_get_object (builder, "amount_hbox")); amount_label = GTK_WIDGET(gtk_builder_get_object (builder, "amount_label")); td->purpose_entry = GTK_WIDGET(gtk_builder_get_object (builder, "purpose_entry")); td->purpose_cont_entry = GTK_WIDGET(gtk_builder_get_object (builder, "purpose_cont_entry")); td->purpose_cont2_entry = GTK_WIDGET(gtk_builder_get_object (builder, "purpose_cont2_entry")); td->purpose_cont3_entry = GTK_WIDGET(gtk_builder_get_object (builder, "purpose_cont3_entry")); td->exec_button = GTK_WIDGET(gtk_builder_get_object(builder, "exec_now_button")); orig_name_heading = GTK_WIDGET(gtk_builder_get_object (builder, "orig_name_heading")); td->orig_name_entry = GTK_WIDGET(gtk_builder_get_object (builder, "orig_name_label")); orig_account_heading = GTK_WIDGET(gtk_builder_get_object (builder, "orig_account_heading")); orig_account_label = GTK_WIDGET(gtk_builder_get_object (builder, "orig_account_label")); orig_bankname_heading = GTK_WIDGET(gtk_builder_get_object (builder, "orig_bankname_heading")); orig_bankname_label = GTK_WIDGET(gtk_builder_get_object (builder, "orig_bankname_label")); orig_bankcode_heading = GTK_WIDGET(gtk_builder_get_object (builder, "orig_bankcode_heading")); orig_bankcode_label = GTK_WIDGET(gtk_builder_get_object (builder, "orig_bankcode_label")); td->template_gtktreeview = GTK_TREE_VIEW(gtk_builder_get_object (builder, "template_list")); #if (AQBANKING_VERSION_INT >= 60400) template_expander = GTK_EXPANDER(gtk_builder_get_object (builder, "expander1")); template_label = GTK_WIDGET(gtk_builder_get_object (builder, "label1")); add_templ_button= GTK_WIDGET(gtk_builder_get_object(builder, "add_templ_button")); del_templ_button= GTK_WIDGET(gtk_builder_get_object(builder, "del_templ_button")); #endif /* Amount edit */ td->amount_edit = gnc_amount_edit_new(); gtk_box_pack_start(GTK_BOX(amount_hbox), td->amount_edit, TRUE, TRUE, 0); gnc_amount_edit_make_mnemonic_target(GNC_AMOUNT_EDIT(td->amount_edit), amount_label); gnc_amount_edit_set_evaluate_on_enter(GNC_AMOUNT_EDIT(td->amount_edit), TRUE); gnc_amount_edit_set_fraction(GNC_AMOUNT_EDIT(td->amount_edit), commodity_scu); /* Use "focus-out" signal because "amount-changed" is only sent when ENTER is pressed */ g_signal_connect_swapped (gnc_amount_edit_gtk_entry(GNC_AMOUNT_EDIT(td->amount_edit)), "focus-out-event", G_CALLBACK(gnc_ab_trans_dialog_verify_values), td); /* Check for what kind of transaction this should be, and change the * labels accordingly */ switch (trans_type) { case SINGLE_TRANSFER: case SINGLE_INTERNAL_TRANSFER: /* all labels are already set */ break; case SEPA_TRANSFER: gtk_label_set_text(GTK_LABEL (heading_label), /* Translators: Strings from this file are needed only in countries that have one of aqbanking's Online Banking techniques available. This is 'OFX DirectConnect' (U.S. and others), 'HBCI' (Germany), or 'YellowNet' (Switzerland). If none of these techniques are available in your country, you may safely ignore strings from the import-export/hbci subdirectory. */ _("Enter a SEPA Online Transfer")); gtk_label_set_text(GTK_LABEL(recp_account_heading), _("Recipient IBAN (International Account Number)")); gtk_label_set_text(GTK_LABEL(recp_bankcode_heading), _("Recipient BIC (Bank Code)")); gtk_label_set_text(GTK_LABEL(orig_account_heading), _("Originator IBAN (International Account Number)")); gtk_label_set_text(GTK_LABEL(orig_bankcode_heading), _("Originator BIC (Bank Code)")); break; #if (AQBANKING_VERSION_INT >= 60400) case SEPA_INTERNAL_TRANSFER: gtk_label_set_text(GTK_LABEL (heading_label), _("Enter a SEPA Internal Transfer")); gtk_label_set_text(GTK_LABEL(recp_account_heading), _("Recipient IBAN (International Account Number)")); gtk_label_set_text(GTK_LABEL(recp_bankcode_heading), _("Recipient BIC (Bank Code)")); gtk_label_set_text(GTK_LABEL(orig_account_heading), _("Originator IBAN (International Account Number)")); gtk_label_set_text(GTK_LABEL(orig_bankcode_heading), _("Originator BIC (Bank Code)")); /* Disable target account entry for SEPA internal transfers, but only let choose from templates */ gtk_widget_set_sensitive(td->recp_name_entry, FALSE); gtk_widget_set_sensitive(td->recp_account_entry, FALSE); gtk_widget_set_sensitive(td->recp_bankcode_entry, FALSE); gtk_widget_set_sensitive(add_templ_button, FALSE); gtk_widget_set_visible(add_templ_button, FALSE); gtk_widget_set_can_focus(add_templ_button, FALSE); gtk_widget_set_sensitive(del_templ_button, FALSE); gtk_widget_set_visible(del_templ_button, FALSE); gtk_widget_set_can_focus(del_templ_button, FALSE); gtk_label_set_text(GTK_LABEL(template_label), _("Target Accounts")); gtk_expander_set_expanded(template_expander, TRUE); break; #endif case SINGLE_DEBITNOTE: /* this case is no longer in use; don't introduce extra strings */ break; case SEPA_DEBITNOTE: gtk_label_set_text(GTK_LABEL (heading_label), _("Enter a SEPA Online Direct Debit Note")); gtk_label_set_text(GTK_LABEL(recp_name_heading), _("Debited Account Owner")); gtk_label_set_text(GTK_LABEL(recp_account_heading), _("Debited IBAN (International Account Number)")); gtk_label_set_text(GTK_LABEL(recp_bankcode_heading), _("Debited BIC (Bank Code)")); gtk_label_set_text(GTK_LABEL(orig_name_heading), _("Credited Account Owner")); gtk_label_set_text(GTK_LABEL(orig_account_heading), _("Credited IBAN (International Account Number)")); gtk_label_set_text(GTK_LABEL(orig_bankcode_heading), _("Credited BIC (Bank Code)")); break; default: g_critical("gnc_ab_trans_dialog_new: Oops, unknown GncABTransType %d", trans_type); break; } /* Additionally change the labels for the European (SEPA) transactions */ if (gnc_ab_trans_isSEPA(trans_type)) { // Also, SEPA might have much longer IBAN (up to 34 chars) and BIC (11) gtk_entry_set_max_length(GTK_ENTRY(td->recp_bankcode_entry), 11); gtk_entry_set_max_length(GTK_ENTRY(td->recp_account_entry), 34); } gtk_entry_set_text(GTK_ENTRY(td->orig_name_entry), ab_ownername); gtk_label_set_text(GTK_LABEL(orig_bankname_label), ab_bankname); if (gnc_ab_trans_isSEPA(trans_type)) { gtk_widget_set_sensitive(GTK_WIDGET(td->orig_name_entry), TRUE); ab_accountnumber = AB_AccountSpec_GetIban(ab_acc); ab_bankcode = AB_AccountSpec_GetBic(ab_acc); gtk_label_set_text(GTK_LABEL(orig_account_label), ab_accountnumber); gtk_label_set_text (GTK_LABEL (orig_bankcode_label), ab_bankcode); } else { gtk_widget_set_sensitive(GTK_WIDGET(td->orig_name_entry), FALSE); gtk_label_set_text(GTK_LABEL(orig_account_label), ab_accountnumber); gtk_label_set_text (GTK_LABEL (orig_bankcode_label), ab_bankcode); } #if (AQBANKING_VERSION_INT >= 60400) /* Fill list for choosing a transaction template */ td->template_list_store = gtk_list_store_new(TEMPLATE_NUM_COLUMNS, G_TYPE_STRING, G_TYPE_POINTER); g_list_foreach(templates, gnc_ab_trans_dialog_fill_templ_helper, td->template_list_store); gtk_tree_view_set_model(td->template_gtktreeview, GTK_TREE_MODEL(td->template_list_store)); td->templ_changed = FALSE; /* Keep a reference to the store */ #endif /* Show this list */ renderer = gtk_cell_renderer_text_new(); column = gtk_tree_view_column_new_with_attributes( "Template Name", renderer, "text", TEMPLATE_NAME, NULL); gtk_tree_view_append_column(td->template_gtktreeview, column); /* Connect the Signals */ gtk_builder_connect_signals_full(builder, gnc_builder_connect_full_func, td); g_object_unref(G_OBJECT(builder)); /* Disabled OK button until suitable values are filled */ gnc_ab_trans_dialog_verify_values(td); return td; } static void gnc_ab_trans_dialog_entry_set (GtkWidget* entry, const gchar* message, const gchar* icon_name) { g_object_set (entry, "secondary-icon-name", icon_name, "secondary-icon-tooltip-text", message, NULL); } static void gnc_ab_trans_dialog_check_iban(const GncABTransDialog *td, const AB_TRANSACTION *trans) { if (gnc_ab_trans_isSEPA(td->trans_type)) { /* Verify the correct IBAN bank code */ int rv = AB_Banking_CheckIban(AB_Transaction_GetRemoteIban(trans)); if (rv != 0) { gchar *message = g_strdup_printf(_("The internal check of the destination IBAN '%s' " "failed. This means " "the account number might contain an error."), AB_Transaction_GetRemoteIban(trans)); gnc_ab_trans_dialog_entry_set (td->recp_account_entry, message, "dialog-warning"); } else { gnc_ab_trans_dialog_entry_set (td->recp_account_entry, "", NULL); gnc_ab_trans_dialog_entry_set (td->recp_bankcode_entry, "", NULL); } } else { /* this case is no longer in use */ return; } } static void gnc_ab_trans_dialog_clear_transaction(GncABTransDialog *td) { AB_Transaction_free(td->ab_trans); td->ab_trans = NULL; } void gnc_ab_trans_dialog_verify_values(GncABTransDialog *td) { gchar* purpose; gchar* othername; const gchar* account; const gchar* bankcode; gboolean values_ok = TRUE; GtkWidget *amount_entry = gnc_amount_edit_gtk_entry(GNC_AMOUNT_EDIT(td->amount_edit)); /* Fill in the values from the entry fields into a new * AB_TRANSACTION */ td->ab_trans = gnc_ab_trans_dialog_fill_values(td); // Verify that we have a local IBAN and BIC if (gnc_ab_trans_isSEPA(td->trans_type)) { const char* localIBAN = AB_Transaction_GetLocalIban(td->ab_trans); if (!localIBAN || (strlen(localIBAN) == 0)) { const char* localBankCode = AB_Transaction_GetLocalBankCode(td->ab_trans); const char* localAccountCode = AB_Transaction_GetLocalAccountNumber(td->ab_trans); values_ok = FALSE; gnc_error_dialog(GTK_WINDOW (td->dialog), _("Your local bank account does not yet have the SEPA account information stored." " We are sorry, but in this development version one additional step is necessary " "which has not yet been implemented directly in gnucash. " "Please execute the command line program \"aqhbci-tool\" for your account, as follows: " "aqhbci-tool4 getaccsepa -b %s -a %s"), (localBankCode ? localBankCode : ""), (localAccountCode ? localAccountCode : "")); } } /* Check recipient / remote name */ othername = gnc_ab_get_remote_name(td->ab_trans); if (!othername || !strlen(othername)) { gnc_ab_trans_dialog_entry_set (td->recp_name_entry, _("You did not enter a recipient name. A recipient name is " "required for an online transfer.\n"), "process-stop"); g_free (othername); values_ok = FALSE; } else { gnc_ab_trans_dialog_entry_set (td->recp_name_entry, "", NULL); g_free(othername); } /* Check account */ account = gnc_ab_trans_isSEPA(td->trans_type) ? AB_Transaction_GetRemoteIban(td->ab_trans) : AB_Transaction_GetRemoteAccountNumber(td->ab_trans); if (!account || !strlen(account)) { gnc_ab_trans_dialog_entry_set (td->recp_account_entry, _("You did not enter a recipient account. A recipient account is " "required for an online transfer.\n"), "process-stop"); values_ok = FALSE; } else { gnc_ab_trans_dialog_entry_set (td->recp_account_entry, "", NULL); } /* Check bank */ bankcode = gnc_ab_trans_isSEPA(td->trans_type) ? AB_Transaction_GetRemoteBic(td->ab_trans) : AB_Transaction_GetRemoteBankCode(td->ab_trans); if (!gnc_ab_trans_isSEPA(td->trans_type) && (!bankcode || !strlen(bankcode))) { gnc_ab_trans_dialog_entry_set (td->recp_bankcode_entry, _("You did not enter a recipient bank. A recipient bank is " "required for an online transfer.\n"), "process-stop"); values_ok = FALSE; } else { gnc_ab_trans_dialog_entry_set (td->recp_bankcode_entry, "", NULL); } /* Check if account details are correct - gives warning only */ if (values_ok) gnc_ab_trans_dialog_check_iban(td, td->ab_trans); /* Check transaction value */ if (AB_Value_GetValueAsDouble(AB_Transaction_GetValue(td->ab_trans)) == 0.0) { gnc_ab_trans_dialog_entry_set (amount_entry, _("The amount is zero or the amount field could not be " "interpreted correctly. You might have mixed up decimal " "point and comma, compared to your locale settings. " "This does not result in a valid online transfer job."), "process-stop"); values_ok = FALSE; } else { gnc_ab_trans_dialog_entry_set (amount_entry, "", NULL); } /* Check transaction purpose. OFX doesn't do transfers. */ purpose = gnc_ab_get_purpose(td->ab_trans, FALSE); if (!purpose || !strlen(purpose)) { gnc_ab_trans_dialog_entry_set (td->purpose_entry, _("You did not enter any transaction purpose. A purpose is " "required for an online transfer.\n"), "process-stop"); g_free (purpose); values_ok = FALSE; } else { gnc_ab_trans_dialog_entry_set (td->purpose_entry, "", NULL); g_free(purpose); } gtk_widget_set_sensitive(td->exec_button, values_ok); gnc_ab_trans_dialog_clear_transaction(td); } gint gnc_ab_trans_dialog_run_until_ok(GncABTransDialog *td) { gint result; GNC_AB_JOB *job; const AB_TRANSACTION_LIMITS *joblimits; guint8 max_purpose_lines; /* Check whether the account supports this job */ job = gnc_ab_trans_dialog_get_available_empty_job(td->ab_acc, td->trans_type); if (!job) { g_warning("gnc_ab_trans_dialog_run_until_ok: Oops, job not available"); return GTK_RESPONSE_CANCEL; } /* Activate as many purpose entries as available for the job */ joblimits = AB_AccountSpec_GetTransactionLimitsForCommand(td->ab_acc, AB_Transaction_GetCommand(job)); max_purpose_lines = joblimits ? AB_TransactionLimits_GetMaxLinesPurpose(joblimits) : 2; gtk_widget_set_sensitive(td->purpose_cont_entry, max_purpose_lines > 1); gtk_widget_set_sensitive(td->purpose_cont2_entry, max_purpose_lines > 2); gtk_widget_set_sensitive(td->purpose_cont3_entry, max_purpose_lines > 3); if (joblimits) { gtk_entry_set_max_length(GTK_ENTRY(td->purpose_entry), AB_TransactionLimits_GetMaxLenPurpose(joblimits)); gtk_entry_set_max_length(GTK_ENTRY(td->purpose_cont_entry), AB_TransactionLimits_GetMaxLenPurpose(joblimits)); gtk_entry_set_max_length(GTK_ENTRY(td->purpose_cont2_entry), AB_TransactionLimits_GetMaxLenPurpose(joblimits)); gtk_entry_set_max_length(GTK_ENTRY(td->purpose_cont3_entry), AB_TransactionLimits_GetMaxLenPurpose(joblimits)); gtk_entry_set_max_length(GTK_ENTRY(td->recp_name_entry), AB_TransactionLimits_GetMaxLenRemoteName(joblimits)); } /* Show the dialog */ gtk_widget_show(td->dialog); /* Now run the dialog until it gets closed by a button press */ result = gtk_dialog_run (GTK_DIALOG (td->dialog)); /* Was cancel pressed or dialog closed? * GNC_RESPONSE_NOW == execute now * GNC_RESPONSE_LATER == scheduled for later execution (unimplemented) * GTK_RESPONSE_CANCEL == cancel * GTK_RESPONSE_DELETE_EVENT == window destroyed */ if (result != GNC_RESPONSE_NOW && result != GNC_RESPONSE_LATER) { gtk_widget_destroy(td->dialog); td->dialog = NULL; return result; } /* Get the transaction details - have been checked beforehand */ td->ab_trans = gnc_ab_trans_dialog_fill_values(td); /* FIXME: If this is a direct debit, set the textkey/ "Textschluessel"/ * transactionCode according to some GUI selection here!! */ /*if (td->trans_type == SINGLE_DEBITNOTE) AB_TRANSACTION_setTextKey (td->hbci_trans, 05); */ /* Hide the dialog */ if (td->dialog) gtk_widget_hide(td->dialog); return result; } #if (AQBANKING_VERSION_INT >= 60400) static gboolean gnc_ab_trans_dialog_clear_templ_helper(GtkTreeModel *model, GtkTreePath *path, GtkTreeIter *iter, gpointer user_data) { GncABTransTempl *templ; g_return_val_if_fail(model && iter, TRUE); gtk_tree_model_get(model, iter, TEMPLATE_POINTER, &templ, -1); gnc_ab_trans_templ_free(templ); return FALSE; } #endif void gnc_ab_trans_dialog_free(GncABTransDialog *td) { if (!td) return; if (td->ab_trans) AB_Transaction_free(td->ab_trans); if (td->dialog) gtk_widget_destroy(td->dialog); #if (AQBANKING_VERSION_INT >= 60400) if (td->template_list_store) { gtk_tree_model_foreach(GTK_TREE_MODEL(td->template_list_store), gnc_ab_trans_dialog_clear_templ_helper, NULL); g_object_unref(td->template_list_store); } #endif g_free(td); } #if (AQBANKING_VERSION_INT >= 60400) static gboolean gnc_ab_trans_dialog_get_templ_helper(GtkTreeModel *model, GtkTreePath *path, GtkTreeIter *iter, gpointer data) { GList **list = data; GncABTransTempl *templ; g_return_val_if_fail(model && iter, TRUE); gtk_tree_model_get(model, iter, TEMPLATE_POINTER, &templ, -1); *list = g_list_prepend(*list, templ); return FALSE; } GList * gnc_ab_trans_dialog_get_templ(const GncABTransDialog *td, gboolean *changed) { GList *list = NULL; g_return_val_if_fail(td, NULL); if (changed) { *changed = td->templ_changed; if (!*changed) return NULL; } gtk_tree_model_foreach(GTK_TREE_MODEL(td->template_list_store), gnc_ab_trans_dialog_get_templ_helper, &list); list = g_list_reverse(list); return list; } #endif GtkWidget * gnc_ab_trans_dialog_get_parent(const GncABTransDialog *td) { g_return_val_if_fail(td, NULL); return td->parent; } const AB_TRANSACTION * gnc_ab_trans_dialog_get_ab_trans(const GncABTransDialog *td) { g_return_val_if_fail(td, NULL); return td->ab_trans; } static GNC_AB_JOB * gnc_ab_trans_dialog_get_available_empty_job(GNC_AB_ACCOUNT_SPEC *ab_acc, GncABTransType trans_type) { GNC_AB_JOB *job; AB_TRANSACTION_COMMAND cmd = AB_Transaction_CommandUnknown; switch (trans_type) { case SINGLE_DEBITNOTE: /* no longer in use */ cmd=AB_Transaction_CommandDebitNote; break; case SINGLE_INTERNAL_TRANSFER: cmd=AB_Transaction_CommandInternalTransfer; break; case SEPA_TRANSFER: cmd=AB_Transaction_CommandSepaTransfer; break; #if (AQBANKING_VERSION_INT >= 60400) case SEPA_INTERNAL_TRANSFER: cmd=AB_Transaction_CommandSepaInternalTransfer; break; #endif case SEPA_DEBITNOTE: cmd=AB_Transaction_CommandSepaDebitNote; break; default: cmd=AB_Transaction_CommandTransfer; /* no longer in use */ break; }; if (!AB_AccountSpec_GetTransactionLimitsForCommand(ab_acc, cmd)) return NULL; job = AB_Transaction_new(); AB_Transaction_SetCommand(job, cmd); AB_Transaction_SetUniqueAccountId(job, AB_AccountSpec_GetUniqueId(ab_acc)); return job; } GNC_AB_JOB * gnc_ab_trans_dialog_get_job(const GncABTransDialog *td) { g_return_val_if_fail(td, NULL); return gnc_ab_get_trans_job(td->ab_acc, td->ab_trans, td->trans_type); } GNC_AB_JOB * gnc_ab_get_trans_job(GNC_AB_ACCOUNT_SPEC *ab_acc, const AB_TRANSACTION *ab_trans, GncABTransType trans_type) { GNC_AB_JOB *job; g_return_val_if_fail(ab_acc && ab_trans, NULL); job = gnc_ab_trans_dialog_get_available_empty_job(ab_acc, trans_type); if (job) { AB_TRANSACTION *new_job; /* merge transactions */ new_job=AB_Transaction_dup(ab_trans); AB_Transaction_SetCommand(new_job, AB_Transaction_GetCommand(job)); AB_Transaction_SetUniqueAccountId(new_job, AB_Transaction_GetUniqueAccountId(job)); AB_Transaction_free(job); return new_job; } return NULL; } #if (AQBANKING_VERSION_INT >= 60400) void gnc_ab_trans_dialog_templ_list_row_activated_cb(GtkTreeView *view, GtkTreePath *path, GtkTreeViewColumn *column, gpointer user_data) { GncABTransDialog *td = user_data; GtkTreeIter iter; GncABTransTempl *templ; const gchar *new_name; const gchar *new_account; const gchar *new_bankcode; const gchar *new_purpose; const gchar *new_purpose_cont; gnc_numeric new_amount; g_return_if_fail(td); ENTER("td=%p", td); if (!gtk_tree_model_get_iter(GTK_TREE_MODEL(td->template_list_store), &iter, path)) { LEAVE("Could not get iter"); return; } gtk_tree_model_get(GTK_TREE_MODEL(td->template_list_store), &iter, TEMPLATE_POINTER, &templ, -1); /* Get new values */ new_name = gnc_ab_trans_templ_get_recp_name(templ); new_account = gnc_ab_trans_templ_get_recp_account(templ); new_bankcode = gnc_ab_trans_templ_get_recp_bankcode(templ); new_purpose = gnc_ab_trans_templ_get_purpose(templ); new_purpose_cont = gnc_ab_trans_templ_get_purpose_cont(templ); new_amount = gnc_ab_trans_templ_get_amount(templ); if (!new_name) new_name = ""; if (!new_account) new_account = ""; if (!new_bankcode) new_bankcode = ""; if (!new_purpose) new_purpose = ""; if (!new_purpose_cont) new_purpose_cont = ""; /* Fill in */ gtk_entry_set_text(GTK_ENTRY(td->recp_name_entry), new_name); gtk_entry_set_text(GTK_ENTRY(td->recp_account_entry), new_account); gtk_entry_set_text(GTK_ENTRY(td->recp_bankcode_entry), new_bankcode); gtk_entry_set_text(GTK_ENTRY(td->purpose_entry), new_purpose); gtk_entry_set_text(GTK_ENTRY(td->purpose_cont_entry), new_purpose_cont); gnc_amount_edit_set_amount(GNC_AMOUNT_EDIT(td->amount_edit), new_amount); LEAVE(" "); } struct _FindTemplData { const gchar *name; const GncABTransTempl *pointer; }; static gboolean find_templ_helper(GtkTreeModel *model, GtkTreePath *path, GtkTreeIter *iter, gpointer user_data) { struct _FindTemplData *data = user_data; gchar *name; GncABTransTempl *templ; gboolean match; g_return_val_if_fail(model && data, TRUE); gtk_tree_model_get(model, iter, TEMPLATE_NAME, &name, TEMPLATE_POINTER, &templ, -1); if (data->name) { /* Search for the template by name */ g_return_val_if_fail(!data->pointer, TRUE); match = strcmp(name, data->name) == 0; if (match) data->pointer = templ; } else { /* Search for the template by template pointer */ g_return_val_if_fail(!data->name, TRUE); match = templ == data->pointer; if (match) data->name = g_strdup(name); } g_free(name); return match; } void gnc_ab_trans_dialog_add_templ_cb(GtkButton *button, gpointer user_data) { GncABTransDialog *td = user_data; GtkBuilder *builder; GtkWidget *dialog; GtkWidget *entry; gint retval; const gchar *name; GncABTransTempl *templ; struct _FindTemplData data; GtkTreeSelection *selection; GtkTreeIter cur_iter; GtkTreeIter new_iter; g_return_if_fail(td); ENTER("td=%p", td); builder = gtk_builder_new(); gnc_builder_add_from_file (builder, "dialog-ab.glade", "aqbanking_template_name_dialog"); dialog = GTK_WIDGET(gtk_builder_get_object (builder, "aqbanking_template_name_dialog")); entry = GTK_WIDGET(gtk_builder_get_object (builder, "template_name")); /* Suggest recipient name as name of the template */ gtk_entry_set_text(GTK_ENTRY(entry), gtk_entry_get_text(GTK_ENTRY(td->recp_name_entry))); do { retval = gtk_dialog_run(GTK_DIALOG(dialog)); if (retval != GTK_RESPONSE_OK) break; name = gtk_entry_get_text(GTK_ENTRY(entry)); if (!*name) break; data.name = name; data.pointer = NULL; gtk_tree_model_foreach(GTK_TREE_MODEL(td->template_list_store), find_templ_helper, &data); if (data.pointer) { gnc_error_dialog(GTK_WINDOW (dialog), "%s", _("A template with the given name already exists. " "Please enter another name.")); continue; } /* Create a new template */ templ = gnc_ab_trans_templ_new_full( name, gtk_entry_get_text(GTK_ENTRY(td->recp_name_entry)), gtk_entry_get_text(GTK_ENTRY(td->recp_account_entry)), gtk_entry_get_text(GTK_ENTRY(td->recp_bankcode_entry)), gnc_amount_edit_get_amount(GNC_AMOUNT_EDIT(td->amount_edit)), gtk_entry_get_text(GTK_ENTRY(td->purpose_entry)), gtk_entry_get_text (GTK_ENTRY(td->purpose_cont_entry))); /* Insert it, either after the selected one or at the end */ selection = gtk_tree_view_get_selection(td->template_gtktreeview); if (gtk_tree_selection_get_selected(selection, NULL, &cur_iter)) { gtk_list_store_insert_after(td->template_list_store, &new_iter, &cur_iter); } else { gtk_list_store_append(td->template_list_store, &new_iter); } gtk_list_store_set(td->template_list_store, &new_iter, TEMPLATE_NAME, name, TEMPLATE_POINTER, templ, -1); td->templ_changed = TRUE; DEBUG("Added template with name %s", name); break; } while (TRUE); g_object_unref(G_OBJECT(builder)); gtk_widget_destroy(dialog); LEAVE(" "); } #endif void gnc_ab_trans_dialog_moveup_templ_cb(GtkButton *button, gpointer user_data) { GncABTransDialog *td = user_data; GtkTreeSelection *selection; GtkTreeModel *model; GtkTreeIter iter; GtkTreePath *prev_path; GtkTreeIter prev_iter; g_return_if_fail(td); selection = gtk_tree_view_get_selection(td->template_gtktreeview); if (!gtk_tree_selection_get_selected(selection, &model, &iter)) return; prev_path = gtk_tree_model_get_path(model, &iter); if (gtk_tree_path_prev(prev_path)) { if (gtk_tree_model_get_iter(model, &prev_iter, prev_path)) { gtk_list_store_move_before(GTK_LIST_STORE(model), &iter, &prev_iter); td->templ_changed = TRUE; } } gtk_tree_path_free(prev_path); } void gnc_ab_trans_dialog_movedown_templ_cb(GtkButton *button, gpointer user_data) { GncABTransDialog *td = user_data; GtkTreeSelection *selection; GtkTreeModel *model; GtkTreeIter iter; GtkTreeIter next_iter; g_return_if_fail(td); selection = gtk_tree_view_get_selection(td->template_gtktreeview); if (!gtk_tree_selection_get_selected (selection, &model, &iter)) return; next_iter = iter; if (gtk_tree_model_iter_next(model, &next_iter)) { gtk_list_store_move_after(GTK_LIST_STORE(model), &iter, &next_iter); td->templ_changed = TRUE; } } void gnc_ab_trans_dialog_sort_templ_cb(GtkButton *button, gpointer user_data) { GncABTransDialog *td = user_data; g_return_if_fail(td); ENTER("td=%p", td); gtk_tree_sortable_set_sort_column_id( GTK_TREE_SORTABLE(td->template_list_store), TEMPLATE_NAME, GTK_SORT_ASCENDING); gtk_tree_sortable_set_sort_column_id( GTK_TREE_SORTABLE(td->template_list_store), GTK_TREE_SORTABLE_UNSORTED_SORT_COLUMN_ID, GTK_SORT_ASCENDING); td->templ_changed = TRUE; LEAVE(" "); } void gnc_ab_trans_dialog_del_templ_cb(GtkButton *button, gpointer user_data) { GncABTransDialog *td = user_data; GtkTreeSelection *selection; GtkTreeModel *model; GtkTreeIter iter; gchar *name; g_return_if_fail(td); ENTER("td=%p", td); selection = gtk_tree_view_get_selection(td->template_gtktreeview); if (!gtk_tree_selection_get_selected (selection, &model, &iter)) { LEAVE("None selected"); return; } gtk_tree_model_get(model, &iter, TEMPLATE_NAME, &name, -1); if (gnc_verify_dialog ( GTK_WINDOW (td->parent), FALSE, _("Do you really want to delete the template with the name \"%s\"?"), name)) { gtk_list_store_remove(GTK_LIST_STORE(model), &iter); td->templ_changed = TRUE; DEBUG("Deleted template with name %s", name); } g_free(name); LEAVE(" "); } void gnc_ab_trans_dialog_ibanentry_filter_cb (GtkEditable *editable, const gchar *text, gint length, gint *position, gpointer data) { GString* result = g_string_new(NULL); gint i; GncABTransDialog *td = data; if (length == -1) length = strlen(text); g_assert(position); /* Filter digits / non digits as needed */ for (i = 0; i < length; i++) { gchar c = text[i]; if (gnc_ab_trans_isSEPA(td->trans_type)) { enum { ALPHA , ALNUM , NUMERIC } allowed_characterclass; // SEPA: Only alphas in the first two places (at index 0, 1) if (*position + i < 2) { allowed_characterclass = ALPHA; } // SEPA: Next two places are digits only (index 2, 3) else if (*position + i < 4) { allowed_characterclass = NUMERIC; } // SEPA: The rest depends on the country code: Either Alpha-numeric or numeric only else { const gchar* acct_text = gtk_entry_get_text(GTK_ENTRY(td->recp_account_entry)); // Special case for German ("DE") IBAN: Numeric only. Otherwise allow alpha-numeric if (acct_text[0] == 'D' && acct_text[1] == 'E') { allowed_characterclass = NUMERIC; } else { allowed_characterclass = ALNUM; } } // Do the actual character class check. Alphas are only allowed in // uppercase, though. switch (allowed_characterclass) { case ALPHA: if (g_ascii_isalpha(c)) g_string_append_c(result, g_ascii_toupper(c)); break; case ALNUM: if (g_ascii_isalnum(c)) g_string_append_c(result, g_ascii_toupper(c)); break; case NUMERIC: if (g_ascii_isdigit(c)) g_string_append_c(result, c); break; } } else { // Non-SEPA: Only accept digits. if (g_ascii_isdigit(c)) { g_string_append_c(result, c); } } } g_signal_handlers_block_by_func (editable, (gpointer) gnc_ab_trans_dialog_ibanentry_filter_cb, data); gtk_editable_insert_text (editable, result->str, result->len, position); g_signal_handlers_unblock_by_func (editable, (gpointer) gnc_ab_trans_dialog_ibanentry_filter_cb, data); g_signal_stop_emission_by_name (editable, "insert_text"); g_string_free (result, TRUE); } void gnc_ab_trans_dialog_bicentry_filter_cb (GtkEditable *editable, const gchar *text, gint length, gint *position, gpointer data) { GString* result = g_string_new(NULL); gint i; GncABTransDialog *td = data; if (length == -1) length = strlen(text); g_assert(position); /* Filter non digits */ for (i = 0; i < length; i++) { gchar c = text[i]; if (gnc_ab_trans_isSEPA(td->trans_type)) { // SEPA: Only alphas in the first 6 places (only upper case, though), then both upper-case alphas and digits if (*position + i < 6) { if (g_ascii_isalpha(c)) g_string_append_c(result, g_ascii_toupper(c)); } else { if (g_ascii_isalnum(c)) g_string_append_c(result, g_ascii_toupper(c)); } } else { // Non-SEPA: Only digits accepted. if (g_ascii_isdigit(c)) { g_string_append_c(result, c); } } } g_signal_handlers_block_by_func (editable, (gpointer) gnc_ab_trans_dialog_bicentry_filter_cb, data); gtk_editable_insert_text (editable, result->str, result->len, position); g_signal_handlers_unblock_by_func (editable, (gpointer) gnc_ab_trans_dialog_bicentry_filter_cb, data); g_signal_stop_emission_by_name (editable, "insert_text"); g_string_free (result, TRUE); }