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:
alex 1996-07-19 15:17:01 +00:00
parent 0c830e2748
commit cb208bdd14
3 changed files with 32 additions and 30 deletions

View File

@ -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

View File

@ -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 "."

View File

@ -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"