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 TString16 tipoben = riga.get(BEN_TIPOBEN);
const TDate databen = riga.get(BEN_DATABEN);
real& colonna = (real&)_colonne->find((const char*)tipoben);
benemerenza.insert(databen.string(),(int) colonna.integer());
if (tipoben.not_empty()) // non dovrebbe verificarsi questo caso, ma prevenire é meglio che curare!!
{
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;
// salto pagina se cambio sezione o gruppo aziendale

4
at/at1500a.uml
View File

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