root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretto errore MI4090

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@744 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-12-07 16:28:19 +00:00
parent 49cc098a5a
commit 7660622eb7
9 changed files with 245 additions and 257 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cg/cg0500a.uml
View File

@ -19,7 +19,7 @@ BEGIN
HELP "Codice identificativo della causale"
FIELD LF_CAUSALI->CODCAUS
KEY 1
FLAGS "U"
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAUS
DISPLAY "Codice" CODCAUS
@ -94,7 +94,7 @@ BEGIN
OUTPUT F_CORRISP B0
WARNING "Registro assente o non compatibile col tipo documento"
CHECKTYPE NORMAL
FLAGS "DU"
FLAGS "DUZ"
END
// Questo rimane quasi sempre nascosto
@ -248,7 +248,7 @@ STRING F_COD_CAUS_IM 3
BEGIN
PROMPT 34 8 "Codice causale per l'incasso immediato "
HELP "Codice causale nel caso di incasso immediato"
FLAGS "U"
FLAGS "UZ"
FIELD LF_CAUSALI->CODCAUSIM
COPY USE F_COD_CAUS
INPUT CODCAUS F_COD_CAUS_IM

4
cg/cg1500a.uml
View File

@ -39,8 +39,8 @@ BEGIN
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
//CHECKTYPE NORMAL
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 //se il campo e' vuoto manda questi messaggi
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99 //se invece e' pieno manda questi
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
FLAGS "RZ"
END

33
cg/cg3100a.uml
View File

@ -95,35 +95,21 @@ END
DATE F_DATAINI
BEGIN
<<<<<<< cg3100a.uml
PROMPT 19 11 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa"
=======
PROMPT 16 11 "Stampa mov. dalla data "
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
>>>>>>> 1.12
HELP "Data da cui iniziare la stampa"
GROUP 3
END
DATE F_DATAFIN
BEGIN
<<<<<<< cg3100a.uml
PROMPT 55 11 "alla data "
HELP "Data fino a cui stampare i movimenti"
=======
PROMPT 52 11 "alla data "
>>>>>>> 1.12
HELP "Data fino a cui stampare i movimenti"
GROUP 3
END
NUMBER F_NUMEROINI 7
BEGIN
<<<<<<< cg3100a.uml
PROMPT 19 12 "Stampa mov. dal numero "
HELP "Numero del movimento da cui iniziare la stampa"
=======
PROMPT 16 12 "Stampa mov. dal numero "
>>>>>>> 1.12
USE LF_MOV KEY 1
INPUT NUMREG F_NUMEROINI
DISPLAY "Numero@6" NUMREG
@ -135,16 +121,12 @@ BEGIN
CHECKTYPE NORMAL
FLAGS "R"
GROUP 2
HELP "Numero del movimento da cui iniziare la stampa"
END
NUMBER F_NUMEROFIN 7
BEGIN
<<<<<<< cg3100a.uml
PROMPT 55 12 "al numero "
HELP "Numero del movimenti fino cui fare la stampa"
=======
PROMPT 52 12 "al numero "
>>>>>>> 1.12
COPY USE F_NUMEROINI
INPUT NUMREG F_NUMEROFIN
COPY DISPLAY F_NUMEROINI
@ -154,6 +136,7 @@ BEGIN
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
WARNING "Limite superiore errato"
GROUP 2
HELP "Numero del movimenti fino cui fare la stampa"
END
STRING F_CAUSALEINI 3
@ -164,7 +147,7 @@ BEGIN
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUSALEINI CODCAUS
FLAGS "UR"
FLAGS "UZ"
HELP "Causale di inizio stampa: vuoto = inizio archivio"
END
@ -176,7 +159,7 @@ BEGIN
DISPLAY "Codice causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUSALEFIN CODCAUS
FLAGS "UR"
FLAGS "UZ"
HELP "Causale di fine stampa: vuoto = fine archivio"
END
@ -190,7 +173,7 @@ BEGIN
DISPLAY "Cod. registro iva" CODTAB[5,7]
DISPLAY "Descrizione@40" S0
OUTPUT F_REGISTROINI CODTAB[5,7]
FLAGS "UR"
FLAGS "UZ"
//CHECKTYPE NORMAL
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
END
@ -205,7 +188,7 @@ BEGIN
DISPLAY "Cod. registro iva" CODTAB[5,7]
DISPLAY "Descrizione@40" S0
OUTPUT F_REGISTROFIN CODTAB[5,7]
FLAGS "UR"
FLAGS "UZ"
//CHECKTYPE NORMAL
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
END

