// sistema il codice esercizio di tutti i movimenti
#include <mask.h>
#include <progind.h>
#include <recarray.h>
#include <relation.h>

#include "cglib01.h"
#include "cg1300.h"
#include "cg1305.h"

#include <mov.h>
#include <rmov.h>
#include <rmoviva.h>

inline TAgg_codes& app() { return (TAgg_codes&) main_app(); }

bool TAgg_codes::create()
{
	open_files(LF_MOV, LF_RMOV, LF_RMOVIVA, 0);

  return TSkeleton_application::create();
}

//bool TAgg_codes::destroy()
//{ 
//  return TSkeleton_application::destroy();
//}                                

void TAgg_codes::main_loop()
{
  TMask msk("cg1300d");
  if (msk.run() == K_ENTER)
    calcola_codes();
}  

void TAgg_codes::calcola_codes()
{
  TLocalisamfile mov(LF_MOV);
  TEsercizi_contabili esercizi;
  TDate data;
  long modified_recs=0L;

  long nrecs = (long) mov.eod();
  int err = NOERR;
  TProgind p(nrecs, TR("Aggiornamento in corso..."), TRUE, TRUE, 100);
  TRecord_array righe(LF_RMOV,RMV_NUMRIG);
  TRecord_array righeiva(LF_RMOVIVA,RMI_NUMRIG);
  TRectype riga(LF_RMOV);
  TRectype rigaiva(LF_RMOVIVA);
  TString s_codes;

  for (mov.first(); !mov.eof() && err == NOERR; mov.next())
  { 
		bool mod = false;
    p.addstatus(1);
    data=mov.get_date(MOV_DATACOMP);
    int codes = mov.get_int(MOV_ANNOES);
    const int newcodes = esercizi.date2esc(data);
    if (codes != newcodes)
    {
      mov.put(MOV_ANNOES,newcodes);
      err = mov.rewrite();
			mod = err == NOERR;
		}
    const long numreg = mov.get_long(MOV_NUMREG);

    riga.put(RMV_NUMREG,numreg);
    righe.read(riga);
		bool update_es = false;
		for(int i = righe.first_row() ; !update_es && i <= righe.last_row(); i = righe.succ_row(i))
		{
			codes = righe[i].get_int(RMV_ANNOES);
			update_es = (codes != newcodes);
		}
		if (update_es)
		{
			righe.renum_key(RMV_ANNOES,newcodes);
      err = righe.rewrite();
			mod = err == NOERR;
		}
    rigaiva.put(RMI_NUMREG,numreg);
    righeiva.read(rigaiva);
		update_es = false;
		for(int j = righeiva.first_row() ; !update_es && j <= righeiva.last_row(); j = righeiva.succ_row(j))
		{
	    codes = righeiva[j].get_int(RMI_ANNOES);
			update_es = (codes != newcodes);
		}
		if (update_es)
		{
			s_codes.format("%04d",newcodes);
			righeiva.renum_key(RMI_ANNOES,s_codes);
      err = righeiva.rewrite();
			mod = err == NOERR;
    }
		if (mod)
			modified_recs++;
  }
  if (err != NOERR) 
    warning_box(FR("Aggiornamento codice esercizio interrotta. Rilevato errore %d in riscrittura"),err);
  else 
    message_box(FR("Aggiornamento codice esercizio completata. Modificati %ld movimenti.\nE' necessario procedere col ricalcolo saldi"), modified_recs);
}