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

Patch level : 1.7 avis

Browse Source 
Files correlati     : at1.exe at1500a.msk
Ricompilazione Demo : [ ]
Commento            : St. di controllo benem. : stampa una X se c'é la benemerenza senza data
						nella msk sistemato upper nella selezione iniziali cognome


git-svn-id: svn://10.65.10.50/trunk@10000 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-01-14 10:01:29 +00:00
parent 01b8b2ed85
commit f28ba46951
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
at/at1500.cpp
View File

@ -227,8 +227,15 @@ bool TControlloBenemerenze::preprocess_page(int file, int counter)
const TRectype& riga = _sbenemerenze->row(r); const TRectype& riga = _sbenemerenze->row(r);
const TString16 tipoben = riga.get(BEN_TIPOBEN); const TString16 tipoben = riga.get(BEN_TIPOBEN);
const TDate databen = riga.get(BEN_DATABEN); const TDate databen = riga.get(BEN_DATABEN);
real& colonna = (real&)_colonne->find((const char*)tipoben); if (tipoben.not_empty()) // non dovrebbe verificarsi questo caso, ma prevenire é meglio che curare!!
benemerenza.insert(databen.string(),(int) colonna.integer()); {
real& colonna = (real&)_colonne->find((const char*)tipoben);
if (databen.ok())
benemerenza.insert(databen.string(),(int) colonna.integer());
else
if (tipoben.not_empty())
benemerenza.insert(" X ",(int) colonna.integer());
}
} }
_benemerenza = benemerenza; _benemerenza = benemerenza;
// salto pagina se cambio sezione o gruppo aziendale // salto pagina se cambio sezione o gruppo aziendale

4
at/at1500a.uml
View File

@ -301,7 +301,7 @@ STRING F_LETTINI 15
BEGIN BEGIN
PROMPT 2 11 "Selezione iniziali cognome: da " PROMPT 2 11 "Selezione iniziali cognome: da "
GROUP 1 GROUP 1
PICTURE "!!" FLAG "U"
END END
STRING F_LETTFIN 15 STRING F_LETTFIN 15
@ -309,7 +309,7 @@ BEGIN
PROMPT 52 11 "a " PROMPT 52 11 "a "
GROUP 1 GROUP 1
//VALIDATE (#F_LETTINI<=#F_LETTFIN) //VALIDATE (#F_LETTINI<=#F_LETTFIN)
PICTURE "!!" FLAG "U"
END END
ENDPAGE ENDPAGE