2
cg/cg3400a.uml
View File

@ -21,7 +21,7 @@ BEGIN
// OUTPUT DATA_A D1
// CHECKTYPE NORMAL
WARNING "Registro inesistente"
FLAGS "U"
FLAGS "UZ"
END
NUMBER ANNO_ESER 4

6
cg/cg4400a.uml
View File

@ -96,7 +96,7 @@ BEGIN
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIBRO CODTAB[5,7]
//CHECKTYPE NORMAL
FLAGS "UR"
FLAGS "UZ"
GROUP 1
END
@ -113,7 +113,7 @@ BEGIN
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7]
//CHECKTYPE NORMAL
FLAGS "UR"
FLAGS "UZ"
GROUP 1
END
@ -208,7 +208,7 @@ BEGIN
OUTPUT ANNO CODTAB[1,4]
OUTPUT CODICE_LIBRO_IVA CODTAB[5,7]
//CHECKTYPE NORMAL
FLAGS "UR"
FLAGS "UZ"
GROUP 2
END

2
cg/cg4600a.uml
View File

@ -27,6 +27,7 @@ BEGIN
PROMPT 2 4 "Codice causale chiusura "
HELP "Codice causale che genera il movimento di chiusura"
USE LF_CAUSALI KEY 1
FLAGS "UZ"
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione @50" DESCR
OUTPUT F_CHIUSURA CODCAUS
@ -39,6 +40,7 @@ BEGIN
PROMPT 2 5 "Codice causale apertura "
HELP "Codice causale che genera il movimento di apertura"
COPY USE F_CHIUSURA
FLAGS "UZ"
COPY DISPLAY F_CHIUSURA
OUTPUT F_APERTURA CODCAUS
INPUT CODCAUS F_APERTURA

2
cg/cg5000a.uml
View File

@ -110,12 +110,14 @@ BEGIN
PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio "
HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio"
USE %IVA
FLAGS "U"
INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODAGV CODTAB
CHECKTYPE NORMAL
FIELD CodAgv
VALIDATE ZEROFILL_FUNC 2
END
GROUPBOX DLG_NULL 74 4

445
cg/cg5100a.uml
View File

