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

Patch level : 10.0

Browse Source 
Files correlati     : ef0.exe
Ricompilazione Demo : [ ]
Commento            :
0001566: Disposizioni incassi/pagamenti: ef0 -9
Nella generazione delle distinte di incasso/pagamento direttamente da saldaconto occorre controllare l'esistenza sull'anagrafica Cli/For dei codici ABI e CAB! O meglio l'obbligatorietà dovrebbe essere solo per i clienti nel caso di riba e fornitori nel caso di bonifici!


git-svn-id: svn://10.65.10.50/trunk@20480 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2010-05-19 15:43:59 +00:00
parent 04f9767de5
commit 7b2f7cfc71
1 changed files with 10 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ef/ef0a00.cpp
View File

@ -553,20 +553,11 @@ bool TPE_mask::check_bank(TEffetto& effetto, TLog_report& log) const
}
if (iban.blank())
iban = clifo.get(CLI_IBAN);
if (iban.starts_with("IT"))
{
if (real::is_null(abi) || real::is_null(cab))
if (iban.starts_with("IT") && iban.len() > 15)
{
abi = iban.mid( 5, 5);
cab = iban.mid(10, 5);
}
else
{
TString16 abicab; abicab << abi << cab;
if (iban.mid(5, 10) != abicab)
iban.cut(0);
}
}
effetto.put(EFF_CODABI, abi);
effetto.put(EFF_CODCAB, cab);
@ -655,7 +646,7 @@ void TPE_mask::save_rate()
// Trova rata
key.add(row->get(sheet.cid2index(F_RATA)));
const TRectype& scad = cache().get(LF_SCADENZE, key);
// eff.put(EFF_DATASCAD, scad.get(SCAD_DATASCAD));
// eff.put(EFF_DATASCAD, scad.get(SCAD_DATASCAD));
TDate datapag(row->get(sheet.cid2index(F_DATAPAG)));
if (!datapag.ok())
@ -671,7 +662,6 @@ void TPE_mask::save_rate()
reff.put(REFF_NRIGA, row->get(sheet.cid2index(F_RIGA)));
reff.put(REFF_NRATA, row->get(sheet.cid2index(F_RATA)));
reff.put(REFF_NFATT, part.get(PART_NUMDOC));
reff.put(REFF_DATAFATT, part.get(PART_DATADOC));
reff.put(REFF_IMPFATT, part.get(PART_IMPORTO));
@ -682,7 +672,7 @@ void TPE_mask::save_rate()
key.format("%c|%ld", tipocf, codcf);
const TRectype& clifo = cache().get(LF_CLIFO, key);
TString80 iban = clifo.get(CLI_IBAN);
if (atol(abi) == 0 || atol(cab) == 0L)
if (iban.starts_with("IT") || real::is_null(abi) || real::is_null(cab))
{
abi = clifo.get(CLI_CODABI);
cab = clifo.get(CLI_CODCAB);