492 lines
8.5 KiB
Plaintext
Executable File
492 lines
8.5 KiB
Plaintext
Executable File
#include "cg5100a.h"
|
|
|
|
/* toolbar */
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 8 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 8 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 "
|
|
FLAGS "A"
|
|
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 9
|
|
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/fornitori "
|
|
HELP ""
|
|
MESSAGE TRUE ENABLE,FLD_CMSGPC
|
|
MESSAGE FALSE DISABLE,FLD_CMSGPC
|
|
FIELD NrCfDx
|
|
END
|
|
|
|
NUMBER FLD_CMSGPC 1
|
|
BEGIN
|
|
PROMPT 56 12 " / "
|
|
HELP ""
|
|
FIELD CmSgPc
|
|
END
|
|
|
|
BOOLEAN CHK_GESVAL
|
|
BEGIN
|
|
PROMPT 4 13 "Gestione Valuta"
|
|
HELP ""
|
|
FIELD GesVal
|
|
END
|
|
|
|
BOOLEAN CHK_GELIDI
|
|
BEGIN
|
|
PROMPT 4 14 "Gestione liquidazione differita"
|
|
HELP ""
|
|
FIELD GeLiDi
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Impostazione parametri ditta" -1 -1 77 8
|
|
|
|
GROUPBOX DLG_NULL 55 12
|
|
BEGIN
|
|
PROMPT 2 5 "Codici sottoconto"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 20 12
|
|
BEGIN
|
|
PROMPT 57 5 "Ratei/Riscontri"
|
|
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
|
|
|
|
NUMBER FLD_CODLIN 5
|
|
BEGIN
|
|
PROMPT 42 2 "Codice lingua "
|
|
HELP ""
|
|
USE %LIN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione " S0
|
|
OUTPUT FLD_CODLIN CODTAB
|
|
INPUT CODTAB FLD_CODLIN
|
|
FIELD CodLin
|
|
END
|
|
|
|
STRING FLD_COCACH 3
|
|
BEGIN
|
|
PROMPT 1 3 "Codice causale chiusura "
|
|
HELP ""
|
|
USE LF_CAUSALI SELECT TIPODOC=""
|
|
INPUT CODCAUS FLD_COCACH
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FLD_COCACH CODCAUS
|
|
CHECKTYPE NORMAL
|
|
FIELD CoCaCh
|
|
END
|
|
|
|
STRING FLD_COCAAP 3
|
|
BEGIN
|
|
PROMPT 42 3 "Codice causale apertura "
|
|
HELP ""
|
|
COPY USE FLD_COCACH
|
|
INPUT CODCAUS FLD_COCAAP
|
|
COPY DISPLAY FLD_COCACH
|
|
OUTPUT FLD_COCAAP CODCAUS
|
|
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 CONTO==""
|
|
INPUT GRUPPO FLD_CSBICHG
|
|
INPUT CONTO FLD_CSBICHC
|
|
INPUT CONTO 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_CSBICHC
|
|
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
|
|
FIELD CsPrPeG
|
|
END
|
|
NUMBER FLD_CSPRPEC 3
|
|
BEGIN
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSPRPEG
|
|
COPY INPUT FLD_CSPRPEG
|
|
FIELD CsPrPeC
|
|
PROMPT 39 9 ""
|
|
END
|
|
NUMBER FLD_CSPRPES 6
|
|
BEGIN
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSPRPEG
|
|
COPY INPUT FLD_CSPRPEG
|
|
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 ""
|
|
FIELD CsBiApG
|
|
END
|
|
NUMBER FLD_CSBIAPC 3
|
|
BEGIN
|
|
PROMPT 39 10 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSBIAPG
|
|
COPY INPUT FLD_CSBIAPG
|
|
FIELD CsBiApC
|
|
END
|
|
|
|
NUMBER FLD_CSBIAPS 6
|
|
BEGIN
|
|
PROMPT 46 10 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSBIAPG
|
|
COPY INPUT FLD_CSBIAPG
|
|
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
|
|
FIELD CsUeCpG
|
|
END
|
|
NUMBER FLD_CSUECPC 3
|
|
BEGIN
|
|
PROMPT 39 11 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSUECPG
|
|
COPY INPUT FLD_CSUECPG
|
|
FIELD CsUeCpC
|
|
END
|
|
NUMBER FLD_CSUECPS 6
|
|
BEGIN
|
|
PROMPT 46 11 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSUECPG
|
|
COPY INPUT FLD_CSUECPG
|
|
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
|
|
FIELD CsPeCpG
|
|
END
|
|
NUMBER FLD_CSPECPC 3
|
|
BEGIN
|
|
PROMPT 39 12 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSPECPG
|
|
COPY INPUT FLD_CSPECPG
|
|
FIELD CsPeCpC
|
|
END
|
|
NUMBER FLD_CSPECPS 6
|
|
BEGIN
|
|
PROMPT 46 12 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSPECPG
|
|
COPY INPUT FLD_CSPECPG
|
|
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
|
|
FIELD CsUeCeG
|
|
END
|
|
NUMBER FLD_CSUECEC 3
|
|
BEGIN
|
|
PROMPT 39 13 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSUECEG
|
|
COPY INPUT FLD_CSUECEG
|
|
FIELD CsUeCeC
|
|
END
|
|
NUMBER FLD_CSUECES 6
|
|
BEGIN
|
|
PROMPT 46 13 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSUECEG
|
|
COPY INPUT FLD_CSUECEG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
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
|
|
FIELD CsPeCeG
|
|
END
|
|
NUMBER FLD_CSPECEC 3
|
|
BEGIN
|
|
PROMPT 39 14 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSPECEG
|
|
COPY INPUT FLD_CSPECEG
|
|
FIELD CsPeCeC
|
|
END
|
|
NUMBER FLD_CSPECES 6
|
|
BEGIN
|
|
PROMPT 46 14 ""
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
COPY OUTPUT FLD_CSPECEG
|
|
COPY INPUT FLD_CSPECEG
|
|
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 riscontri"
|
|
END
|
|
|
|
|
|
NUMBER FLD_RRCCRA 5
|
|
BEGIN
|
|
PROMPT 64 11 ""
|
|
HELP ""
|
|
COPY USE FLD_COCACH
|
|
COPY DISPLAY FLD_COCACH
|
|
OUTPUT FLD_RRCCRA CODCAUS
|
|
INPUT CODCAUS FLD_RRCCRA
|
|
FIELD RrCcRa
|
|
END
|
|
|
|
NUMBER FLD_RRCCRI 5
|
|
BEGIN
|
|
PROMPT 64 13 ""
|
|
HELP ""
|
|
COPY USE FLD_COCACH
|
|
COPY DISPLAY FLD_COCACH
|
|
OUTPUT FLD_RRCCRI CODCAUS
|
|
INPUT CODCAUS FLD_RRCCRI
|
|
FIELD RrCcRi
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |