campo-sirio/cg/cg5100a.uml
guy 30a22ff010 Patch level : 10.0
Files correlati     : cg5100a.msk
Ricompilazione Demo : [ ]
Commento            :
Rimodernata maschera parametri liquidazione


git-svn-id: svn://10.65.10.50/trunk@18378 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-02-27 12:25:32 +00:00

817 lines
18 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
GROUPBOX DLG_NULL 78 12
BEGIN
PROMPT 1 7 "@bCodici sottoconto per chiusura automatica dei conti"
END
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
TEXT DLG_NULL
BEGIN
PROMPT 26 8 "Gruppo Conto Sottoconto"
END
TEXT DLG_NULL
BEGIN
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
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"
COPY USE FLD_CSBICHG
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_CSBICHG
COPY DISPLAY FLD_CSBICHG
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"
COPY USE FLD_CSBICHG
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_CSBICHG
COPY DISPLAY FLD_CSBICHG
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
ENDPAGE
PAGE "Ratei/Risconti" -1 -1 77 8
GROUPBOX DLG_NULL 78 10
BEGIN
PROMPT 1 1 "@bRatei/Risconti"
END
RADIOBUTTON LST_RRFRAM 20
BEGIN
PROMPT 3 2 ""
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
STRING FLD_RRCCRA 3
BEGIN
PROMPT 3 6 "Causale ratei "
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 48
BEGIN
PROMPT 26 6 ""
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
STRING FLD_RRCCRI 3
BEGIN
PROMPT 3 8 "Causale risconti "
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 48
BEGIN
PROMPT 26 8 ""
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
ENDPAGE
ENDMASK