7147bd2803
funzionalmente (ricerche su tabelle che non esistono) git-svn-id: svn://10.65.10.50/trunk@270 c028cbd2-c16b-5b4b-a496-9718f37d4682
128 lines
2.0 KiB
Plaintext
Executable File
128 lines
2.0 KiB
Plaintext
Executable File
#include "cg5000a.h"
|
|
|
|
PAGE "Parametri contabilita' studio" -1 -1 76 16
|
|
|
|
GROUPBOX DLG_NULL 74 4
|
|
BEGIN
|
|
PROMPT 1 1 "Dati Banca di appoggio"
|
|
END
|
|
|
|
NUMBER FLD_CODABI 5
|
|
BEGIN
|
|
PROMPT 3 2 "Codice ABI "
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] FLD_CODABI
|
|
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 "RZ"
|
|
END
|
|
|
|
NUMBER FLD_CODCAB 5
|
|
BEGIN
|
|
PROMPT 37 2 "Codice CAB "
|
|
COPY ALL FLD_CODABI
|
|
INPUT CODTAB[6,10] FLD_CODCAB
|
|
CHECKTYPE NORMAL
|
|
FIELD CodCAB
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
STRING FLD_RAGSOCB 50
|
|
BEGIN
|
|
PROMPT 3 3 "Rag. Soc. Banca "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN CHK_SIND11
|
|
BEGIN
|
|
PROMPT 2 5 "Somma imposte non detr. ad acq/import. in modello IVA 11"
|
|
FIELD Sind11
|
|
END
|
|
|
|
BOOLEAN CHK_STIREG
|
|
BEGIN
|
|
PROMPT 2 6 "Stampa intestazione registri bollati"
|
|
FIELD StiReg
|
|
END
|
|
|
|
BOOLEAN CHK_NODTRG
|
|
BEGIN
|
|
PROMPT 2 7 "Non stampa data di registrazione sui registri IVA"
|
|
FIELD NoDtRg
|
|
END
|
|
|
|
BOOLEAN CHK_POCUDR
|
|
BEGIN
|
|
PROMPT 2 8 "Posiz. cursore su data registr. in immissione documenti"
|
|
HELP "Determina il posizionamento automatico del cursore sulla data di registrazione o sulla causale in prima nota"
|
|
FIELD PoCuDr
|
|
END
|
|
|
|
NUMBER FLD_CODAGV 5
|
|
BEGIN
|
|
PROMPT 2 9 "Codice IVA per ricavi misti agenzie di viaggio "
|
|
USE %IVA
|
|
INPUT CODTAB FLD_CODAGV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_CODAGV CODTAB
|
|
CHECKTYPE NORMAL
|
|
FIELD CodAgv
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 74 3
|
|
BEGIN
|
|
PROMPT 1 11 "Interessi liquidazioni trimestrali"
|
|
END
|
|
|
|
NUMBER FLD_INTR0 5 2
|
|
BEGIN
|
|
PROMPT 3 12 "I "
|
|
FLAGS "R"
|
|
FIELD InTr(0)
|
|
END
|
|
|
|
NUMBER FLD_INTR1 5 2
|
|
BEGIN
|
|
PROMPT 20 12 "II "
|
|
FLAGS "R"
|
|
FIELD InTr(1)
|
|
END
|
|
|
|
NUMBER FLD_INTR2 5 2
|
|
BEGIN
|
|
PROMPT 40 12 "III "
|
|
FLAGS "R"
|
|
FIELD InTr(2)
|
|
END
|
|
|
|
NUMBER FLD_INTR3 5 2
|
|
BEGIN
|
|
PROMPT 60 12 "IV "
|
|
FLAGS "R"
|
|
FIELD InTr(3)
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|