Resa non obbligatoria la causale.

git-svn-id: svn://10.65.10.50/trunk@3501 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-09-04 07:27:06 +00:00
parent 129b8baee9
commit ac110f9568
2 changed files with 11 additions and 2 deletions

View File

@ -4,3 +4,4 @@
#define F_PROFILO 104
#define F_PSTAMPA 105
#define F_CODCAUS 106
#define F_NCOPIE 107

View File

@ -63,16 +63,24 @@ BEGIN
CHECKTYPE REQUIRED
END
NUMBER F_NCOPIE 3
BEGIN
PROMPT 2 10 "Numero di copie "
FIELD I0
NUM_EXPR {(#THIS_FIELD >= 0)}
WARNING "Il numero di copie deve essere positivo"
END
STRING F_CODCAUS 3
BEGIN
PROMPT 2 10 "Codice causale "
PROMPT 2 11 "Codice causale "
FIELD S6
USE LF_CAUSALI
INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCAUS CODCAUS
CHECKTYPE REQUIRED
CHECKTYPE NORMAL
END
ENDPAGE