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:
parent
129b8baee9
commit
ac110f9568
@ -4,3 +4,4 @@
|
||||
#define F_PROFILO 104
|
||||
#define F_PSTAMPA 105
|
||||
#define F_CODCAUS 106
|
||||
#define F_NCOPIE 107
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user