root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni gestione IBAN

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22648 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-04-24 10:27:08 +00:00
parent a42f57aefe
commit 28ae493183
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tp/tp0101.cpp
View File

@ -424,6 +424,7 @@ bool TPack_clifo::trasferisci()
log(str);
}
// iban
bool ibanok = false;
const bool ibanflag = get_long("IbanFlag") != 0;
if (ibanflag)
{
@ -440,9 +441,22 @@ bool TPack_clifo::trasferisci()
rec_cfban.put(CFBAN_CAB, iban.mid(10,5));
rec_cfban.put(CFBAN_NUMCC, iban.mid(15));
rec_cfban.put(CFBAN_IBAN, iban);
test_write(cfban, !needs_creation);
ibanok = test_write(cfban, !needs_creation);
}
}
if (!ibanok)
{
cfban.zero();
rec_cfban.put(CFBAN_TIPOCF, tipocf);
rec_cfban.put(CFBAN_CODCF, codcf);
rec_cfban.put(CFBAN_TIPOBAN, 'V');
rec_cfban.put(CFBAN_NRIGA, 1);
rec_cfban.put(CFBAN_ABI, get_str("ABICode"));
rec_cfban.put(CFBAN_CAB, get_str("CABCode"));
rec_cfban.put(CFBAN_NUMCC, get_str("CC"));
ibanok = test_write(cfban, !needs_creation);
}
// agente
rec_cfven.put(CFV_CODAG, get_agente());