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

Patch level : 12.00 1290

Browse Source 
Files correlati     : sc0.exe
Commento            :

Programma di esportazione partite per scadenza
This commit is contained in:
Alessandro Bonazzi 2023-10-18 17:04:24 +02:00
parent b400ddda8f
commit 4771ed146c
1 changed files with 45 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/sc/sc0500.cpp
View File

@ -77,33 +77,32 @@ void TEsportazione_partite::main_loop()
int row = p.prima_fattura(); int row = p.prima_fattura();
if (row <= 0) if (row <= 0)
row = p.first(); {
TRiga_partite & riga = p.riga(p.first());
int gruppo = riga.get_int(PART_GRUPPO);
TRiga_partite & riga = p.riga(row); out.new_rec();
int gruppo = riga.get_int(PART_GRUPPO); if (gruppo == 0)
gruppo = riga.get_int(PART_GRUPPOCL);
out.set("GRUPPO", gruppo);
out.new_rec(); int conto = riga.get_int(PART_CONTO);
if (gruppo == 0)
gruppo = riga.get_int(PART_GRUPPOCL);
out.set("GRUPPO", gruppo);
int conto = riga.get_int(PART_CONTO);
if (conto == 0) if (conto == 0)
conto = riga.get_int(PART_CONTOCL); conto = riga.get_int(PART_CONTOCL);
out.set("CONTO", conto); out.set("CONTO", conto);
out.set("SOTTOCONTO", riga.get_long(PART_SOTTOCONTO)); out.set("SOTTOCONTO", riga.get_long(PART_SOTTOCONTO));
out.set("NUMDOC", riga.get(PART_NUMDOC)); out.set("NUMDOC", riga.get(PART_NUMDOC));
out.set("DATADOC", riga.get(PART_DATADOC)); out.set("DATADOC", riga.get(PART_DATADOC));
out.set("DATASCAD", riga.get(PART_DATADOC));
TString sezione; TString sezione;
out.set("SALDO", saldo.valore().stringa());
sezione << saldo.sezione();
out.set("SEZIONE", sezione);
TDate data = botime;
out.set("SALDO", saldo.valore().stringa());
sezione << saldo.sezione();
out.set("SEZIONE", sezione);
continue;
}
for (int r = row; r <= p.last(); r = p.succ(r)) for (int r = row; r <= p.last(); r = p.succ(r))
{ {
TRiga_partite & riga = p.riga(r); TRiga_partite & riga = p.riga(r);
@ -111,21 +110,40 @@ void TEsportazione_partite::main_loop()
if (riga.is_fattura()) if (riga.is_fattura())
{ {
int nrate = riga.rate(); int nrate = riga.rate();
for (int s = 1; s <= nrate; s++) for (int s = 1; s <= nrate; s++)
{ {
TRiga_scadenze & scad = riga.rata(s); TRiga_scadenze & scad = riga.rata(s);
TImporto residuo = scad.residuo(false);
if (!scad.residuo(false).is_zero()) if (!residuo.is_zero())
{ {
TDate data_scad = scad.get_date(SCAD_DATASCAD); TRiga_partite & riga = p.riga(row);
int gruppo = riga.get_int(PART_GRUPPO);
if (data_scad <= al && data_scad > data) out.new_rec();
data = data_scad; 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", residuo.valore().stringa());
sezione << residuo.sezione();
out.set("SEZIONE", sezione);
out.set("DATASCAD", scad.get(SCAD_DATASCAD));
} }
} }
} }
} }
out.set("DATASCAD", data.stringa());
} }
} }
} }