Corretti errori MI0659 MI0660

git-svn-id: svn://10.65.10.50/trunk@1217 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-04-07 14:40:30 +00:00
parent 7220946cc8
commit f1ad121f67

View File

@ -13,7 +13,7 @@ BEGIN
PROMPT 4 1 "Ditta "
HELP "Codice ditta a cui si riferisce la delega"
FIELD CODTAB[1,5]
FLAGS "FRZ"
FLAGS "RZ"
KEY 1
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
@ -66,7 +66,6 @@ BEGIN
FIELD CODTAB[10,11]
FLAGS "MA"
KEY 1
COPY ALL F_ANNO
HELP "Mese di versamento"
ITEM "13|Annuale"
MESSAGE "2",F_TIPO
@ -79,7 +78,7 @@ BEGIN
PROMPT 4 5 "Anno "
FIELD CODTAB[6,9]
CHECKTYPE REQUIRED
FLAGS "R"
FLAGS "RZ"
KEY 1
USE %DEL
JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
@ -97,7 +96,7 @@ BEGIN
OUTPUT F_MESE CODTAB[10,11]
OUTPUT F_TIPO CODTAB[12,12]
HELP "Anno di versamento"
VALIDATE AUTOEXIT_FUNC 2 F_CODDITTA F_ANNO
// VALIDATE AUTOEXIT_FUNC 2 F_CODDITTA F_ANNO
GROUP GR_SEARCH
END