root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 1.7 at

Browse Source 
Files correlati     : at8.exe at8900a.ini
Ricompilazione Demo : [ ]
Commento            : aggiunto trasferimentod a CETRAPLUS della disponibilita all'aferesi


git-svn-id: svn://10.65.10.50/trunk@12385 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-10-11 12:47:31 +00:00
parent 4935b1e746
commit 864a259b35
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
at/at8900.cpp
View File

@ -629,6 +629,29 @@ bool TCtpr2at::update_record(TRectype& record_at, TAssoc_array& record_ct)
//aggiorna_controlli();
}
}
else if (elab == "DISPONIBILE") // disponibilita
{
if (val == "NO")
{
record_at.put(SOG_DISP_AF_1, "");
record_at.put(SOG_DISP_AF_2, "");
}
else if (val == "PLA")
{
record_at.put(SOG_DISP_AF_1, "PL");
record_at.put(SOG_DISP_AF_2, "");
}
else if (val == "PLT")
{
record_at.put(SOG_DISP_AF_1, "PT");
record_at.put(SOG_DISP_AF_2, "");
}
else if (val == "SI")
{
record_at.put(SOG_DISP_AF_1, "PL");
record_at.put(SOG_DISP_AF_2, "PT");
}
}
else if (elab == "SESSO") // sesso
{
if (val[0] == 'M')
@ -1095,7 +1118,6 @@ bool TCtpr2at::accesso(const TString& istruzione)
{
if (p_tipocon > p_tipoes)
{
recc->put(CON_PROGCON,riga.get(CON_PROGCON));
_scontrolli->add_row(recc);
insert = TRUE;

2
at/at8900a.ini
View File

@ -4,7 +4,7 @@ STATO =
ID_ANAGRAFICA = CODCT
STATO_TRASFUS = !_STATO
STATO_LEGALE =
STATO_ASSOC =
STATO_ASSOC = !_DISPONIBILE
COGNOME =
NOME =
SESSO = !_SESSO