668 lines
11 KiB
Plaintext
Executable File
668 lines
11 KiB
Plaintext
Executable File
#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_NRCLIDX
|
|
BEGIN
|
|
PROMPT 4 12 "N. Rif. allineato a destra per clienti"
|
|
FIELD NrCliDx
|
|
END
|
|
|
|
BOOLEAN CHK_NRFORDX
|
|
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 78 12
|
|
BEGIN
|
|
PROMPT 1 7 "Codici sottoconto per chiusura automatica dei conti"
|
|
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 1 3 "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 4 "Codice causale chiusura "
|
|
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 "U"
|
|
FIELD CoCaCh
|
|
END
|
|
|
|
STRING FLD_DCOCACH 50 35
|
|
BEGIN
|
|
PROMPT 40 4 ""
|
|
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 "
|
|
FLAGS "U"
|
|
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 ""
|
|
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 ""
|
|
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 ""
|
|
COPY ALL FLD_CSBICHG
|
|
FIELD CsBiChC
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSBICHS 6
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
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 ""
|
|
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
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING FLD_CSPRPEG 3
|
|
BEGIN
|
|
PROMPT 2 11 "Profitti e perdite "
|
|
HELP ""
|
|
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 ""
|
|
COPY ALL FLD_CSPRPEG
|
|
FIELD CsPrPeC
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSPRPES 6
|
|
BEGIN
|
|
PROMPT 40 11 ""
|
|
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 ""
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSPRPE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPRPEG
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
|
|
NUMBER FLD_CSBIAPG 3
|
|
BEGIN
|
|
PROMPT 2 12 "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 ""
|
|
COPY ALL FLD_CSBIAPG
|
|
FIELD CsBiApC
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSBIAPS 6
|
|
BEGIN
|
|
PROMPT 40 12 ""
|
|
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 ""
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSBIAP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSBIAPG
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
|
|
NUMBER FLD_CSUECPG 3
|
|
BEGIN
|
|
PROMPT 2 13 "Utile esercizio patrim. "
|
|
HELP ""
|
|
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 ""
|
|
COPY ALL FLD_CSUECPG
|
|
CHECKTYPE NORMAL
|
|
FIELD CsUeCpC
|
|
ADD RUN cg0 -0
|
|
END
|
|
NUMBER FLD_CSUECPS 6
|
|
BEGIN
|
|
PROMPT 40 13 ""
|
|
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
|
|
FIELD CsUeCpS
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING FLD_DCSUECP 50 25
|
|
BEGIN
|
|
PROMPT 50 13 ""
|
|
HELP ""
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSUECP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSUECPG
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSPECPG 3
|
|
BEGIN
|
|
PROMPT 2 14 "Perdita eserc. patrim. "
|
|
HELP ""
|
|
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 ""
|
|
COPY ALL FLD_CSPECPG
|
|
FIELD CsPeCpC
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSPECPS 6
|
|
BEGIN
|
|
PROMPT 40 14 ""
|
|
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 ""
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSPECP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPECPG
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSUECEG 3
|
|
BEGIN
|
|
PROMPT 2 15 "Utile esercizio econ. "
|
|
HELP ""
|
|
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 ""
|
|
COPY ALL FLD_CSUECEG
|
|
FIELD CsUeCeC
|
|
ADD RUN cg0 -0
|
|
END
|
|
NUMBER FLD_CSUECES 6
|
|
BEGIN
|
|
PROMPT 40 15 ""
|
|
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 ""
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSUECE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSUECEG
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER FLD_CSPECEG 3
|
|
BEGIN
|
|
PROMPT 2 16 "Perdita eserc. econ. "
|
|
HELP ""
|
|
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 ""
|
|
COPY ALL FLD_CSPECEG
|
|
FIELD CsPeCeC
|
|
ADD RUN cg0 -0
|
|
END
|
|
NUMBER FLD_CSPECES 6
|
|
BEGIN
|
|
PROMPT 40 16 ""
|
|
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 ""
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
INPUT DESCR FLD_DCSPECE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPECEG
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Impostazione parametri ditta" -1 -1 77 8
|
|
|
|
GROUPBOX DLG_NULL 78 10
|
|
BEGIN
|
|
PROMPT 1 1 "Ratei/Risconti"
|
|
END
|
|
|
|
|
|
RADIOBUTTON LST_RRFRAM 16
|
|
BEGIN
|
|
PROMPT 3 2 ""
|
|
ITEM "A|Freq. Annuale"
|
|
ITEM "M|Freq. Mensile"
|
|
HELP ""
|
|
FIELD RrFrAm
|
|
END
|
|
|
|
BOOLEAN CHK_RRMECO
|
|
BEGIN
|
|
PROMPT 26 3 "Mese Commerciale"
|
|
HELP ""
|
|
FIELD RrMeCo
|
|
END
|
|
|
|
STRING FLD_RRCCRA 3
|
|
BEGIN
|
|
PROMPT 3 6 "Causale ratei "
|
|
FLAGS "U"
|
|
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 ""
|
|
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 "
|
|
FLAGS "U"
|
|
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 ""
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR FLD_DRRCCRI
|
|
COPY DISPLAY FLD_DCOCACH
|
|
COPY OUTPUT FLD_RRCCRI
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|