388 lines
8.6 KiB
Plaintext
Executable File
388 lines
8.6 KiB
Plaintext
Executable File
#include "cg0100.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Piano dei conti " 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_CM1_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 2 1 "Gruppo "
|
|
HELP "Codice del gruppo"
|
|
FIELD LF_PCON->GRUPPO
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
|
INPUT GRUPPO FLD_CM1_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
|
OUTPUT FLD_CM1_DESCG DESCR
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FLD_CM1_DESCG 50
|
|
BEGIN
|
|
PROMPT 23 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FLD_CM1_CONTO 3
|
|
BEGIN
|
|
PROMPT 2 2 "Conto "
|
|
HELP "Codice dell'eventuale conto"
|
|
FIELD LF_PCON->CONTO
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
|
COPY INPUT FLD_CM1_GRUPPO
|
|
INPUT CONTO FLD_CM1_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
|
OUTPUT FLD_CM1_CONTO CONTO
|
|
OUTPUT FLD_CM1_DESCC DESCR
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 FLD_CM1_SOTTOCONTO
|
|
WARNING "Manca il conto"
|
|
END
|
|
|
|
STRING FLD_CM1_DESCC 50
|
|
BEGIN
|
|
PROMPT 23 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FLD_CM1_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 2 3 "Sottoconto "
|
|
HELP "Codice dell'eventuale sottoconto"
|
|
FIELD LF_PCON->SOTTOCONTO
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
COPY INPUT FLD_CM1_CONTO
|
|
INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Descrizione@70" DESCR
|
|
OUTPUT FLD_CM1_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
|
OUTPUT FLD_CM1_CONTO CONTO
|
|
OUTPUT FLD_CM1_DESC DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER FH_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 60 1 ""
|
|
FLAGS "HG"
|
|
USE LF_PCON KEY 1
|
|
COPY INPUT FLD_CM1_SOTTOCONTO
|
|
COPY DISPLAY FLD_CM1_SOTTOCONTO
|
|
COPY OUTPUT FLD_CM1_SOTTOCONTO
|
|
END
|
|
|
|
STRING FLD_CM1_DESC 50
|
|
BEGIN
|
|
PROMPT 23 3 ""
|
|
FIELD LF_PCON->DESCR
|
|
KEY 2
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR FLD_CM1_DESC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto " SOTTOCONTO
|
|
COPY OUTPUT FLD_CM1_SOTTOCONTO
|
|
CHECKTYPE REQUIRED
|
|
HELP "Descrizione del gruppo o del conto o del sottoconto"
|
|
WARNING "Manca la descrizione"
|
|
END
|
|
|
|
NUMBER FLD_CM1_CODTABANALISI 10
|
|
BEGIN
|
|
PROMPT 1 5 "Codice Tabella Analisi "
|
|
HELP "Codice di raggruppamento per l'analisi di bilancio"
|
|
FIELD LF_PCON->CODCBL
|
|
USE LF_ABPCON
|
|
INPUT CODCBL FLD_CM1_CODTABANALISI
|
|
DISPLAY "Codice@11" CODCBL
|
|
DISPLAY "Descrizione@40" DESCRIZ[1,40]
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice opp.@11" CODCONTR
|
|
OUTPUT FLD_CM1_CODTABANALISI CODCBL
|
|
OUTPUT FLD_CM1_DESCRANALISI DESCRIZ[1,40]
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice tabella non presente"
|
|
FLAGS "Z"
|
|
ADD RUN AB0 -1
|
|
END
|
|
|
|
STRING FLD_CM1_DESCRANALISI 40
|
|
BEGIN
|
|
PROMPT 38 5 ""
|
|
USE LF_ABPCON KEY 2
|
|
INPUT DESCRIZ FLD_CM1_DESCRANALISI
|
|
DISPLAY "Descrizione@40" DESCRIZ[1,40]
|
|
DISPLAY "Codice@11" CODCBL
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice opp.@11" CODCONTR
|
|
OUTPUT FLD_CM1_CODTABANALISI CODCBL
|
|
OUTPUT FLD_CM1_DESCRANALISI DESCRIZ[1,40]
|
|
ADD RUN AB0 -1
|
|
END
|
|
|
|
LIST FLD_CM1_INDBIL 1 22
|
|
BEGIN
|
|
PROMPT 1 6 "Sezione di bilancio "
|
|
FIELD LF_PCON->INDBIL
|
|
GROUP 1 3
|
|
HELP "Sezione di appartenenza del conto"
|
|
ITEM "1|1. Attivita'"
|
|
ITEM "2|2. Passivita'"
|
|
ITEM "3|3. Costi"
|
|
ITEM "4|4. Ricavi"
|
|
ITEM "5|5. Conti d'ordine"
|
|
END
|
|
|
|
LIST FLD_CM1_SEZIVD 1 22
|
|
BEGIN
|
|
PROMPT 1 7 "Sez. e classe IV dir. "
|
|
FIELD LF_PCON->SEZIVD
|
|
ITEM "0|0. Nessuna" MESSAGE CLEAR,5@|CLEAR,6@
|
|
ITEM "1|1. Attivita'" MESSAGE ENABLE,5@|ENABLE,6@
|
|
ITEM "2|2. Passivita'" MESSAGE ENABLE,5@|ENABLE,6@
|
|
ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,5@|ENABLE,6@
|
|
ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,5@|ENABLE,6@
|
|
ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,5@|ENABLE,6@
|
|
ITEM "9|9. Conto economico" MESSAGE ENABLE,5@|ENABLE,6@
|
|
HELP "Codice del conto secondo la IV direttiva CEE"
|
|
GROUP 1 4
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVD 1 1
|
|
BEGIN
|
|
PROMPT 56 7 ""
|
|
HELP "Codice del conto secondo la IV direttiva CEE"
|
|
FIELD LF_PCON->LETTIVD
|
|
GROUP 1 5
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVDH 1
|
|
BEGIN
|
|
PROMPT 56 7 ""
|
|
FLAGS "HDU"
|
|
GROUP 1 5
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVD 8 4
|
|
BEGIN
|
|
PROMPT 60 7 ""
|
|
HELP "Codice del conto secondo la IV direttiva CEE"
|
|
FIELD LF_PCON->NUMRIVD
|
|
GROUP 1 5
|
|
FLAGS "MZ"
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDH 8 4
|
|
BEGIN
|
|
PROMPT 60 7 ""
|
|
FLAGS "HDMZ"
|
|
GROUP 1 5
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVD 2
|
|
BEGIN
|
|
PROMPT 71 7 ""
|
|
HELP "Codice del conto secondo la IV direttiva CEE"
|
|
FIELD LF_PCON->NUMIVD
|
|
FLAGS "Z"
|
|
GROUP 1 5
|
|
USE %IVD
|
|
INPUT CODTAB[1,1] FLD_CM1_SEZIVD
|
|
INPUT CODTAB[2,2] FLD_CM1_LETTIVD
|
|
INPUT CODTAB[3,6] FLD_CM1_NUMRIVD
|
|
INPUT CODTAB[7,8] FLD_CM1_NUMIVD
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Classe @M" CODTAB[3,6]
|
|
DISPLAY "Numero" CODTAB[7,8]
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT FLD_CM1_SEZIVD CODTAB[1,1]
|
|
OUTPUT FLD_CM1_LETTIVD CODTAB[2,2]
|
|
OUTPUT FLD_CM1_NUMRIVD CODTAB[3,6]
|
|
OUTPUT FLD_CM1_NUMIVD CODTAB[7,8]
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVDH 2
|
|
BEGIN
|
|
PROMPT 71 7 ""
|
|
FLAGS "HDRZ"
|
|
GROUP 1 5
|
|
END
|
|
|
|
LIST FLD_CM1_SEZIVDOPP 1 22
|
|
BEGIN
|
|
PROMPT 1 8 "Classe segno opposto "
|
|
FIELD LF_PCON->SEZIVDOPP
|
|
GROUP 1 2 4 6
|
|
ITEM "0|0. Nessuna" MESSAGE CLEAR,7@
|
|
ITEM "1|1. Attivita'" MESSAGE ENABLE,7@
|
|
ITEM "2|2. Passivita'" MESSAGE ENABLE,7@
|
|
ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,7@
|
|
ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,7@
|
|
ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,7@
|
|
ITEM "9|9. Conto economico" MESSAGE ENABLE,7@
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVDOPP 1
|
|
BEGIN
|
|
PROMPT 56 8 ""
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
FIELD LF_PCON->LETTIVDOPP
|
|
FLAGS "U"
|
|
GROUP 1 2 4 7
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDOPP 8 4
|
|
BEGIN
|
|
PROMPT 60 8 ""
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
FIELD LF_PCON->NUMRIVDOPP
|
|
FLAGS "MZ"
|
|
GROUP 1 2 4 7
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVDOPP 2
|
|
BEGIN
|
|
PROMPT 71 8 ""
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
FIELD LF_PCON->NUMIVDOPP
|
|
FLAGS "RZ"
|
|
GROUP 1 2 4 7
|
|
COPY USE FLD_CM1_NUMIVD
|
|
INPUT CODTAB[1,1] FLD_CM1_SEZIVDOPP
|
|
INPUT CODTAB[2,2] FLD_CM1_LETTIVDOPP
|
|
INPUT CODTAB[3,6] FLD_CM1_NUMRIVDOPP
|
|
INPUT CODTAB[7,8] FLD_CM1_NUMIVDOPP
|
|
COPY DISPLAY FLD_CM1_NUMIVD
|
|
OUTPUT FLD_CM1_SEZIVDOPP CODTAB[1,1]
|
|
OUTPUT FLD_CM1_LETTIVDOPP CODTAB[2,2]
|
|
OUTPUT FLD_CM1_NUMRIVDOPP CODTAB[3,6]
|
|
OUTPUT FLD_CM1_NUMIVDOPP CODTAB[7,8]
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
END
|
|
|
|
LIST FLD_CM1_TIPOSPRIC 1 50
|
|
BEGIN
|
|
PROMPT 1 9 "Tipo Spesa/Ricavo "
|
|
FIELD LF_PCON->TIPOSPRIC
|
|
GROUP 1 2
|
|
HELP "Specificare il tipo do conto"
|
|
ITEM "0|0. Acquisti o vendite in genere"
|
|
ITEM "1|1. Acquisti beni per rivendita"
|
|
ITEM "2|2. Acquisti beni ammortizzabili"
|
|
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
|
|
ITEM "4|4. Vendita beni strumentali art. 17"
|
|
ITEM "5|5. Beni per rivendita da non ventilare"
|
|
ITEM "8|8. Altri beni strumentali acquistati in leasing"
|
|
ITEM "9|9. Spese Generali"
|
|
END
|
|
|
|
LIST FLD_CM1_RICSER 1 18
|
|
BEGIN
|
|
PROMPT 1 10 "Ricavi per servizi "
|
|
FIELD RICSER
|
|
FLAGS "H"
|
|
ITEM "0|Altre attivita'"
|
|
ITEM "1|Servizi"
|
|
END
|
|
|
|
LIST FLD_CM1_TMCF 1 13
|
|
BEGIN
|
|
PROMPT 1 11 "Tipo sottoconti "
|
|
FIELD LF_PCON->TMCF
|
|
GROUP 1 3
|
|
HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
|
|
ITEM " |Normali"
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
END
|
|
|
|
LIST FLD_CM2_SEZSALDI 1 10
|
|
BEGIN
|
|
PROMPT 1 12 "Controllo saldo primanota "
|
|
HELP "Tipo di controllo del saldo in prima nota"
|
|
FIELD LF_PCON->SEZSALDI
|
|
GROUP 1
|
|
ITEM " |Nessuno"
|
|
ITEM "A|Avere"
|
|
ITEM "D|Dare"
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTBIL
|
|
BEGIN
|
|
PROMPT 1 14 "Non stampare dett.sottoc. su bilanci a sezioni"
|
|
HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci a sezioni contrapposte"
|
|
FIELD LF_PCON->STSOTTBIL
|
|
GROUP 1 3
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_COMPENS
|
|
BEGIN
|
|
PROMPT 56 14 "Compensazione saldi"
|
|
HELP "Indicare se e' ammessa la compensazione dei saldi"
|
|
FIELD LF_PCON->COMPENS
|
|
GROUP 1 3
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTAB
|
|
BEGIN
|
|
PROMPT 1 15 "Stampa dettaglio sottoconti su analisi"
|
|
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
|
|
FIELD LF_PCON->STSOTTAB
|
|
FLAGS "H"
|
|
GROUP 1 3
|
|
MESSAGE COPY,FLD_CM2_STSOTTABS
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTABS
|
|
BEGIN
|
|
PROMPT 1 15 "Stampa dettaglio movimenti su analisi "
|
|
FIELD LF_PCON->STSOTTAB
|
|
FLAGS "H"
|
|
GROUP 1 2
|
|
MESSAGE COPY,FLD_CM2_STSOTTAB
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_SOSPESO
|
|
BEGIN
|
|
PROMPT 56 15 "Conto sospeso"
|
|
HELP "Indicare se sospendere il conto in prima nota"
|
|
FIELD LF_PCON->SOSPESO
|
|
GROUP 1 2
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|