@ -6,12 +6,12 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE
@ -22,109 +22,109 @@ PAGE "Impostazione parametri ditta" -1 -1 77 8
NUMBER FLD_ANLIIV 4
BEGIN
PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA "
HELP "Indicare l'anno dell'esercizio IVA corrente"
FIELD AnLiIv
PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA "
HELP "Indicare l'anno dell'esercizio IVA corrente"
FIELD AnLiIv
END
BOOLEAN CHK_ANCFCM
BEGIN
PROMPT 4 4 "Anagrafica clienti / anagrafica fornitori"
HELP "Indicare se gestire un'unica anagrafica clienti/fornitori"
FLAGS "D"
FIELD AnCfCm
PROMPT 4 4 "Anagrafica clienti / anagrafica fornitori"
HELP "Indicare se gestire un'unica anagrafica clienti/fornitori"
FLAGS "D"
FIELD AnCfCm
END
BOOLEAN CHK_PCTCCM
BEGIN
PROMPT 4 5 "Piano conti / tabella causali"
HELP "Indicare se gestire un'unico archivio piano dei conti/causali"
FLAGS "D"
FIELD PcTcCm
PROMPT 4 5 "Piano conti / tabella causali"
HELP "Indicare se gestire un'unico archivio piano dei conti/causali"
FLAGS "D"
FIELD PcTcCm
END
GROUPBOX DLG_NULL 53 4
BEGIN
PROMPT 2 3 "Archivi in comune"
PROMPT 2 3 "Archivi in comune"
END
RADIOBUTTON LST_RIFPAR 20
BEGIN
PROMPT 55 3 "Riferimenti partite "
HELP "Indicaer il criterio dei riferimenti delle partite"
ITEM " |N. protocollo"
ITEM "X|N. documento"
HELP ""
FIELD RifPar
PROMPT 55 3 "Riferimenti partite "
HELP "Indicaer il criterio dei riferimenti delle partite"
ITEM " |N. protocollo"
ITEM "X|N. documento"
HELP ""
FIELD RifPar
END
GROUPBOX DLG_NULL 76 11
BEGIN
PROMPT 2 7 ""
PROMPT 2 7 ""
END
BOOLEAN CHK_GSLBCN
BEGIN
PROMPT 4 8 "Gestione libro cronologico "
HELP "Indicare se attivare il libro cronologico della gestione per i professionisti"
FIELD GsLbCn
PROMPT 4 8 "Gestione libro cronologico "
HELP "Indicare se attivare il libro cronologico della gestione per i professionisti"
FIELD GsLbCn
END
BOOLEAN CHK_STTFFR
BEGIN
PROMPT 4 9 "Stampa totali fatture a fine registro "
HELP "Indicare se attivare il computo dei totali fatture a fine registro"
FIELD StTfFr
PROMPT 4 9 "Stampa totali fatture a fine registro "
HELP "Indicare se attivare il computo dei totali fatture a fine registro"
FIELD StTfFr
END
BOOLEAN CHK_STLGIU
BEGIN
PROMPT 4 10 "Stampa libro giornale e libro IVA unico "
HELP "Indicare se utilizzare un unico registro per libro giornale e libro IVA"
FIELD StLgiU
PROMPT 4 10 "Stampa libro giornale e libro IVA unico "
HELP "Indicare se utilizzare un unico registro per libro giornale e libro IVA"
FIELD StLgiU
END
BOOLEAN CHK_GESSAL
BEGIN
PROMPT 4 11 "Gestione saldaconto "
HELP "Indicare se attivare la gestione del saldaconto clienti/fornitori"
FIELD GesSal
PROMPT 4 11 "Gestione saldaconto "
HELP "Indicare se attivare la gestione del saldaconto clienti/fornitori"
FIELD GesSal
END
BOOLEAN CHK_NRCLIDX
BEGIN
PROMPT 4 12 "N. Rif. allineato a destra per clienti"
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
FIELD NrCliDx
PROMPT 4 12 "N. Rif. allineato a destra per clienti"
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
FIELD NrCliDx
END
BOOLEAN CHK_NRFORDX
BEGIN
PROMPT 4 13 "N. Rif. allineato a destra per fornitori"
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
FIELD NrForDx
PROMPT 4 13 "N. Rif. allineato a destra per fornitori"
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
FIELD NrForDx
END
BOOLEAN CHK_GESVAL
BEGIN
PROMPT 4 14 "Gestione Valuta"
HELP "Indicare se gestire i movimenti prima nota in valuta"
FIELD GesVal
PROMPT 4 14 "Gestione Valuta"
HELP "Indicare se gestire i movimenti prima nota in valuta"
FIELD GesVal
END
BOOLEAN CHK_GELIDI
BEGIN
PROMPT 4 15 "Gestione liquidazione differita"
HELP "Indicare se effettuare la liq. diff. ex DL 151 del 13-5-91 convertito da L. 202"
FIELD GeLiDi
PROMPT 4 15 "Gestione liquidazione differita"
HELP "Indicare se effettuare la liq. diff. ex DL 151 del 13-5-91 convertito da L. 202"
FIELD GeLiDi
END
BOOLEAN CHK_GESVEN
BEGIN
PROMPT 4 16 "Gestione vendite"
HELP "Indicare se e' attivata anche la gestione delle vendite"
FIELD GesVen
PROMPT 4 16 "Gestione vendite"
HELP "Indicare se e' attivata anche la gestione delle vendite"
FIELD GesVen
END
ENDPAGE
@ -134,223 +134,224 @@ PAGE "Impostazione parametri ditta" -1 -1 77 8
GROUPBOX DLG_NULL 78 12
BEGIN
PROMPT 1 7 "Codici sottoconto per chiusura automatica dei conti"
PROMPT 1 7 "Codici sottoconto per chiusura automatica dei conti"
END
STRING FLD_CODLIC 3
BEGIN
PROMPT 1 2 "Codice libro incassi/pagamenti "
PROMPT 1 2 "Codice libro incassi/pagamenti "
HELP "Indicare il codice del libro degli incassi/pagamenti"
USE %REG SELECT I0=5
INPUT CODTAB[1,4] FLD_ANLIIV SELECT
INPUT CODTAB[5,7] FLD_CODLIC
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODLIC CODTAB[5,7]
CHECKTYPE NORMAL
FIELD CodLic
USE REG SELECT I0=5
INPUT CODTAB[1,4] FLD_ANLIIV SELECT
INPUT CODTAB[5,7] FLD_CODLIC
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODLIC CODTAB[5,7]
CHECKTYPE NORMAL
FLAGS "UZ"
FIELD CodLic
END
STRING FLD_CODLIN 1
BEGIN
PROMPT 1 3 "Codice lingua "
HELP "Indicare la lingua utilizzata"
USE %LNG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODLIN CODTAB
INPUT CODTAB FLD_CODLIN
CHECKTYPE NORMAL
FIELD CodLin
PROMPT 1 3 "Codice lingua "
HELP "Indicare la lingua utilizzata"
USE %LNG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODLIN CODTAB
INPUT CODTAB FLD_CODLIN
CHECKTYPE NORMAL
FIELD CodLin
END
STRING FLD_COCACH 3
BEGIN
PROMPT 1 4 "Codice causale chiusura "
HELP "Codice della causale di chiusura che generera' il movimento"
USE LF_CAUSALI SELECT MOVAP="C"
INPUT CODCAUS FLD_COCACH
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_COCACH CODCAUS
OUTPUT FLD_DCOCACH DESCR
CHECKTYPE NORMAL
ADD RUN cg0 -4
FLAGS "U"
FIELD CoCaCh
PROMPT 1 4 "Codice causale chiusura "
HELP "Codice della causale di chiusura che generera' il movimento"
USE LF_CAUSALI SELECT MOVAP="C"
INPUT CODCAUS FLD_COCACH
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_COCACH CODCAUS
OUTPUT FLD_DCOCACH DESCR
CHECKTYPE NORMAL
ADD RUN cg0 -4
FLAGS "UZ"
FIELD CoCaCh
END
STRING FLD_DCOCACH 50 35
BEGIN
PROMPT 40 4 ""
HELP "Codice della causale di chiusura che generera' il movimento"
USE LF_CAUSALI KEY 2 SELECT MOVAP="C"
INPUT DESCR FLD_DCOCACH
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT FLD_COCACH
PROMPT 40 4 ""
HELP "Codice della causale di chiusura che generera' il movimento"
USE LF_CAUSALI KEY 2 SELECT MOVAP="C"
INPUT DESCR FLD_DCOCACH
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT FLD_COCACH
CHECKTYPE NORMAL
ADD RUN cg0 -4
ADD RUN cg0 -4
END
STRING FLD_COCAAP 3
BEGIN
PROMPT 1 5 "Codice causale apertura "
HELP "Codice della causale di apertura che generera' il movimento"
FLAGS "U"
USE LF_CAUSALI SELECT MOVAP="A"
INPUT CODCAUS FLD_COCAAP
COPY DISPLAY FLD_COCACH
OUTPUT FLD_COCAAP CODCAUS
OUTPUT FLD_DCOCAAP DESCR
ADD RUN cg0 -4
CHECKTYPE NORMAL
FIELD CoCaAp
PROMPT 1 5 "Codice causale apertura "
HELP "Codice della causale di apertura che generera' il movimento"
FLAGS "UZ"
USE LF_CAUSALI SELECT MOVAP="A"
INPUT CODCAUS FLD_COCAAP
COPY DISPLAY FLD_COCACH
OUTPUT FLD_COCAAP CODCAUS
OUTPUT FLD_DCOCAAP DESCR
ADD RUN cg0 -4
CHECKTYPE NORMAL
FIELD CoCaAp
END
STRING FLD_DCOCAAP 50 35
BEGIN
PROMPT 40 5 ""
HELP "Codice della causale di apertura che generera' il movimento"
USE LF_CAUSALI KEY 2 SELECT MOVAP="A"
INPUT DESCR FLD_DCOCAAP
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_COCAAP
PROMPT 40 5 ""
HELP "Codice della causale di apertura che generera' il movimento"
USE LF_CAUSALI KEY 2 SELECT MOVAP="A"
INPUT DESCR FLD_DCOCAAP
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_COCAAP
CHECKTYPE NORMAL
ADD RUN cg0 -4
ADD RUN cg0 -4
END
TEXT DLG_NULL
BEGIN
PROMPT 26 8 "Gruppo Conto Sottoconto"
PROMPT 26 8 "Gruppo Conto Sottoconto"
END
TEXT DLG_NULL
BEGIN
PROMPT 25 9 "________________________"
PROMPT 25 9 "________________________"
END
NUMBER FLD_CSBICHG 3
BEGIN
PROMPT 2 10 "Bilancio di chiusura "
HELP "Codice del conto di riepilogo del bilancio di chiusura"
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO FLD_CSBICHG
INPUT CONTO FLD_CSBICHC
INPUT SOTTOCONTO FLD_CSBICHS
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_CSBICHG GRUPPO
OUTPUT FLD_CSBICHC CONTO
OUTPUT FLD_CSBICHS SOTTOCONTO
OUTPUT FLD_DCSBICH DESCR
FIELD CsBiChG
ADD RUN cg0 -0
PROMPT 2 10 "Bilancio di chiusura "
HELP "Codice del conto di riepilogo del bilancio di chiusura"
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO FLD_CSBICHG
INPUT CONTO FLD_CSBICHC
INPUT SOTTOCONTO FLD_CSBICHS
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_CSBICHG GRUPPO
OUTPUT FLD_CSBICHC CONTO
OUTPUT FLD_CSBICHS SOTTOCONTO
OUTPUT FLD_DCSBICH DESCR
FIELD CsBiChG
ADD RUN cg0 -0
END
NUMBER FLD_CSBICHC 3
BEGIN
PROMPT 33 10 ""
HELP "Codice del conto di riepilogo del bilancio di chiusura"
COPY ALL FLD_CSBICHG
FIELD CsBiChC
ADD RUN cg0 -0
PROMPT 33 10 ""
HELP "Codice del conto di riepilogo del bilancio di chiusura"
COPY ALL FLD_CSBICHG
FIELD CsBiChC
ADD RUN cg0 -0
END
NUMBER FLD_CSBICHS 6
BEGIN
PROMPT 40 10 ""
HELP "Codice del conto di riepilogo del bilancio di chiusura"
COPY USE FLD_CSBICHG
COPY INPUT FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSBICHG GRUPPO
OUTPUT FLD_CSBICHC CONTO
OUTPUT FLD_CSBICHS SOTTOCONTO
OUTPUT FLD_DCSBICH DESCR
CHECKTYPE NORMAL
FIELD CsBiChS
ADD RUN cg0 -0
PROMPT 40 10 ""
HELP "Codice del conto di riepilogo del bilancio di chiusura"
COPY USE FLD_CSBICHG
COPY INPUT FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSBICHG GRUPPO
OUTPUT FLD_CSBICHC CONTO
OUTPUT FLD_CSBICHS SOTTOCONTO
OUTPUT FLD_DCSBICH DESCR
CHECKTYPE NORMAL
FIELD CsBiChS
ADD RUN cg0 -0
END
STRING FLD_DCSBICH 50 25
BEGIN
PROMPT 50 10 ""
HELP "Codice del conto di riepilogo del bilancio di chiusura"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR FLD_DCSBICH
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT FLD_CSBICHG
ADD RUN cg0 -0
PROMPT 50 10 ""
HELP "Codice del conto di riepilogo del bilancio di chiusura"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR FLD_DCSBICH
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT FLD_CSBICHG
ADD RUN cg0 -0
END
STRING FLD_CSPRPEG 3
BEGIN
PROMPT 2 11 "Profitti e perdite "
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPRPEG GRUPPO
OUTPUT FLD_CSPRPEC CONTO
OUTPUT FLD_CSPRPES SOTTOCONTO
OUTPUT FLD_DCSPRPE DESCR
INPUT GRUPPO FLD_CSPRPEG
INPUT CONTO FLD_CSPRPEC
INPUT SOTTOCONTO FLD_CSPRPES
FIELD CsPrPeG
ADD RUN cg0 -0
PROMPT 2 11 "Profitti e perdite "
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPRPEG GRUPPO
OUTPUT FLD_CSPRPEC CONTO
OUTPUT FLD_CSPRPES SOTTOCONTO
OUTPUT FLD_DCSPRPE DESCR
INPUT GRUPPO FLD_CSPRPEG
INPUT CONTO FLD_CSPRPEC
INPUT SOTTOCONTO FLD_CSPRPES
FIELD CsPrPeG
ADD RUN cg0 -0
END
NUMBER FLD_CSPRPEC 3
BEGIN
PROMPT 33 11 ""
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY ALL FLD_CSPRPEG
FIELD CsPrPeC
ADD RUN cg0 -0
PROMPT 33 11 ""
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY ALL FLD_CSPRPEG
FIELD CsPrPeC
ADD RUN cg0 -0
END
NUMBER FLD_CSPRPES 6
BEGIN
PROMPT 40 11 ""
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY USE FLD_CSPRPEG
COPY INPUT FLD_CSPRPEG
COPY DISPLAY FLD_CSPRPEG
OUTPUT FLD_CSPRPEG GRUPPO
OUTPUT FLD_CSPRPEC CONTO
OUTPUT FLD_CSPRPES SOTTOCONTO
OUTPUT FLD_DCSPRPE DESCR
CHECKTYPE NORMAL
FIELD CsPrPeS
ADD RUN cg0 -0
PROMPT 40 11 ""
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY USE FLD_CSPRPEG
COPY INPUT FLD_CSPRPEG
COPY DISPLAY FLD_CSPRPEG
OUTPUT FLD_CSPRPEG GRUPPO
OUTPUT FLD_CSPRPEC CONTO
OUTPUT FLD_CSPRPES SOTTOCONTO
OUTPUT FLD_DCSPRPE DESCR
CHECKTYPE NORMAL
FIELD CsPrPeS
ADD RUN cg0 -0
END
STRING FLD_DCSPRPE 50 25
BEGIN
PROMPT 50 11 ""
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSPRPE
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSPRPEG
ADD RUN cg0 -0
PROMPT 50 11 ""
HELP "Codice del conto di riepilogo del profitti e perdite"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSPRPE
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSPRPEG
ADD RUN cg0 -0
END
NUMBER FLD_CSBIAPG 3
BEGIN
PROMPT 2 12 "Bilancio di apertura "
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSBIAPG GRUPPO
PROMPT 2 12 "Bilancio di apertura "
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSBIAPG GRUPPO
OUTPUT FLD_CSBIAPC CONTO
OUTPUT FLD_CSBIAPS SOTTOCONTO
OUTPUT FLD_DCSBIAP DESCR
@ -365,7 +366,7 @@ END
NUMBER FLD_CSBIAPC 3
BEGIN
PROMPT 33 12 ""
HELP "Codice del conto di riepilogo del bilancio di apertura"
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY ALL FLD_CSBIAPG
FIELD CsBiApC
ADD RUN cg0 -0
@ -374,7 +375,7 @@ END
NUMBER FLD_CSBIAPS 6
BEGIN
PROMPT 40 12 ""
HELP "Codice del conto di riepilogo del bilancio di apertura"
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY USE FLD_CSBIAPG
COPY INPUT FLD_CSBIAPG
COPY DISPLAY FLD_CSBIAPG
@ -390,7 +391,7 @@ END
STRING FLD_DCSBIAP 50 25
BEGIN
PROMPT 50 12 ""
HELP "Codice del conto di riepilogo del bilancio di apertura"
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSBIAP
COPY DISPLAY FLD_DCSBICH
@ -402,7 +403,7 @@ END
NUMBER FLD_CSUECPG 3
BEGIN
PROMPT 2 13 "Utile esercizio patrim. "
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSUECPG GRUPPO
@ -418,7 +419,7 @@ END
NUMBER FLD_CSUECPC 3
BEGIN
PROMPT 33 13 ""
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY ALL FLD_CSUECPG
FIELD CsUeCpC
ADD RUN cg0 -0
@ -426,7 +427,7 @@ END
NUMBER FLD_CSUECPS 6
BEGIN
PROMPT 40 13 ""
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY USE FLD_CSUECPG
COPY INPUT FLD_CSUECPG
COPY DISPLAY FLD_CSUECPG
@ -442,7 +443,7 @@ END
STRING FLD_DCSUECP 50 25
BEGIN
PROMPT 50 13 ""
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSUECP
COPY DISPLAY FLD_DCSBICH
@ -453,7 +454,7 @@ END
NUMBER FLD_CSPECPG 3
BEGIN
PROMPT 2 14 "Perdita eserc. patrim. "
HELP "Codice del conto patrimoniale della perdita d'esercizio"
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPECPG GRUPPO
@ -470,7 +471,7 @@ END
NUMBER FLD_CSPECPC 3
BEGIN
PROMPT 33 14 ""
HELP "Codice del conto patrimoniale della perdita d'esercizio"
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY ALL FLD_CSPECPG
FIELD CsPeCpC
ADD RUN cg0 -0
@ -479,7 +480,7 @@ END
NUMBER FLD_CSPECPS 6
BEGIN
PROMPT 40 14 ""
HELP "Codice del conto patrimoniale della perdita d'esercizio"
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY USE FLD_CSPECPG
COPY INPUT FLD_CSPECPG
COPY DISPLAY FLD_CSPECPG
@ -495,7 +496,7 @@ END
STRING FLD_DCSPECP 50 25
BEGIN
PROMPT 50 14 ""
HELP "Codice del conto patrimoniale della perdita d'esercizio"
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSPECP
COPY DISPLAY FLD_DCSBICH
@ -506,7 +507,7 @@ END
NUMBER FLD_CSUECEG 3
BEGIN
PROMPT 2 15 "Utile esercizio econ. "
HELP "Codice del conto economico dell'utile d'esercizio"
HELP "Codice del conto economico dell'utile d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSUECEG GRUPPO
@ -522,7 +523,7 @@ END
NUMBER FLD_CSUECEC 3
BEGIN
PROMPT 33 15 ""
HELP "Codice del conto economico dell'utile d'esercizio"
HELP "Codice del conto economico dell'utile d'esercizio"
COPY ALL FLD_CSUECEG
FIELD CsUeCeC
ADD RUN cg0 -0
@ -530,7 +531,7 @@ END
NUMBER FLD_CSUECES 6
BEGIN
PROMPT 40 15 ""
HELP "Codice del conto economico dell'utile d'esercizio"
HELP "Codice del conto economico dell'utile d'esercizio"
COPY USE FLD_CSUECEG
COPY INPUT FLD_CSUECEG
COPY DISPLAY FLD_CSUECEG
@ -546,7 +547,7 @@ END
STRING FLD_DCSUECE 50 25
BEGIN
PROMPT 50 15 ""
HELP "Codice del conto economico dell'utile d'esercizio"
HELP "Codice del conto economico dell'utile d'esercizio"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSUECE
COPY DISPLAY FLD_DCSBICH
@ -557,7 +558,7 @@ END
NUMBER FLD_CSPECEG 3
BEGIN
PROMPT 2 16 "Perdita eserc. econ. "
HELP "Codice del conto economico della perdita d'esercizio"
HELP "Codice del conto economico della perdita d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPECEG GRUPPO
@ -573,7 +574,7 @@ END
NUMBER FLD_CSPECEC 3
BEGIN
PROMPT 33 16 ""
HELP "Codice del conto economico della perdita d'esercizio"
HELP "Codice del conto economico della perdita d'esercizio"
COPY ALL FLD_CSPECEG
FIELD CsPeCeC
ADD RUN cg0 -0
@ -581,7 +582,7 @@ END
NUMBER FLD_CSPECES 6
BEGIN
PROMPT 40 16 ""
HELP "Codice del conto economico della perdita d'esercizio"
HELP "Codice del conto economico della perdita d'esercizio"
COPY USE FLD_CSPECEG
COPY INPUT FLD_CSPECEG
COPY DISPLAY FLD_CSPECEG
@ -596,7 +597,7 @@ END
STRING FLD_DCSPECE 50 25
BEGIN
PROMPT 50 16 ""
HELP "Codice del conto economico della perdita d'esercizio"
HELP "Codice del conto economico della perdita d'esercizio"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR FLD_DCSPECE
COPY DISPLAY FLD_DCSBICH
@ -619,7 +620,7 @@ END
RADIOBUTTON LST_RRFRAM 16
BEGIN
PROMPT 3 2 ""
HELP "Frequenza del calcolo dei ratei e risconti"
HELP "Frequenza del calcolo dei ratei e risconti"
ITEM "A|Freq. Annuale"
ITEM "M|Freq. Mensile"
FIELD RrFrAm
@ -628,20 +629,20 @@ END
BOOLEAN CHK_RRMECO
BEGIN
PROMPT 26 3 "Mese Commerciale"
HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
FIELD RrMeCo
END
STRING FLD_RRCCRA 3
BEGIN
PROMPT 3 6 "Causale ratei "
HELP "Codice causale dei ratei per movimento di contabilita'"
FLAGS "U"
HELP "Codice causale dei ratei per movimento di contabilita'"
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS FLD_RRCCRA
COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRA CODCAUS
OUTPUT FLD_DRRCCRA DESCR
OUTPUT FLD_DRRCCRA DESCR
CHECKTYPE NORMAL
ADD RUN cg0 -4
FIELD RrCcRa
@ -650,7 +651,7 @@ END
STRING FLD_DRRCCRA 50 48
BEGIN
PROMPT 26 6 ""
HELP "Descrizione causale dei ratei per movimento di contabilita'"
HELP "Descrizione causale dei ratei per movimento di contabilita'"
USE LF_CAUSALI KEY 2
INPUT DESCR FLD_DRRCCRA
COPY DISPLAY FLD_DCOCACH
@ -662,13 +663,13 @@ END
STRING FLD_RRCCRI 3
BEGIN
PROMPT 3 8 "Causale risconti "
HELP "Codice causale dei risconti per movimento di contabilita'"
FLAGS "U"
HELP "Codice causale dei risconti per movimento di contabilita'"
FLAGS "UZ"
COPY USE FLD_RRCCRA
INPUT CODCAUS FLD_RRCCRI
COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRI CODCAUS
OUTPUT FLD_DRRCCRI DESCR
OUTPUT FLD_DRRCCRI DESCR
CHECKTYPE NORMAL
ADD RUN cg0 -4
FIELD RrCcRi
@ -677,7 +678,7 @@ END
STRING FLD_DRRCCRI 50 48
BEGIN
PROMPT 26 8 ""
HELP "Descrizione causale dei risconti per movimento di contabilita'"
HELP "Descrizione causale dei risconti per movimento di contabilita'"
USE LF_CAUSALI KEY 2
INPUT DESCR FLD_DRRCCRI
COPY DISPLAY FLD_DCOCACH

2
cg/cg5400a.uml
View File

@ -33,7 +33,7 @@ END
STRING F_REG 3
BEGIN
PROMPT 4 3 "Registro "
FLAGS "U"
FLAGS "UZ"
USE REG SELECT I0<6
INPUT CODTAB[1,4] F_YEAR
INPUT CODTAB[5,7] F_REG