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

Giornaliero controlli: corretto controllo etichetta sacca non duplicata

Browse Source 
Patch level         :
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@6398 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-03-20 13:36:51 +00:00
parent 440733c8a6
commit 2d7298502f
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
at/at0200.cpp
View File

@ -680,24 +680,25 @@ bool TGiornalieroDC::soggetti_notify(TSheet_field& s, int r, KEY k)
{
if (etichetta == row.get_long(5))
return s.sheet_mask().field(F_S_ETICHETTA).error_box("Etichetta sacca gia' inserita");
else
{
TLocalisamfile donaz(LF_DONAZ);
donaz.setkey(5);
donaz.zero();
donaz.put(DON_ETICHETTA, etichetta);
for(donaz.read(); !donaz.eof(); donaz.next())
{
const long etic = donaz.get_long(DON_ETICHETTA);
const TDate datadon = donaz.get_date(DON_DATADON);
if (etichetta!=etic) break;
if ((etichetta==etic) && (app()._datadon.year()==datadon.year())) return s.sheet_mask().field(F_S_ETICHETTA).error_box("Etichetta sacca gia' inserita");
}
}
}
}
}
}
if (etichetta != 0)
{
TLocalisamfile donaz(LF_DONAZ);
donaz.setkey(5);
donaz.zero();
donaz.put(DON_ETICHETTA, etichetta);
int anno = s.mask().get_date(F_DATADON).year();
for(donaz.read(); !donaz.eof(); donaz.next())
{
const long etic = donaz.get_long(DON_ETICHETTA);
const TDate datadon = donaz.get_date(DON_DATADON);
if (etichetta!=etic) break;
if ((etichetta==etic) && (anno==datadon.year())) return s.sheet_mask().field(F_S_ETICHETTA).error_box("Etichetta sacca gia' inserita");
}
}
else
{
const char* cognome = row.get(1);