campo-sirio/cg/cg5000a.uml

#include "cg5000a.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

PAGE "Parametri contabilita' studio" -1 -1 76 17

GROUPBOX DLG_NULL 74 12
BEGIN
	PROMPT 1 1 "Parametri IVA"
END

NUMBER FLD_CODABI 5
BEGIN
	PROMPT 3 2 "Banca di appoggio per deleghe IVA       ABI "
  HELP "Codice ABI banca di appoggio per deleghe IVA"
  WARNIG "Codice ABI errato"
	USE %BAN
	INPUT CODTAB[1,5] FLD_CODABI
	INPUT CODTAB[6,10] FLD_CODCAB
	DISPLAY "ABI@5" CODTAB[1,5]
	DISPLAY "CAB@5" CODTAB[6,10]
	DISPLAY "Denominazione@50" S0
	OUTPUT FLD_CODABI CODTAB[1,5]
	OUTPUT FLD_CODCAB CODTAB[6,10]
	OUTPUT FLD_RAGSOCB S0
	FIELD CodABI
	CHECKTYPE NORMAL
	FLAGS "Z"
END

NUMBER FLD_CODCAB 5
BEGIN
  PROMPT 60 2 "CAB "
  HELP "Codice CAB banca di appoggio per deleghe IVA"
  WARNIG "Codice CAB errato"
  COPY ALL FLD_CODABI
  CHECKTYPE NORMAL
  FIELD CodCAB
  FLAGS "Z"
  VALIDATE REQIF_FUNC 1 FLD_CODABI
END

STRING FLD_RAGSOCB 50
BEGIN
	PROMPT 3 3 "Denominazione     "
	FLAGS "D"
END

BOOLEAN CHK_SIND11
BEGIN
	PROMPT 3 5 "Somma imposte non detraibili ad acq/import. in modello IVA 11"
  HELP "Indicare se includere l'IVA non detraibile nell'importo dell'operazioni IVA art.19 IVA 11"
	FIELD Sind11
END

BOOLEAN CHK_RICACQ
BEGIN
  PROMPT 3 6 "Ricalcolo imposte acquisti per rivendita "
  HELP "Indicare se attivare il calcolo IVA acquisti per rivendita nel calcolo ventilazione"
  FIELD RicAcq
END

TEXT DLG_NULL
BEGIN
	PROMPT -11 7 "Interessi liquidazioni trimestrali"
END

NUMBER FLD_INTR0 5 2
BEGIN
	PROMPT 3 8 "I "
  HELP "Tasso del primo trimestre da applicare per gli interessi su versamenti IVA"
	FLAGS "R"
	FIELD InTr(0)
END

NUMBER FLD_INTR1 5 2
BEGIN
	PROMPT 20 8 "II "
  HELP "Tasso del secondo trimestre da applicare per gli interessi su versamenti IVA"
	FLAGS "R"
	FIELD InTr(1)
END

NUMBER FLD_INTR2 5 2
BEGIN
	PROMPT 40 8  "III "
  HELP "Tasso del terzo trimestre da applicare per gli interessi su versamenti IVA"
	FLAGS "R"
	FIELD InTr(2)
END

NUMBER FLD_INTR3 5 2
BEGIN
	PROMPT 60 8 "IV "
  HELP "Tasso del quarto trimestre da applicare per gli interessi su versamenti IVA"
	FLAGS "R"
	FIELD InTr(3)
END

STRING FLD_CODAGV 4
BEGIN
	PROMPT 3 10 "Codice IVA per ricavi misti agenzie di viaggio              "
  HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio"
	WARNIG "Codice IVA errato"
  USE %IVA
	FLAGS "U"
	INPUT CODTAB FLD_CODAGV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  DISPLAY "Vent." S6
  DISPLAY "Sospeso" B2
	OUTPUT FLD_CODAGV CODTAB
	OUTPUT FLD_DESAGV S0
	CHECKTYPE NORMAL
	FIELD CodAgv
  VALIDATE ZEROFILL_FUNC 2
END

STRING FLD_DESAGV 50
BEGIN
	PROMPT 3 11 "Descrizione   "
	USE %IVA KEY 2
	INPUT S0 FLD_DESAGV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  DISPLAY "Vent." S6
  DISPLAY "Sospeso" B2
	COPY OUTPUT FLD_CODAGV
	CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 74 4
BEGIN
	PROMPT 1 13 "Stampa registri"
END

BOOLEAN CHK_STIREG
BEGIN
  PROMPT 3 14  "Stampare l'intestazione sui registri bollati"
  HELP "Indicare se stampare l'intestazione della ditta sui registri"
	FIELD StiReg
END

BOOLEAN CHK_NODTRG
BEGIN
	PROMPT 3 15  "Non stampare la data di operazione sui registri IVA"
  HELP "Indicare se non stampoare la data dell'operazione sui registri IVA"
	FIELD NoDtRg
END

ENDPAGE

PAGE "Parametri contabilita' studio"  -1 -1 76 17

GROUPBOX DLG_NULL 74 4
BEGIN
	PROMPT 1 1 "Prima nota"
END

BOOLEAN CHK_POCUDR
BEGIN
	PROMPT 3 2  "Posizionare cursore sulla data di operazione in immissione"
	HELP "Determina il posizionamento automatico del cursore sulla data di operazione invece che sulla causale"
	FIELD PoCuDr
END

BOOLEAN CHK_21SAVENEW
BEGIN
	PROMPT 3 3  "Rimanere in modifica dopo la registrazione di un documento"
	HELP "Dopo aver effettuato una registrazione rimane in modifica dello stesso documento invece di passare all'inserimento di uno nuovo"
	FIELD Cg21SN
END

GROUPBOX DLG_NULL 74 3
BEGIN
	PROMPT 1 5 "Anagrafica Clienti/Fornitori"
END

BOOLEAN CHK_02SAVENEW
BEGIN
	PROMPT 3 6  "Rimanere in modifica dopo la registrazione di un cliente/fornitore"
	HELP "Dopo aver effettuato una registrazione rimane in modifica della stessa anagrafica invece di passare all'inserimento di una nuova"
	FIELD Cg02SN
END

ENDPAGE

ENDMASK