332 lines
6.5 KiB
Plaintext
Executable File
332 lines
6.5 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 70 4
|
|
BEGIN
|
|
PROMPT 2 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_CM1_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 4 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
|
|
HELP "Inserire il gruppo"
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
NUMBER FLD_CM1_CONTO 3
|
|
BEGIN
|
|
PROMPT 25 1 "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_DESC DESCR
|
|
HELP "Inserire il conto"
|
|
END
|
|
|
|
NUMBER FLD_CM1_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 48 1 "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 "Descrizione@50" DESCR
|
|
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
|
OUTPUT FLD_CM1_CONTO CONTO
|
|
OUTPUT FLD_CM1_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT FLD_CM1_DESC DESCR
|
|
HELP "Inserire il sottoconto"
|
|
END
|
|
|
|
STRING FLD_CM1_DESC 50
|
|
BEGIN
|
|
PROMPT 4 2 "Descrizione "
|
|
FIELD LF_PCON->DESCR
|
|
KEY 2
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR FLD_CM1_DESC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto " SOTTOCONTO
|
|
COPY OUTPUT FLD_CM1_SOTTOCONTO
|
|
HELP "Inserire la descrizione del conto"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER FLD_CM1_CODTABANALISI 10
|
|
BEGIN
|
|
PROMPT 4 5 "Codice Tabella Analisi "
|
|
FIELD LF_PCON->CODCBL
|
|
FLAGS "R"
|
|
HELP "Inserisci il codice "
|
|
END
|
|
|
|
NUMBER FLD_CM1_CODANALISIH 10
|
|
BEGIN
|
|
PROMPT 4 5 "Codice Tabella Analisi "
|
|
FLAGS "RHD"
|
|
END
|
|
|
|
LIST FLD_CM1_INDBIL 1 17
|
|
BEGIN
|
|
PROMPT 4 6 "Indicatore di bilancio "
|
|
FIELD LF_PCON->INDBIL
|
|
GROUP 1 3
|
|
HELP "Inserire l' indicatore di bilancio"
|
|
ITEM "1|Attivita'"
|
|
ITEM "2|Passivita'"
|
|
ITEM "3|Costi"
|
|
ITEM "4|Ricavi"
|
|
ITEM "5|Conti d'ordine"
|
|
END
|
|
|
|
LIST FLD_CM1_SEZIVD 1 17
|
|
BEGIN
|
|
PROMPT 4 7 "Sez. e classe IV dir.: "
|
|
FIELD LF_PCON->SEZIVD
|
|
GROUP 1 4
|
|
ITEM "0|Nessuna"
|
|
ITEM "1|Attivita'"
|
|
ITEM "2|Passivita'"
|
|
ITEM "9|Conto economico"
|
|
HELP "Inserire il codice del conto secondo la IV direttiva CEE"
|
|
END
|
|
|
|
LIST FLD_CM1_SEZIVDH 1 19
|
|
BEGIN
|
|
PROMPT 4 7 "Sez. e classe IV dir.: "
|
|
FIELD LF_PCON->SEZIVD
|
|
ITEM "0|Nessuna"
|
|
ITEM "1|C.ordine attivo"
|
|
ITEM "2|C.ordine passivo"
|
|
ITEM "5|C.ordine"
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVD 1 1
|
|
BEGIN
|
|
PROMPT 51 7 ""
|
|
FIELD LF_PCON->LETTIVD
|
|
GROUP 1 4
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVDH 1
|
|
BEGIN
|
|
PROMPT 51 7 ""
|
|
FLAGS "HDU"
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVD 8 4
|
|
BEGIN
|
|
PROMPT 55 7 ""
|
|
FIELD LF_PCON->NUMRIVD
|
|
GROUP 1 4
|
|
FLAGS "MZ"
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDH 8 4
|
|
BEGIN
|
|
PROMPT 55 7 ""
|
|
FLAGS "HDMZ"
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVD 2
|
|
BEGIN
|
|
PROMPT 66 7 ""
|
|
FIELD LF_PCON->NUMIVD
|
|
FLAGS "RZ"
|
|
GROUP 1 4
|
|
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 " CODTAB[3,6]
|
|
DISPLAY "Numero" CODTAB[7,8]
|
|
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]
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVDH 2
|
|
BEGIN
|
|
PROMPT 66 7 ""
|
|
FLAGS "HDRZ"
|
|
GROUP 1 4
|
|
END
|
|
|
|
LIST FLD_CM1_SEZIVDOPP 1 17
|
|
BEGIN
|
|
PROMPT 4 8 "Classe segno opp.: "
|
|
FIELD LF_PCON->SEZIVDOPP
|
|
GROUP 1 2 4
|
|
ITEM "0|Nessuna"
|
|
ITEM "1|Attivita'"
|
|
ITEM "2|Passivita'"
|
|
ITEM "9|Conto economico"
|
|
HELP "Inserire il codice del conto di sezione opposta secondo la IV direttiva CEE"
|
|
END
|
|
|
|
STRING FLD_CM1_LETTIVDOPP 1
|
|
BEGIN
|
|
PROMPT 51 8 ""
|
|
FIELD LF_PCON->LETTIVDOPP
|
|
FLAGS "U"
|
|
GROUP 1 2 4
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMRIVDOPP 8 4
|
|
BEGIN
|
|
PROMPT 55 8 ""
|
|
FIELD LF_PCON->NUMRIVDOPP
|
|
FLAGS "MZ"
|
|
GROUP 1 2 4
|
|
END
|
|
|
|
NUMBER FLD_CM1_NUMIVDOPP 2
|
|
BEGIN
|
|
PROMPT 66 8 ""
|
|
FIELD LF_PCON->NUMIVDOPP
|
|
FLAGS "RZ"
|
|
GROUP 1 2 4
|
|
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 45
|
|
BEGIN
|
|
PROMPT 4 9 "Tipo Spesa/Ricavo "
|
|
FIELD LF_PCON->TIPOSPRIC
|
|
GROUP 1
|
|
HELP "Specificare il tipo Spesa/Ricavo"
|
|
ITEM "0|Acquisti o vendite in genere"
|
|
ITEM "1|Acquisti beni per rivendita"
|
|
ITEM "2|Acquisti beni ammortizzabili"
|
|
ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
|
|
ITEM "4|Vendita beni strumentali art. 17"
|
|
ITEM "5|Beni per rivendita da non ventilare"
|
|
ITEM "8|Altri beni strumentali acquistati in leasing"
|
|
ITEM "9|Spese Generali"
|
|
END
|
|
|
|
LIST FLD_CM1_RICSER 1 18
|
|
BEGIN
|
|
PROMPT 4 10 "Ricavi per servizi "
|
|
FIELD RICSER
|
|
FLAGS "H"
|
|
ITEM "0|Altre passivita'"
|
|
ITEM "1|Servizi"
|
|
END
|
|
|
|
LIST FLD_CM1_TMCF 1 13
|
|
BEGIN
|
|
PROMPT 4 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 4 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 4 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 4 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 4 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
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|