Correzioni alla lista clienti

git-svn-id: svn://10.65.10.50/trunk@873 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-01-18 13:22:14 +00:00
parent 7b331bd29a
commit a6fe95afb8

View File

@ -81,6 +81,7 @@ BEGIN
OUTPUT F_CODICEINI CODCF
OUTPUT F_RAGSOCINI RAGSOC
FLAGS "R"
CHECKTYPE NORMAL
END
STRING F_RAGSOCINI 50
@ -95,6 +96,7 @@ BEGIN
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI RAGSOC
OUTPUT F_CODICEINI CODCF
CHECKTYPE NORMAL
END
NUMBER F_CODICEFIN 6
@ -113,6 +115,7 @@ BEGIN
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
WARNING "Limite superiore errato"
FLAGS "R"
CHECKTYPE NORMAL
END
STRING F_RAGSOCFIN 50
@ -127,6 +130,7 @@ BEGIN
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN RAGSOC
OUTPUT F_CODICEFIN CODCF
CHECKTYPE NORMAL
END
NUMBER F_CODICEINI1 6
@ -143,6 +147,7 @@ BEGIN
OUTPUT F_CODICEINI1 CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
FLAGS "R"
CHECKTYPE NORMAL
END
STRING F_RAGSOCINI1 50
@ -157,6 +162,7 @@ BEGIN
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
OUTPUT F_CODICEINI1 CODCF
CHECKTYPE NORMAL
END
NUMBER F_CODICEFIN1 6
@ -175,6 +181,7 @@ BEGIN
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
WARNING "Limite superiore errato"
FLAGS "R"
CHECKTYPE NORMAL
END
STRING F_RAGSOCFIN1 50
@ -189,6 +196,7 @@ BEGIN
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
OUTPUT F_CODICEFIN1 CODCF
CHECKTYPE NORMAL
END
BOOLEAN F_CAMBIO