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;
int rv;
assert(pro);
dp=GWEN_INHERIT_GETDATA(AB_PROVIDER, EBC_PROVIDER, pro);
assert(dp);
DBG_INFO(AQEBICS_LOGDOMAIN, "Executing IZV request");
rv=EBC_Provider_ExecContext__IZV(pro, ctx, u, a, sess, ectx);
jit=AB_Job_List2_First(EBC_Context_GetJobs(ectx));
if (jit) {
AB_JOB *uj;
uj=AB_Job_List2Iterator_Data(jit);
assert(uj);
while(uj) {
const AB_TRANSACTION *ot;
switch(EBC_Context_GetJobType(ectx)) {
case AB_Job_TypeTransfer:
case AB_Job_TypeDebitNote:
ot=AB_Job_GetTransaction(uj);
break;
default:
ot=NULL;
}
assert(ot);
if (ot) {
AB_TRANSACTION *t;
AB_TRANSACTION_STATUS tStatus;
switch(AB_Job_GetStatus(uj)) {
case AB_Job_StatusFinished: tStatus=AB_Transaction_StatusAccepted; break;
case AB_Job_StatusPending: tStatus=AB_Transaction_StatusPending; break;
default: tStatus=AB_Transaction_StatusRejected; break;
}
t=AB_Transaction_dup(ot);
AB_Transaction_SetStatus(t, tStatus);
AB_ImExporterContext_AddTransfer(ctx, t);
}
uj=AB_Job_List2Iterator_Next(jit);
} /* while */
AB_Job_List2Iterator_free(jit);
}
return rv;
}
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;
}
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;
}
