#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 "Impostazione parametri ditta" -1 -1 77 8

NUMBER FLD_ANLIIV 4
BEGIN
	PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA   "
	FIELD AnLiIv
END

BOOLEAN CHK_ANCFCM
BEGIN
	PROMPT 4 4 "Anagrafica clienti / anagrafica fornitori"
	FLAGS "D"
	FIELD AnCfCm
END

BOOLEAN CHK_PCTCCM
BEGIN
	PROMPT 4 5 "Piano conti / tabella causali"
	FLAGS "D"
	FIELD PcTcCm
END

GROUPBOX DLG_NULL 53 4
BEGIN
	PROMPT 2 3 "Archivi in comune"
END


RADIOBUTTON LST_RIFPAR 20
BEGIN
	PROMPT 55 3 "Riferimenti partite "
	ITEM " |N. protocollo"
	ITEM "X|N. documento"
	HELP ""
	FIELD RifPar
END

GROUPBOX DLG_NULL 76 11
BEGIN
	PROMPT 2 7 ""
END

BOOLEAN CHK_GSLBCN
BEGIN
	PROMPT 4 8 "Gestione libro cronologico "
	HELP ""
	FIELD GsLbCn
END

BOOLEAN CHK_STTFFR
BEGIN
	PROMPT 4 9 "Stampa totali fatture a fine registro "
	HELP ""
	FIELD StTfFr
END

BOOLEAN CHK_STLGIU
BEGIN
	PROMPT 4 10 "Stampa libro giornale e libro IVA unico " 
	HELP ""
	FIELD StLgiU
END

BOOLEAN CHK_GESSAL
BEGIN
	PROMPT 4 11 "Gestione saldaconto "
	HELP ""
	FIELD GesSal
END

BOOLEAN CHK_NRCFDX
BEGIN
	PROMPT 4 12 "N. Rif. allineato a destra per clienti"
	FIELD NrCliDx
END

BOOLEAN  FLD_CMSGPC 1
BEGIN
	PROMPT 4 13 "N. Rif. allineato a destra per fornitori"
	FIELD NrForDx
END

BOOLEAN CHK_GESVAL
BEGIN
	PROMPT 4 14 "Gestione Valuta"
	HELP ""
	FIELD GesVal                                         
END

BOOLEAN CHK_GELIDI
BEGIN
	PROMPT 4 15 "Gestione liquidazione differita"
	HELP ""
	FIELD GeLiDi
END

BOOLEAN CHK_GESVEN
BEGIN
	PROMPT 4 16 "Gestione vendite"
	HELP ""
	FIELD GesVen
END

ENDPAGE


PAGE "Impostazione parametri ditta" -1 -1 77 8

GROUPBOX DLG_NULL 55 12
BEGIN 
	PROMPT 2 5 "Codici sottoconto per chiusura automatica dei conti"
END

GROUPBOX DLG_NULL 20 12
BEGIN
	PROMPT 57 5 "Ratei/Risconti"
END

NUMBER  FLD_CODLIC 5
BEGIN
	PROMPT 1 2 "Codice libro incassi/pagamenti "
	HELP ""
	USE %ITL 
	INPUT  CODTAB FLD_CODLIC
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT FLD_CODLIC CODTAB
	CHECKTYPE NORMAL
	FIELD CodLic
END

STRING FLD_CODLIN 1
BEGIN
	PROMPT 42 2 "Codice lingua               " 
	HELP ""
	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 3 "Codice causale chiusura        "
	USE LF_CAUSALI SELECT MOVAP="C" 
	INPUT  CODCAUS FLD_COCACH       
	DISPLAY "Codice" CODCAUS
	DISPLAY "Descrizione@50" DESCR
	OUTPUT FLD_COCACH CODCAUS
	CHECKTYPE NORMAL
	ADD RUN cg0 -4
	FLAGS "U"
	FIELD CoCaCh
END

STRING FLD_COCAAP 3
BEGIN
	PROMPT 42 3 "Codice causale apertura     "
	FLAGS "U"
	USE LF_CAUSALI SELECT MOVAP="A" 
	INPUT CODCAUS FLD_COCAAP        
	COPY DISPLAY FLD_COCACH
	OUTPUT FLD_COCAAP CODCAUS
	ADD RUN cg0 -4
	CHECKTYPE NORMAL
	FIELD CoCaAp
