432 lines
8.6 KiB
Plaintext
Executable File
432 lines
8.6 KiB
Plaintext
Executable File
#include "cg1500.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa bilancio" -1 -1 76 16
|
|
|
|
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
|
|
MESSAGE EMPTY CLEAR,4@
|
|
MESSAGE ENABLE,4@
|
|
END
|
|
|
|
RADIOBUTTON F_BILANCIO 37
|
|
BEGIN
|
|
PROMPT 2 5 "@bTipo bilancio"
|
|
HELP "Indicare il tipo di bilancio da stampare"
|
|
ITEM "1|Bilancio a sezioni contrapposte"
|
|
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
|
|
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
|
|
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
|
|
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
|
|
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
|
|
MESSAGE CLEAR,F_MODULO
|
|
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
|
|
ITEM "2|Bilancio di verifica"
|
|
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
|
|
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
|
|
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
|
|
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
|
|
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
|
|
MESSAGE ENABLE,F_MODULO
|
|
MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
|
|
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|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
|
ITEM "2|All'ultima immissione"
|
|
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM
|
|
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
|
END
|
|
|
|
RADIOBUTTON F_STAMPA1 28
|
|
BEGIN
|
|
PROMPT 40 5 "@bTipo stampa"
|
|
//FLAGS "G"
|
|
HELP "Indicare il tipo di stampa"
|
|
ITEM "1|Per date limite"
|
|
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO|SHOW,F_STAMPAMPROV
|
|
ITEM "2|All'ultima immissione"
|
|
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO|SHOW,F_STAMPAMPROV
|
|
MESSAGE COPY,F_STAMPA
|
|
END
|
|
|
|
DATE F_DATALIM
|
|
BEGIN
|
|
PROMPT 2 9 "Data limite "
|
|
HELP "Data fino alla quale si vuole la stampa"
|
|
END
|
|
|
|
BOOLEAN F_TOTALI
|
|
BEGIN
|
|
PROMPT 33 9 "Non stampare totali per gruppo "
|
|
HELP "Indicare se non si devono stampare i totali dei gruppi"
|
|
END
|
|
|
|
BOOLEAN F_CODICI
|
|
BEGIN
|
|
PROMPT 2 10 "Non stampare codici conti "
|
|
HELP "Indicare se non si devono stampare i codici dei conti"
|
|
END
|
|
|
|
BOOLEAN F_SALDO
|
|
BEGIN
|
|
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
|
|
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
|
|
END
|
|
|
|
TEXT 96
|
|
BEGIN
|
|
PROMPT 2 10 "Dalla data competenza "
|
|
END
|
|
|
|
TEXT 97
|
|
BEGIN
|
|
PROMPT 38 10 "Alla data competenza "
|
|
END
|
|
|
|
TEXT 98
|
|
BEGIN
|
|
PROMPT 2 10 "Dalla data operazione "
|
|
END
|
|
|
|
TEXT 99
|
|
BEGIN
|
|
PROMPT 38 10 "Alla data operazione "
|
|
END
|
|
|
|
DATE F_DATADA
|
|
BEGIN
|
|
PROMPT 24 10 ""
|
|
HELP "Data dalla quale iniziare la stampa"
|
|
END
|
|
|
|
DATE F_DATAA
|
|
BEGIN
|
|
PROMPT 60 10 ""
|
|
END
|
|
|
|
LIST F_STAMPAMPROV 15
|
|
BEGIN
|
|
PROMPT 2 11 "Bilancio "
|
|
ITEM "1|Normale"
|
|
ITEM "2|Globale"
|
|
ITEM "3|Solo provvisori"
|
|
END
|
|
|
|
LIST F_MODULO 1 12
|
|
BEGIN
|
|
PROMPT 2 12 "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 13 "Quadratura con Libro Giornale"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 73 4
|
|
BEGIN
|
|
PROMPT 2 14 "@bCentri di costo / Commesse"
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_DACDC 20
|
|
BEGIN
|
|
PROMPT 3 15 "Da CDC/Commessa "
|
|
FLAGS "UZ"
|
|
USE CMS
|
|
INPUT CODTAB F_DACDC
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_DACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_DAFSC 10
|
|
BEGIN
|
|
PROMPT 50 15 "Da Fase "
|
|
USE FSC
|
|
INPUT CODTAB F_DAFSC
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DAFSC CODTAB
|
|
CHECKTYPE SEARCH
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_ACDC 20
|
|
BEGIN
|
|
PROMPT 3 16 "A CDC/Commessa "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACDC
|
|
INPUT CODTAB F_ACDC
|
|
COPY DISPLAY F_DACDC
|
|
OUTPUT F_ACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_AFSC 10
|
|
BEGIN
|
|
PROMPT 50 16 "A Fase "
|
|
FLAGS "UZ"
|
|
COPY USE F_DAFSC
|
|
INPUT CODTAB F_AFSC
|
|
COPY DISPLAY F_DAFSC
|
|
OUTPUT F_AFSC CODTAB
|
|
CHECKTYPE SEARCH
|
|
GROUP 4
|
|
END
|
|
|
|
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,F_HIDE_CLIFO
|
|
ITEM "2|Saldi di mastro"
|
|
MESSAGE HIDE,F_HIDE_CLIFO
|
|
ITEM "3|Situazione C/F"
|
|
MESSAGE HIDE,F_HIDE_CLIFO
|
|
END
|
|
|
|
RADIOBUTTON F_STAMPAC 36
|
|
BEGIN
|
|
PROMPT 34 1 "@bTipo stampa"
|
|
|
|
ITEM "1|Conti movimentati"
|
|
ITEM "2|Conti con saldo diverso da zero"
|
|
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"
|
|
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"
|
|
END
|
|
|
|
LIST F_SITUAZIONE 11
|
|
BEGIN
|
|
PROMPT 2 10 "Tipo situazione "
|
|
ITEM " |Entrambi"
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
END
|
|
|
|
LIST F_ORDINAMENTO 11
|
|
BEGIN
|
|
PROMPT 2 11 "Tipo ordinamento "
|
|
ITEM "1|Per codice"
|
|
ITEM "2|Alfabetico"
|
|
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
|
|
|