// 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");
}