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