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

Patch level : 12.00 1294

Browse Source 
Files correlati     : sc0.exe
Commento            :

Programma di esportazione partite per scadenza
This commit is contained in:
Alessandro Bonazzi 2023-10-20 19:26:26 +02:00
parent 0adda06c3d
commit 84e5e26200
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/sc/sc0500.cpp
View File

@ -114,7 +114,7 @@ void TEsportazione_partite::main_loop()
for (int s = 1; s <= nrate; s++)
{
TRiga_scadenze & scad = riga.rata(s);
TImporto residuo = scad.residuo(false);
TImporto residuo = scad.residuo_al(false, al, 0xF, true);
if (!residuo.is_zero())
{
@ -144,6 +144,34 @@ void TEsportazione_partite::main_loop()
}
}
}
TImporto nass = p.importo_pagato_unassigned_al(false, al, 0xF, true);
if (!nass.is_zero())
{
TRiga_partite & riga = p.riga(p.first());
int gruppo = riga.get_int(PART_GRUPPO);
out.new_rec();
if (gruppo == 0)
gruppo = riga.get_int(PART_GRUPPOCL);
out.set("GRUPPO", gruppo);
int conto = riga.get_int(PART_CONTO);
if (conto == 0)
conto = riga.get_int(PART_CONTOCL);
out.set("CONTO", conto);
out.set("SOTTOCONTO", riga.get_long(PART_SOTTOCONTO));
out.set("NUMDOC", riga.get(PART_NUMDOC));
out.set("DATADOC", riga.get(PART_DATADOC));
TString sezione;
out.set("SALDO", nass.valore().stringa());
sezione << nass.sezione();
out.set("SEZIONE", sezione);
}
}
}
}