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
BEGIN
PROMPT 51 7 "Anno di esercizio "
PROMPT 51 7 "Codice esercizio "
FLAGS "DRZ"
END

View File

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

View File

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