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

Patch level : at

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Bologna: dati da CT, prendo anche l'intervallo


git-svn-id: svn://10.65.10.50/trunk@10596 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-10-31 13:48:46 +00:00
parent 90bf9197b6
commit b62db47008
1 changed files with 35 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
at/at8800.cpp
View File

@ -271,6 +271,15 @@ bool TCtbo2at::test_inter(TRectype& recsog, const char* tipo, const TDate& datad
TRecord_array idoneita(LF_IDONEITA,IDO_PROGIDO); TRecord_array idoneita(LF_IDONEITA,IDO_PROGIDO);
idoneita.read(key); idoneita.read(key);
TString16 stato = recsog.get(SOG_STATO);
if (modstato_tcs(stato) != 'S' && stato.not_empty())
return FALSE;
if (tipo == "SI")
stato = recsog.get(SOG_STATOSI);
else
stato = recsog.get(SOG_STATOAF);
if (modstato_tcs(stato) != 'S' && stato.not_empty())
return FALSE;
const int r = idoneita.last_row(); //se trova una data idoneita >= di quella in esame, quest'ultima viene ignorata const int r = idoneita.last_row(); //se trova una data idoneita >= di quella in esame, quest'ultima viene ignorata
if (r > 0) if (r > 0)
{ {
@ -286,10 +295,16 @@ bool TCtbo2at::test_inter(TRectype& recsog, const char* tipo, const TDate& datad
rec->put(IDO_TIPOIDO, stricmp(tipo, "SI") != 0 ? "AF" : "SI"); // Il mondo è bello perchè c'é l'AVIS (tutte le donaz. non SI sono AF! mah?!) rec->put(IDO_TIPOIDO, stricmp(tipo, "SI") != 0 ? "AF" : "SI"); // Il mondo è bello perchè c'é l'AVIS (tutte le donaz. non SI sono AF! mah?!)
rec->put(IDO_IDO_SOS, "ID"); rec->put(IDO_IDO_SOS, "ID");
rec->put(IDO_INTERVALLO, inter); rec->put(IDO_INTERVALLO, inter);
// aggiunto da cristina il 18/09/2002 altrimenti non so che quella riga é stata aggiunta da CT
rec->put(IDO_RESPONSAB, "TRASF. DA CT");
idoneita.add_row(rec); idoneita.add_row(rec);
idoneita.write(); idoneita.write();
con_reord(recsog, &controlli, &idoneita); con_reord(recsog, &controlli, &idoneita);
// aggiorno data e utente ultimo aggiornamento (Cristina 18/09/2002)
const TDate oggi(TODAY);
recsog.put(SOG_DATAULTAGG,oggi);
recsog.put(SOG_UTENULTAGG,"WINSIT");
return TRUE; return TRUE;
} }
@ -326,10 +341,9 @@ void TCtbo2at::transfer()
} }
str = curr.get(2); str = curr.get(2);
sogg.put(SOG_CODICE, str); sogg.put(SOG_CODICE, atol(str));
if (rel.read(_isequal) != NOERR) if (rel.read(_isequal) != NOERR)
sogg.zero(); sogg.zero();
//controlla se il donatore ha cambiato sezione spostandosi da Bologna in provincia; //controlla se il donatore ha cambiato sezione spostandosi da Bologna in provincia;
//in questo caso gli deve cancellare il sottogruppo (veramente un procedimento da //in questo caso gli deve cancellare il sottogruppo (veramente un procedimento da
//galera, ma se l'avis e winsit vogliono cosí.....) //galera, ma se l'avis e winsit vogliono cosí.....)
@ -369,7 +383,20 @@ void TCtbo2at::transfer()
str = curr.get(27+i); str = curr.get(27+i);
if (!real::is_null(str)) if (!real::is_null(str))
update |= test_inter(sogg, tipo[i], datadon, atoi(str)); update |= test_inter(sogg, tipo[i], datadon, atoi(str));
}
else
{
int intervallo;
if (tipo[i] == "SI")
intervallo = sogg.get_int(SOG_INTSI);
else
intervallo = sogg.get_int(SOG_INTAF);
str = curr.get(27+i);
if ((!real::is_null(str)) && (intervallo != atoi(str)))
{
TDate oggi(TODAY);
update |= test_inter(sogg, tipo[i], oggi, atoi(str));
}
} }
if (update) if (update)
rel.rewrite(); rel.rewrite();