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

Cambiata l'implementazione, senza usare i TRecfield

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3878 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-11-07 16:10:34 +00:00
parent 63d8921469
commit 3e56b5a648
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cg/cg1305.cpp
View File

@ -35,23 +35,24 @@ bool TAgg_codes::calcola_codes()
{
TLocalisamfile& mov = get_mov();
TEsercizi_contabili esercizi;
TRecfield datacomp(mov.curr(), "DATACOMP");
TRecfield annoes(mov.curr(), "ANNOES");
TDate data;
long modified_recs=0L;
long nrecs = (long) mov.eod();
TProgind p(nrecs, "Aggiornamento in corso...", TRUE, TRUE, 50);
TProgind p(nrecs, "Aggiornamento in corso...", TRUE, TRUE, 100);
for (mov.first(); !mov.eof(); mov.next())
{
p.addstatus(1);
TDate data = (TDate) datacomp;
int codes = atoi(annoes);
int newcodes = esercizi.date2esc(data);
data=mov.get_date(MOV_DATACOMP);
const int codes = mov.get_int(MOV_ANNOES);
const int newcodes = esercizi.date2esc(data);
if (codes != newcodes)
{
annoes = newcodes;
mov.put(MOV_ANNOES,newcodes);
mov.rewrite();
modified_recs++;
}
}
return message_box("Aggiornamento codice esercizio completata");
}
return message_box("Aggiornamento codice esercizio completata. Modificati %ld movimenti.",modified_recs);
}