git-svn-id: svn://10.65.10.50/branches/R_10_00@20914 c028cbd2-c16b-5b4b-a496-9718f37d4682
43 lines
1.2 KiB
C++
Executable File
43 lines
1.2 KiB
C++
Executable File
|
|
#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)
|
|
{}
|