static void
save_kvp_acc_cb(gpointer key, gpointer value, gpointer user_data)
{
AB_ACCOUNT *ab_acc = key;
Account *gnc_acc = value;
guint32 ab_account_uid;
const gchar *ab_accountid, *gnc_accountid;
const gchar *ab_bankcode, *gnc_bankcode;
g_return_if_fail(ab_acc && gnc_acc);
ab_account_uid = AB_Account_GetUniqueId(ab_acc);
if (gnc_ab_get_account_uid(gnc_acc) != ab_account_uid)
gnc_ab_set_account_uid(gnc_acc, ab_account_uid);
ab_accountid = AB_Account_GetAccountNumber(ab_acc);
gnc_accountid = gnc_ab_get_account_accountid(gnc_acc);
if (ab_accountid
&& (!gnc_accountid
|| (strcmp(ab_accountid, gnc_accountid) != 0)))
gnc_ab_set_account_accountid(gnc_acc, ab_accountid);
ab_bankcode = AB_Account_GetBankCode(ab_acc);
gnc_bankcode = gnc_ab_get_account_bankcode(gnc_acc);
if (ab_bankcode
&& (!gnc_bankcode
|| (strcmp(gnc_bankcode, ab_bankcode) != 0)))
gnc_ab_set_account_bankcode(gnc_acc, ab_bankcode);
}
void AB_ImExporterAccountInfo_FillFromAccount(AB_IMEXPORTER_ACCOUNTINFO *iea,
const AB_ACCOUNT *a) {
const char *s;
AB_ACCOUNT_TYPE at;
assert(iea);
assert(a);
s=AB_Account_GetBankCode(a);
AB_ImExporterAccountInfo_SetBankCode(iea, s);
s=AB_Account_GetBankName(a);
AB_ImExporterAccountInfo_SetBankName(iea, s);
s=AB_Account_GetAccountNumber(a);
AB_ImExporterAccountInfo_SetAccountNumber(iea, s);
s=AB_Account_GetAccountName(a);
AB_ImExporterAccountInfo_SetAccountName(iea, s);
s=AB_Account_GetIBAN(a);
AB_ImExporterAccountInfo_SetIban(iea, s);
s=AB_Account_GetBIC(a);
AB_ImExporterAccountInfo_SetBic(iea, s);
s=AB_Account_GetCurrency(a);
AB_ImExporterAccountInfo_SetCurrency(iea, s);
s=AB_Account_GetOwnerName(a);
AB_ImExporterAccountInfo_SetOwner(iea, s);
at=AB_Account_GetAccountType(a);
AB_ImExporterAccountInfo_SetType(iea, at);
}
static gchar *
ab_account_longname(const AB_ACCOUNT *ab_acc)
{
gchar *bankname;
gchar *result;
const char *ab_bankname, *bankcode;
g_return_val_if_fail(ab_acc, NULL);
ab_bankname = AB_Account_GetBankName(ab_acc);
bankname = ab_bankname ? gnc_utf8_strip_invalid_strdup(ab_bankname) : NULL;
bankcode = AB_Account_GetBankCode(ab_acc);
/* Translators: Strings are 1. Account code, 2. Bank name, 3. Bank code. */
if (bankname && *bankname)
result = g_strdup_printf(_("%s at %s (code %s)"),
AB_Account_GetAccountNumber(ab_acc),
bankname,
bankcode);
else
result = g_strdup_printf(_("%s at bank code %s"),
AB_Account_GetAccountNumber(ab_acc),
bankcode);
g_free(bankname);
return result;
}
int AB_Provider_AccountToAccountSpec(AB_PROVIDER *pro, const AB_ACCOUNT *acc, AB_ACCOUNT_SPEC *as, int doLock)
{
int rv;
assert(acc);
assert(as);
AB_AccountSpec_SetType(as, AB_Account_GetAccountType(acc));
AB_AccountSpec_SetUniqueId(as, AB_Account_GetUniqueId(acc));
AB_AccountSpec_SetBackendName(as, AB_Account_GetBackendName(acc));
AB_AccountSpec_SetOwnerName(as, AB_Account_GetOwnerName(acc));
AB_AccountSpec_SetAccountName(as, AB_Account_GetAccountName(acc));
AB_AccountSpec_SetCurrency(as, AB_Account_GetCurrency(acc));
AB_AccountSpec_SetIban(as, AB_Account_GetIban(acc));
AB_AccountSpec_SetBic(as, AB_Account_GetBic(acc));
AB_AccountSpec_SetCountry(as, AB_Account_GetCountry(acc));
AB_AccountSpec_SetBankCode(as, AB_Account_GetBankCode(acc));
AB_AccountSpec_SetAccountNumber(as, AB_Account_GetAccountNumber(acc));
AB_AccountSpec_SetSubAccountNumber(as, AB_Account_GetSubAccountId(acc));
rv=AB_Provider_UpdateAccountSpec(pro, as, doLock);
if (rv<0 && rv!=GWEN_ERROR_NOT_IMPLEMENTED) {
DBG_INFO(AQBANKING_LOGDOMAIN, "here (%d)", rv);
return rv;
}
return 0;
}
static const AB_TRANSACTION *
translist_cb (const AB_TRANSACTION *element, void *user_data)
{
AB_JOB *job;
AB_TRANSACTION *trans = (AB_TRANSACTION*)element;
GtkWidget *parent = NULL;
struct import_data *data = user_data;
struct trans_list_data hbci_userdata;
/* This callback in the hbci module will add the imported
transaction to gnucash's importer. */
hbci_userdata.gnc_acc = data->gnc_acc;
hbci_userdata.importer_generic = data->importer_generic;
/* The call will use "trans" only as const* */
gnc_hbci_trans_list_cb((AB_TRANSACTION*) trans, &hbci_userdata);
if (data->hbci_account)
{
/* NEW: The imported transaction has been imported into
gnucash. Now also add it as a job to aqbanking. */
AB_Transaction_SetLocalBankCode (trans,
AB_Account_GetBankCode (data->hbci_account));
AB_Transaction_SetLocalAccountNumber (trans, AB_Account_GetAccountNumber (data->hbci_account));
AB_Transaction_SetLocalCountry (trans, "DE");
job =
gnc_hbci_trans_dialog_enqueue(trans, data->ab,
data->hbci_account, SINGLE_DEBITNOTE);
/* Check whether we really got a job */
if (!job)
{
/* Oops, no job, probably not supported by bank. */
if (gnc_verify_dialog
(parent,
FALSE,
"%s",
_("The backend found an error during the preparation "
"of the job. It is not possible to execute this job. \n"
"\n"
"Most probable the bank does not support your chosen "
"job or your Online Banking account does not have the permission "
"to execute this job. More error messages might be "
"visible on your console log.\n"
"\n"
"Do you want to enter the job again?")))
{
gnc_error_dialog (parent, "Sorry, not implemented yet.");
}
/* else
break; */
}
data->job_list = g_list_append(data->job_list, job);
}
return NULL;
}
int AB_Banking_BeginExclUseAccount(AB_BANKING *ab,
AB_ACCOUNT *a) {
GWEN_DB_NODE *db=NULL;
GWEN_DB_NODE *dbP;
int rv;
assert(ab);
/* check for config manager (created by AB_Banking_Init) */
if (ab->configMgr==NULL) {
DBG_ERROR(AQBANKING_LOGDOMAIN,
"No config manager (maybe the gwenhywfar plugins are not installed?");
return GWEN_ERROR_GENERIC;
}
/* lock group */
rv=GWEN_ConfigMgr_LockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
if (rv<0) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Unable to lock account config group (%d)", rv);
return rv;
}
/* load group (is locked now) */
rv=GWEN_ConfigMgr_GetGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a),
&db);
if (rv<0) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Could not load account group (%d)", rv);
GWEN_ConfigMgr_UnlockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
return rv;
}
AB_Account_ReadDb(a, db);
/* let provider also reload account data */
dbP=GWEN_DB_GetGroup(db, GWEN_DB_FLAGS_DEFAULT, "data/backend");
rv=AB_Provider_ExtendAccount(AB_Account_GetProvider(a), a, AB_ProviderExtendMode_Reload, dbP);
if (rv<0) {
DBG_WARN(AQBANKING_LOGDOMAIN, "Could not extend account [%s/%s] (%d)",
AB_Account_GetBankCode(a), AB_Account_GetAccountNumber(a), rv);
GWEN_ConfigMgr_UnlockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
GWEN_DB_Group_free(db);
return rv;
}
GWEN_DB_Group_free(db);
return 0;
}
/**
* 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 *
ab_trans_fill_values(GncABTransDialog *td)
{
/* Fill in the user-entered values */
AB_TRANSACTION *trans = AB_Transaction_new();
AB_VALUE *value;
AB_Transaction_SetLocalBankCode(trans, AB_Account_GetBankCode(td->ab_acc));
AB_Transaction_SetLocalAccountNumber(
trans, AB_Account_GetAccountNumber(td->ab_acc));
AB_Transaction_SetLocalCountry(trans, "DE");
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_AddRemoteName(
trans, gtk_entry_get_text(GTK_ENTRY(td->recp_name_entry)), FALSE);
AB_Transaction_AddPurpose(
trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_entry)), FALSE);
AB_Transaction_AddPurpose(
trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_cont_entry)), FALSE);
AB_Transaction_AddPurpose(
trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_cont2_entry)), FALSE);
AB_Transaction_AddPurpose(
trans, gtk_entry_get_text(GTK_ENTRY(td->purpose_cont3_entry)), FALSE);
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;
}
static void createAccountListBoxString(const AB_ACCOUNT *a, GWEN_BUFFER *tbuf)
{
const char *s;
char numbuf[32];
uint32_t uid;
/* column 1 */
uid=AB_Account_GetUniqueId(a);
snprintf(numbuf, sizeof(numbuf)-1, "%06d", uid);
numbuf[sizeof(numbuf)-1]=0;
GWEN_Buffer_AppendString(tbuf, numbuf);
GWEN_Buffer_AppendString(tbuf, "\t");
/* column 2 */
s=AB_Account_GetBankCode(a);
if (s && *s)
GWEN_Buffer_AppendString(tbuf, s);
GWEN_Buffer_AppendString(tbuf, "\t");
/* column 3 */
s=AB_Account_GetBankName(a);
if (s && *s)
GWEN_Buffer_AppendString(tbuf, s);
GWEN_Buffer_AppendString(tbuf, "\t");
/* column 4 */
s=AB_Account_GetAccountNumber(a);
if (s && *s)
GWEN_Buffer_AppendString(tbuf, s);
GWEN_Buffer_AppendString(tbuf, "\t");
/* column 5 */
s=AB_Account_GetAccountName(a);
if (s && *s)
GWEN_Buffer_AppendString(tbuf, s);
GWEN_Buffer_AppendString(tbuf, "\t");
/* column 6 */
s=AB_Account_GetOwnerName(a);
if (s && *s)
GWEN_Buffer_AppendString(tbuf, s);
GWEN_Buffer_AppendString(tbuf, "\t");
/* column 7 */
s=AB_Account_GetBackendName(a);
if (s && *s)
GWEN_Buffer_AppendString(tbuf, s);
}
int AB_Banking_DeleteUser(AB_BANKING *ab, AB_USER *u) {
int rv;
AB_ACCOUNT *acc_rv;
const char *groupName;
assert(ab);
assert(u);
acc_rv=AB_Banking_FindFirstAccountOfUser(ab, u);
if (acc_rv) {
DBG_ERROR(AQBANKING_LOGDOMAIN,
"Error on removing user: Still belongs to an account (bankcode %s, accountnumber %s). Delete the account first.",
AB_Account_GetBankCode(acc_rv),
AB_Account_GetAccountNumber(acc_rv));
return GWEN_ERROR_INVALID;
}
rv=AB_User_List_Del(u);
if (rv) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Error on removing user from list (%d)", rv);
return rv;
}
rv=AB_Provider_ExtendUser(AB_User_GetProvider(u), u,
AB_ProviderExtendMode_Remove,
NULL);
if (rv) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Error on remove extension of user (%d)", rv);
return rv;
}
groupName=AB_User_GetDbId(u);
if (groupName) {
rv=GWEN_ConfigMgr_DeleteGroup(ab->configMgr,
AB_CFG_GROUP_USERS,
groupName);
if (rv<0) {
DBG_ERROR(AQBANKING_LOGDOMAIN,
"Unable to delete user config [%08x] (%d)",
AB_User_GetUniqueId(u), rv);
return rv;
}
}
AB_User_free(u);
return 0;
}
void KBAccountListViewItem::_populate()
{
QString tmp;
int i;
assert(_account);
i = 0;
// unique id
setText(i++, QString::number(AB_Account_GetUniqueId(_account)));
// bank code
setText(i++, QString::fromUtf8(AB_Account_GetBankCode(_account)));
// bank name
tmp = AB_Account_GetBankName(_account);
if (tmp.isEmpty())
tmp = i18nc("replacement for institution or account w/o name", "(unnamed)");
setText(i++, tmp);
// account id
setText(i++, QString::fromUtf8(AB_Account_GetAccountNumber(_account)));
// account name
tmp = QString::fromUtf8(AB_Account_GetAccountName(_account));
if (tmp.isEmpty())
tmp = i18nc("replacement for institution or account w/o name", "(unnamed)");
setText(i++, tmp);
tmp = QString::fromUtf8(AB_Account_GetOwnerName(_account));
if (tmp.isEmpty())
tmp = "";
setText(i++, tmp);
tmp = QString::fromUtf8(AB_Provider_GetName(AB_Account_GetProvider(_account)));
if (tmp.isEmpty())
tmp = i18nc("replacement for institution or account w/o name", "(unnamed)");
setText(i++, tmp);
}
/* --------------------------------------------------------------- FUNCTION */
int AH_Job_GetBalance_Process(AH_JOB *j, AB_IMEXPORTER_CONTEXT *ctx){
AH_JOB_GETBALANCE *aj;
GWEN_DB_NODE *dbResponses;
GWEN_DB_NODE *dbCurr;
int rv;
DBG_INFO(AQHBCI_LOGDOMAIN, "Processing JobGetBalance");
assert(j);
aj=GWEN_INHERIT_GETDATA(AH_JOB, AH_JOB_GETBALANCE, j);
assert(aj);
dbResponses=AH_Job_GetResponses(j);
assert(dbResponses);
/* search for "Balance" */
dbCurr=GWEN_DB_GetFirstGroup(dbResponses);
while(dbCurr) {
GWEN_DB_NODE *dbBalance;
rv=AH_Job_CheckEncryption(j, dbCurr);
if (rv) {
DBG_INFO(AQHBCI_LOGDOMAIN, "Compromised security (encryption)");
AH_Job_SetStatus(j, AH_JobStatusError);
return rv;
}
rv=AH_Job_CheckSignature(j, dbCurr);
if (rv) {
DBG_INFO(AQHBCI_LOGDOMAIN, "Compromised security (signature)");
AH_Job_SetStatus(j, AH_JobStatusError);
return rv;
}
dbBalance=GWEN_DB_GetGroup(dbCurr, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"data/balance");
if (!dbBalance)
dbBalance=GWEN_DB_GetGroup(dbCurr, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"data/balancecreditcard");
if (dbBalance) {
AB_ACCOUNT_STATUS *acst;
GWEN_DB_NODE *dbT;
AB_ACCOUNT *a;
AB_IMEXPORTER_ACCOUNTINFO *ai;
DBG_NOTICE(AQHBCI_LOGDOMAIN, "Got a balance");
if (GWEN_Logger_GetLevel(0)>=GWEN_LoggerLevel_Debug)
GWEN_DB_Dump(dbBalance, 2);
acst=AB_AccountStatus_new();
/* read booked balance */
dbT=GWEN_DB_GetGroup(dbBalance, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"booked");
if (dbT) {
AB_BALANCE *bal;
bal=AH_Job_GetBalance__ReadBalance(dbT);
if (bal) {
AB_AccountStatus_SetBookedBalance(acst, bal);
AB_AccountStatus_SetTime(acst, AB_Balance_GetTime(bal));
AB_Balance_free(bal);
}
}
/* read noted balance */
dbT=GWEN_DB_GetGroup(dbBalance, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"noted");
if (dbT) {
AB_BALANCE *bal;
bal=AH_Job_GetBalance__ReadBalance(dbT);
if (bal) {
AB_AccountStatus_SetNotedBalance(acst, bal);
if (AB_AccountStatus_GetTime(acst)==NULL)
AB_AccountStatus_SetTime(acst, AB_Balance_GetTime(bal));
AB_Balance_free(bal);
}
}
/* read credit Line */
dbT=GWEN_DB_GetGroup(dbBalance, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"creditLine");
if (dbT) {
AB_VALUE *v;
v=AB_Value_fromDb(dbT);
if (!v) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "Error parsing value from DB");
}
else {
AB_AccountStatus_SetBankLine(acst, v);
}
AB_Value_free(v);
}
a=AH_AccountJob_GetAccount(j);
assert(a);
ai=AB_ImExporterContext_GetAccountInfo(ctx,
AB_Account_GetBankCode(a),
AB_Account_GetAccountNumber(a));
assert(ai);
/* add new account status */
AB_ImExporterAccountInfo_AddAccountStatus(ai, acst);
break; /* break loop, we found the balance */
} /* if "Balance" */
dbCurr=GWEN_DB_GetNextGroup(dbCurr);
}
return 0;
}
int main(int argc, char **argv) {
AB_BANKING *ab;
AB_ACCOUNT_LIST2 *accs;
int rv;
GWEN_GUI *gui;
gui=GWEN_Gui_CGui_new();
GWEN_Gui_SetGui(gui);
ab=AB_Banking_new("tutorial2", 0, 0);
rv=AB_Banking_Init(ab);
if (rv) {
fprintf(stderr, "Error on init (%d)\n", rv);
return 2;
}
rv=AB_Banking_OnlineInit(ab);
if (rv) {
fprintf(stderr, "Error on onlineinit (%d)\n", rv);
return 2;
}
fprintf(stderr, "AqBanking successfully initialized.\n");
/* Get a list of accounts which are known to AqBanking.
* There are some pecularities about the list returned:
* The list itself is owned by the caller (who must call
* AB_Account_List2_free() as we do below), but the elements of that
* list (->the accounts) are still owned by AqBanking.
* Therefore you MUST NOT free any of the accounts within the list returned.
* This also rules out calling AB_Account_List2_freeAll() which not only
* frees the list itself but also frees all its elements.
*
* The rest of this tutorial shows how lists are generally used by
* AqBanking.
*/
accs=AB_Banking_GetAccounts(ab);
if (accs) {
AB_ACCOUNT_LIST2_ITERATOR *it;
/* List2's are traversed using iterators. An iterator is an object
* which points to a single element of a list.
* If the list is empty NULL is returned.
*/
it=AB_Account_List2_First(accs);
if (it) {
AB_ACCOUNT *a;
/* this function returns a pointer to the element of the list to
* which the iterator currently points to */
a=AB_Account_List2Iterator_Data(it);
while(a) {
AB_PROVIDER *pro;
/* every account is assigned to a backend (sometimes called provider)
* which actually performs online banking tasks. We get a pointer
* to that provider/backend with this call to show its name in our
* example.*/
pro=AB_Account_GetProvider(a);
fprintf(stderr,
"Account: %s (%s) %s (%s) [%s]\n",
AB_Account_GetBankCode(a),
AB_Account_GetBankName(a),
AB_Account_GetAccountNumber(a),
AB_Account_GetAccountName(a),
/* the name of the provider/backend as decribed above */
AB_Provider_GetName(pro));
/* this function lets the iterator advance to the next element in
* the list, so a following call to AB_Account_List2Iterator_Data()
* would return a pointer to the next element.
* This function also returns a pointer to the next element of the
* list. If there is no next element then NULL is returned. */
a=AB_Account_List2Iterator_Next(it);
}
/* the iterator must be freed after using it */
AB_Account_List2Iterator_free(it);
}
/* as discussed the list itself is only a container which has to be freed
* after use. This explicitly does not free any of the elements in that
* list, and it shouldn't because AqBanking still is the owner of the
* accounts */
AB_Account_List2_free(accs);
}
rv=AB_Banking_OnlineFini(ab);
if (rv) {
fprintf(stderr, "ERROR: Error on online deinit (%d)\n", rv);
return 3;
}
rv=AB_Banking_Fini(ab);
if (rv) {
fprintf(stderr, "ERROR: Error on deinit (%d)\n", rv);
return 3;
}
AB_Banking_free(ab);
return 0;
}
GncABTransDialog *
gnc_ab_trans_dialog_new(GtkWidget *parent, AB_ACCOUNT *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;
GtkWidget *heading_label;
GtkWidget *recp_name_heading;
GtkWidget *recp_account_heading;
GtkWidget *recp_bankcode_heading;
GtkWidget *amount_hbox;
GtkWidget *orig_name_heading;
GtkWidget *orig_name_label;
GtkWidget *orig_account_heading;
GtkWidget *orig_account_label;
GtkWidget *orig_bankname_heading;
GtkWidget *orig_bankname_label;
GtkWidget *orig_bankcode_heading;
GtkWidget *orig_bankcode_label;
GtkCellRenderer *renderer;
GtkTreeViewColumn *column;
g_return_val_if_fail(ab_acc, NULL);
ab_ownername = AB_Account_GetOwnerName(ab_acc);
if (!ab_ownername)
ab_ownername = "";
ab_accountnumber = AB_Account_GetAccountNumber(ab_acc);
ab_bankcode = AB_Account_GetBankCode(ab_acc);
ab_bankname = AB_Account_GetBankName(ab_acc);
if (!ab_bankname || !*ab_bankname)
ab_bankname = _("(unknown)");
td = g_new0(GncABTransDialog, 1);
td->parent = parent;
td->ab_acc = ab_acc;
td->trans_type = trans_type;
#if HAVE_KTOBLZCHECK_H
td->blzcheck = AccountNumberCheck_new();
#endif
builder = gtk_builder_new();
gnc_builder_add_from_file (builder, "dialog-ab.glade", "Transaction Dialog");
td->dialog = GTK_WIDGET(gtk_builder_get_object (builder, "Transaction Dialog"));
if (parent)
gtk_window_set_transient_for(GTK_WINDOW(td->dialog), GTK_WINDOW(parent));
/* Extract widgets */
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"));
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"));
orig_name_heading = GTK_WIDGET(gtk_builder_get_object (builder, "orig_name_heading"));
orig_name_label = 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"));
/* Amount edit */
td->amount_edit = gnc_amount_edit_new();
gtk_box_pack_start_defaults(GTK_BOX(amount_hbox), td->amount_edit);
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);
/* 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 SINGLE_DEBITNOTE:
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' (in 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 an 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 Account Number"));
gtk_label_set_text(GTK_LABEL(recp_bankcode_heading),
_("Debited Account Bank Code"));
gtk_label_set_text(GTK_LABEL(orig_name_heading),
_("Credited Account Owner"));
gtk_label_set_text(GTK_LABEL(orig_account_heading),
_("Credited Account Number"));
gtk_label_set_text(GTK_LABEL(orig_bankcode_heading),
_("Credited Account Bank Code"));
break;
default:
g_critical("gnc_ab_trans_dialog_new: Oops, unknown GncABTransType %d",
trans_type);
break;
}
gtk_label_set_text(GTK_LABEL(orig_name_label), ab_ownername);
gtk_label_set_text(GTK_LABEL(orig_account_label), ab_accountnumber);
gtk_label_set_text(GTK_LABEL(orig_bankname_label), ab_bankname);
gtk_label_set_text (GTK_LABEL (orig_bankcode_label), ab_bankcode);
/* 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, 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 */
/* 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));
return td;
}
/* --------------------------------------------------------------- FUNCTION */
AH_JOB *AH_AccountJob_new(const char *name,
AB_USER *u,
AB_ACCOUNT *account){
AH_ACCOUNTJOB *aj;
AH_JOB *j;
GWEN_DB_NODE *dbArgs;
const char *s;
int jobVersion=0;
assert(name);
assert(u);
assert(account);
if (!(AH_Account_GetFlags(account) & AH_BANK_FLAGS_KTV2)) {
int maxVer=0;
/* no account suffix, so we try to determine the highest usable
* version of the job which still doesn't need the suffix
*/
if (strcasecmp(name, "JobGetTransactions")==0)
maxVer=4;
else if (strcasecmp(name, "JobGetBalance")==0)
maxVer=4;
else if (strcasecmp(name, "JobSingleTransfer")==0)
maxVer=3;
else if (strcasecmp(name, "JobSingleDebitNote")==0)
maxVer=3;
else if (strcasecmp(name, "JobInternalTransfer")==0 ||
strcasecmp(name, "JobLoadCellPhone")==0)
/* this job needs a suffix, so if there is none you don't get it */
maxVer=-1;
else if (strcasecmp(name, "JobGetDatedTransfers")==0)
maxVer=1;
else if (strcasecmp(name, "JobCreateDatedTransfer")==0)
maxVer=2;
else if (strcasecmp(name, "JobModifyDatedTransfer")==0)
maxVer=2;
else if (strcasecmp(name, "JobDeleteDatedTransfer")==0)
maxVer=1;
else if (strcasecmp(name, "JobCreateStandingOrder")==0)
maxVer=2;
else if (strcasecmp(name, "JobModifyStandingOrder")==0)
maxVer=2;
else if (strcasecmp(name, "JobDeleteStandingOrder")==0)
maxVer=1;
if (maxVer==-1) {
DBG_ERROR(AQHBCI_LOGDOMAIN,
"This job needs an account suffix, but your bank didn't provide one. "
"Therefore this job is not supported with your account.");
GWEN_Gui_ProgressLog(0,
GWEN_LoggerLevel_Error,
I18N("This job needs an account suffix, but your bank did not provide one. "
"Therefore this job is not supported with your account.\n"
"Setting a higher HBCI version in the user settings might fix "
"the problem."));
return NULL;
}
if (maxVer>0) {
jobVersion=AH_Job_GetMaxVersionUpUntil(name, u, maxVer);
if (jobVersion<1) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "No job [%s] below version %d, falling back to 0", name, maxVer);
GWEN_Gui_ProgressLog2(0,
GWEN_LoggerLevel_Warning,
"No version for job [%s] up to %d found, falling back to 0", name, maxVer);
jobVersion=0;
}
else {
DBG_INFO(AQHBCI_LOGDOMAIN, "Reducing version of job [%s] to %d", name, jobVersion);
}
}
}
j=AH_Job_new(name, u,
AB_Account_GetAccountNumber(account),
AB_Account_GetSubAccountId(account),
jobVersion);
if (!j)
return 0;
GWEN_NEW_OBJECT(AH_ACCOUNTJOB, aj);
GWEN_INHERIT_SETDATA(AH_JOB, AH_ACCOUNTJOB, j, aj, AH_AccountJob_FreeData);
aj->account=account;
/* set some known arguments */
dbArgs=AH_Job_GetArguments(j);
assert(dbArgs);
s=AB_Account_GetAccountNumber(account);
if (s && *s)
GWEN_DB_SetCharValue(dbArgs, GWEN_DB_FLAGS_DEFAULT, "accountId", s);
s=AB_Account_GetSubAccountId(account);
if (s && *s)
GWEN_DB_SetCharValue(dbArgs, GWEN_DB_FLAGS_DEFAULT, "accountSubId", s);
s=AB_Account_GetBankCode(account);
if (s && *s)
GWEN_DB_SetCharValue(dbArgs, GWEN_DB_FLAGS_DEFAULT, "bankCode", s);
GWEN_DB_SetIntValue(dbArgs, GWEN_DB_FLAGS_DEFAULT,
"country", 280);
/* new for SEPA jobs */
s=AB_Account_GetIBAN(account);
if (s && *s)
GWEN_DB_SetCharValue(dbArgs, GWEN_DB_FLAGS_DEFAULT, "iban", s);
s=AB_Account_GetBIC(account);
if (s && *s)
GWEN_DB_SetCharValue(dbArgs, GWEN_DB_FLAGS_DEFAULT, "bic", s);
return j;
}
int AB_Banking_SaveAccountConfig(AB_BANKING *ab, AB_ACCOUNT *a, int doLock) {
GWEN_DB_NODE *db;
GWEN_DB_NODE *dbP;
int rv;
assert(ab);
/* check for config manager (created by AB_Banking_Init) */
if (ab->configMgr==NULL) {
DBG_ERROR(AQBANKING_LOGDOMAIN,
"No config manager (maybe the gwenhywfar plugins are not installed?");
return GWEN_ERROR_GENERIC;
}
if (doLock) {
/* lock group */
rv=GWEN_ConfigMgr_LockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
if (rv<0) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Unable to lock account config group (%d)", rv);
return rv;
}
}
db=GWEN_DB_Group_new("account");
AB_Account_toDb(a, db);
/* let backend save its data */
dbP=GWEN_DB_GetGroup(db, GWEN_DB_FLAGS_DEFAULT, "data/backend");
rv=AB_Provider_ExtendAccount(AB_Account_GetProvider(a), a, AB_ProviderExtendMode_Save, dbP);
if (rv<0) {
DBG_WARN(AQBANKING_LOGDOMAIN, "Could not extend account [%s/%s] (%d)",
AB_Account_GetBankCode(a), AB_Account_GetAccountNumber(a), rv);
GWEN_DB_Group_free(db);
if (doLock)
GWEN_ConfigMgr_UnlockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
return rv;
}
/* save group (still locked) */
rv=GWEN_ConfigMgr_SetGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a),
db);
if (rv<0) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Could not save account group (%d)", rv);
if (doLock) {
GWEN_ConfigMgr_UnlockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
}
GWEN_DB_Group_free(db);
return rv;
}
GWEN_DB_Group_free(db);
if (doLock) {
/* unlock group */
rv=GWEN_ConfigMgr_UnlockGroup(ab->configMgr,
AB_CFG_GROUP_ACCOUNTS,
AB_Account_GetDbId(a));
if (rv<0) {
DBG_ERROR(AQBANKING_LOGDOMAIN, "Could not unlock account group (%d)", rv);
return rv;
}
}
return 0;
}
int AH_Job_GetTransactionsCreditCard_Process(AH_JOB *j, AB_IMEXPORTER_CONTEXT *ctx)
{
AH_JOB_GETTRANSACTIONS *aj;
AB_ACCOUNT *a;
AB_IMEXPORTER_ACCOUNTINFO *ai;
AB_USER *u;
GWEN_DB_NODE *dbResponses;
GWEN_DB_NODE *dbCurr;
GWEN_BUFFER *tbooked;
GWEN_BUFFER *tnoted;
int rv;
DBG_INFO(AQHBCI_LOGDOMAIN, "Processing JobGetTransactionsCreditCard");
assert(j);
aj=GWEN_INHERIT_GETDATA(AH_JOB, AH_JOB_GETTRANSACTIONS, j);
assert(aj);
tbooked=GWEN_Buffer_new(0, 1024, 0, 1);
tnoted=GWEN_Buffer_new(0, 1024, 0, 1);
dbResponses=AH_Job_GetResponses(j);
assert(dbResponses);
DBG_INFO(AQHBCI_LOGDOMAIN, "Response:");
GWEN_DB_Dump(dbResponses, 2);
DBG_INFO(AQHBCI_LOGDOMAIN, "Response end");
a=AH_AccountJob_GetAccount(j);
assert(a);
ai=AB_ImExporterContext_GetOrAddAccountInfo(ctx,
AB_Account_GetUniqueId(a),
AB_Account_GetIban(a),
AB_Account_GetBankCode(a),
AB_Account_GetAccountNumber(a),
AB_Account_GetAccountType(a));
assert(ai);
AB_ImExporterAccountInfo_SetAccountId(ai, AB_Account_GetUniqueId(a));
u=AH_Job_GetUser(j);
assert(u);
/* search for "Transactions" */
dbCurr=GWEN_DB_GetFirstGroup(dbResponses);
while (dbCurr) {
GWEN_DB_NODE *dbXA;
rv=AH_Job_CheckEncryption(j, dbCurr);
if (rv) {
DBG_INFO(AQHBCI_LOGDOMAIN, "Compromised security (encryption)");
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
AH_Job_SetStatus(j, AH_JobStatusError);
return rv;
}
rv=AH_Job_CheckSignature(j, dbCurr);
if (rv) {
DBG_INFO(AQHBCI_LOGDOMAIN, "Compromised security (signature)");
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
AH_Job_SetStatus(j, AH_JobStatusError);
return rv;
}
dbXA=GWEN_DB_GetGroup(dbCurr, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"data/transactionscreditcard");
if (dbXA) {
GWEN_DB_NODE *dbT;
GWEN_DB_NODE *dbV;
GWEN_DATE *date;
GWEN_DATE *valutaDate;
const char *p;
const char *ref;
int i;
dbT=GWEN_DB_GetGroup(dbXA, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"entries");
while (dbT) {
AB_VALUE *v1;
AB_VALUE *v2;
GWEN_STRINGLIST *purpose;
AB_TRANSACTION *t;
/* read date (Buchungsdatum) */
p=GWEN_DB_GetCharValue(dbT, "date", 0, 0);
if (p)
date=GWEN_Date_fromStringWithTemplate(p, "YYYYMMDD");
else
date=NULL;
/* read valutaData (Umsatzdatum) */
p=GWEN_DB_GetCharValue(dbT, "valutaDate", 0, 0);
if (p)
valutaDate=GWEN_Date_fromStringWithTemplate(p, "YYYYMMDD");
else
valutaDate=NULL;
/* read value */
dbV=GWEN_DB_GetGroup(dbT, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"value");
if (dbV)
v1=AB_Value_fromDb(dbV);
else
v1=NULL;
v2=0;
if (!v1) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "Error parsing value from DB");
}
else {
p=GWEN_DB_GetCharValue(dbT, "debitMark", 0, 0);
if (p) {
if (strcasecmp(p, "D")==0 ||
strcasecmp(p, "RC")==0) {
v2=AB_Value_dup(v1);
AB_Value_Negate(v2);
}
else if (strcasecmp(p, "C")==0 ||
strcasecmp(p, "RD")==0)
v2=AB_Value_dup(v1);
else {
DBG_ERROR(AQHBCI_LOGDOMAIN, "Bad debit mark \"%s\"", p);
v2=0;
}
}
AB_Value_free(v1);
}
/* read purpose */
purpose=GWEN_StringList_new();
for (i=0; i<10; i++) {
p=GWEN_DB_GetCharValue(dbT, "purpose", i, 0);
if (!p)
break;
GWEN_StringList_AppendString(purpose, p, 0, 0);
}
/* read reference */
ref=GWEN_DB_GetCharValue(dbT, "reference", 0, 0);
if (ref)
GWEN_StringList_AppendString(purpose, ref, 0, 0);
t=AB_Transaction_new();
if (ref)
AB_Transaction_SetFiId(t, ref);
AB_Transaction_SetUniqueAccountId(t, AB_Account_GetUniqueId(a));
AB_Transaction_SetLocalBankCode(t, AB_User_GetBankCode(u));
AB_Transaction_SetLocalAccountNumber(t, AB_Account_GetAccountNumber(a));
AB_Transaction_SetValutaDate(t, valutaDate);
AB_Transaction_SetDate(t, date);
AB_Transaction_SetValue(t, v2);
AB_Transaction_SetPurposeFromStringList(t, purpose);
DBG_INFO(AQHBCI_LOGDOMAIN, "Adding transaction");
AB_ImExporterAccountInfo_AddTransaction(ai, t);
GWEN_StringList_free(purpose);
AB_Value_free(v2);
GWEN_Date_free(date);
GWEN_Date_free(valutaDate);
dbT = GWEN_DB_FindNextGroup(dbT, "entries");
} //while (dbT)
} //if (dbXA)
dbCurr=GWEN_DB_GetNextGroup(dbCurr);
}
return 0;
}
int AB_Banking_LoadAllAccounts(AB_BANKING *ab) {
GWEN_STRINGLIST *sl;
int rv;
sl=GWEN_StringList_new();
rv=GWEN_ConfigMgr_ListSubGroups(ab->configMgr, AB_CFG_GROUP_ACCOUNTS, sl);
if (rv<0) {
DBG_INFO(AQBANKING_LOGDOMAIN, "here (%d)", rv);
GWEN_StringList_free(sl);
return rv;
}
if (GWEN_StringList_Count(sl)) {
GWEN_STRINGLISTENTRY *se;
se=GWEN_StringList_FirstEntry(sl);
while(se) {
const char *t;
GWEN_DB_NODE *db=NULL;
t=GWEN_StringListEntry_Data(se);
assert(t);
rv=GWEN_ConfigMgr_GetGroup(ab->configMgr, AB_CFG_GROUP_ACCOUNTS, t, &db);
if (rv<0) {
DBG_WARN(AQBANKING_LOGDOMAIN,
"Could not load account group [%s] (%d), ignoring",
t, rv);
}
else {
AB_ACCOUNT *a=NULL;
uint32_t uid;
assert(db);
uid=GWEN_DB_GetIntValue(db, "uniqueId", 0, 0);
if (uid)
a=AB_Banking_GetAccount(ab, uid);
if (a) {
/* account already exists, reload existing account */
const char *s;
AB_PROVIDER *pro;
AB_Account_SetDbId(a, t);
s=AB_Account_GetBackendName(a);
assert(s && *s);
pro=AB_Banking_GetProvider(ab, s);
if (!pro) {
DBG_WARN(AQBANKING_LOGDOMAIN,
"Provider \"%s\" not found, ignoring account [%s/%s]",
s,
AB_Account_GetBankCode(a),
AB_Account_GetAccountNumber(a));
}
else {
int rv;
GWEN_DB_NODE *dbP;
/* reload account from DB */
AB_Account_ReadDb(a, db);
/* let provider also reload account data */
dbP=GWEN_DB_GetGroup(db, GWEN_DB_FLAGS_DEFAULT,
"data/backend");
rv=AB_Provider_ExtendAccount(pro, a, AB_ProviderExtendMode_Reload, dbP);
if (rv<0) {
DBG_WARN(AQBANKING_LOGDOMAIN, "Could not extend account [%s/%s] (%d)",
AB_Account_GetBankCode(a), AB_Account_GetAccountNumber(a), rv);
}
}
}
else {
/* account is new, load and add it */
a=AB_Account_fromDb(ab, db);
if (a) {
const char *s;
AB_PROVIDER *pro;
AB_Account_SetDbId(a, t);
s=AB_Account_GetBackendName(a);
assert(s && *s);
pro=AB_Banking_GetProvider(ab, s);
if (!pro) {
DBG_WARN(AQBANKING_LOGDOMAIN,
"Provider \"%s\" not found, ignoring account [%s/%s]",
s, AB_Account_GetBankCode(a), AB_Account_GetAccountNumber(a));
}
else {
int rv;
GWEN_DB_NODE *dbP;
dbP=GWEN_DB_GetGroup(db, GWEN_DB_FLAGS_DEFAULT,
"data/backend");
rv=AB_Provider_ExtendAccount(pro, a, AB_ProviderExtendMode_Extend, dbP);
if (rv) {
DBG_INFO(AQBANKING_LOGDOMAIN, "here");
AB_Account_free(a);
}
else {
DBG_DEBUG(AQBANKING_LOGDOMAIN, "Adding account");
AB_Account_List_Add(a, ab->accounts);
}
}
}
}
GWEN_DB_Group_free(db);
}
se=GWEN_StringListEntry_Next(se);
}
}
GWEN_StringList_free(sl);
return 0;
}
static PyObject * aqbanking_listacc(PyObject *self, PyObject *args)
{
int rv;
AB_ACCOUNT_LIST2 *accs;
// List of accounts => to return.
PyObject *accountList;
aqbanking_Account *account;
accountList = PyList_New(0);
// Initialize aqbanking.
rv = AB_create(NULL);
if (rv > 0)
{
return NULL;
}
/* Get a list of accounts which are known to AqBanking.
* There are some pecularities about the list returned:
* The list itself is owned by the caller (who must call
* AB_Account_List2_free() as we do below), but the elements of that
* list (->the accounts) are still owned by AqBanking.
* Therefore you MUST NOT free any of the accounts within the list returned.
* This also rules out calling AB_Account_List2_freeAll() which not only
* frees the list itself but also frees all its elements.
*
* The rest of this tutorial shows how lists are generally used by
* AqBanking.
*/
accs = AB_Banking_GetAccounts(ab);
if (accs) {
AB_ACCOUNT_LIST2_ITERATOR *it;
/* List2's are traversed using iterators. An iterator is an object
* which points to a single element of a list.
* If the list is empty NULL is returned.
*/
it=AB_Account_List2_First(accs);
if (it) {
AB_ACCOUNT *a;
/* this function returns a pointer to the element of the list to
* which the iterator currently points to */
a=AB_Account_List2Iterator_Data(it);
while(a) {
AB_PROVIDER *pro;
account = (aqbanking_Account*) PyObject_CallObject((PyObject *) &aqbanking_AccountType, NULL);
/* every account is assigned to a backend (sometimes called provider)
* which actually performs online banking tasks. We get a pointer
* to that provider/backend with this call to show its name in our
* example.*/
pro = AB_Account_GetProvider(a);
// Populate the object.
account->no = PyUnicode_FromString(AB_Account_GetAccountNumber(a));
account->name = PyUnicode_FromString(AB_Account_GetAccountName(a));
account->description = PyUnicode_FromString(AB_Provider_GetName(pro));
account->bank_code = PyUnicode_FromString(AB_Account_GetBankCode(a));
account->bank_name = PyUnicode_FromString(AB_Account_GetBankName(a));
PyList_Append(accountList, (PyObject *)account);
Py_DECREF(account);
/* this function lets the iterator advance to the next element in
* the list, so a following call to AB_Account_List2Iterator_Data()
* would return a pointer to the next element.
* This function also returns a pointer to the next element of the
* list. If there is no next element then NULL is returned. */
a = AB_Account_List2Iterator_Next(it);
}
/* the iterator must be freed after using it */
AB_Account_List2Iterator_free(it);
}
/* as discussed the list itself is only a container which has to be freed
* after use. This explicitly does not free any of the elements in that
* list, and it shouldn't because AqBanking still is the owner of the
* accounts */
AB_Account_List2_free(accs);
}
// Exit aqbanking.
rv = AB_free(NULL);
if (rv > 0)
{
Py_DECREF(account);
Py_DECREF(accountList);
return NULL;
}
return accountList;
}
int EBC_Provider_ExecContext__IZV(AB_PROVIDER *pro,
AB_IMEXPORTER_CONTEXT *ctx,
AB_USER *u,
AB_ACCOUNT *a,
GWEN_HTTP_SESSION *sess,
EBC_CONTEXT *ectx){
EBC_PROVIDER *dp;
AB_JOB_LIST2_ITERATOR *jit;
AB_JOB_STATUS js;
AB_IMEXPORTER_CONTEXT *exCtx;
AB_IMEXPORTER_ACCOUNTINFO *ai;
GWEN_BUFFER *bufDtaus;
GWEN_TIME *currentTime;
GWEN_BUFFER *logbuf;
int rv;
const char *profileName=NULL;
const char *s;
const char *rqType;
uint32_t groupId=0;
assert(pro);
dp=GWEN_INHERIT_GETDATA(AB_PROVIDER, EBC_PROVIDER, pro);
assert(dp);
/* prepare CTX log */
logbuf=GWEN_Buffer_new(0, 256, 0, 1);
GWEN_Buffer_AppendString(logbuf, "BEGIN");
currentTime=GWEN_CurrentTime();
GWEN_Time_toString(currentTime, I18N("YYYY/MM/DD-hh:mm:ss"), logbuf);
GWEN_Time_free(currentTime);
GWEN_Buffer_AppendString(logbuf, "\t");
GWEN_Buffer_AppendString(logbuf, I18N("National Mass Transfer"));
GWEN_Buffer_AppendString(logbuf, "\n");
GWEN_Buffer_AppendString(logbuf, "\t");
GWEN_Buffer_AppendString(logbuf, I18N("Transfer type: "));
GWEN_Buffer_AppendString(logbuf, "\t");
switch(EBC_Context_GetJobType(ectx)) {
case AB_Job_TypeTransfer:
if (!profileName)
profileName="transfer";
GWEN_Buffer_AppendString(logbuf, I18N("Transfer"));
break;
case AB_Job_TypeDebitNote:
if (!profileName)
profileName="debitnote";
GWEN_Buffer_AppendString(logbuf, I18N("Debit Note"));
break;
default:
GWEN_Buffer_AppendString(logbuf, I18N("unknown"));
break;
}
GWEN_Buffer_AppendString(logbuf, "\n");
GWEN_Buffer_AppendString(logbuf, "\t");
GWEN_Buffer_AppendString(logbuf, I18N("Account: "));
GWEN_Buffer_AppendString(logbuf, "\t");
GWEN_Buffer_AppendString(logbuf, AB_Account_GetBankCode(a));
GWEN_Buffer_AppendString(logbuf, " / ");
GWEN_Buffer_AppendString(logbuf, AB_Account_GetAccountNumber(a));
GWEN_Buffer_AppendString(logbuf, "\n");
/* add a tab-less line to start a new table */
GWEN_Buffer_AppendString(logbuf, "Transactions\n");
DBG_INFO(AQEBICS_LOGDOMAIN, "Sampling transactions from jobs");
exCtx=AB_ImExporterContext_new();
ai=AB_ImExporterAccountInfo_new();
AB_ImExporterAccountInfo_FillFromAccount(ai, a);
jit=AB_Job_List2_First(EBC_Context_GetJobs(ectx));
if (jit) {
AB_JOB *uj;
uj=AB_Job_List2Iterator_Data(jit);
assert(uj);
while(uj) {
AB_TRANSACTION *t;
const GWEN_STRINGLIST *sl;
const char *s;
const AB_VALUE *v;
switch(EBC_Context_GetJobType(ectx)) {
case AB_Job_TypeTransfer:
case AB_Job_TypeDebitNote:
t=AB_Job_GetTransaction(uj);
break;
default:
t=NULL;
}
assert(t);
if (groupId==0)
/* take id from first job of the created DTAUS doc */
groupId=AB_Job_GetJobId(uj);
AB_Transaction_SetGroupId(t, groupId);
AB_ImExporterAccountInfo_AddTransaction(ai, AB_Transaction_dup(t));
sl=AB_Transaction_GetRemoteName(t);
s=NULL;
if (sl)
s=GWEN_StringList_FirstString(sl);
if (!s)
s=I18N("unknown");
GWEN_Buffer_AppendString(logbuf, s);
GWEN_Buffer_AppendString(logbuf, "\t");
s=AB_Transaction_GetRemoteBankCode(t);
if (!s)
s="????????";
GWEN_Buffer_AppendString(logbuf, s);
GWEN_Buffer_AppendString(logbuf, "\t");
s=AB_Transaction_GetRemoteAccountNumber(t);
if (!s)
s="??????????";
GWEN_Buffer_AppendString(logbuf, s);
GWEN_Buffer_AppendString(logbuf, "\t");
sl=AB_Transaction_GetPurpose(t);
s=NULL;
if (sl)
s=GWEN_StringList_FirstString(sl);
if (!s)
s="";
GWEN_Buffer_AppendString(logbuf, s);
GWEN_Buffer_AppendString(logbuf, "\t");
v=AB_Transaction_GetValue(t);
if (v)
AB_Value_toHumanReadableString(v, logbuf, 2);
else
GWEN_Buffer_AppendString(logbuf, "0,00 EUR");
GWEN_Buffer_AppendString(logbuf, "\n");
uj=AB_Job_List2Iterator_Next(jit);
} /* while */
AB_Job_List2Iterator_free(jit);
}
AB_ImExporterContext_AddAccountInfo(exCtx, ai);
GWEN_Buffer_AppendString(logbuf, I18N("Results:\n"));
/* export as DTAUS to bufDtaus */
bufDtaus=GWEN_Buffer_new(0, 1024, 0, 1);
DBG_INFO(AQEBICS_LOGDOMAIN, "Exporting transactions to DTAUS[default]");
rv=AB_Banking_ExportToBuffer(AB_Provider_GetBanking(pro),
exCtx,
"dtaus",
profileName,
bufDtaus);
if (rv<0) {
DBG_INFO(AQEBICS_LOGDOMAIN, "here (%d)", rv);
GWEN_Buffer_free(bufDtaus);
EBC_Provider_SetJobListStatus(EBC_Context_GetJobs(ectx),
AB_Job_StatusError);
GWEN_Buffer_AppendString(logbuf, "\t");
GWEN_Buffer_AppendString(logbuf, I18N("Error while exporting to DTAUS\n"));
GWEN_Buffer_AppendString(logbuf, "END\n");
AB_ImExporterContext_AddLog(ctx, GWEN_Buffer_GetStart(logbuf));
GWEN_Buffer_free(logbuf);
return rv;
}
GWEN_Buffer_AppendString(logbuf, "\t");
GWEN_Buffer_AppendString(logbuf, I18N("Exporting to DTAUS: ok\n"));
/* exchange upload request */
DBG_INFO(AQEBICS_LOGDOMAIN, "Uploading.");
AB_HttpSession_ClearLog(sess);
if (EBC_Context_GetJobType(ectx)==AB_Job_TypeDebitNote) {
if (EBC_User_GetFlags(u) & EBC_USER_FLAGS_USE_IZL)
rqType="IZL";
else
rqType="IZV";
}
else
rqType="IZV";
rv=EBC_Provider_XchgUploadRequest(pro, sess, u, rqType,
(const uint8_t*)GWEN_Buffer_GetStart(bufDtaus),
GWEN_Buffer_GetUsedBytes(bufDtaus));
if (rv<0 || rv>=300)
js=AB_Job_StatusError;
else
js=AB_Job_StatusFinished;
s=AB_HttpSession_GetLog(sess);
if (s)
GWEN_Buffer_AppendString(logbuf, s);
GWEN_Buffer_AppendString(logbuf, "END\n");
AB_ImExporterContext_AddLog(ctx, GWEN_Buffer_GetStart(logbuf));
GWEN_Buffer_free(logbuf);
EBC_Provider_SetJobListStatus(EBC_Context_GetJobs(ectx), js);
DBG_INFO(AQEBICS_LOGDOMAIN, "Done");
return 0;
}
static const AB_TRANSACTION *
txn_transaction_cb(const AB_TRANSACTION *element, gpointer user_data)
{
GncABImExContextImport *data = user_data;
Transaction *gnc_trans;
GncABTransType trans_type;
g_return_val_if_fail(element && data, NULL);
/* Create a GnuCash transaction from ab_trans */
gnc_trans = gnc_ab_trans_to_gnc(element, data->gnc_acc);
if (data->execute_txns && data->ab_acc)
{
AB_TRANSACTION *ab_trans = AB_Transaction_dup(element);
AB_JOB *job;
/* NEW: The imported transaction has been imported into gnucash.
* Now also add it as a job to aqbanking */
AB_Transaction_SetLocalBankCode(
ab_trans, AB_Account_GetBankCode(data->ab_acc));
AB_Transaction_SetLocalAccountNumber(
ab_trans, AB_Account_GetAccountNumber(data->ab_acc));
AB_Transaction_SetLocalCountry(ab_trans, "DE");
switch (AB_Transaction_GetType(ab_trans))
{
case AB_Transaction_TypeDebitNote:
trans_type = SINGLE_DEBITNOTE;
break;
case AB_Transaction_TypeEuTransfer:
trans_type = SEPA_TRANSFER;
break;
case AB_Transaction_TypeTransaction:
/* trans_type = SINGLE_INTERNAL_TRANSFER;
* break; */
case AB_Transaction_TypeTransfer:
default:
trans_type = SINGLE_TRANSFER;
} /* switch */
job = gnc_ab_get_trans_job(data->ab_acc, ab_trans, trans_type);
/* Check whether we really got a job */
if (!job || AB_Job_CheckAvailability(job
#ifndef AQBANKING_VERSION_5_PLUS
, 0
#endif
))
{
/* Oops, no job, probably not supported by bank */
if (gnc_verify_dialog(
NULL, FALSE, "%s",
_("The backend found an error during the preparation "
"of the job. It is not possible to execute this job. \n"
"\n"
"Most probably the bank does not support your chosen "
"job or your Online Banking account does not have the permission "
"to execute this job. More error messages might be "
"visible on your console log.\n"
"\n"
"Do you want to enter the job again?")))
{
gnc_error_dialog(NULL, "Sorry, not implemented yet. Please check the console or trace file logs to see which job was rejected.");
}
}
else
{
gnc_gen_trans_list_add_trans_with_ref_id(data->generic_importer, gnc_trans, AB_Job_GetJobId(job));
/* AB_Job_List2_PushBack(data->job_list, job); -> delayed until trans is successfully imported */
g_datalist_set_data(&data->tmp_job_list, gnc_AB_JOB_to_readable_string(job), job);
}
AB_Transaction_free(ab_trans);
}
else
{
/* Instead of xaccTransCommitEdit(gnc_trans) */
gnc_gen_trans_list_add_trans(data->generic_importer, gnc_trans);
}
return NULL;
}
void KBJobListViewItem::_populate()
{
QString tmp;
int i;
AB_ACCOUNT *a;
const char *p;
assert(_job);
i = 0;
a = AB_Job_GetAccount(_job);
assert(a);
// job id
setText(i++, QString::number(AB_Job_GetJobId(_job)));
// job type
switch (AB_Job_GetType(_job)) {
case AB_Job_TypeGetBalance:
tmp = i18n("Get Balance");
break;
case AB_Job_TypeGetTransactions:
tmp = i18n("Get Transactions");
break;
case AB_Job_TypeTransfer:
tmp = i18n("Transfer");
break;
case AB_Job_TypeDebitNote:
tmp = i18n("Debit Note");
break;
default:
tmp = i18nc("Unknown job type", "(unknown)");
break;
}
setText(i++, tmp);
// bank name
tmp = AB_Account_GetBankName(a);
if (tmp.isEmpty())
tmp = AB_Account_GetBankCode(a);
if (tmp.isEmpty())
tmp = i18nc("Unknown bank code", "(unknown)");
setText(i++, tmp);
// account name
tmp = AB_Account_GetAccountName(a);
if (tmp.isEmpty())
tmp = AB_Account_GetAccountNumber(a);
if (tmp.isEmpty())
tmp = i18nc("Unknown account number", "(unknown)");
setText(i++, tmp);
// status
switch (AB_Job_GetStatus(_job)) {
case AB_Job_StatusNew:
tmp = i18nc("Status of the job", "new");
break;
case AB_Job_StatusUpdated:
tmp = i18nc("Status of the job", "updated");
break;
case AB_Job_StatusEnqueued:
tmp = i18nc("Status of the job", "enqueued");
break;
case AB_Job_StatusSent:
tmp = i18nc("Status of the job", "sent");
break;
case AB_Job_StatusPending:
tmp = i18nc("Status of the job", "pending");
break;
case AB_Job_StatusFinished:
tmp = i18nc("Status of the job", "finished");
break;
case AB_Job_StatusError:
tmp = i18nc("Status of the job", "error");
break;
default:
tmp = i18nc("Status of the job", "(unknown)");
break;
}
setText(i++, tmp);
p = AB_Provider_GetName(AB_Account_GetProvider(a));
if (!p)
tmp = i18nc("Unknown account provider", "(unknown)");
else
tmp = p;
setText(i++, tmp);
p = AB_Job_GetCreatedBy(_job);
if (!p)
tmp = i18nc("Unknown creator of the job", "(unknown)");
else
tmp = p;
setText(i++, tmp);
}
int listAccounts(AB_BANKING *ab,
GWEN_DB_NODE *dbArgs,
int argc,
char **argv) {
GWEN_DB_NODE *db;
int rv;
AB_ACCOUNT_LIST2 *al;
const GWEN_ARGS args[]={
{
GWEN_ARGS_FLAGS_HELP | GWEN_ARGS_FLAGS_LAST, /* flags */
GWEN_ArgsType_Int, /* type */
"help", /* name */
0, /* minnum */
0, /* maxnum */
"h", /* short option */
"help", /* long option */
"Show this help screen", /* short description */
"Show this help screen" /* long description */
}
};
db=GWEN_DB_GetGroup(dbArgs, GWEN_DB_FLAGS_DEFAULT, "local");
rv=GWEN_Args_Check(argc, argv, 1,
0 /*GWEN_ARGS_MODE_ALLOW_FREEPARAM*/,
args,
db);
if (rv==GWEN_ARGS_RESULT_ERROR) {
fprintf(stderr, "ERROR: Could not parse arguments\n");
return 1;
}
else if (rv==GWEN_ARGS_RESULT_HELP) {
GWEN_BUFFER *ubuf;
ubuf=GWEN_Buffer_new(0, 1024, 0, 1);
if (GWEN_Args_Usage(args, ubuf, GWEN_ArgsOutType_Txt)) {
fprintf(stderr, "ERROR: Could not create help string\n");
return 1;
}
fprintf(stderr, "%s\n", GWEN_Buffer_GetStart(ubuf));
GWEN_Buffer_free(ubuf);
return 0;
}
rv=AB_Banking_Init(ab);
if (rv) {
DBG_ERROR(0, "Error on init (%d)", rv);
return 2;
}
rv=AB_Banking_OnlineInit(ab);
if (rv) {
DBG_ERROR(0, "Error on init (%d)", rv);
return 2;
}
al=AB_Banking_FindAccounts(ab, EBC_PROVIDER_NAME, "*", "*", "*", "*");
if (al) {
AB_ACCOUNT_LIST2_ITERATOR *ait;
ait=AB_Account_List2_First(al);
if (ait) {
AB_ACCOUNT *a;
int i=0;
a=AB_Account_List2Iterator_Data(ait);
assert(a);
while(a) {
fprintf(stdout, "Account %d: Bank: %s Account Number: %s\n",
i++,
AB_Account_GetBankCode(a),
AB_Account_GetAccountNumber(a));
a=AB_Account_List2Iterator_Next(ait);
}
AB_Account_List2Iterator_free(ait);
}
AB_Account_List2_free(al);
}
rv=AB_Banking_OnlineFini(ab);
if (rv) {
fprintf(stderr, "ERROR: Error on deinit (%d)\n", rv);
return 5;
}
rv=AB_Banking_Fini(ab);
if (rv) {
fprintf(stderr, "ERROR: Error on deinit (%d)\n", rv);
return 5;
}
return 0;
}
/* --------------------------------------------------------------- FUNCTION */
int AH_Job_GetTransactions_Process(AH_JOB *j, AB_IMEXPORTER_CONTEXT *ctx)
{
AH_JOB_GETTRANSACTIONS *aj;
AB_ACCOUNT *a;
AB_IMEXPORTER_ACCOUNTINFO *ai;
GWEN_DB_NODE *dbResponses;
GWEN_DB_NODE *dbCurr;
GWEN_BUFFER *tbooked;
GWEN_BUFFER *tnoted;
int rv;
DBG_INFO(AQHBCI_LOGDOMAIN, "Processing JobGetTransactions");
assert(j);
aj=GWEN_INHERIT_GETDATA(AH_JOB, AH_JOB_GETTRANSACTIONS, j);
assert(aj);
tbooked=GWEN_Buffer_new(0, 1024, 0, 1);
tnoted=GWEN_Buffer_new(0, 1024, 0, 1);
dbResponses=AH_Job_GetResponses(j);
assert(dbResponses);
/* search for "Transactions" */
dbCurr=GWEN_DB_GetFirstGroup(dbResponses);
while (dbCurr) {
GWEN_DB_NODE *dbXA;
rv=AH_Job_CheckEncryption(j, dbCurr);
if (rv) {
DBG_INFO(AQHBCI_LOGDOMAIN, "Compromised security (encryption)");
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
AH_Job_SetStatus(j, AH_JobStatusError);
return rv;
}
rv=AH_Job_CheckSignature(j, dbCurr);
if (rv) {
DBG_INFO(AQHBCI_LOGDOMAIN, "Compromised security (signature)");
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
AH_Job_SetStatus(j, AH_JobStatusError);
return rv;
}
dbXA=GWEN_DB_GetGroup(dbCurr, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"data/transactions");
if (dbXA) {
const void *p;
unsigned int bs;
if (GWEN_Logger_GetLevel(0)>=GWEN_LoggerLevel_Debug)
GWEN_DB_Dump(dbXA, 2);
p=GWEN_DB_GetBinValue(dbXA, "booked", 0, 0, 0, &bs);
if (p && bs)
GWEN_Buffer_AppendBytes(tbooked, p, bs);
p=GWEN_DB_GetBinValue(dbXA, "noted", 0, 0, 0, &bs);
if (p && bs)
GWEN_Buffer_AppendBytes(tnoted, p, bs);
} /* if "Transactions" */
dbCurr=GWEN_DB_GetNextGroup(dbCurr);
}
GWEN_Buffer_Rewind(tbooked);
GWEN_Buffer_Rewind(tnoted);
/* now the buffers contain data to be parsed by DBIOs */
a=AH_AccountJob_GetAccount(j);
assert(a);
ai=AB_ImExporterContext_GetOrAddAccountInfo(ctx,
AB_Account_GetUniqueId(a),
AB_Account_GetIban(a),
AB_Account_GetBankCode(a),
AB_Account_GetAccountNumber(a),
AB_Account_GetAccountType(a));
assert(ai);
/* read booked transactions */
if (GWEN_Buffer_GetUsedBytes(tbooked)) {
if (getenv("AQHBCI_LOGBOOKED")) {
FILE *f;
f=fopen("/tmp/booked.mt", "w+");
if (f) {
if (fwrite(GWEN_Buffer_GetStart(tbooked),
GWEN_Buffer_GetUsedBytes(tbooked), 1, f)!=1) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "fwrite: %s", strerror(errno));
}
if (fclose(f)) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "fclose: %s", strerror(errno));
}
}
}
if (AH_Job_GetTransactions__ReadTransactions(j,
ai,
"SWIFT-MT940",
AB_Transaction_TypeStatement,
(const uint8_t *) GWEN_Buffer_GetStart(tbooked),
GWEN_Buffer_GetUsedBytes(tbooked))) {
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
DBG_INFO(AQHBCI_LOGDOMAIN, "Error parsing booked transactions");
AH_Job_SetStatus(j, AH_JobStatusError);
return -1;
}
}
/* read noted transactions */
if (GWEN_Buffer_GetUsedBytes(tnoted)) {
if (getenv("AQHBCI_LOGNOTED")) {
FILE *f;
f=fopen("/tmp/noted.mt", "w+");
if (f) {
if (fwrite(GWEN_Buffer_GetStart(tnoted),
GWEN_Buffer_GetUsedBytes(tnoted), 1, f)!=1) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "fwrite: %s", strerror(errno));
}
if (fclose(f)) {
DBG_ERROR(AQHBCI_LOGDOMAIN, "fclose: %s", strerror(errno));
}
}
}
if (AH_Job_GetTransactions__ReadTransactions(j,
ai,
"SWIFT-MT942",
AB_Transaction_TypeNotedStatement,
(const uint8_t *) GWEN_Buffer_GetStart(tnoted),
GWEN_Buffer_GetUsedBytes(tnoted))) {
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
DBG_INFO(AQHBCI_LOGDOMAIN, "Error parsing noted transactions");
AH_Job_SetStatus(j, AH_JobStatusError);
return -1;
}
}
if (GWEN_Logger_GetLevel(AQHBCI_LOGDOMAIN)>=GWEN_LoggerLevel_Debug) {
GWEN_DB_NODE *gn;
AB_TRANSACTION *ttmp;
DBG_INFO(AQHBCI_LOGDOMAIN, "*** Dumping transactions *******************");
ttmp=AB_ImExporterAccountInfo_GetFirstTransaction(ai, 0, 0);
while (ttmp) {
DBG_INFO(AQHBCI_LOGDOMAIN, "*** --------------------------------------");
gn=GWEN_DB_Group_new("transaction");
AB_Transaction_toDb(ttmp, gn);
GWEN_DB_Dump(gn, 2);
GWEN_DB_Group_free(gn);
ttmp=AB_Transaction_List_Next(ttmp);
}
DBG_INFO(AQHBCI_LOGDOMAIN, "*** End dumping transactions ***************");
}
GWEN_Buffer_free(tbooked);
GWEN_Buffer_free(tnoted);
return 0;
}
