AB_IMEXPORTER_ACCOUNTINFO *AB_ImExporterContext__GetAccountInfoForTransaction(AB_IMEXPORTER_CONTEXT *iec,
const AB_TRANSACTION *t){
AB_IMEXPORTER_ACCOUNTINFO *iea;
const char *tIban;
const char *tBankCode;
const char *tAccountNumber;
tBankCode=AB_Transaction_GetLocalBankCode(t);
if (!tBankCode) tBankCode="";
tAccountNumber=AB_Transaction_GetLocalAccountNumber(t);
if (!tAccountNumber) tAccountNumber="";
tIban=AB_Transaction_GetLocalIban(t);
if (!tIban) tIban="";
iea=AB_ImExporterAccountInfo_List_First(iec->accountInfoList);
while(iea) {
const char *sBankCode;
const char *sAccountNumber;
const char *sIban;
sBankCode=AB_ImExporterAccountInfo_GetBankCode(iea);
if (!sBankCode) sBankCode="";
sAccountNumber=AB_ImExporterAccountInfo_GetAccountNumber(iea);
if (!sAccountNumber) sAccountNumber="";
sIban=AB_ImExporterAccountInfo_GetIban(iea);
if (!sIban) sIban="";
if (strcasecmp(sIban, tIban)==0)
return iea;
if ((strcasecmp(sBankCode, tBankCode)==0) &&
(strcasecmp(sAccountNumber, tAccountNumber)==0))
return iea;
iea=AB_ImExporterAccountInfo_List_Next(iea);
}
/* not found, append it */
iea=AB_ImExporterAccountInfo_new();
if (tIban && *tIban)
AB_ImExporterAccountInfo_SetIban(iea, tIban);
if (tBankCode && *tBankCode)
AB_ImExporterAccountInfo_SetBankCode(iea, tBankCode);
if (tAccountNumber && *tAccountNumber)
AB_ImExporterAccountInfo_SetAccountNumber(iea, tAccountNumber);
AB_ImExporterAccountInfo_List_Add(iea, iec->accountInfoList);
return iea;
}
AB_IMEXPORTER_ACCOUNTINFO*
AB_ImExporterContext_GetAccountInfoByIban(AB_IMEXPORTER_CONTEXT *iec, const char *iban){
AB_IMEXPORTER_ACCOUNTINFO *iea;
if (!iban)
iban="";
assert(iec);
iea=AB_ImExporterContext_FindAccountInfoByIban(iec, iban);
if (!iea) {
/* not found, append it */
iea=AB_ImExporterAccountInfo_new();
AB_ImExporterAccountInfo_SetIban(iea, iban);
AB_ImExporterAccountInfo_List_Add(iea, iec->accountInfoList);
}
return iea;
}
AB_IMEXPORTER_ACCOUNTINFO*
AB_ImExporterContext_GetAccountInfo(AB_IMEXPORTER_CONTEXT *iec,
const char *bankCode,
const char *accountNumber){
AB_IMEXPORTER_ACCOUNTINFO *iea;
if (!bankCode)
bankCode="";
if (!accountNumber)
accountNumber="";
assert(iec);
iea=AB_ImExporterContext_FindAccountInfo(iec, bankCode, accountNumber);
if (!iea) {
/* not found, append it */
iea=AB_ImExporterAccountInfo_new();
AB_ImExporterAccountInfo_SetBankCode(iea, bankCode);
AB_ImExporterAccountInfo_SetAccountNumber(iea, accountNumber);
AB_ImExporterAccountInfo_List_Add(iea, iec->accountInfoList);
}
return iea;
}
AB_IMEXPORTER_ACCOUNTINFO *AB_ImExporterYN__ReadAccountInfo(AB_IMEXPORTER *ie,
AB_IMEXPORTER_CONTEXT *ctx,
GWEN_XMLNODE *doc)
{
GWEN_XMLNODE *n;
AB_IMEXPORTER_ACCOUNTINFO *ai;
ai=AB_ImExporterAccountInfo_new();
n=GWEN_XMLNode_FindFirstTag(doc, "SG2", 0, 0);
if (n)
n=GWEN_XMLNode_FindFirstTag(n, "FII", 0, 0);
if (n) {
GWEN_XMLNODE *nn;
const char *s;
nn=GWEN_XMLNode_FindFirstTag(n, "C078", 0, 0);
if (nn) {
GWEN_XMLNODE *nnn;
/* account number */
s=GWEN_XMLNode_GetCharValue(nn, "D_3194", 0);
if (s)
AB_ImExporterAccountInfo_SetAccountNumber(ai, s);
/* IBAN */
s=GWEN_XMLNode_GetCharValue(nn, "D_3192", 0);
if (s)
AB_ImExporterAccountInfo_SetIban(ai, s);
/* currency */
nnn=GWEN_XMLNode_FindFirstTag(nn, "D_6345", 0, 0);
if (nnn) {
s=GWEN_XMLNode_GetProperty(nnn, "value", 0);
if (s)
AB_ImExporterAccountInfo_SetCurrency(ai, s);
}
}
/* account number */
s=GWEN_XMLNode_GetCharValue(n, "PF:D_5388", 0);
if (s)
AB_ImExporterAccountInfo_SetAccountName(ai, s);
}
/* owner name */
n=GWEN_XMLNode_GetNodeByXPath(doc, "SG3[1]/NAD",
GWEN_PATH_FLAGS_NAMEMUSTEXIST);
if (n) {
GWEN_XMLNODE *nn;
nn=GWEN_XMLNode_FindFirstTag(n, "D_3035", 0, 0);
if (nn) {
const char *s;
s=GWEN_XMLNode_GetProperty(nn, "Value", 0);
if (s && strcasecmp(s, "HQ")==0) {
nn=GWEN_XMLNode_FindFirstTag(n, "C058", 0, 0);
if (nn) {
s=GWEN_XMLNode_GetCharValue(nn, "D_3124", 0);
if (s && *s) {
GWEN_BUFFER *xbuf;
xbuf=GWEN_Buffer_new(0, 256, 0, 1);
AB_ImExporter_Iso8859_1ToUtf8(s, strlen(s), xbuf);
AB_ImExporterAccountInfo_SetOwner(ai, GWEN_Buffer_GetStart(xbuf));
GWEN_Buffer_free(xbuf);
}
}
}
}
}
return ai;
}
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;
}
int AH_ImExporterOFX_AccountCallback_cb(const struct OfxAccountData data,
void *user_data)
{
AH_IMEXPORTER_OFX *ieh;
AB_IMEXPORTER_ACCOUNTINFO *ai;
DBG_INFO(AQBANKING_LOGDOMAIN,
"Account callback");
ieh=(AH_IMEXPORTER_OFX *)user_data;
ai=AB_ImExporterAccountInfo_new();
#ifdef HAVE_OFX_WITH_CONNECT
if (data.account_number_valid) {
AB_ImExporterAccountInfo_SetAccountNumber(ai, data.account_number);
if (*(data.account_name))
AB_ImExporterAccountInfo_SetAccountName(ai, data.account_name);
}
else if (data.account_id_valid)
AB_ImExporterAccountInfo_SetAccountNumber(ai, data.account_id);
else
AB_ImExporterAccountInfo_SetAccountNumber(ai, "----");
if (data.bank_id_valid)
AB_ImExporterAccountInfo_SetBankCode(ai, data.bank_id);
#else
if (data.account_id_valid) {
AB_ImExporterAccountInfo_SetAccountNumber(ai, data.account_id);
if (*(data.account_name))
AB_ImExporterAccountInfo_SetAccountName(ai, data.account_name);
}
else {
AB_ImExporterAccountInfo_SetAccountNumber(ai, "----");
}
#endif
if (data.account_type_valid) {
AB_ACCOUNT_TYPE at;
switch (data.account_type) {
case OFX_CHECKING:
at=AB_AccountType_Checking;
break;
case OFX_SAVINGS:
at=AB_AccountType_Savings;
break;
case OFX_MONEYMRKT:
at=AB_AccountType_Investment;
break;
case OFX_CREDITLINE:
at=AB_AccountType_Bank;
break;
case OFX_CMA:
at=AB_AccountType_Cash;
break;
case OFX_CREDITCARD:
at=AB_AccountType_CreditCard;
break;
case OFX_INVESTMENT:
at=AB_AccountType_Investment;
break;
default:
at=AB_AccountType_Bank;
break;
}
AB_ImExporterAccountInfo_SetType(ai, at);
}
else {
AB_ImExporterAccountInfo_SetType(ai, AB_AccountType_Bank);
}
AB_ImExporterContext_AddAccountInfo(ieh->context, ai);
ieh->lastAccountInfo=ai;
return 0;
}
AB_IMEXPORTER_ACCOUNTINFO*
AB_ImExporterAccountInfo_fromDb(GWEN_DB_NODE *db){
AB_IMEXPORTER_ACCOUNTINFO *iea;
const char *s;
GWEN_DB_NODE *dbT;
iea=AB_ImExporterAccountInfo_new();
#define RESTORE_CHAR(NAME) \
s=GWEN_DB_GetCharValue(db, __STRING(NAME), 0, 0);\
if (s)\
iea->NAME=strdup(s);
#define RESTORE_INT(NAME, DEFAULT) \
iea->NAME=GWEN_DB_GetIntValue(db, __STRING(NAME), 0, DEFAULT);
RESTORE_CHAR(bankCode);
RESTORE_CHAR(bankName);
RESTORE_CHAR(accountNumber);
RESTORE_CHAR(iban);
RESTORE_CHAR(bic);
RESTORE_CHAR(owner);
RESTORE_CHAR(currency);
RESTORE_CHAR(description);
RESTORE_INT(accountType, AB_AccountType_Bank);
RESTORE_INT(accountId, 0);
#undef RESTORE_CHAR
#undef RESTORE_INT
dbT=GWEN_DB_GetGroup(db, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"statusList");
if (dbT) {
dbT=GWEN_DB_FindFirstGroup(dbT, "status");
while(dbT) {
AB_ACCOUNT_STATUS *ast;
ast=AB_AccountStatus_fromDb(dbT);
assert(ast);
AB_AccountStatus_List_Add(ast, iea->accStatusList);
dbT=GWEN_DB_FindNextGroup(dbT, "status");
}
}
dbT=GWEN_DB_GetGroup(db, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"transactionList");
if (dbT) {
dbT=GWEN_DB_FindFirstGroup(dbT, "transaction");
while(dbT) {
AB_TRANSACTION *t;
t=AB_Transaction_fromDb(dbT);
assert(t);
AB_Transaction_List_Add(t, iea->transactions);
dbT=GWEN_DB_FindNextGroup(dbT, "transaction");
}
}
dbT=GWEN_DB_GetGroup(db, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"standingOrderList");
if (dbT) {
dbT=GWEN_DB_FindFirstGroup(dbT, "standingOrder");
while(dbT) {
AB_TRANSACTION *t;
t=AB_Transaction_fromDb(dbT);
assert(t);
AB_Transaction_List_Add(t, iea->standingOrders);
dbT=GWEN_DB_FindNextGroup(dbT, "standingOrder");
}
}
dbT=GWEN_DB_GetGroup(db, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"transferList");
if (dbT) {
dbT=GWEN_DB_FindFirstGroup(dbT, "transfer");
while(dbT) {
AB_TRANSACTION *t;
t=AB_Transaction_fromDb(dbT);
assert(t);
AB_Transaction_List_Add(t, iea->transfers);
dbT=GWEN_DB_FindNextGroup(dbT, "transfer");
}
}
dbT=GWEN_DB_GetGroup(db, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"datedTransferList");
if (dbT) {
dbT=GWEN_DB_FindFirstGroup(dbT, "datedTransfer");
while(dbT) {
AB_TRANSACTION *t;
t=AB_Transaction_fromDb(dbT);
assert(t);
AB_Transaction_List_Add(t, iea->datedTransfers);
dbT=GWEN_DB_FindNextGroup(dbT, "datedTransfer");
}
}
dbT=GWEN_DB_GetGroup(db, GWEN_PATH_FLAGS_NAMEMUSTEXIST,
"notedTransactionList");
if (dbT) {
dbT=GWEN_DB_FindFirstGroup(dbT, "notedTransaction");
while(dbT) {
AB_TRANSACTION *t;
t=AB_Transaction_fromDb(dbT);
assert(t);
AB_Transaction_List_Add(t, iea->notedTransactions);
dbT=GWEN_DB_FindNextGroup(dbT, "notedTransaction");
}
}
return iea;
}
