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:
parent
31a15640d5
commit
30ddb48647
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user