AlexBonazzi
1ba75cc8f2
Files correlati : cg1.exe cg2.exe cg4.exe cg5.exe np0.exe Commento : Aggiunto il conto utile IV direttiva ai parametri ditta (se non indicato vale 9 E 22) e gestito in stampa bilancio IV direttiva. Impostato il valore della riga di saldaconto all importo se non indicato. Contabilità separata letto correttamente dalla maschera il codice di contabilità separata. Non stampava il riepigolo fatture per cassa nella stampa definitiva.
1131 lines
26 KiB
Plaintext
Executable File
1131 lines
26 KiB
Plaintext
Executable File
#include "cg5100a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
/* page1 */
|
|
|
|
PAGE "Parametri ditta" 0 2 0 0
|
|
|
|
NUMBER FLD_ANLIIV 4
|
|
BEGIN
|
|
PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA "
|
|
HELP "Indicare l'anno dell'esercizio IVA corrente"
|
|
FIELD AnLiIv
|
|
VALIDATE FIXLEN_FUNC 4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 2 2 "@bArchivi in comune"
|
|
END
|
|
|
|
BOOLEAN CHK_ANCFCM
|
|
BEGIN
|
|
PROMPT 4 3 "Anagrafica clienti / anagrafica fornitori"
|
|
HELP "Indicare se gestire un'unica anagrafica clienti/fornitori"
|
|
FLAGS "D"
|
|
FIELD AnCfCm
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_PCTCCM
|
|
BEGIN
|
|
PROMPT 4 4 "Piano conti / tabella causali"
|
|
HELP "Indicare se gestire un'unico archivio piano dei conti/causali"
|
|
FLAGS "D"
|
|
FIELD PcTcCm
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 2 6 "@bParametri contabilità"
|
|
END
|
|
|
|
BOOLEAN CHK_GSLBCN
|
|
BEGIN
|
|
PROMPT 4 7 "Gestione libro cronologico "
|
|
HELP "Indicare se attivare il libro cronologico della gestione per i professionisti"
|
|
FIELD GsLbCn
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_STTFFR
|
|
BEGIN
|
|
PROMPT 4 8 "Stampa totali fatture a fine registro "
|
|
HELP "Indicare se attivare il computo dei totali fatture a fine registro"
|
|
FIELD StTfFr
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_STLGIU
|
|
BEGIN
|
|
PROMPT 4 9 "Stampa libro giornale e libro IVA unico "
|
|
HELP "Indicare se utilizzare un unico registro per libro giornale e libro IVA"
|
|
FIELD StLgiU
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_GESVEN
|
|
BEGIN
|
|
PROMPT 4 10 "Gestione vendite"
|
|
HELP "Indicare se e' attivata anche la gestione delle vendite"
|
|
FIELD GesVen
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_LIQDIF
|
|
BEGIN
|
|
PROMPT 40 7 "Gestione liquidazione differita"
|
|
HELP "Indicare se e' attivata anche la gestione della liquidazione differita delle fatture"
|
|
FIELD GesLiqDiff
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_CONTSEP
|
|
BEGIN
|
|
PROMPT 40 8 "Gestione contabilità separata"
|
|
HELP "Indicare se e' attivata anche la gestione della contabilità separata"
|
|
FIELD GesContSep
|
|
MODULE NP
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 10
|
|
BEGIN
|
|
PROMPT 2 12 "@bParametri saldaconto"
|
|
END
|
|
|
|
BOOLEAN CHK_GESSAL
|
|
BEGIN
|
|
PROMPT 4 13 "Gestione saldaconto "
|
|
MESSAGE true ENABLE,CHK_GESVAL|ENABLE,CHK_NRCLIDX|ENABLE,CHK_NRFORDX
|
|
MESSAGE true ENABLE,CHK_DTCFPG|ENABLE,CHK_RIFPRO|ENABLE,FLD_CODLIN
|
|
MESSAGE true ENABLE,FLD_NUM_EC|ENABLE,FLD_LAST_EC|ENABLE,CHK_EASYSAL
|
|
MESSAGE false DISABLE,CHK_GESVAL|DISABLE,CHK_NRCLIDX|DISABLE,CHK_NRFORDX
|
|
MESSAGE false DISABLE,CHK_DTCFPG|DISABLE,CHK_RIFPRO|DISABLE,FLD_CODLIN
|
|
MESSAGE false DISABLE,FLD_NUM_EC|DISABLE,FLD_LAST_EC|CLEAR,CHK_EASYSAL
|
|
FIELD GesSal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
DATE FLD_DATSAL
|
|
BEGIN
|
|
PROMPT 35 13 "Data attivazione saldaconto "
|
|
FIELD DatSal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_GESVAL
|
|
BEGIN
|
|
PROMPT 4 14 "Gestione Valuta"
|
|
HELP "Indicare se gestire i movimenti prima nota in valuta"
|
|
FIELD GesVal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_EASYSAL
|
|
BEGIN
|
|
PROMPT 35 14 "Saldaconto semplificato "
|
|
FIELD EasySal
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_NRCLIDX
|
|
BEGIN
|
|
PROMPT 4 15 "N. Rif. allineato a destra per clienti"
|
|
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
|
|
FIELD NrCliDx
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_NRFORDX
|
|
BEGIN
|
|
PROMPT 35 15 "e per fornitori"
|
|
HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
|
|
FIELD NrForDx
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_RIFPRO
|
|
BEGIN
|
|
PROMPT 4 16 "Riferimento partita con numero protocollo"
|
|
HELP "Indicare se si desidera il numero protocollo IVA anziche' il numero documento come riferimento partita"
|
|
FIELD RifPro
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_DIFFCAM
|
|
BEGIN
|
|
PROMPT 48 16 "Rilevazione diff.cambi su pag.parziali"
|
|
HELP "Indicare se si desidera calcolare le eventuali differenze cambi anche sui pagamenti non a saldo"
|
|
FIELD DiffCamAlways
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_RIFMON
|
|
BEGIN
|
|
PROMPT 4 17 "Riferimento partita con il mese"
|
|
HELP "Indicare se si desidera il mese per i clienti come riferimento partita"
|
|
FIELD RifMonth
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
STRING FLD_CODLIN 1
|
|
BEGIN
|
|
PROMPT 50 17 "Codice lingua "
|
|
HELP "Lingua di riferimento per rendiconti contabili"
|
|
FIELD CodLin
|
|
USE %LNG
|
|
INPUT CODTAB FLD_CODLIN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_CODLIN CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
LIST FLD_NUM_EC 1 10
|
|
BEGIN
|
|
PROMPT 4 18 "Numerazione estratti conto "
|
|
ITEM " |Nessuna" MESSAGE HIDE,FLD_LAST_EC
|
|
ITEM "G|Globale" MESSAGE SHOW,FLD_LAST_EC
|
|
ITEM "A|Anagrafica" MESSAGE HIDE,FLD_LAST_EC
|
|
FIELD NumEC
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
NUMBER FLD_LAST_EC 6
|
|
BEGIN
|
|
PROMPT 50 18 "Ultimo E.C. "
|
|
FIELD LastEC
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
BOOLEAN CHK_DTCFPG
|
|
BEGIN
|
|
PROMPT 4 19 "Dettaglio riga C/F sui pagamenti"
|
|
HELP "Indicare se si desidera il dettaglio riga clienti/fornitori in gestione pagamenti"
|
|
FIELD DtCfPg
|
|
GROUP GROUP_SALDACONTO
|
|
FLAGS "H" // Per ora Vladimiro non lo vuole
|
|
END
|
|
|
|
STRING FLD_DES_INC 50 47
|
|
BEGIN
|
|
PROMPT 4 19 "Descrizione incassi "
|
|
FIELD DescInc
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
STRING FLD_DES_PAG 50 47
|
|
BEGIN
|
|
PROMPT 4 20 "Descrizione pagamenti "
|
|
FIELD DescPag
|
|
GROUP GROUP_SALDACONTO
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Chiusura/Apertura" -1 -1 77 8
|
|
|
|
STRING FLD_CODLIC 3
|
|
BEGIN
|
|
PROMPT 1 2 "Codice libro incassi/pagamenti "
|
|
HELP "Indicare il codice del libro degli incassi/pagamenti"
|
|
USE REG SELECT I0=5
|
|
INPUT CODTAB[1,4] FLD_ANLIIV SELECT
|
|
INPUT CODTAB[5,7] FLD_CODLIC
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_CODLIC CODTAB[5,7]
|
|
OUTPUT FLD_DESLIC S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UZ"
|
|
FIELD CodLic
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DESLIC 50 35
|
|
BEGIN
|
|
PROMPT 40 2 ""
|
|
USE REG KEY 2 SELECT I0=5
|
|
INPUT S0 FLD_DESLIC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
|
COPY OUTPUT FLD_CODLIC
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
//STRING FLD_CODLIN 1
|
|
//BEGIN
|
|
// PROMPT 1 3 "Codice lingua "
|
|
// HELP "Lingua utilizzata"
|
|
// USE %LNG
|
|
// INPUT CODTAB FLD_CODLIN
|
|
// DISPLAY "Codice" CODTAB
|
|
// DISPLAY "Descrizione@50" S0
|
|
// OUTPUT FLD_CODLIN CODTAB
|
|
// OUTPUT FLD_DESLIN S0
|
|
// CHECKTYPE NORMAL
|
|
// FIELD CodLin
|
|
// END
|
|
|
|
// STRING FLD_DESLIN 50 35
|
|
//BEGIN
|
|
// PROMPT 40 3 ""
|
|
// HELP "Lingua utilizzata"
|
|
// USE %LNG KEY 2
|
|
// INPUT S0 FLD_DESLIN
|
|
// DISPLAY "Descrizione@50" S0
|
|
// DISPLAY "Codice" CODTAB
|
|
// COPY OUTPUT FLD_CODLIN
|
|
// CHECKTYPE NORMAL
|
|
//END
|
|
|
|
|
|
STRING FLD_COCACH 3
|
|
BEGIN
|
|
PROMPT 1 4 "Codice causale chiusura "
|
|
HELP "Codice della causale di chiusura che genererà il movimento"
|
|
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 "UZ"
|
|
FIELD CoCaCh
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCOCACH 50 35
|
|
BEGIN
|
|
PROMPT 40 4 ""
|
|
HELP "Codice della causale di chiusura che genererà il movimento"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_COCAAP 3
|
|
BEGIN
|
|
PROMPT 1 5 "Codice causale apertura "
|
|
HELP "Codice della causale di apertura che genererà il movimento"
|
|
FLAGS "UZ"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCOCAAP 50 35
|
|
BEGIN
|
|
PROMPT 40 5 ""
|
|
HELP "Codice della causale di apertura che genererà il movimento"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 11
|
|
BEGIN
|
|
PROMPT 1 8 "@bCodici sottoconto per chiusura automatica dei conti"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 26 9 "Gruppo Conto Sottoconto"
|
|
END
|
|
|
|
NUMBER FLD_CSBICHG 3
|
|
BEGIN
|
|
PROMPT 2 10 "Bilancio di chiusura "
|
|
HELP "Codice del conto di riepilogo del bilancio di chiusura"
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")&&(100@->INDBIL=="5")
|
|
JOIN LF_PCON ALIAS 100 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSBICHC 3
|
|
BEGIN
|
|
PROMPT 33 10 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di chiusura"
|
|
COPY ALL FLD_CSBICHG
|
|
FIELD CsBiChC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSBICHS 6
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di chiusura"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSBICH 50 25
|
|
BEGIN
|
|
PROMPT 50 10 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di chiusura"
|
|
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
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPRPEG 3
|
|
BEGIN
|
|
PROMPT 2 11 "Profitti e perdite "
|
|
HELP "Codice del conto di riepilogo del profitti e perdite"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPRPEC 3
|
|
BEGIN
|
|
PROMPT 33 11 ""
|
|
HELP "Codice del conto di riepilogo del profitti e perdite"
|
|
COPY ALL FLD_CSPRPEG
|
|
FIELD CsPrPeC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPRPES 6
|
|
BEGIN
|
|
PROMPT 40 11 ""
|
|
HELP "Codice del conto di riepilogo del profitti e perdite"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSPRPE 50 25
|
|
BEGIN
|
|
PROMPT 50 11 ""
|
|
HELP "Codice del conto di riepilogo del profitti e perdite"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSPRPE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPRPEG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
NUMBER FLD_CSBIAPG 3
|
|
BEGIN
|
|
PROMPT 2 12 "Bilancio di apertura "
|
|
HELP "Codice del conto di riepilogo del 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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSBIAPC 3
|
|
BEGIN
|
|
PROMPT 33 12 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di apertura"
|
|
COPY ALL FLD_CSBIAPG
|
|
FIELD CsBiApC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSBIAPS 6
|
|
BEGIN
|
|
PROMPT 40 12 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di apertura"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSBIAP 50 25
|
|
BEGIN
|
|
PROMPT 50 12 ""
|
|
HELP "Codice del conto di riepilogo del bilancio di apertura"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSBIAP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSBIAPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
|
|
NUMBER FLD_CSUECPG 3
|
|
BEGIN
|
|
PROMPT 2 13 "Utile esercizio patrim. "
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")&&(100@->INDBIL<="2")
|
|
JOIN LF_PCON ALIAS 100 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECPC 3
|
|
BEGIN
|
|
PROMPT 33 13 ""
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
COPY ALL FLD_CSUECPG
|
|
FIELD CsUeCpC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECPS 6
|
|
BEGIN
|
|
PROMPT 40 13 ""
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
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
|
|
CHECKTYPE NORMAL
|
|
FIELD CsUeCpS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSUECP 50 25
|
|
BEGIN
|
|
PROMPT 50 13 ""
|
|
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSUECP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSUECPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECPG 3
|
|
BEGIN
|
|
PROMPT 2 14 "Perdita eserc. patrim. "
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY USE FLD_CSUECPG
|
|
COPY DISPLAY FLD_CSUECPG
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECPC 3
|
|
BEGIN
|
|
PROMPT 33 14 ""
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY ALL FLD_CSPECPG
|
|
FIELD CsPeCpC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECPS 6
|
|
BEGIN
|
|
PROMPT 40 14 ""
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSPECP 50 25
|
|
BEGIN
|
|
PROMPT 50 14 ""
|
|
HELP "Codice del conto patrimoniale della perdita d'esercizio"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSPECP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPECPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSUECEG 3
|
|
BEGIN
|
|
PROMPT 2 15 "Utile esercizio econ. "
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")&&((100@->INDBIL=="3")||(100@->INDBIL=="4"))
|
|
JOIN LF_PCON ALIAS 100 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECEC 3
|
|
BEGIN
|
|
PROMPT 33 15 ""
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
COPY ALL FLD_CSUECEG
|
|
FIELD CsUeCeC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSUECES 6
|
|
BEGIN
|
|
PROMPT 40 15 ""
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSUECE 50 25
|
|
BEGIN
|
|
PROMPT 50 15 ""
|
|
HELP "Codice del conto economico dell'utile d'esercizio"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSUECE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSUECEG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSPECEG 3
|
|
BEGIN
|
|
PROMPT 2 16 "Perdita eserc. econ. "
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
COPY USE FLD_CSUECEG
|
|
COPY DISPLAY FLD_CSUECEG
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSPECEC 3
|
|
BEGIN
|
|
PROMPT 33 16 ""
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
COPY ALL FLD_CSPECEG
|
|
FIELD CsPeCeC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
NUMBER FLD_CSPECES 6
|
|
BEGIN
|
|
PROMPT 40 16 ""
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
STRING FLD_DCSPECE 50 25
|
|
BEGIN
|
|
PROMPT 50 16 ""
|
|
HELP "Codice del conto economico della perdita d'esercizio"
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
INPUT DESCR FLD_DCSPECE
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSPECEG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSAUCPG 3
|
|
BEGIN
|
|
PROMPT 2 17 "Accantonamento utili "
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY USE FLD_CSBICHG
|
|
COPY DISPLAY FLD_CSBICHG
|
|
OUTPUT FLD_CSAUCPG GRUPPO
|
|
OUTPUT FLD_CSAUCPC CONTO
|
|
OUTPUT FLD_CSAUCPS SOTTOCONTO
|
|
OUTPUT FLD_DCSAUCP DESCR
|
|
INPUT GRUPPO FLD_CSAUCPG
|
|
INPUT CONTO FLD_CSAUCPC
|
|
INPUT SOTTOCONTO FLD_CSAUCPS
|
|
FIELD CsAuCpG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSAUCPC 3
|
|
BEGIN
|
|
PROMPT 33 17 ""
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY ALL FLD_CSAUCPG
|
|
FIELD CsAuCpC
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CSAUCPS 6
|
|
BEGIN
|
|
PROMPT 40 17 ""
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY USE FLD_CSAUCPG
|
|
COPY INPUT FLD_CSAUCPG
|
|
COPY DISPLAY FLD_CSAUCPG
|
|
OUTPUT FLD_CSAUCPG GRUPPO
|
|
OUTPUT FLD_CSAUCPC CONTO
|
|
OUTPUT FLD_CSAUCPS SOTTOCONTO
|
|
OUTPUT FLD_DCSAUCP DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD CsAuCpS
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DCSAUCP 50 25
|
|
BEGIN
|
|
PROMPT 50 17 ""
|
|
HELP "Codice del conto patrimoniale per l'accantonamento utili"
|
|
COPY USE FLD_DCSBICH
|
|
INPUT DESCR FLD_DCSAUCP
|
|
COPY DISPLAY FLD_DCSBICH
|
|
COPY OUTPUT FLD_CSAUCPG
|
|
ADD RUN cg0 -0
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ratei/Risconti/IV Direttiva" -1 -1 77 8
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bFrequenza"
|
|
END
|
|
|
|
RADIOBUTTON LST_RRFRAM 20
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
HELP "Frequenza del calcolo dei ratei e risconti"
|
|
ITEM "A|Freq. Annuale"
|
|
ITEM "M|Freq. Mensile"
|
|
FIELD RrFrAm
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
BOOLEAN CHK_RRMECO
|
|
BEGIN
|
|
PROMPT 26 3 "Mese Commerciale"
|
|
HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
|
|
FIELD RrMeCo
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 6 "@bRatei"
|
|
END
|
|
|
|
STRING FLD_RRCCRA 3
|
|
BEGIN
|
|
PROMPT 2 7 "Causale "
|
|
HELP "Codice causale dei ratei per movimento di contabilità"
|
|
FLAGS "UZ"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DRRCCRA 50 52
|
|
BEGIN
|
|
PROMPT 22 7 ""
|
|
HELP "Descrizione causale dei ratei per movimento di contabilità"
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR FLD_DRRCCRA
|
|
COPY DISPLAY FLD_DCOCACH
|
|
COPY OUTPUT FLD_RRCCRA
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_RATEI_G 3
|
|
BEGIN
|
|
PROMPT 2 8 "Conto "
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RateiG
|
|
END
|
|
|
|
NUMBER FLD_RATEI_C 3
|
|
BEGIN
|
|
PROMPT 14 8 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF="")&&((INDBIL="1")||(INDBIL="2"))
|
|
INPUT GRUPPO FLD_RATEI_G
|
|
INPUT CONTO FLD_RATEI_C
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Indicatore" INDBIL
|
|
OUTPUT FLD_RATEI_G GRUPPO
|
|
OUTPUT FLD_RATEI_C CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RateiC
|
|
END
|
|
|
|
NUMBER FLD_RATEI_S 6
|
|
BEGIN
|
|
PROMPT 22 8 ""
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")
|
|
INPUT GRUPPO FLD_RATEI_G SELECT
|
|
INPUT CONTO FLD_RATEI_C SELECT
|
|
INPUT SOTTOCONTO FLD_RATEI_S
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FLD_RATEI_S SOTTOCONTO
|
|
OUTPUT FLD_RATEI_D DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RateiS
|
|
END
|
|
|
|
STRING FLD_RATEI_D 50 40
|
|
BEGIN
|
|
PROMPT 34 8 ""
|
|
USE LF_PCON KEY 2 SELECT (GRUPPO=#FLD_RATEI_G)&&(CONTO=#FLD_RATEI_C)&&(SOTTOCONTO!="")
|
|
INPUT DESCR FLD_RATEI_D
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT FLD_RATEI_S
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 11 "@bRisconti"
|
|
END
|
|
|
|
STRING FLD_RRCCRI 3
|
|
BEGIN
|
|
PROMPT 2 12 "Causale "
|
|
HELP "Codice causale dei risconti per movimento di contabilità"
|
|
FLAGS "UZ"
|
|
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
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_DRRCCRI 50 52
|
|
BEGIN
|
|
PROMPT 22 12 ""
|
|
HELP "Descrizione causale dei risconti per movimento di contabilità"
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR FLD_DRRCCRI
|
|
COPY DISPLAY FLD_DCOCACH
|
|
COPY OUTPUT FLD_RRCCRI
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_RISCO_G 3
|
|
BEGIN
|
|
PROMPT 2 13 "Conto "
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RiscontiG
|
|
END
|
|
|
|
NUMBER FLD_RISCO_C 3
|
|
BEGIN
|
|
PROMPT 14 13 ""
|
|
COPY USE FLD_RATEI_C
|
|
INPUT GRUPPO FLD_RISCO_G
|
|
INPUT CONTO FLD_RISCO_C
|
|
COPY DISPLAY FLD_RATEI_C
|
|
OUTPUT FLD_RISCO_G GRUPPO
|
|
OUTPUT FLD_RISCO_C CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RiscontiC
|
|
END
|
|
|
|
NUMBER FLD_RISCO_S 6
|
|
BEGIN
|
|
PROMPT 22 13 ""
|
|
COPY USE FLD_RATEI_S
|
|
INPUT GRUPPO FLD_RISCO_G SELECT
|
|
INPUT CONTO FLD_RISCO_C SELECT
|
|
INPUT SOTTOCONTO FLD_RISCO_S
|
|
COPY DISPLAY FLD_RATEI_S
|
|
OUTPUT FLD_RISCO_S SOTTOCONTO
|
|
OUTPUT FLD_RISCO_D DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP GROUP_CONTABILITA
|
|
FIELD RiscontiS
|
|
END
|
|
|
|
STRING FLD_RISCO_D 50 40
|
|
BEGIN
|
|
PROMPT 34 13 ""
|
|
USE LF_PCON KEY 2 SELECT (GRUPPO=#FLD_RISCO_G)&&(CONTO=#FLD_RISCO_C)&&(SOTTOCONTO!="")
|
|
INPUT DESCR FLD_RISCO_D
|
|
COPY DISPLAY FLD_RATEI_D
|
|
COPY OUTPUT FLD_RISCO_S
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 6
|
|
BEGIN
|
|
PROMPT 1 15 "@bConto Utile IV direttiva"
|
|
END
|
|
|
|
LIST FLD_SEZ 1 18
|
|
BEGIN
|
|
PROMPT 2 16 "Sezione "
|
|
ITEM "1|Attivita'"
|
|
ITEM "2|Passivita'"
|
|
ITEM "9|Conto economico"
|
|
KEY 1
|
|
FIELD SezIVDUtile
|
|
HELP "Sezione utile IV dir. CEE"
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_LETT 1
|
|
BEGIN
|
|
PROMPT 2 17 "Lettera "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE %IVD SELECT CODTAB?="??"
|
|
INPUT CODTAB[1,1] FLD_SEZ
|
|
INPUT CODTAB[2,2] FLD_LETT
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_SEZ CODTAB[1,1]
|
|
OUTPUT FLD_LETT CODTAB[2,2]
|
|
CHECKTYPE NORMAL
|
|
FIELD LettIVDUtile
|
|
HELP "Lettera utile IV dir. CEE"
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
NUMBER FLD_CLASSE 8 4
|
|
BEGIN
|
|
PROMPT 2 18 "Classe "
|
|
FLAGS "MZ"
|
|
KEY 1
|
|
USE %IVD SELECT CODTAB[7,10]==""
|
|
COPY INPUT FLD_LETT
|
|
INPUT CODTAB[3,6] FLD_CLASSE
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Classe @M" CODTAB[3,6]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_SEZ CODTAB[1,1]
|
|
OUTPUT FLD_LETT CODTAB[2,2]
|
|
OUTPUT FLD_CLASSE CODTAB[3,6]
|
|
CHECKTYPE NORMAL
|
|
FIELD ClasseIVDUtile
|
|
HELP "Classe utile IV dir. CEE (numero romano)"
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_NUM 2
|
|
BEGIN
|
|
PROMPT 2 19 "Numero "
|
|
KEY 1
|
|
USE %IVD
|
|
COPY INPUT FLD_CLASSE
|
|
INPUT CODTAB[7,8] FLD_NUM
|
|
INPUT CODTAB[9,10] FLD_SUB
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Classe @M" CODTAB[3,6]
|
|
DISPLAY "Numero" CODTAB[7,12]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_SEZ CODTAB[1,1]
|
|
OUTPUT FLD_LETT CODTAB[2,2]
|
|
OUTPUT FLD_CLASSE CODTAB[3,6]
|
|
OUTPUT FLD_NUM CODTAB[7,8]
|
|
OUTPUT FLD_SUB CODTAB[9,10]
|
|
OUTPUT FLD_SOTSUB CODTAB[11,12]
|
|
MESSAGE EMPTY CLEAR,FLD_SUB
|
|
MESSAGE ENABLE,FLD_SUB
|
|
FIELD NumIVDUtile
|
|
HELP "Numero (arabo) secondo la IV dir. CEE"
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
LIST FLD_SUB 2 9
|
|
BEGIN
|
|
PROMPT 15 19 ""
|
|
ITEM " |"
|
|
ITEM "02|Bis"
|
|
ITEM "03|Ter"
|
|
ITEM "04|Quater"
|
|
ITEM "05|Quinquies"
|
|
ITEM "06|Sexies"
|
|
FIELD SubIVDUtile
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
STRING FLD_SOTSUB 2
|
|
BEGIN
|
|
PROMPT 30 19 ""
|
|
FIELD SotSubIVDUtile
|
|
GROUP GROUP_CONTABILITA
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|