#include "cg5100a.h"

/* toolbar */

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

/* page1 */

PAGE "Parametri ditta" -1 -1 77 8

NUMBER FLD_ANLIIV 4
BEGIN
  PROMPT 2 0 "@bANNO LIQUIDAZIONE IVA   "
  HELP "Indicare l'anno dell'esercizio IVA corrente"
  FIELD AnLiIv
  VALIDATE FIXLEN_FUNC 4
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 2 1 "Archivi in comune"
END

BOOLEAN CHK_ANCFCM
BEGIN
  PROMPT 4 2 "Anagrafica clienti / anagrafica fornitori"
  HELP "Indicare se gestire un'unica anagrafica clienti/fornitori"
  FLAGS "D"
  FIELD AnCfCm
END

BOOLEAN CHK_PCTCCM
BEGIN
  PROMPT 4 3 "Piano conti / tabella causali"
  HELP "Indicare se gestire un'unico archivio piano dei conti/causali"
  FLAGS "D"
  FIELD PcTcCm
END


GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 2 5 "Parametri contabilita'"
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 2 12 "Parametri saldaconto"
END

BOOLEAN CHK_GSLBCN
BEGIN
  PROMPT 4 6 "Gestione libro cronologico "
  HELP "Indicare se attivare il libro cronologico della gestione per i professionisti"
  FIELD GsLbCn
END

BOOLEAN CHK_STTFFR
BEGIN
  PROMPT 4 7 "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 8 "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_GESVEN
BEGIN
  PROMPT 4 9 "Gestione vendite"
  HELP "Indicare se e' attivata anche la gestione delle vendite"
  FIELD GesVen
END

BOOLEAN CHK_GEST74
BEGIN
  PROMPT 4 10 "Gestione versamenti 4.tr per soggetti art. 74/4"
  HELP "Indicare se si deve gestire il versamento del 4. trimestre per benzinai e autotrasportatori"
  FIELD GesT74
END

BOOLEAN CHK_GESSAL
BEGIN
  PROMPT 4 13 "Gestione saldaconto "
  HELP "Indicare se attivare la gestione del saldaconto clienti/fornitori"  
  MESSAGE TRUE ENABLE,CHK_GESVAL
  MESSAGE TRUE ENABLE,CHK_NRCLIDX
  MESSAGE TRUE ENABLE,CHK_NRFORDX
  MESSAGE TRUE ENABLE,CHK_DTCFPG
  MESSAGE TRUE ENABLE,CHK_RIFPRO
  MESSAGE TRUE ENABLE,FLD_CODLIN
  MESSAGE FALSE DISABLE,CHK_GESVAL
  MESSAGE FALSE DISABLE,CHK_NRCLIDX
  MESSAGE FALSE DISABLE,CHK_NRFORDX
  MESSAGE FALSE DISABLE,CHK_DTCFPG
  MESSAGE FALSE DISABLE,CHK_RIFPRO
  MESSAGE FALSE DISABLE,FLD_CODLIN
  FIELD GesSal
  GROUP GROUP_SALDACONTO
END

BOOLEAN CHK_GESVAL
BEGIN
  PROMPT 48 13 "Gestione Valuta"
  HELP "Indicare se gestire i movimenti prima nota in valuta"
  FIELD GesVal                                         
  GROUP GROUP_SALDACONTO
END

BOOLEAN CHK_NRCLIDX
BEGIN
  PROMPT 4 14 "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 14 "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_DTCFPG
BEGIN
  PROMPT 4 15 "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

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


ENDPAGE


PAGE "Pag. 2" -1 -1 77 8

GROUPBOX DLG_NULL 78 12
BEGIN 
  PROMPT 1 7 "Codici 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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
END


ENDPAGE


PAGE "Pag. 3" -1 -1 77 8

GROUPBOX DLG_NULL 78 10
BEGIN
    PROMPT 1 1 "Ratei/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
END

BOOLEAN CHK_RRMECO
BEGIN
    PROMPT 26 3 "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 "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
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
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
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
END

BOOLEAN CHK_INTRTR
BEGIN
   PROMPT 3 12 "Non calcolare interessi per frequenza versamenti trimestrale"
   HELP "Se selezionato, gli interessi non vengono calcolati"
   FIELD InTrTr
END


ENDPAGE

ENDMASK