0c81874e86
Files correlati : cg2.exe cg2100b.msk cg2100c.msk cg5100a.msk Ricompilazione Demo : [ ] Commento : Implementazione semplificata di ratei e risconti in prima nota con conti configurabili nei parametri ditta git-svn-id: svn://10.65.10.50/branches/R_10_00@21005 c028cbd2-c16b-5b4b-a496-9718f37d4682
982 lines
22 KiB
Plaintext
Executable File
982 lines
22 KiB
Plaintext
Executable File
#include "cg5100a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
/* page1 */
|
|
|
|
PAGE "Parametri ditta" 0 0 0 2
|
|
|
|
NUMBER FLD_ANLIIV 4
|
|
BEGIN
|
|
PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA "
|
|
HELP "Indicare l'anno dell'esercizio IVA corrente"
|
|
FIELD AnLiIv
|
|
VALIDATE FIXLEN_FUNC 4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 2 2 "@bArchivi in comune"
|
|
END
|
|
|
|
BOOLEAN CHK_ANCFCM
|
|
BEGIN
|
|
PROMPT 4 3 "Anagrafica clienti / anagrafica fornitori"
|
|
HELP "Indicare se gestire un'unica anagrafica clienti/fornitori"
|
|
FLAGS "D"
|
|
FIELD AnCfCm
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_PCTCCM
|
|
BEGIN
|
|
PROMPT 4 4 "Piano conti / tabella causali"
|
|
HELP "Indicare se gestire un'unico archivio piano dei conti/causali"
|
|
FLAGS "D"
|
|
FIELD PcTcCm
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 2 6 "@bParametri contabilita'"
|
|
END
|
|
|
|
BOOLEAN CHK_GSLBCN
|
|
BEGIN
|
|
PROMPT 4 7 "Gestione libro cronologico "
|
|
HELP "Indicare se attivare il libro cronologico della gestione per i professionisti"
|
|
FIELD GsLbCn
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_STTFFR
|
|
BEGIN
|
|
PROMPT 4 8 "Stampa totali fatture a fine registro "
|
|
HELP "Indicare se attivare il computo dei totali fatture a fine registro"
|
|
FIELD StTfFr
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_STLGIU
|
|
BEGIN
|
|
PROMPT 4 9 "Stampa libro giornale e libro IVA unico "
|
|
HELP "Indicare se utilizzare un unico registro per libro giornale e libro IVA"
|
|
FIELD StLgiU
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_GESVEN
|
|
BEGIN
|
|
PROMPT 4 10 "Gestione vendite"
|
|
HELP "Indicare se e' attivata anche la gestione delle vendite"
|
|
FIELD GesVen
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_LIQDIF
|
|
BEGIN
|
|
PROMPT 40 7 "Gestione liquidazione differita"
|
|
HELP "Indicare se e' attivata anche la gestione della liquidazione differita delle fatture"
|
|
FIELD GesLiqDiff
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 7
|
|
BEGIN
|
|
PROMPT 2 12 "@bParametri saldaconto"
|
|
END
|
|
|
|
BOOLEAN CHK_GESSAL
|
|
BEGIN
|
|
PROMPT 4 13 "Gestione saldaconto "
|
|
MESSAGE TRUE ENABLE,CHK_GESVAL|ENABLE,CHK_NRCLIDX|ENABLE,CHK_NRFORDX
|
|
MESSAGE TRUE ENABLE,CHK_DTCFPG|ENABLE,CHK_RIFPRO|ENABLE,FLD_CODLIN
|
|
MESSAGE TRUE ENABLE,FLD_NUM_EC|ENABLE,FLD_LAST_EC
|
|
MESSAGE FALSE DISABLE,CHK_GESVAL|DISABLE,CHK_NRCLIDX|DISABLE,CHK_NRFORDX
|
|
MESSAGE FALSE DISABLE,CHK_DTCFPG|DISABLE,CHK_RIFPRO|DISABLE,FLD_CODLIN
|
|
MESSAGE FALSE DISABLE,FLD_NUM_EC|DISABLE,FLD_LAST_EC
|
|
FIELD GesSal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
DATE FLD_DATSAL
|
|
BEGIN
|
|
PROMPT 35 13 "Data attivazione saldaconto "
|
|
FIELD DatSal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_GESVAL
|
|
BEGIN
|
|
PROMPT 4 14 "Gestione Valuta"
|
|
HELP "Indicare se gestire i movimenti prima nota in valuta"
|
|
FIELD GesVal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_NRCLIDX
|
|
BEGIN
|
|
PROMPT 4 15 "N. Rif. allineato a destra per clienti"
|
|
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
|
|
FIELD NrCliDx
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_NRFORDX
|
|
BEGIN
|
|
PROMPT 48 15 "e per fornitori"
|
|
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
|
|
FIELD NrForDx
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_RIFPRO
|
|
BEGIN
|
|
PROMPT 4 16 "Riferimento partita con numero protocollo"
|
|
HELP "Indicare se si desidera il numero protocollo IVA anziche' il numero documento come riferimento partita"
|
|
FIELD RifPro
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
STRING FLD_CODLIN 1
|
|
BEGIN
|
|
PROMPT 50 16 "Codice lingua "
|
|
HELP "Lingua di riferimento per rendiconti contabili"
|
|
FIELD CodLin
|
|
USE %LNG
|
|
INPUT CODTAB FLD_CODLIN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_CODLIN CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
LIST FLD_NUM_EC 1 10
|
|
BEGIN
|
|
PROMPT 4 17 "Numerazione estratti conto "
|
|
ITEM " |Nessuna" MESSAGE HIDE,FLD_LAST_EC
|
|
ITEM "G|Globale" MESSAGE SHOW,FLD_LAST_EC
|
|
ITEM "A|Anagrafica" MESSAGE HIDE,FLD_LAST_EC
|
|
FIELD NumEC
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
NUMBER FLD_LAST_EC 6
|
|
BEGIN
|
|
PROMPT 50 17 "Ultimo E.C. "
|
|
FIELD LastEC
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_DTCFPG
|
|
BEGIN
|
|
PROMPT 4 18 "Dettaglio riga C/F sui pagamenti"
|
|
HELP "Indicare se si desidera il dettaglio riga clienti/fornitori in gestione pagamenti"
|
|
FIELD DtCfPg
|
|
GROUP GROUP_SALDACONTO
|
|
FLAGS "H" // Per ora Vladimiro non lo vuole
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Chiusura/Apertura" -1 -1 77 8
|
|
|
|
STRING FLD_CODLIC 3
|
|
BEGIN
|
|
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]
|
|
OUTPUT FLD_DESLIC S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UZ"
|
|
FIELD CodLic
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DESLIC 50 35
|
|
BEGIN
|
|
PROMPT 40 2 ""
|
|
USE REG KEY 2 SELECT I0=5
|
|
INPUT S0 FLD_DESLIC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
|
COPY OUTPUT FLD_CODLIC
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
//STRING FLD_CODLIN 1
|
|
//BEGIN
|
|
// PROMPT 1 3 "Codice lingua "
|
|
// HELP "Lingua utilizzata"
|
|
// USE %LNG
|
|
// INPUT CODTAB FLD_CODLIN
|
|
// DISPLAY "Codice" CODTAB
|
|
// DISPLAY "Descrizione@50" S0
|
|
// OUTPUT FLD_CODLIN CODTAB
|
|
// OUTPUT FLD_DESLIN S0
|
|
// CHECKTYPE NORMAL
|
|
// FIELD CodLin
|
|
// END
|
|
|
|
// STRING FLD_DESLIN 50 35
|
|
//BEGIN
|
|
// PROMPT 40 3 ""
|
|
// HELP "Lingua utilizzata"
|
|
// USE %LNG KEY 2
|
|
// INPUT S0 FLD_DESLIN
|
|
// DISPLAY "Descrizione@50" S0
|
|
// DISPLAY "Codice" CODTAB
|
|
// COPY OUTPUT FLD_CODLIN
|
|
// CHECKTYPE NORMAL
|
|
//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 "UZ"
|
|
FIELD CoCaCh
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_COCAAP 3
|
|
BEGIN
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 11
|
|
BEGIN
|
|
PROMPT 1 8 "@bCodici sottoconto per chiusura automatica dei conti"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 26 9 "Gruppo Conto Sottoconto"
|
|
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!="")&&(100@->INDBIL=="5")
|
|
JOIN LF_PCON ALIAS 100 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER 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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
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
|
|
OUTPUT FLD_CSBIAPC CONTO
|
|
OUTPUT FLD_CSBIAPS SOTTOCONTO
|
|
OUTPUT FLD_DCSBIAP DESCR
|
|
INPUT GRUPPO FLD_CSBIAPG
|
|
INPUT CONTO FLD_CSBIAPC
|
|
INPUT SOTTOCONTO FLD_CSBIAPS
|
|
HELP ""
|
|
FIELD CsBiApG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSBIAPC 3
|
|
BEGIN
|
|
PROMPT 33 12 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di apertura"
|
|
COPY ALL FLD_CSBIAPG
|
|
FIELD CsBiApC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSBIAPS 6
|
|
BEGIN
|
|
PROMPT 40 12 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di apertura"
|
|
COPY USE FLD_CSBIAPG
|
|
COPY INPUT FLD_CSBIAPG
|
|
COPY DISPLAY FLD_CSBIAPG
|
|
OUTPUT FLD_CSBIAPG GRUPPO
|
|
OUTPUT FLD_CSBIAPC CONTO
|
|
OUTPUT FLD_CSBIAPS SOTTOCONTO
|
|
OUTPUT FLD_DCSBIAP DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsBiApS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSBIAP 50 25
|
|
BEGIN
|
|
PROMPT 50 12 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di apertura"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSBIAP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSBIAPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
NUMBER FLD_CSUECPG 3
|
|
BEGIN
|
|
PROMPT 2 13 "Utile esercizio patrim. "
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")&&(100@->INDBIL<="2")
|
|
JOIN LF_PCON ALIAS 100 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
COPY DISPLAY FLD_CSBICHG
|
|
OUTPUT FLD_CSUECPG GRUPPO
|
|
OUTPUT FLD_CSUECPC CONTO
|
|
OUTPUT FLD_CSUECPS SOTTOCONTO
|
|
OUTPUT FLD_DCSUECP DESCR
|
|
INPUT GRUPPO FLD_CSUECPG
|
|
INPUT CONTO FLD_CSUECPC
|
|
INPUT SOTTOCONTO FLD_CSUECPS
|
|
FIELD CsUeCpG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECPC 3
|
|
BEGIN
|
|
PROMPT 33 13 ""
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
COPY ALL FLD_CSUECPG
|
|
FIELD CsUeCpC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECPS 6
|
|
BEGIN
|
|
PROMPT 40 13 ""
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
COPY USE FLD_CSUECPG
|
|
COPY INPUT FLD_CSUECPG
|
|
COPY DISPLAY FLD_CSUECPG
|
|
OUTPUT FLD_CSUECPG GRUPPO
|
|
OUTPUT FLD_CSUECPC CONTO
|
|
OUTPUT FLD_CSUECPS SOTTOCONTO
|
|
OUTPUT FLD_DCSUECP DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsUeCpS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSUECP 50 25
|
|
BEGIN
|
|
PROMPT 50 13 ""
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSUECP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSUECPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECPG 3
|
|
BEGIN
|
|
PROMPT 2 14 "Perdita eserc. patrim. "
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY USE FLD_CSUECPG
|
|
COPY DISPLAY FLD_CSUECPG
|
|
OUTPUT FLD_CSPECPG GRUPPO
|
|
OUTPUT FLD_CSPECPC CONTO
|
|
OUTPUT FLD_CSPECPS SOTTOCONTO
|
|
OUTPUT FLD_DCSPECP DESCR
|
|
INPUT GRUPPO FLD_CSPECPG
|
|
INPUT CONTO FLD_CSPECPC
|
|
INPUT SOTTOCONTO FLD_CSPECPS
|
|
FIELD CsPeCpG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECPC 3
|
|
BEGIN
|
|
PROMPT 33 14 ""
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY ALL FLD_CSPECPG
|
|
FIELD CsPeCpC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECPS 6
|
|
BEGIN
|
|
PROMPT 40 14 ""
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY USE FLD_CSPECPG
|
|
COPY INPUT FLD_CSPECPG
|
|
COPY DISPLAY FLD_CSPECPG
|
|
OUTPUT FLD_CSPECPG GRUPPO
|
|
OUTPUT FLD_CSPECPC CONTO
|
|
OUTPUT FLD_CSPECPS SOTTOCONTO
|
|
OUTPUT FLD_DCSPECP DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsPeCpS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSPECP 50 25
|
|
BEGIN
|
|
PROMPT 50 14 ""
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSPECP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPECPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSUECEG 3
|
|
BEGIN
|
|
PROMPT 2 15 "Utile esercizio econ. "
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")&&((100@->INDBIL=="3")||(100@->INDBIL=="4"))
|
|
JOIN LF_PCON ALIAS 100 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
COPY DISPLAY FLD_CSBICHG
|
|
OUTPUT FLD_CSUECEG GRUPPO
|
|
OUTPUT FLD_CSUECEC CONTO
|
|
OUTPUT FLD_CSUECES SOTTOCONTO
|
|
OUTPUT FLD_DCSUECE DESCR
|
|
INPUT GRUPPO FLD_CSUECEG
|
|
INPUT CONTO FLD_CSUECEC
|
|
INPUT SOTTOCONTO FLD_CSUECES
|
|
FIELD CsUeCeG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECEC 3
|
|
BEGIN
|
|
PROMPT 33 15 ""
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
COPY ALL FLD_CSUECEG
|
|
FIELD CsUeCeC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECES 6
|
|
BEGIN
|
|
PROMPT 40 15 ""
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
COPY USE FLD_CSUECEG
|
|
COPY INPUT FLD_CSUECEG
|
|
COPY DISPLAY FLD_CSUECEG
|
|
OUTPUT FLD_CSUECEG GRUPPO
|
|
OUTPUT FLD_CSUECEC CONTO
|
|
OUTPUT FLD_CSUECES SOTTOCONTO
|
|
OUTPUT FLD_DCSUECE DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsUeCeS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSUECE 50 25
|
|
BEGIN
|
|
PROMPT 50 15 ""
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSUECE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSUECEG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECEG 3
|
|
BEGIN
|
|
PROMPT 2 16 "Perdita eserc. econ. "
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
COPY USE FLD_CSUECEG
|
|
COPY DISPLAY FLD_CSUECEG
|
|
OUTPUT FLD_CSPECEG GRUPPO
|
|
OUTPUT FLD_CSPECEC CONTO
|
|
OUTPUT FLD_CSPECES SOTTOCONTO
|
|
OUTPUT FLD_DCSPECE DESCR
|
|
INPUT GRUPPO FLD_CSPECEG
|
|
INPUT CONTO FLD_CSPECEC
|
|
INPUT SOTTOCONTO FLD_CSPECES
|
|
FIELD CsPeCeG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSPECEC 3
|
|
BEGIN
|
|
PROMPT 33 16 ""
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
COPY ALL FLD_CSPECEG
|
|
FIELD CsPeCeC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSPECES 6
|
|
BEGIN
|
|
PROMPT 40 16 ""
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
COPY USE FLD_CSPECEG
|
|
COPY INPUT FLD_CSPECEG
|
|
COPY DISPLAY FLD_CSPECEG
|
|
OUTPUT FLD_CSPECEG GRUPPO
|
|
OUTPUT FLD_CSPECEC CONTO
|
|
OUTPUT FLD_CSPECES SOTTOCONTO
|
|
OUTPUT FLD_DCSPECE DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsPeCeS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
STRING FLD_DCSPECE 50 25
|
|
BEGIN
|
|
PROMPT 50 16 ""
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
INPUT DESCR FLD_DCSPECE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPECEG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSAUCPG 3
|
|
BEGIN
|
|
PROMPT 2 17 "Accantonamento utili "
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
OUTPUT FLD_CSAUCPG GRUPPO
|
|
OUTPUT FLD_CSAUCPC CONTO
|
|
OUTPUT FLD_CSAUCPS SOTTOCONTO
|
|
OUTPUT FLD_DCSAUCP DESCR
|
|
INPUT GRUPPO FLD_CSAUCPG
|
|
INPUT CONTO FLD_CSAUCPC
|
|
INPUT SOTTOCONTO FLD_CSAUCPS
|
|
FIELD CsAuCpG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSAUCPC 3
|
|
BEGIN
|
|
PROMPT 33 17 ""
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY ALL FLD_CSAUCPG
|
|
FIELD CsAuCpC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSAUCPS 6
|
|
BEGIN
|
|
PROMPT 40 17 ""
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY USE FLD_CSAUCPG
|
|
COPY INPUT FLD_CSAUCPG
|
|
COPY DISPLAY FLD_CSAUCPG
|
|
OUTPUT FLD_CSAUCPG GRUPPO
|
|
OUTPUT FLD_CSAUCPC CONTO
|
|
OUTPUT FLD_CSAUCPS SOTTOCONTO
|
|
OUTPUT FLD_DCSAUCP DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsAuCpS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSAUCP 50 25
|
|
BEGIN
|
|
PROMPT 50 17 ""
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSAUCP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSAUCPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ratei/Risconti" -1 -1 77 8
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bFrequenza"
|
|
END
|
|
|
|
RADIOBUTTON LST_RRFRAM 20
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
HELP "Frequenza del calcolo dei ratei e risconti"
|
|
ITEM "A|Freq. Annuale"
|
|
ITEM "M|Freq. Mensile"
|
|
FIELD RrFrAm
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_RRMECO
|
|
BEGIN
|
|
PROMPT 26 3 "Mese Commerciale"
|
|
HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
|
|
FIELD RrMeCo
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 6 "@bRatei"
|
|
END
|
|
|
|
STRING FLD_RRCCRA 3
|
|
BEGIN
|
|
PROMPT 2 7 "Causale "
|
|
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
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
FIELD RrCcRa
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DRRCCRA 50 52
|
|
BEGIN
|
|
PROMPT 22 7 ""
|
|
HELP "Descrizione causale dei ratei per movimento di contabilita'"
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR FLD_DRRCCRA
|
|
COPY DISPLAY FLD_DCOCACH
|
|
COPY OUTPUT FLD_RRCCRA
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_RATEI_G 3
|
|
BEGIN
|
|
PROMPT 2 8 "Conto "
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RateiG
|
|
END
|
|
|
|
NUMBER FLD_RATEI_C 3
|
|
BEGIN
|
|
PROMPT 14 8 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF="")&&((INDBIL="1")||(INDBIL="2"))
|
|
INPUT GRUPPO FLD_RATEI_G
|
|
INPUT CONTO FLD_RATEI_C
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Indicatore" INDBIL
|
|
OUTPUT FLD_RATEI_G GRUPPO
|
|
OUTPUT FLD_RATEI_C CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RateiC
|
|
END
|
|
|
|
NUMBER FLD_RATEI_S 6
|
|
BEGIN
|
|
PROMPT 22 8 ""
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")
|
|
INPUT GRUPPO FLD_RATEI_G SELECT
|
|
INPUT CONTO FLD_RATEI_C SELECT
|
|
INPUT SOTTOCONTO FLD_RATEI_S
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FLD_RATEI_S SOTTOCONTO
|
|
OUTPUT FLD_RATEI_D DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RateiS
|
|
END
|
|
|
|
STRING FLD_RATEI_D 50 40
|
|
BEGIN
|
|
PROMPT 34 8 ""
|
|
USE LF_PCON KEY 2 SELECT (GRUPPO=#FLD_RATEI_G)&&(CONTO=#FLD_RATEI_C)&&(SOTTOCONTO!="")
|
|
INPUT DESCR FLD_RATEI_D
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT FLD_RATEI_S
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 11 "@bRisconti"
|
|
END
|
|
|
|
STRING FLD_RRCCRI 3
|
|
BEGIN
|
|
PROMPT 2 12 "Causale "
|
|
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
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
FIELD RrCcRi
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DRRCCRI 50 52
|
|
BEGIN
|
|
PROMPT 22 12 ""
|
|
HELP "Descrizione causale dei risconti per movimento di contabilita'"
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR FLD_DRRCCRI
|
|
COPY DISPLAY FLD_DCOCACH
|
|
COPY OUTPUT FLD_RRCCRI
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_RISCO_G 3
|
|
BEGIN
|
|
PROMPT 2 13 "Conto "
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RiscontiG
|
|
END
|
|
|
|
NUMBER FLD_RISCO_C 3
|
|
BEGIN
|
|
PROMPT 14 13 ""
|
|
COPY USE FLD_RATEI_C
|
|
INPUT GRUPPO FLD_RISCO_G
|
|
INPUT CONTO FLD_RISCO_C
|
|
COPY DISPLAY FLD_RATEI_C
|
|
OUTPUT FLD_RISCO_G GRUPPO
|
|
OUTPUT FLD_RISCO_C CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RiscontiC
|
|
END
|
|
|
|
NUMBER FLD_RISCO_S 6
|
|
BEGIN
|
|
PROMPT 22 13 ""
|
|
COPY USE FLD_RATEI_S
|
|
INPUT GRUPPO FLD_RISCO_G SELECT
|
|
INPUT CONTO FLD_RISCO_C SELECT
|
|
INPUT SOTTOCONTO FLD_RISCO_S
|
|
COPY DISPLAY FLD_RATEI_S
|
|
OUTPUT FLD_RISCO_S SOTTOCONTO
|
|
OUTPUT FLD_RISCO_D DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RiscontiS
|
|
END
|
|
|
|
STRING FLD_RISCO_D 50 40
|
|
BEGIN
|
|
PROMPT 34 13 ""
|
|
USE LF_PCON KEY 2 SELECT (GRUPPO=#FLD_RISCO_G)&&(CONTO=#FLD_RISCO_C)&&(SOTTOCONTO!="")
|
|
INPUT DESCR FLD_RISCO_D
|
|
COPY DISPLAY FLD_RATEI_D
|
|
COPY OUTPUT FLD_RISCO_S
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|