Corretti errori vari sulla mashera

git-svn-id: svn://10.65.10.50/trunk@499 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-10-31 16:03:56 +00:00
parent 31a15640d5
commit 30ddb48647

View File

@ -11,8 +11,8 @@ PAGE "Tabella deleghe IVA" -1 -1 78 15
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 4 1 "Ditta " PROMPT 4 1 "Ditta "
FIELD %DEL->CODTAB[1,5] FIELD CODTAB[1,5]
FLAGS "FRZ" FLAGS "FR"
KEY 1 KEY 1
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
@ -40,7 +40,8 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 3 "Anno " PROMPT 4 3 "Anno "
FIELD %DEL->CODTAB[6,9] FIELD CODTAB[6,9]
CHECKTYPE REQUIRED
FLAGS "RA" FLAGS "RA"
KEY 1 KEY 1
USE %DEL USE %DEL
@ -64,7 +65,7 @@ END
LIST F_MESE 10 LIST F_MESE 10
BEGIN BEGIN
PROMPT 4 4 "Mese " PROMPT 4 4 "Mese "
FIELD %DEL->CODTAB[10,11] FIELD CODTAB[10,11]
FLAGS "MA" FLAGS "MA"
KEY 1 KEY 1
COPY ALL F_ANNO COPY ALL F_ANNO
@ -77,7 +78,7 @@ END
LIST F_TIPO 20 LIST F_TIPO 20
BEGIN BEGIN
PROMPT 4 5 "Tipo " PROMPT 4 5 "Tipo "
FIELD %DEL->CODTAB[12,12] FIELD CODTAB[12,12]
KEY 1 KEY 1
HELP "Introdurre il tipo di versamento" HELP "Introdurre il tipo di versamento"
ITEM "1|normale" ITEM "1|normale"
@ -97,14 +98,14 @@ END
DATE F_DATA DATE F_DATA
BEGIN BEGIN
PROMPT 4 7 "Data " PROMPT 4 7 "Data "
FIELD %DEL->D0 FIELD D0
HELP "Introdurre la data di versamento" HELP "Introdurre la data di versamento"
END END
NUMBER F_BANCA1 5 NUMBER F_BANCA1 5
BEGIN BEGIN
PROMPT 4 8 "Codice ABI " PROMPT 4 8 "Codice ABI "
FIELD %DEL->S7 FIELD S7
FLAGS "RZ" FLAGS "RZ"
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_BANCA1 INPUT CODTAB[1,5] F_BANCA1
@ -121,7 +122,7 @@ END
NUMBER F_BANCA2 5 NUMBER F_BANCA2 5
BEGIN BEGIN
PROMPT 4 9 "Codice CAB " PROMPT 4 9 "Codice CAB "
FIELD %DEL->S8 FIELD S8
FLAGS "RZ" FLAGS "RZ"
COPY ALL F_BANCA1 COPY ALL F_BANCA1
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -131,7 +132,7 @@ END
NUMBER F_IMPORTO 15 NUMBER F_IMPORTO 15
BEGIN BEGIN
PROMPT 4 10 "Importo " PROMPT 4 10 "Importo "
FIELD %DEL->R0 FIELD R0
FLAGS "R" FLAGS "R"
HELP "Introdurre l'importo versato" HELP "Introdurre l'importo versato"
END END
@ -139,7 +140,7 @@ END
BOOLEAN F_STAMPATO BOOLEAN F_STAMPATO
BEGIN BEGIN
PROMPT 4 12 "Stampato " PROMPT 4 12 "Stampato "
FIELD %DEL->B0 FIELD B0
END END
ENDPAGE ENDPAGE