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