END

NUMBER  FLD_CRIVAP 15
BEGIN
	PROMPT 1 -2 "Credito IVA anno precedente "
	PICTURE "."
	HELP ""
	FIELD CrIvAp
END

TEXT    DLG_NULL
BEGIN
	PROMPT 32 6 "Gruppo Conto Sottoconto"
END

TEXT    DLG_NULL 
BEGIN
	PROMPT 31 7 "________________________"
END

NUMBER  FLD_CSBICHG 3
BEGIN
	PROMPT 3 8 "Bilancio di chiusura         "
	HELP ""
	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
	CHECKTYPE NORMAL
	FIELD CsBiChG
END

NUMBER  FLD_CSBICHC 3
BEGIN
	PROMPT 39 8 ""
	COPY ALL FLD_CSBICHG
	CHCKTYPE NORMAL
	FIELD CsBiChC
END

NUMBER FLD_CSBICHS 6
BEGIN
	PROMPT 46 8 ""
	COPY ALL FLD_CSBICHG
	CHECKTYPE NORMAL
	FIELD CsBiChS
END

NUMBER  FLD_CSPRPEG 3
BEGIN
	PROMPT 3 9 "Profitti e perdite           "
	HELP ""
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSPRPEG GRUPPO
	OUTPUT FLD_CSPRPEC CONTO
	OUTPUT FLD_CSPRPES SOTTOCONTO
	INPUT GRUPPO FLD_CSPRPEG 
	INPUT CONTO FLD_CSPRPEC
	INPUT SOTTOCONTO FLD_CSPRPES
	CHECKTYPE NORMAL
	FIELD CsPrPeG
END

NUMBER  FLD_CSPRPEC 3
BEGIN
	COPY ALL FLD_CSPRPEG
	CHECKTYPE NORMAL
	FIELD CsPrPeC
	PROMPT 39 9 ""
END

NUMBER  FLD_CSPRPES 6
BEGIN
	COPY ALL FLD_CSPRPEG
	CHECKTYPE NORMAL
	FIELD CsPrPeS
	PROMPT 46 9 ""
END

NUMBER  FLD_CSBIAPG 3
BEGIN
	PROMPT 3 10 "Bilancio di apertura         "
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSBIAPG GRUPPO
	OUTPUT FLD_CSBIAPC CONTO
	OUTPUT FLD_CSBIAPS SOTTOCONTO
	INPUT GRUPPO FLD_CSBIAPG 
	INPUT CONTO FLD_CSBIAPC
	INPUT SOTTOCONTO FLD_CSBIAPS
	HELP ""
	CHECKTYPE NORMAL
	FIELD CsBiApG
END

NUMBER  FLD_CSBIAPC 3
BEGIN
	PROMPT 39 10 ""
	COPY ALL FLD_CSBIAPG        
	CHECKTYPE NORMAL
	FIELD CsBiApC
END

NUMBER  FLD_CSBIAPS 6
BEGIN
	PROMPT 46 10 ""
	COPY ALL FLD_CSBIAPG        
	CHECKTYPE NORMAL
	FIELD CsBiApS
END

NUMBER  FLD_CSUECPG 3
BEGIN
	PROMPT 3 11 "Utile esercizio c/to patrim. "
	HELP ""
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSUECPG GRUPPO
	OUTPUT FLD_CSUECPC CONTO
	OUTPUT FLD_CSUECPS SOTTOCONTO
	INPUT GRUPPO FLD_CSUECPG 
	INPUT CONTO FLD_CSUECPC
	INPUT SOTTOCONTO FLD_CSUECPS
	CHECKTYPE NORMAL
	FIELD CsUeCpG
END
NUMBER  FLD_CSUECPC 3
BEGIN
	PROMPT 39 11 ""
	COPY ALL FLD_CSUECPG  
	CHECKTYPE NORMAL
	FIELD CsUeCpC
END
NUMBER  FLD_CSUECPS 6
BEGIN
	PROMPT 46 11 ""
	COPY ALL FLD_CSUECPG  
	CHECKTYPE NORMAL
	FIELD CsUeCpS
END

