ceb81b6181
Aggiunti cglib01.h git-svn-id: svn://10.65.10.50/trunk@4719 c028cbd2-c16b-5b4b-a496-9718f37d4682
57 lines
1.3 KiB
C++
Executable File
57 lines
1.3 KiB
C++
Executable File
// sistema la data di competenza di tutti i movimenti
|
|
|
|
#include "cg1306.h"
|
|
#include "cg1300.h"
|
|
|
|
#include <mov.h>
|
|
|
|
inline TAgg_datacomp& app() { return (TAgg_datacomp&) main_app(); }
|
|
|
|
bool TAgg_datacomp::create()
|
|
{
|
|
TApplication::create();
|
|
dispatch_e_menu (BAR_ITEM(1));
|
|
return TRUE;
|
|
}
|
|
|
|
bool TAgg_datacomp::destroy()
|
|
{
|
|
return TApplication::destroy();
|
|
}
|
|
|
|
bool TAgg_datacomp::menu(MENU_TAG m)
|
|
{
|
|
if (set_firm())
|
|
aggiorna_datacomp();
|
|
return FALSE;
|
|
}
|
|
|
|
void TAgg_datacomp::aggiorna_datacomp()
|
|
{
|
|
TLocalisamfile mov(LF_MOV);
|
|
long nrecs = (long) mov.eod();
|
|
long modified_recs = 0L;
|
|
TDate datacomp;
|
|
TDate datareg;
|
|
int err = NOERR;
|
|
TProgind p(nrecs, "Aggiornamento in corso...", TRUE, TRUE, 100);
|
|
|
|
for (mov.first(); !mov.eof() && err == NOERR; mov.next())
|
|
{
|
|
p.addstatus(1);
|
|
datacomp = mov.get_date(MOV_DATACOMP);
|
|
datareg = mov.get_date(MOV_DATAREG);
|
|
if (datacomp > datareg)
|
|
{
|
|
mov.put(MOV_DATACOMP,datareg);
|
|
mov.rewrite();
|
|
modified_recs++;
|
|
}
|
|
}
|
|
|
|
if (err != NOERR)
|
|
warning_box("Aggiornamento codice esercizio interrotta. Rilevato errore %d in riscrittura",err);
|
|
else
|
|
message_box("Aggiornamento data competenza completata. Modificati %ld movimenti.",modified_recs);
|
|
}
|