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
|
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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user