326 lines
6.7 KiB
Plaintext
Executable File
326 lines
6.7 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 4
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_CM1_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 6 1 "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_DESC DESCR
|
|
END
|
|
|
|
NUMBER FLD_CM1_CONTO 3
|
|
BEGIN
|
|
PROMPT 31 1 "Conto "
|
|
FIELD LF_PCON->CONTO
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_PCON KEY 1 SELECT 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_DESC DESCR
|
|
END
|
|
|
|
NUMBER FLD_CM1_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 51 1 "Sottoconto "
|
|
FIELD LF_PCON->SOTTOCONTO
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_PCON KEY 1
|
|
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
|
|
END
|
|
|
|
STRING FLD_CM1_DESC 50
|
|
BEGIN
|
|
PROMPT 6 2 "Descrizione "
|
|
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 conto"
|
|
WARNING "Manca la descrizione del conto"
|
|
END
|
|
|
|
NUMBER FLD_CM1_CODTABANALISI 10
|
|
BEGIN
|
|
PROMPT 1 5 "Codice Tabella Analisi "
|
|
FIELD LF_PCON->CODCBL
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_CM1_CODANALISIH 10
|
|
BEGIN
|
|
PROMPT 1 5 "Codice Tabella Analisi "
|
|
FLAGS "RHD"
|
|
END
|
|
|
|
LIST FLD_CM1_INDBIL 1 22
|
|
BEGIN
|
|
PROMPT 1 6 "Sezione di bilancio "
|
|
FIELD LF_PCON->INDBIL
|
|
GROUP 1 3
|
|
HELP "Indicatore di bilancio"
|
|
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
|
|
GROUP 1 4
|
|
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"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVD 1 1
|
|
BEGIN
|
|
PROMPT 56 7 ""
|
|
FIELD LF_PCON->LETTIVD
|
|
GROUP 1 5
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVDH 1
|
|
BEGIN
|
|
PROMPT 56 7 ""
|
|
FLAGS "HDU"
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVD 8 4
|
|
BEGIN
|
|
PROMPT 60 7 ""
|
|
FIELD LF_PCON->NUMRIVD
|
|
GROUP 1 5
|
|
FLAGS "MZ"
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDH 8 4
|
|
BEGIN
|
|
PROMPT 60 7 ""
|
|
FLAGS "HDMZ"
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVD 2
|
|
BEGIN
|
|
PROMPT 71 7 ""
|
|
FIELD LF_PCON->NUMIVD
|
|
FLAGS "RZ"
|
|
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 ""
|
|
FIELD LF_PCON->LETTIVDOPP
|
|
FLAGS "U"
|
|
GROUP 1 2 4 7
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDOPP 8 4
|
|
BEGIN
|
|
PROMPT 60 8 ""
|
|
FIELD LF_PCON->NUMRIVDOPP
|
|
FLAGS "MZ"
|
|
GROUP 1 2 4 7
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVDOPP 2
|
|
BEGIN
|
|
PROMPT 71 8 ""
|
|
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 Spesa/Ricavo"
|
|
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 "Inserire il tipo dei sottoconti"
|
|
ITEM " |Normali"
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
END
|
|
|
|
LIST FLD_CM2_SEZSALDI 1 10
|
|
BEGIN
|
|
PROMPT 1 12 "Controllo saldo primanota "
|
|
FIELD LF_PCON->SEZSALDI
|
|
GROUP 1
|
|
ITEM " |Nessuno"
|
|
ITEM "A|Avere"
|
|
ITEM "D|Dare"
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTBIL
|
|
BEGIN
|
|
PROMPT 1 14 "Stampa dettaglio sottoconti su bilanci "
|
|
FIELD LF_PCON->STSOTTBIL
|
|
GROUP 1 3
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_COMPENS
|
|
BEGIN
|
|
PROMPT 50 14 "Compensazione saldi "
|
|
FIELD LF_PCON->COMPENS
|
|
GROUP 1 3
|
|
END
|
|
|
|
BOOLEAN FLD_CM2_STSOTTAB
|
|
BEGIN
|
|
PROMPT 1 15 "Stampa dettaglio sottoconti su analisi "
|
|
FIELD LF_PCON->STSOTTAB
|
|
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 50 15 "Conto sospeso"
|
|
FIELD LF_PCON->SOSPESO
|
|
GROUP 1 2
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|