#include <recarray.h> // cache()

#include "../ve/velib05.h"
#include "../cg/cglib03.h"
#include "../fe/felib.h"
#include "tfutility.h"


// Ritorna il record da trasfatt
TRectype getTrasFatt(TString reg, TString codiva)
{
	TString key = reg; key << "|" << codiva;
	return cache().get(LF_TRASFATT, key);
}

// Ritorna il cliente
TRectype getCli(const TString& tipocf, const TString& codcf, const TString& ocfpi)
{
	TString key = tipocf; key << "|" << codcf;
	const TRectype& cli = cache().get(LF_CLIFO, key);
	if(cli.get_bool("OCCAS"))
	{
		TRectype cli(LF_CLIFO);
		TRectype occas = cache().get(LF_OCCAS, ocfpi);
		cli.put("RAGSOC" , occas.get("RAGSOC"));
		cli.put("CODRFSO" , "");
		cli.put("PAIV" , occas.get("PAIV"));
		cli.put("COFI" , occas.get("COFI"));
		return cli;
	}
	else 
		return cli;
}

// Controlla se l'azienda ha un RFSO
bool haveRFSO(TString& codrfso)
{
	codrfso = cache().get(LF_NDITTE, prefix().firm().codice(), "CODRFSO");
	if(codrfso == "") return false;
	return true;
}

const char * natura(const TString& codiva)
{
	const TRectype& ai = cache().get("%IVA", codiva);
	TString & natura = get_tmp_string(4);
	
	natura = ai.get("S12");
	return natura;
}

TString findDetraib(TString tipodet) 
{
	real perc = cache().get("%DET", tipodet, "R0");
	return perc.stringa(6,2);
}

real get_IVA(const TString& codiva)
{
  const TRectype& ai = cache().get("%IVA", codiva);
  return ai.get_real("R0");
}

TString revCharge(TString numreg) 
{
	// Controllo se la causale ha il reverse charge, se il cliente non l'ha impostata giusta sono ARAZZI suoi
	TString key = numreg;
	TCausale caus(cache().get(LF_MOV, key, "CODCAUS"));
	if(caus.reverse_charge())
		bool tolla = true;
	return caus.reverse_charge() ? "X" : "";
}

TString getRFSO(TString codrfso)
{
	TString key; key << codrfso[0] << "|" << codrfso.mid(1);
	return cache().get(LF_ANAG, key, "RAGSOC");
}