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

30
ef/ef0a00.cpp
View File

@ -553,19 +553,10 @@ bool TPE_mask::check_bank(TEffetto& effetto, TLog_report& log) const
} }
if (iban.blank()) if (iban.blank())
iban = clifo.get(CLI_IBAN); iban = clifo.get(CLI_IBAN);
if (iban.starts_with("IT")) if (iban.starts_with("IT") && iban.len() > 15)
{ {
if (real::is_null(abi) || real::is_null(cab)) abi = iban.mid( 5, 5);
{ cab = iban.mid(10, 5);
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_CODABI, abi);
@ -655,7 +646,7 @@ void TPE_mask::save_rate()
// Trova rata // Trova rata
key.add(row->get(sheet.cid2index(F_RATA))); key.add(row->get(sheet.cid2index(F_RATA)));
const TRectype& scad = cache().get(LF_SCADENZE, key); 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))); TDate datapag(row->get(sheet.cid2index(F_DATAPAG)));
if (!datapag.ok()) if (!datapag.ok())
@ -666,15 +657,14 @@ void TPE_mask::save_rate()
const long codcf = row->get_long(sheet.cid2index(F_CODCF)); const long codcf = row->get_long(sheet.cid2index(F_CODCF));
TRectype& reff = new_row_effetto(distinta, tipocf, codcf, datapag, rigadist, rigaeff); TRectype& reff = new_row_effetto(distinta, tipocf, codcf, datapag, rigadist, rigaeff);
reff.put(REFF_ANNO, row->get(sheet.cid2index(F_ANNO))); reff.put(REFF_ANNO, row->get(sheet.cid2index(F_ANNO)));
reff.put(REFF_NUMPART, row->get(sheet.cid2index(F_PARTITA))); reff.put(REFF_NUMPART, row->get(sheet.cid2index(F_PARTITA)));
reff.put(REFF_NRIGA, row->get(sheet.cid2index(F_RIGA))); reff.put(REFF_NRIGA, row->get(sheet.cid2index(F_RIGA)));
reff.put(REFF_NRATA, row->get(sheet.cid2index(F_RATA))); reff.put(REFF_NRATA, row->get(sheet.cid2index(F_RATA)));
reff.put(REFF_NFATT, part.get(PART_NUMDOC));
reff.put(REFF_NFATT, part.get(PART_NUMDOC));
reff.put(REFF_DATAFATT, part.get(PART_DATADOC)); reff.put(REFF_DATAFATT, part.get(PART_DATADOC));
reff.put(REFF_IMPFATT, part.get(PART_IMPORTO)); reff.put(REFF_IMPFATT, part.get(PART_IMPORTO));
TString8 abi = scad.get(SCAD_CODABI); TString8 abi = scad.get(SCAD_CODABI);
TString8 cab = scad.get(SCAD_CODCAB); TString8 cab = scad.get(SCAD_CODCAB);
@ -682,7 +672,7 @@ void TPE_mask::save_rate()
key.format("%c|%ld", tipocf, codcf); key.format("%c|%ld", tipocf, codcf);
const TRectype& clifo = cache().get(LF_CLIFO, key); const TRectype& clifo = cache().get(LF_CLIFO, key);
TString80 iban = clifo.get(CLI_IBAN); 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); abi = clifo.get(CLI_CODABI);
cab = clifo.get(CLI_CODCAB); cab = clifo.get(CLI_CODCAB);