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