Alessandro Bonazzi
50628e2df5
Files correlati : cg1.3x3 cg1500a.msk cg1600a.msk Commento : Sampa bilanco e bilancio IV direttiva per data competenza costi/ricavi
380 lines
7.3 KiB
Plaintext
Executable File
380 lines
7.3 KiB
Plaintext
Executable File
#include "cg1500.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
#ifdef CONT_SEP
|
|
PAGE "Stampa bilancio Contabilità separata" -1 -1 76 16
|
|
#else
|
|
PAGE "Stampa bilancio" -1 -1 76 16
|
|
#endif
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 48 1 "Data stampa "
|
|
HELP "Data che verra' stampata sul bilancio"
|
|
FLAGS "A"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 3 "Codice esercizio "
|
|
HELP "Esercizio di cui si vuole ottenere il bilancio"
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
OUTPUT F_ANNO CODTAB
|
|
FLAGS "Z"
|
|
CHECKTYPE NORMAL
|
|
WARNING "L'esercizio non esiste"
|
|
ADD RUN cg0 -5 esc
|
|
END
|
|
|
|
RADIOBUTTON F_BILANCIO 37
|
|
BEGIN
|
|
PROMPT 1 5 "@bTipo bilancio"
|
|
HELP "Indicare il tipo di bilancio da stampare"
|
|
ITEM "1|Bilancio a sezioni contrapposte"
|
|
MESSAGE SHOW,1@
|
|
MESSAGE HIDE,2@|RESET,2@
|
|
MESSAGE CLEAR,F_MODULO
|
|
MESSAGE CLEAR,F_QUADRATURA
|
|
ITEM "2|Bilancio di verifica"
|
|
MESSAGE HIDE,1@|RESET,1@
|
|
MESSAGE SHOW,2@
|
|
MESSAGE ENABLE,F_MODULO
|
|
END
|
|
|
|
RADIOBUTTON F_STAMPA 28
|
|
BEGIN
|
|
PROMPT 41 5 "@bTipo stampa"
|
|
HELP "Indicare il tipo di stampa"
|
|
ITEM "1|Per date limite"
|
|
MESSAGE SHOW,F_DATALIM
|
|
MESSAGE ENABLE,F_COMPCR
|
|
#ifdef CONT_SEP
|
|
MESSAGE SHOW,F_CONTSEP
|
|
#endif
|
|
ITEM "2|All'ultima immissione"
|
|
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
|
|
MESSAGE CLEAR,F_COMPCR
|
|
MESSAGE CLEAR,F_QUADRATURA
|
|
#ifdef CONT_SEP
|
|
MESSAGE HIDE,F_CONTSEP
|
|
#endif
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 9 "Data iniziale "
|
|
HELP "Data dall quale iniziare la stampa"
|
|
|
|
END
|
|
|
|
DATE F_DATALIM
|
|
BEGIN
|
|
PROMPT 42 9 "Data limite "
|
|
HELP "Data fino alla quale si vuole la stampa"
|
|
END
|
|
|
|
BOOLEAN F_TOTALI
|
|
BEGIN
|
|
PROMPT 33 10 "Non stampare totali per gruppo "
|
|
HELP "Indicare se non si devono stampare i totali dei gruppi"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_COMPCR
|
|
BEGIN
|
|
PROMPT 66 10 "Bilancio per competenza costi/ricavi "
|
|
HELP "Bilancio per competenza costi/ricavi"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_CODICI
|
|
BEGIN
|
|
PROMPT 2 11 "Non stampare codici conti "
|
|
HELP "Indicare se non si devono stampare i codici dei conti"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_SALDO
|
|
BEGIN
|
|
PROMPT 33 11 "Non stampare movimenti con saldo a zero "
|
|
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_NORMALI
|
|
BEGIN
|
|
PROMPT 2 12 "Movimenti : Normali"
|
|
END
|
|
|
|
BOOLEAN F_PROVVM
|
|
BEGIN
|
|
PROMPT 29 12 "Provvisori : Manuali"
|
|
END
|
|
|
|
BOOLEAN F_PROVVB
|
|
BEGIN
|
|
PROMPT 52 12 "Comp. costi/ricavi"
|
|
END
|
|
|
|
BOOLEAN F_PROVVC
|
|
BEGIN
|
|
PROMPT 73 12 "Cespiti"
|
|
END
|
|
|
|
LIST F_MODULO 1 12
|
|
BEGIN
|
|
PROMPT 2 13 "Larghezza modulo di stampa "
|
|
|
|
HELP "Indicare il numero di caratteri del foglio (larghezza)"
|
|
ITEM "1|132 colonne"
|
|
ITEM "2|198 colonne"
|
|
END
|
|
|
|
BOOLEAN F_QUADRATURA
|
|
BEGIN
|
|
PROMPT 2 14 "Quadratura con Libro Giornale"
|
|
END
|
|
|
|
#ifdef CONT_SEP
|
|
STRING F_CONTSEP 6
|
|
BEGIN
|
|
PROMPT 2 15 "Contabilità separata "
|
|
USE &NPENT
|
|
INPUT CODTAB F_CONTSEP
|
|
DISPLAY "Codice@6" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CONTSEP CODTAB
|
|
CHECKTYPE REQUIRED
|
|
MODULE NP
|
|
END
|
|
#endif
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri bilancio di verifica" -1 -1 74 20
|
|
|
|
RADIOBUTTON F_VERIFICA 27
|
|
BEGIN
|
|
PROMPT 2 1 "@bStampa bilancio di verifica "
|
|
HELP "Tipo di bilancio di verifica"
|
|
ITEM "1|Bilancio" MESSAGE SHOW,4@|HIDE,6@
|
|
ITEM "2|Saldi di mastro" MESSAGE SHOW,4@|HIDE,6@
|
|
ITEM "3|Situazione C/F" MESSAGE HIDE,4@|SHOW,6@
|
|
END
|
|
|
|
RADIOBUTTON F_STAMPAC 36
|
|
BEGIN
|
|
PROMPT 34 1 "@bTipo stampa"
|
|
ITEM "1|Conti movimentati"
|
|
ITEM "2|Conti con saldo diverso da zero"
|
|
GROUP 6
|
|
FLAGS "H"
|
|
END
|
|
|
|
RADIOBUTTON F_STAMPAV 36
|
|
BEGIN
|
|
PROMPT 34 1 "@bTipo stampa "
|
|
ITEM "1|Conti movimentati"
|
|
ITEM "2|Conti con saldo diverso da zero"
|
|
ITEM "3|Tutti i conti"
|
|
GROUP 4
|
|
END
|
|
|
|
BOOLEAN F_SEPARATOR
|
|
BEGIN
|
|
PROMPT 2 7 "Non stampare i separatori delle migliaia"
|
|
MESSAGE FALSE " 123.456.789.012",F_PICTURE
|
|
MESSAGE TRUE "1234567890123456",F_PICTURE
|
|
END
|
|
|
|
STRING F_PICTURE 16
|
|
BEGIN
|
|
PROMPT 50 7 ""
|
|
FLAGS "DR"
|
|
END
|
|
|
|
BOOLEAN F_HIDE_CLIFO
|
|
BEGIN
|
|
PROMPT 2 10 "Non stampare il dettaglio dei clienti/fornitori"
|
|
GROUP 4
|
|
END
|
|
|
|
BOOLEAN F_PRINT_FULL_CODE
|
|
BEGIN
|
|
PROMPT 2 11 "Stampa il codice completo"
|
|
GROUP 4
|
|
END
|
|
|
|
LIST F_SITUAZIONE 11
|
|
BEGIN
|
|
PROMPT 2 10 "Tipo situazione "
|
|
ITEM " |Entrambi"
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
FLAGS "H"
|
|
GROUP 6
|
|
END
|
|
|
|
LIST F_ORDINAMENTO 11
|
|
BEGIN
|
|
PROMPT 2 11 "Tipo ordinamento "
|
|
ITEM "1|Per codice"
|
|
ITEM "2|Alfabetico"
|
|
FLAGS "H"
|
|
GROUP 6
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 55 6
|
|
BEGIN
|
|
PROMPT 2 13 "@bSelezione sui conti"
|
|
END
|
|
|
|
NUMBER F_DA_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 3 14 "Da: Gruppo "
|
|
USE LF_PCON KEY 1 SELECT (CONTO="")
|
|
INPUT GRUPPO F_DA_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DA_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_DA_CONTO 3
|
|
BEGIN
|
|
PROMPT 23 14 "Conto "
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
INPUT GRUPPO F_DA_GRUPPO
|
|
INPUT CONTO F_DA_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DA_CONTO CONTO
|
|
OUTPUT F_DA_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_DA_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 36 14 "Sottoconto "
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_DA_GRUPPO
|
|
INPUT CONTO F_DA_CONTO
|
|
INPUT SOTTOCONTO F_DA_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DA_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_DA_GRUPPO GRUPPO
|
|
OUTPUT F_DA_CONTO CONTO
|
|
OUTPUT F_DA_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DA_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 3 15 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DA_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
OUTPUT F_DA_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_DA_CONTO CONTO
|
|
OUTPUT F_DA_GRUPPO GRUPPO
|
|
OUTPUT F_DA_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_A_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 3 16 "A: Gruppo "
|
|
USE LF_PCON KEY 1 SELECT (CONTO="")
|
|
INPUT GRUPPO F_A_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_A_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_A_CONTO 3
|
|
BEGIN
|
|
PROMPT 23 16 "Conto "
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
INPUT GRUPPO F_A_GRUPPO
|
|
INPUT CONTO F_A_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_A_CONTO CONTO
|
|
OUTPUT F_A_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_A_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 36 16 "Sottoconto "
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_A_GRUPPO
|
|
INPUT CONTO F_A_CONTO
|
|
INPUT SOTTOCONTO F_A_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_A_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_A_GRUPPO GRUPPO
|
|
OUTPUT F_A_CONTO CONTO
|
|
OUTPUT F_A_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_A_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 3 17 ""
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_A_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
OUTPUT F_A_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_A_CONTO CONTO
|
|
OUTPUT F_A_GRUPPO GRUPPO
|
|
OUTPUT F_A_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|