Patch level : 10.0

Files correlati     : cg0100a.msk
Ricompilazione Demo : [ ]
Commento            :
0001450: 001639 - S. Maria degli Angeli
Verificare problema su campi di 4° direttiva su piano dei conti contabile


git-svn-id: svn://10.65.10.50/trunk@19315 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-09-21 13:40:03 +00:00
parent 2db3591554
commit 11a51e9564

View File

@ -19,9 +19,8 @@ BEGIN
PROMPT 2 1 "Gruppo " PROMPT 2 1 "Gruppo "
HELP "Codice del gruppo" HELP "Codice del gruppo"
FIELD GRUPPO FIELD GRUPPO
FLAGS "R"
KEY 1 KEY 1
USE LF_PCON KEY 1 SELECT CONTO="" USE LF_PCON SELECT CONTO=""
INPUT GRUPPO FLD_CM1_GRUPPO INPUT GRUPPO FLD_CM1_GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -41,9 +40,8 @@ BEGIN
PROMPT 2 2 "Conto " PROMPT 2 2 "Conto "
HELP "Codice dell'eventuale conto" HELP "Codice dell'eventuale conto"
FIELD CONTO FIELD CONTO
FLAGS "R"
KEY 1 KEY 1
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO="")) USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO=""))
COPY INPUT FLD_CM1_GRUPPO COPY INPUT FLD_CM1_GRUPPO
INPUT CONTO FLD_CM1_CONTO INPUT CONTO FLD_CM1_CONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -69,7 +67,7 @@ BEGIN
HELP "Codice dell'eventuale sottoconto" HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO FIELD SOTTOCONTO
KEY 1 KEY 1
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
COPY INPUT FLD_CM1_CONTO COPY INPUT FLD_CM1_CONTO
INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -88,7 +86,7 @@ NUMBER FH_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 60 1 "" PROMPT 60 1 ""
FLAGS "HG" FLAGS "HG"
USE LF_PCON KEY 1 USE LF_PCON
COPY INPUT FLD_CM1_SOTTOCONTO COPY INPUT FLD_CM1_SOTTOCONTO
COPY DISPLAY FLD_CM1_SOTTOCONTO COPY DISPLAY FLD_CM1_SOTTOCONTO
COPY OUTPUT FLD_CM1_SOTTOCONTO COPY OUTPUT FLD_CM1_SOTTOCONTO
@ -173,9 +171,9 @@ BEGIN
GROUP 1 4 GROUP 1 4
END END
STRING FLD_CM1_LETTIVD 1 1 STRING FLD_CM1_LETTIVD 1
BEGIN BEGIN
PROMPT 51 7 "" PROMPT 49 7 ""
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LETTIVD FIELD LETTIVD
GROUP 1 5 GROUP 1 5
@ -184,30 +182,30 @@ END
STRING FLD_CM1_LETTIVDH 1 STRING FLD_CM1_LETTIVDH 1
BEGIN BEGIN
PROMPT 51 7 "" PROMPT 49 7 ""
FLAGS "HDU" FLAGS "HDU"
GROUP 1 5 GROUP 1 5
END END
NUMBER FLD_CM1_NUMRIVD 8 4 NUMBER FLD_CM1_NUMRIVD 8
BEGIN BEGIN
PROMPT 55 7 "" PROMPT 51 7 ""
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
FIELD NUMRIVD FIELD NUMRIVD
GROUP 1 5 GROUP 1 5
FLAGS "MZ" FLAGS "MZ"
END END
NUMBER FLD_CM1_NUMRIVDH 8 4 NUMBER FLD_CM1_NUMRIVDH 8
BEGIN BEGIN
PROMPT 55 7 "" PROMPT 51 7 ""
FLAGS "HDMZ" FLAGS "HDMZ"
GROUP 1 5 GROUP 1 5
END END
STRING FLD_CM1_NUMIVD 2 STRING FLD_CM1_NUMIVD 2
BEGIN BEGIN
PROMPT 64 7 "" PROMPT 60 7 ""
FIELD NUMIVD[1,2] FIELD NUMIVD[1,2]
GROUP 1 5 GROUP 1 5
USE %IVD USE %IVD
@ -231,9 +229,16 @@ BEGIN
WARNING "Codice non presente" WARNING "Codice non presente"
END END
STRING FLD_CM1_NUMIVDH 2
BEGIN
PROMPT 60 7 ""
FLAGS "HD"
GROUP 1 5
END
LIST F_SUB 2 9 LIST F_SUB 2 9
BEGIN BEGIN
PROMPT 69 7 "" PROMPT 65 7 ""
GROUP 1 5 GROUP 1 5
ITEM " |" ITEM " |"
ITEM "02|Bis" ITEM "02|Bis"
@ -242,25 +247,11 @@ BEGIN
ITEM "05|Quinquies" ITEM "05|Quinquies"
ITEM "06|Sexies" ITEM "06|Sexies"
FIELD NUMIVD[3,4] FIELD NUMIVD[3,4]
KEY 1
END
LIST FLD_CM1_NUMIVDH 2 9
BEGIN
PROMPT 64 7 ""
FLAGS "HD"
GROUP 1 5
ITEM " |"
ITEM "02|Bis"
ITEM "03|Ter"
ITEM "04|Quater"
ITEM "05|Quinquies"
ITEM "06|Sexies"
END END
LIST F_SUBH 2 9 LIST F_SUBH 2 9
BEGIN BEGIN
PROMPT 69 7 "" PROMPT 65 7 ""
GROUP 1 5 GROUP 1 5
ITEM " |" ITEM " |"
ITEM "02|Bis" ITEM "02|Bis"
@ -268,7 +259,6 @@ BEGIN
ITEM "04|Quater" ITEM "04|Quater"
ITEM "05|Quinquies" ITEM "05|Quinquies"
ITEM "06|Sexies" ITEM "06|Sexies"
KEY 1
END END
STRING FLD_CM1_DESCIVD 70 50 STRING FLD_CM1_DESCIVD 70 50
@ -311,7 +301,7 @@ END
STRING FLD_CM1_LETTIVDOPP 1 STRING FLD_CM1_LETTIVDOPP 1
BEGIN BEGIN
PROMPT 51 9 "" PROMPT 49 9 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD LETTIVDOPP FIELD LETTIVDOPP
FLAGS "U" FLAGS "U"
@ -320,7 +310,7 @@ END
NUMBER FLD_CM1_NUMRIVDOPP 8 4 NUMBER FLD_CM1_NUMRIVDOPP 8 4
BEGIN BEGIN
PROMPT 55 9 "" PROMPT 51 9 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD NUMRIVDOPP FIELD NUMRIVDOPP
FLAGS "MZ" FLAGS "MZ"
@ -329,7 +319,7 @@ END
STRING FLD_CM1_NUMIVDOPP 2 STRING FLD_CM1_NUMIVDOPP 2
BEGIN BEGIN
PROMPT 64 9 "" PROMPT 60 9 ""
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE" HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
FIELD NUMIVDOPP[1,2] FIELD NUMIVDOPP[1,2]
GROUP 1 2 4 7 GROUP 1 2 4 7
@ -352,7 +342,7 @@ END
LIST F_SUBOPP 9 LIST F_SUBOPP 9
BEGIN BEGIN
PROMPT 69 9 "" PROMPT 65 9 ""
GROUP 1 2 4 7 GROUP 1 2 4 7
ITEM " |" ITEM " |"
ITEM "02|Bis" ITEM "02|Bis"
@ -361,7 +351,6 @@ BEGIN
ITEM "05|Quinquies" ITEM "05|Quinquies"
ITEM "06|Sexies" ITEM "06|Sexies"
FIELD NUMIVDOPP[3,4] FIELD NUMIVDOPP[3,4]
KEY 1
END END
STRING FLD_CM1_DESCIVDOPP 70 50 STRING FLD_CM1_DESCIVDOPP 70 50
@ -483,7 +472,6 @@ BEGIN
PROMPT 1 16 "Stampa dettaglio sottoconti su analisi" PROMPT 1 16 "Stampa dettaglio sottoconti su analisi"
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio" HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
FIELD STSOTTAB FIELD STSOTTAB
// FLAGS "H"
GROUP 1 3 GROUP 1 3
MESSAGE COPY,FLD_CM2_STSOTTABS MESSAGE COPY,FLD_CM2_STSOTTABS
END END
@ -492,7 +480,6 @@ BOOLEAN FLD_CM2_STSOTTABS
BEGIN BEGIN
PROMPT 1 16 "Stampa dettaglio movimenti su analisi " PROMPT 1 16 "Stampa dettaglio movimenti su analisi "
FIELD STSOTTAB FIELD STSOTTAB
// FLAGS "H"
GROUP 1 2 GROUP 1 2
MESSAGE COPY,FLD_CM2_STSOTTAB MESSAGE COPY,FLD_CM2_STSOTTAB
END END