57 lines
1.2 KiB
C++
Executable File
57 lines
1.2 KiB
C++
Executable File
// sistema il codice esercizio di tutti i movimenti
|
|
|
|
#include <mov.h>
|
|
#include "cglib.h"
|
|
#include "cg1300.h"
|
|
#include "cg1305.h"
|
|
|
|
inline TAgg_codes& app() { return (TAgg_codes&) main_app(); }
|
|
|
|
bool TAgg_codes::create()
|
|
{
|
|
TApplication::create();
|
|
_mov = new TLocalisamfile(LF_MOV);
|
|
dispatch_e_menu (BAR_ITEM(1));
|
|
return TRUE;
|
|
}
|
|
|
|
bool TAgg_codes::destroy()
|
|
{
|
|
delete _mov;
|
|
|
|
return TApplication::destroy();
|
|
}
|
|
|
|
bool TAgg_codes::menu(MENU_TAG m)
|
|
{
|
|
TMask msk("cg1300d");
|
|
if (msk.run() == K_ENTER)
|
|
return calcola_codes();
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
bool TAgg_codes::calcola_codes()
|
|
{
|
|
TLocalisamfile& mov = get_mov();
|
|
TEsercizi_contabili esercizi;
|
|
TRecfield datacomp(mov.curr(), "DATACOMP");
|
|
TRecfield annoes(mov.curr(), "ANNOES");
|
|
|
|
long nrecs = (long) mov.eod();
|
|
TProgind p(nrecs, "Aggiornamento in corso...", TRUE, TRUE, 50);
|
|
|
|
for (mov.first(); !mov.eof(); mov.next())
|
|
{
|
|
p.addstatus(1);
|
|
TDate data = (TDate) datacomp;
|
|
int codes = atoi(annoes);
|
|
int newcodes = esercizi.date2esc(data);
|
|
if (codes != newcodes)
|
|
{
|
|
annoes = newcodes;
|
|
mov.rewrite();
|
|
}
|
|
}
|
|
return message_box("Aggiornamento codice esercizio completata");
|
|
} |