campo-sirio/src/li/li0200.cpp

#include	<automask.h>
#include	<defmask.h>
#include	<relapp.h>
#include	<tabutil.h>
#include	<filetext.h>
#include  <velib.h>
#include	<real.h>
#include	"lilib01.h"

#include "li0.h"
#include "li0200a.h"

#define CONFIG_DICINT "DICINT.ini"

class TResDI_mask : public TAutomask
{
private:
	TSheet_field& sheet;		// Sheet

public:
	bool on_field_event(TOperable_field& o, TField_event e, long jolly) { return true; };
	TResDI_mask() : TAutomask("li0200a"), sheet(sfield(DOCUMENTI_STATO)) { load_config(); };
	void load_config();
	void elabTipiDoc(TToken_string& tipi, TToken_string& stati);
};

void TResDI_mask::load_config()
{
	set(FLD_TABIVA_CODTAB, ini_get_string(CONFIG_DITTA, "li", "CODIVA"));
	TToken_string tipidoc(ini_get_string(CONFIG_DITTA, "li", "TIPIDOC"));

	TString_array& strarr = sheet.rows_array();
	sheet.hide();
	sheet.destroy();

	for(int i = 0; i < tipidoc.items(); i++)
	{
		TString td = tipidoc.get(i);
		TToken_string stati(ini_get_string(CONFIG_DITTA, "li", td));
		for(int j = 0; j < stati.items(); j++)
		{
			TToken_string row, s(stati.get(j), ',');
			row.add(td);
			row.add(s.get(0));
			row.add(s.get(1));
			strarr.add(row);
		}
	}
	sheet.force_update();
	sheet.show();
}

void TResDI_mask::elabTipiDoc(TToken_string& tipi, TToken_string& stati)
{
	for(int i = 0; i < sheet.items(); i++)
	{
		TToken_string row = sheet.row(i);
		int statoin = row.get_int(1), statoout = row.get_int(2);
		for(; statoin <= statoout; statoin++)
		{
			// Immetto nelle due TToken_string i valori per gestire la classe TLista_documenti
			// Per ogni posizione metto il documento e stato interessato, es. F01: da 1 a 3 -> tipi {F01|F01|F01} stati {1|2|3}
			tipi.add(row.get(0));
			stati.add(statoin);
		}
	}
}

class TResDI_app : public TSkeleton_application
{ 
	
	void elab(TResDI_mask& m);
public:
	virtual void main_loop();
};

void TResDI_app::elab(TResDI_mask& m)
{
	int clifoda = m.get_long(F_CODICE_CLIFO_DA), clifoa = m.get_long(F_CODICE_CLIFO_A);
	
	// Creo le TToken_string necessarie per filtrare i documenti
	TToken_string tipi, stati;
	m.elabTipiDoc(tipi, stati);

	TRelation r_clifo(LF_CLIFO);
	TRectype fil_from(r_clifo.curr()), fil_to(r_clifo.curr());
	fil_from.put("TIPOCF", "C");
	fil_to.put("TIPOCF", "C");

	if(clifoda > 0)
		fil_from.put("CODCF", clifoda);

	if(clifoa > 0)
		fil_to.put("CODCF", clifoa);

	TCursor c_clifo(&r_clifo, "", 1, &fil_from, &fil_to);

	TLog_report log(TR("Resoconto plafond"));
	for(c_clifo = 0; c_clifo.pos() < c_clifo.items(); ++c_clifo)
	{
		TRectype row_clifo(c_clifo.curr());

		TLi_manager currentCli(row_clifo.get_char("TIPOCF"), row_clifo.get_long("CODCF"), TDate(TODAY).year());	// Inizializzo l'oggetto per la gestione del plafond
		if(currentCli.hasValidPlafond())
		{
			real plafond			= currentCli.getPlafond();
			real resPlafond		= currentCli.getPlaRes(tipi, stati);
			
			TString msg; 
			msg << "\nDichiarazione di intento cliente N." << row_clifo.get_long("CODCF") << "\nRagione sociale: " << row_clifo.get("RAGSOC") << "\nPlafond totale: " << static_cast<TCurrency>(plafond).string() << "<EFBFBD>\n";
			log.log(0, msg);
			msg = TString("Plafond disponibile: ") << static_cast<TCurrency>(resPlafond).string() << "<EFBFBD>";
			log.log(0, msg);
			msg = TString("Tipo dichiarazione: ") << (currentCli.isSoluzione() ? "Singola\n" : "A concorrenza\n");
			log.log(0, msg);
		}
	}
	log.print_or_preview();
}


void TResDI_app::main_loop()
{
	TResDI_mask m;
	while (m.run() == K_ENTER)
	{
		elab(m);
	}
}


int li0200(int argc, char* argv[])
{
  TResDI_app a;
  a.run(argc, argv, TR("Stato lettere di intento"));
  return 0;
}