#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