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

Corretta la formula dei segni delle causali con SCARTI

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4467 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-05-30 15:51:59 +00:00
parent 449eedaf0b
commit 19a79e255a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mg/mg0100.cpp
View File

@ -99,7 +99,7 @@ bool TMask_tabmag::sumsign_handler(TMask_field& f, KEY k)
{
if (f.mask().get_int(F_SUMSIGN)!=0)
{
f.error_box("La somma dei segni ((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC)) deve essere uguale a zero");
f.error_box("La somma dei segni \n((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC) + SCARTI) \ndeve essere uguale a zero");
return FALSE;
}
}
@ -128,14 +128,15 @@ bool TMask_tabmag::format_handler(TMask_field& f, KEY k)
f.error_box("I caratteri di formato opzionali ('%s') sono consentiti solo per l'ultimo livello",mymask.metac[0]->opz_chars());
return FALSE;
}
} else {
} /*else {
// ultimo livello: almeno un carattere obbligatorio
// ELIMINATO
if (!mymask.metac[0]->has_mandchars(s))
{
f.error_box("Il codice dell'ultimo livello deve includere almeno un carattere obbligatorio (letterali o '%s') ",mymask.metac[0]->mand_chars());
return FALSE;
}
}
}*/
// setta il campo con la lunghezza massima della stringa di formato
mymask.field(F_LENFORM).set(mymask.metac[0]->maxstrlen(f.get()));
}