#include "halib.h"

TString4 TContratto_premi::_tipo_ant;
TString4 TContratto_premi::_tipo_post;
TString4 TContratto_premi::_tipo_rifa;

//metodi della TContratto_premi
char TContratto_premi::tipo_contratto() const
{
  //i tipi contratto vengono caricati solo al primo accesso, in modo da non dover rileggere tutte le volte..
  //..il file di configurazione
  if (_tipo_ant.blank())
  {
    TConfig config(CONFIG_DITTA, "ha");
    _tipo_ant = config.get("CoAntTip");
    _tipo_post = config.get("CoPostTip");
    _tipo_rifa = config.get("CoRifaTip");
  }

  //ritorna il tipo contratto come carattere; se non lo trova -> tipo 'P'osticipo perchè..
  //..è il tipo meno pericoloso (comunque non dovrebbe mai accadere in quanto il tipo è..
  //..obbligatorio sia in immissione contratto che in configurazione modulo)
  const TString& tipo_doc = get(DOC_TIPODOC);
  if (tipo_doc == _tipo_ant)
    return 'A';
  else
  {
    if (tipo_doc == _tipo_rifa)
      return 'R';
  }
  return 'P';
}


TContratto_premi::TContratto_premi(char provv, int anno, const char* codnum, long ndoc)
                : TDocumento(provv, anno, codnum, ndoc) 
{}

TContratto_premi::TContratto_premi(const TRectype& rec_doc)
                : TDocumento(rec_doc)
{}