NUMBER  FLD_CSPECPG 3
BEGIN
	PROMPT 3 12 "Perdita eserc. c/to patrim.  "
	HELP ""
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSPECPG GRUPPO
	OUTPUT FLD_CSPECPC CONTO
	OUTPUT FLD_CSPECPS SOTTOCONTO
	INPUT GRUPPO FLD_CSPECPG 
	INPUT CONTO FLD_CSPECPC
	INPUT SOTTOCONTO FLD_CSPECPS
	CHECKTYPE NORMAL
	FIELD CsPeCpG
END

NUMBER  FLD_CSPECPC 3
BEGIN
	PROMPT 39 12 ""
	COPY ALL FLD_CSPECPG
	CHECKTYPE NORMAL
	FIELD CsPeCpC
END
NUMBER  FLD_CSPECPS 6
BEGIN
	PROMPT 46 12 ""
	COPY ALL FLD_CSPECPG
	CHECKTYPE NORMAL
	FIELD CsPeCpS
END

NUMBER  FLD_CSUECEG 3
BEGIN
	PROMPT 3 13 "Utile esercizio c/to econ.   "
	HELP ""
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSUECEG GRUPPO
	OUTPUT FLD_CSUECEC CONTO
	OUTPUT FLD_CSUECES SOTTOCONTO
	INPUT GRUPPO FLD_CSUECEG 
	INPUT CONTO FLD_CSUECEC
	INPUT SOTTOCONTO FLD_CSUECES
	CHECKTYPE NORMAL
	FIELD CsUeCeG
END
NUMBER  FLD_CSUECEC 3
BEGIN
	PROMPT 39 13 ""
	COPY ALL FLD_CSUECEG
	CHECKTYPE NORMAL
	FIELD CsUeCeC
END
NUMBER  FLD_CSUECES 6
BEGIN
	PROMPT 46 13 ""
	COPY ALL FLD_CSUECEG
	CHECKTYPE NORMAL
	FIELD CsUeCeS
END

NUMBER  FLD_CSPECEG 3
BEGIN
	PROMPT 3 14 "Perdita eserc. c/to econ.    "
	HELP ""
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSPECEG GRUPPO
	OUTPUT FLD_CSPECEC CONTO
	OUTPUT FLD_CSPECES SOTTOCONTO
	INPUT GRUPPO FLD_CSPECEG 
	INPUT CONTO FLD_CSPECEC
	INPUT SOTTOCONTO FLD_CSPECES
	CHECKTYPE NORMAL
	FIELD CsPeCeG
END
NUMBER  FLD_CSPECEC 3
BEGIN
	PROMPT 39 14 ""
	COPY ALL FLD_CSBICHG
	CHECKTYPE NORMAL
	FIELD CsPeCeC
END
NUMBER  FLD_CSPECES 6
BEGIN
	PROMPT 46 14 ""
	COPY ALL FLD_CSBICHG
	CHECKTYPE NORMAL
	FIELD CsPeCeS
END

RADIOBUTTON LST_RRFRAM 15
BEGIN
	PROMPT 57 6 ""
	ITEM "A|Freq. Annuale"
	ITEM "M|Freq. Mensile"
	HELP ""
	FIELD RrFrAm
END

BOOLEAN CHK_RRMECO
BEGIN
	PROMPT 58 15 "Mese Commerc."
	HELP ""
	FIELD RrMeCo
END


TEXT DLG_NULL
BEGIN
	PROMPT 58 10 "Causale ratei"
END

TEXT DLG_NULL
BEGIN
	PROMPT 58 12 "Causale risconti"
END


STRING FLD_RRCCRA 3
BEGIN
	PROMPT 64 11 ""
	FLAGS "U"
	USE LF_CAUSALI
	INPUT  CODCAUS FLD_RRCCRA       
	COPY DISPLAY FLD_COCACH
	OUTPUT FLD_RRCCRA CODCAUS
	CHECKTYPE NORMAL
	ADD RUN cg0 -4
	FIELD RrCcRa
END

STRING FLD_RRCCRI 3
BEGIN
	PROMPT 64 13 ""
	FLAGS "U"
	COPY USE FLD_RRCCRA
	INPUT  CODCAUS FLD_RRCCRI       
	COPY DISPLAY FLD_COCACH
	OUTPUT FLD_RRCCRI CODCAUS
	CHECKTYPE NORMAL
	ADD RUN cg0 -4
	FIELD RrCcRi
END 

ENDPAGE

ENDMASK