Corretti errori MI6056 MI6057 MI6058
git-svn-id: svn://10.65.10.50/trunk@3217 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
0c830e2748
commit
cb208bdd14
@ -68,7 +68,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_ANNOES 4
|
NUMBER F_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 7 "Anno di esercizio "
|
PROMPT 51 7 "Codice esercizio "
|
||||||
FLAGS "DRZ"
|
FLAGS "DRZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
@ -60,7 +60,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_ANNOES 4
|
NUMBER F_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 56 4 "Esercizio "
|
PROMPT 54 4 "Codice esercizio "
|
||||||
FIELD ANNOES
|
FIELD ANNOES
|
||||||
MESSAGE COPY,K_ANNOES
|
MESSAGE COPY,K_ANNOES
|
||||||
FLAGS "DGZ"
|
FLAGS "DGZ"
|
||||||
@ -82,7 +82,7 @@ BEGIN
|
|||||||
OUTPUT F_DESCRCAUS DESCR
|
OUTPUT F_DESCRCAUS DESCR
|
||||||
OUTPUT F_TIPODOC TIPODOC
|
OUTPUT F_TIPODOC TIPODOC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
ADD RUN cg0 -4
|
ADD RUN cg0 -4
|
||||||
MESSAGE COPY,K_CODCAUS
|
MESSAGE COPY,K_CODCAUS
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -94,9 +94,9 @@ BEGIN
|
|||||||
INPUT DESCR F_DESCRCAUS
|
INPUT DESCR F_DESCRCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Codice" CODCAUS
|
DISPLAY "Codice" CODCAUS
|
||||||
COPY OUTPUT F_CODCAUS
|
COPY OUTPUT F_CODCAUS
|
||||||
MESSAGE COPY,K_DESCRCAUS
|
MESSAGE COPY,K_DESCRCAUS
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_PROVVISORIO 1 24
|
LIST F_PROVVISORIO 1 24
|
||||||
BEGIN
|
BEGIN
|
||||||
@ -111,7 +111,7 @@ STRING F_TIPODOC 2
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 60 6 "Tipo documento "
|
PROMPT 60 6 "Tipo documento "
|
||||||
FIELD TIPODOC
|
FIELD TIPODOC
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
MESSAGE COPY,K_TIPODOC
|
MESSAGE COPY,K_TIPODOC
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -121,7 +121,7 @@ BEGIN
|
|||||||
HELP "Data del documento generante il movimento"
|
HELP "Data del documento generante il movimento"
|
||||||
FIELD DATADOC
|
FIELD DATADOC
|
||||||
WARNING "Specificare una data del documento non superiore a quella dell'operazione"
|
WARNING "Specificare una data del documento non superiore a quella dell'operazione"
|
||||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||||
MESSAGE COPY,K_DATADOC
|
MESSAGE COPY,K_DATADOC
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -130,6 +130,7 @@ BEGIN
|
|||||||
PROMPT 56 7 "Documento n. "
|
PROMPT 56 7 "Documento n. "
|
||||||
HELP "Numero del documento generante il movimento"
|
HELP "Numero del documento generante il movimento"
|
||||||
FIELD NUMDOC
|
FIELD NUMDOC
|
||||||
|
FLAGS "U"
|
||||||
WARNING "La causale impone di specificare il numero documento"
|
WARNING "La causale impone di specificare il numero documento"
|
||||||
MESSAGE COPY,K_NUMDOC
|
MESSAGE COPY,K_NUMDOC
|
||||||
END
|
END
|
||||||
@ -196,7 +197,7 @@ BEGIN
|
|||||||
INPUT CODTAB[4,11] SK_DATACAMBIO
|
INPUT CODTAB[4,11] SK_DATACAMBIO
|
||||||
DISPLAY "Valuta" CODTAB[1,3]
|
DISPLAY "Valuta" CODTAB[1,3]
|
||||||
DISPLAY "Data@10" D0
|
DISPLAY "Data@10" D0
|
||||||
DISPLAY "Cambio@15" R10
|
DISPLAY "Cambio@15" R10
|
||||||
OUTPUT SK_DATACAMBIO D0
|
OUTPUT SK_DATACAMBIO D0
|
||||||
OUTPUT SK_CAMBIO R10
|
OUTPUT SK_CAMBIO R10
|
||||||
GROUP 3 5
|
GROUP 3 5
|
||||||
@ -215,7 +216,7 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_TOTALE 15
|
NUMBER F_TOTALE 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Totale documento "
|
PROMPT 2 12 "Totale documento "
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
GROUP 5
|
GROUP 5
|
||||||
@ -225,9 +226,9 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER SK_TOTDOCVAL 15 3
|
NUMBER SK_TOTDOCVAL 15 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 12 "Totale in valuta "
|
PROMPT 44 12 "Totale in valuta "
|
||||||
HELP ""
|
HELP ""
|
||||||
PICTURE ".3"
|
PICTURE ".3"
|
||||||
GROUP 3 5
|
GROUP 3 5
|
||||||
VALIDATE REQIF_FUNC 1 F_TOTALE
|
VALIDATE REQIF_FUNC 1 F_TOTALE
|
||||||
@ -307,13 +308,13 @@ STRING K_DESCRCAUS 50
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 6 ""
|
PROMPT 25 6 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER K_TOTALE 15
|
NUMBER K_TOTALE 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Totale doc. "
|
PROMPT 1 7 "Totale doc. "
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -352,10 +353,10 @@ BEGIN
|
|||||||
ITEM "Descrizione contropartita@30"
|
ITEM "Descrizione contropartita@30"
|
||||||
ITEM "Giornale"
|
ITEM "Giornale"
|
||||||
ITEM "Tipo"
|
ITEM "Tipo"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_DARE 15
|
NUMBER F_DARE 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 -1 "Sbilancio Dare "
|
PROMPT 1 -1 "Sbilancio Dare "
|
||||||
FLAGS "DRV"
|
FLAGS "DRV"
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
|
@ -12,10 +12,10 @@ BEGIN
|
|||||||
FIELD REGST
|
FIELD REGST
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPATO
|
BOOLEAN F_STAMPATO
|
||||||
BEGIN
|
BEGIN
|
||||||
FIELD STAMPATO
|
FIELD STAMPATO
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -73,7 +73,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_ANNOES 4
|
NUMBER F_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 32 4 "Cod. esercizio "
|
PROMPT 32 4 "Codice esercizio "
|
||||||
FIELD ANNOES
|
FIELD ANNOES
|
||||||
FLAGS "DGZ"
|
FLAGS "DGZ"
|
||||||
MESSAGE COPY,H_ANNOES
|
MESSAGE COPY,H_ANNOES
|
||||||
@ -124,7 +124,7 @@ END
|
|||||||
DATE F_DATADOC
|
DATE F_DATADOC
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 6 "Data documento "
|
PROMPT 1 6 "Data documento "
|
||||||
FIELD DATADOC
|
FIELD DATADOC
|
||||||
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
||||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||||
END
|
END
|
||||||
@ -140,6 +140,7 @@ STRING F_NUMDOC 7
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 57 6 "Documento n. "
|
PROMPT 57 6 "Documento n. "
|
||||||
FIELD NUMDOC
|
FIELD NUMDOC
|
||||||
|
FLAGS "U"
|
||||||
WARNING "La causale o il saldaconto richiedono il numero documento"
|
WARNING "La causale o il saldaconto richiedono il numero documento"
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -153,9 +154,9 @@ BEGIN
|
|||||||
PROMPT 31 7 "Movimento provvisorio "
|
PROMPT 31 7 "Movimento provvisorio "
|
||||||
FIELD PROVVIS
|
FIELD PROVVIS
|
||||||
ITEM " |No (movimento normale)"
|
ITEM " |No (movimento normale)"
|
||||||
ITEM "P|Si (cancellabile)"
|
ITEM "P|Si (cancellabile)"
|
||||||
ITEM "N|Si (Non cancellabile)"
|
ITEM "N|Si (Non cancellabile)"
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCAGG 5
|
STRING F_DESCAGG 5
|
||||||
@ -362,7 +363,7 @@ BEGIN
|
|||||||
FIELD CODPAG
|
FIELD CODPAG
|
||||||
FLAGS "U#"
|
FLAGS "U#"
|
||||||
USE %CPG
|
USE %CPG
|
||||||
INPUT CODTAB F_CODPAG
|
INPUT CODTAB F_CODPAG
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_CODPAG CODTAB
|
OUTPUT F_CODPAG CODTAB
|
||||||
@ -398,12 +399,12 @@ BEGIN
|
|||||||
PROMPT 28 13 "Data cambio "
|
PROMPT 28 13 "Data cambio "
|
||||||
FIELD DATACAM
|
FIELD DATACAM
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
USE CAM
|
USE CAM
|
||||||
INPUT CODTAB[1,3] SK_VALUTA SELECT
|
INPUT CODTAB[1,3] SK_VALUTA SELECT
|
||||||
INPUT CODTAB[4,11] SK_DATACAMBIO
|
INPUT CODTAB[4,11] SK_DATACAMBIO
|
||||||
DISPLAY "Valuta" CODTAB[1,3]
|
DISPLAY "Valuta" CODTAB[1,3]
|
||||||
DISPLAY "Data@10" D0
|
DISPLAY "Data@10" D0
|
||||||
DISPLAY "Cambio@18" R10
|
DISPLAY "Cambio@18" R10
|
||||||
OUTPUT SK_DATACAMBIO D0
|
OUTPUT SK_DATACAMBIO D0
|
||||||
OUTPUT SK_CAMBIO R10
|
OUTPUT SK_CAMBIO R10
|
||||||
GROUP 3
|
GROUP 3
|
||||||
@ -424,7 +425,7 @@ NUMBER F_TOTALE 15
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Totale documento "
|
PROMPT 1 14 "Totale documento "
|
||||||
FIELD TOTDOC
|
FIELD TOTDOC
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER SK_TOTDOCVAL 15 3
|
NUMBER SK_TOTDOCVAL 15 3
|
||||||
@ -526,12 +527,12 @@ BEGIN
|
|||||||
GROUP 4
|
GROUP 4
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CORRVALUTA 15 2
|
NUMBER F_CORRVALUTA 15 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 39 18 "Corrispettivo valuta "
|
PROMPT 39 18 "Corrispettivo valuta "
|
||||||
FIELD CORRVALUTA
|
FIELD CORRVALUTA
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
PICTURE ".2"
|
PICTURE ".3"
|
||||||
GROUP 4
|
GROUP 4
|
||||||
VALIDATE REQIF_FUNC 1 F_VALUTAINTRA
|
VALIDATE REQIF_FUNC 1 F_VALUTAINTRA
|
||||||
END
|
END
|
||||||
@ -591,7 +592,7 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_IMPONIBILI 15
|
NUMBER F_IMPONIBILI 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 11 "Totale imponibili "
|
PROMPT 1 11 "Totale imponibili "
|
||||||
FLAGS "DV"
|
FLAGS "DV"
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
@ -626,7 +627,7 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_DARE 15
|
NUMBER F_DARE 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 -1 "Sbilancio Dare "
|
PROMPT 1 -1 "Sbilancio Dare "
|
||||||
FLAGS "DRV"
|
FLAGS "DRV"
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
@ -643,7 +644,7 @@ ENDPAGE
|
|||||||
|
|
||||||
#include "cg21sld.uml"
|
#include "cg21sld.uml"
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
#include "cg21iva.uml"
|
#include "cg21iva.uml"
|
||||||
#include "cg21cg.uml"
|
#include "cg21cg.uml"
|
||||||
|
Loading…
x
Reference in New Issue
Block a user