fd43b6d1c1
Files correlati : ba7.exe Ricompilazione Demo : [ ] Commento : Aggiormaneto maschere all 10.0 ( nuove toolbar modulo di contabblità git-svn-id: svn://10.65.10.50/trunk@16488 c028cbd2-c16b-5b4b-a496-9718f37d4682
518 lines
11 KiB
Plaintext
Executable File
518 lines
11 KiB
Plaintext
Executable File
#include "cg0100.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Piano dei conti " 0 0 0 0
|
|
|
|
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 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 24 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FLD_CM1_CONTO 3
|
|
BEGIN
|
|
PROMPT 2 2 "Conto "
|
|
HELP "Codice dell'eventuale conto"
|
|
FIELD 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 24 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FLD_CM1_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 2 3 "Sottoconto "
|
|
HELP "Codice dell'eventuale sottoconto"
|
|
FIELD SOTTOCONTO
|
|
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 "Sosp." SOSPESO
|
|
DISPLAY "Descrizione@50" 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 24 3 ""
|
|
FIELD DESCR
|
|
KEY 2
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR FLD_CM1_DESC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Sosp." 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 "Descrizione mancante"
|
|
END
|
|
|
|
NUMBER FLD_CM1_CODTABANALISI 12
|
|
BEGIN
|
|
PROMPT 1 5 "Codice Tabella Analisi "
|
|
HELP "Codice di raggruppamento per l'analisi di bilancio"
|
|
FIELD CODCBL
|
|
USE LF_ABPCON
|
|
INPUT CODCBL FLD_CM1_CODTABANALISI
|
|
DISPLAY "Codice@12" 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 34
|
|
BEGIN
|
|
PROMPT 40 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 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 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 51 7 ""
|
|
HELP "Codice del conto secondo la IV direttiva CEE"
|
|
FIELD LETTIVD
|
|
GROUP 1 5
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVDH 1
|
|
BEGIN
|
|
PROMPT 51 7 ""
|
|
FLAGS "HDU"
|
|
GROUP 1 5
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVD 8 4
|
|
BEGIN
|
|
PROMPT 55 7 ""
|
|
HELP "Codice del conto secondo la IV direttiva CEE"
|
|
FIELD NUMRIVD
|
|
GROUP 1 5
|
|
FLAGS "MZ"
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDH 8 4
|
|
BEGIN
|
|
PROMPT 55 7 ""
|
|
FLAGS "HDMZ"
|
|
GROUP 1 5
|
|
END
|
|
|
|
STRING FLD_CM1_NUMIVD 2
|
|
BEGIN
|
|
PROMPT 64 7 ""
|
|
FIELD NUMIVD[1,2]
|
|
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
|
|
INPUT CODTAB[9,10] F_SUB
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Classe @M" CODTAB[3,6]
|
|
DISPLAY "Numero" CODTAB[7,10]
|
|
DISPLAY "Descrizione@50" 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]
|
|
OUTPUT F_SUB CODTAB[9,10]
|
|
OUTPUT FLD_CM1_DESCIVD S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
END
|
|
|
|
LIST F_SUB 2 9
|
|
BEGIN
|
|
PROMPT 69 7 ""
|
|
GROUP 1 5
|
|
ITEM " |"
|
|
ITEM "02|Bis"
|
|
ITEM "03|Ter"
|
|
ITEM "04|Quater"
|
|
ITEM "05|Quinquies"
|
|
ITEM "06|Sexies"
|
|
FIELD NUMIVD[3,4]
|
|
KEY 1
|
|
END
|
|
|
|
LIST FLD_CM1_NUMIVDH 2 9
|
|
BEGIN
|
|
PROMPT 64 7 ""
|
|
FLAGS "HD"
|
|
GROUP 1 5
|
|
ITEM " |"
|
|
ITEM "02|Bis"
|
|
ITEM "03|Ter"
|
|
ITEM "04|Quater"
|
|
ITEM "05|Quinquies"
|
|
ITEM "06|Sexies"
|
|
END
|
|
|
|
LIST F_SUBH 2 9
|
|
BEGIN
|
|
PROMPT 69 7 ""
|
|
GROUP 1 5
|
|
ITEM " |"
|
|
ITEM "02|Bis"
|
|
ITEM "03|Ter"
|
|
ITEM "04|Quater"
|
|
ITEM "05|Quinquies"
|
|
ITEM "06|Sexies"
|
|
KEY 1
|
|
END
|
|
|
|
STRING FLD_CM1_DESCIVD 70 50
|
|
BEGIN
|
|
PROMPT 24 8 ""
|
|
USE %IVD KEY 2
|
|
INPUT S0 FLD_CM1_DESCIVD
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Classe @M" CODTAB[3,6]
|
|
DISPLAY "Numero" CODTAB[7,10]
|
|
COPY OUTPUT FLD_CM1_NUMIVD
|
|
CHECKTYPE NORMAL
|
|
GROUP 1 5
|
|
END
|
|
|
|
|
|
STRING FLD_CM1_DESCIVDH 70 50
|
|
BEGIN
|
|
PROMPT 24 8 ""
|
|
FLAGS "HD"
|
|
GROUP 1 5
|
|
END
|
|
|
|
LIST FLD_CM1_SEZIVDOPP 1 22
|
|
BEGIN
|
|
PROMPT 1 9 "Classe segno opposto "
|
|
FIELD 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 51 9 ""
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
FIELD LETTIVDOPP
|
|
FLAGS "U"
|
|
GROUP 1 2 4 7
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDOPP 8 4
|
|
BEGIN
|
|
PROMPT 55 9 ""
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
FIELD NUMRIVDOPP
|
|
FLAGS "MZ"
|
|
GROUP 1 2 4 7
|
|
END
|
|
|
|
STRING FLD_CM1_NUMIVDOPP 2
|
|
BEGIN
|
|
PROMPT 64 9 ""
|
|
HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
FIELD NUMIVDOPP[1,2]
|
|
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
|
|
INPUT CODTAB[9,10] F_SUBOPP
|
|
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]
|
|
OUTPUT F_SUBOPP CODTAB[9,10]
|
|
OUTPUT FLD_CM1_DESCIVDOPP S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
END
|
|
|
|
LIST F_SUBOPP 9
|
|
BEGIN
|
|
PROMPT 69 9 ""
|
|
GROUP 1 2 4 7
|
|
ITEM " |"
|
|
ITEM "02|Bis"
|
|
ITEM "03|Ter"
|
|
ITEM "04|Quater"
|
|
ITEM "05|Quinquies"
|
|
ITEM "06|Sexies"
|
|
FIELD NUMIVDOPP[3,4]
|
|
KEY 1
|
|
END
|
|
|
|
STRING FLD_CM1_DESCIVDOPP 70 50
|
|
BEGIN
|
|
PROMPT 24 10 ""
|
|
GROUP 1 2 4 7
|
|
USE %IVD KEY 2
|
|
INPUT S0 FLD_CM1_DESCIVDOPP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Sezione" CODTAB[1,1]
|
|
DISPLAY "Lettera" CODTAB[2,2]
|
|
DISPLAY "Classe @M" CODTAB[3,6]
|
|
DISPLAY "Numero" CODTAB[7,10]
|
|
COPY OUTPUT FLD_CM1_NUMIVDOPP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST FLD_CM1_TIPOSPRIC 1 50
|
|
BEGIN
|
|
PROMPT 1 11 "Tipo Spesa/Ricavo "
|
|
FIELD 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 12 "Ricavi per servizi "
|
|
FIELD RICSER
|
|
FLAGS "H"
|
|
ITEM "0|Altre attivita'"
|
|
ITEM "1|Servizi"
|
|
END
|
|
|
|
STRING FLD_CM1_IVACOMP 4
|
|
BEGIN
|
|
PROMPT 1 13 "Cod. IVA compensazione "
|
|
FIELD IVACOMP
|
|
GROUP 1 2
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB FLD_CM1_IVACOMP
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT FLD_CM1_IVACOMP CODTAB
|
|
OUTPUT FLD_CM1_DESCIVACOMP S0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
STRING FLD_CM1_DESCIVACOMP 50 38
|
|
BEGIN
|
|
PROMPT 36 13 ""
|
|
GROUP 1 2
|
|
USE %IVA KEY 2
|
|
INPUT S0 FLD_CM1_DESCIVACOMP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
COPY OUTPUT FLD_CM1_IVACOMP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST FLD_CM1_TMCF 1 13
|
|
BEGIN
|
|
PROMPT 1 13 "Tipo sottoconti "
|
|
FIELD 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 14 "Controllo saldo primanota "
|
|
HELP "Tipo di controllo del saldo in prima nota"
|
|
FIELD SEZSALDI
|
|
GROUP 1
|
|
ITEM " |Nessuno"
|
|
ITEM "A|Avere"
|
|
ITEM "D|Dare"
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTBIL
|
|
BEGIN
|
|
PROMPT 1 15 "Non stampare dett.sottoc. su bilanci a sezioni"
|
|
HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci a sezioni contrapposte"
|
|
FIELD STSOTTBIL
|
|
GROUP 1 3
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_COMPENS
|
|
BEGIN
|
|
PROMPT 56 15 "Compensazione saldi"
|
|
HELP "Indicare se e' ammessa la compensazione dei saldi"
|
|
FIELD COMPENS
|
|
GROUP 1 3
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTAB
|
|
BEGIN
|
|
PROMPT 1 16 "Stampa dettaglio sottoconti su analisi"
|
|
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
|
|
FIELD STSOTTAB
|
|
// FLAGS "H"
|
|
GROUP 1 3
|
|
MESSAGE COPY,FLD_CM2_STSOTTABS
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTABS
|
|
BEGIN
|
|
PROMPT 1 16 "Stampa dettaglio movimenti su analisi "
|
|
FIELD STSOTTAB
|
|
// FLAGS "H"
|
|
GROUP 1 2
|
|
MESSAGE COPY,FLD_CM2_STSOTTAB
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_SOSPESO
|
|
BEGIN
|
|
PROMPT 56 16 "Conto sospeso"
|
|
HELP "Indicare se sospendere il conto in prima nota"
|
|
FIELD SOSPESO
|
|
GROUP 1 2
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_CMSNEEDED
|
|
BEGIN
|
|
PROMPT 1 17 "Conto attivo per contabilita' analitica"
|
|
FIELD ANALITICA
|
|
GROUP 8
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|