173 lines
4.2 KiB
Plaintext
Executable File
173 lines
4.2 KiB
Plaintext
Executable File
#include "cg1600.h"
|
|
|
|
PAGE "" -1 -1 78 20
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 4 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 4 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 4 4 "Data stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
NUMBER F_ANNOESE 4
|
|
BEGIN
|
|
PROMPT 4 5 "Anno esercizio "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNOESE
|
|
DISPLAY "Anno" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
OUTPUT F_ANNOESE CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_ANNORAFFR 4
|
|
BEGIN
|
|
PROMPT 36 5 "Anno esercizio da raffrontare "
|
|
COPY USE F_ANNOESE
|
|
INPUT CODTAB F_ANNORAFFR
|
|
COPY DISPLAY F_ANNOESE
|
|
OUTPUT F_ANNORAFFR CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST F_TIPOBIL 22
|
|
BEGIN
|
|
PROMPT 4 6 "Tipo bilancio "
|
|
ITEM "1|Bilancio scalare"
|
|
MESSAGE HIDE,F_TIPOSTAMPA1|RESET,F_TIPOSTAMPA1|SHOW,F_TIPOSTAMPA|K_SPACE,F_TIPOSTAMPA
|
|
ITEM "2|Bilancio di verifica"
|
|
MESSAGE HIDE,F_TIPOSTAMPA|RESET,F_TIPOSTAMPA|SHOW,F_TIPOSTAMPA1|K_SPACE,F_TIPOSTAMPA1
|
|
END
|
|
|
|
LIST F_TIPOSTAMPA 38
|
|
BEGIN
|
|
PROMPT 4 7 "Tipo stampa "
|
|
ITEM "1|Per data limite"
|
|
MESSAGE HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
|
|
MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATAFINE
|
|
MESSAGE SHOW,F_DATALIM|SHOW,F_DATABILRAF|SHOW,F_STAMPAINT
|
|
MESSAGE SHOW,F_STAMPAMOV|SHOW,F_COMPETENZA
|
|
ITEM "2|All'ultima immissione es. in corso"
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMODULO
|
|
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
|
MESSAGE RESET,F_COMPETENZA|RESET,F_STAMPAMODULO|RESET,F_DATAINI
|
|
MESSAGE RESET,F_DATAFINE|SHOW,F_DATABILRAF
|
|
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
|
ITEM "3|All'ultima immissione es. precedente"
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMODULO
|
|
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
|
MESSAGE RESET,F_COMPETENZA|RESET,F_STAMPAMODULO|RESET,F_DATAINI
|
|
MESSAGE RESET,F_DATAFINE|SHOW,F_DATABILRAF
|
|
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
|
END
|
|
|
|
LIST F_TIPOSTAMPA1 38
|
|
BEGIN
|
|
PROMPT 4 7 "Tipo stampa1 "
|
|
ITEM "1|Per data "
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF
|
|
MESSAGE RESET,F_DATALIM|RESET,F_DATABILRAF
|
|
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
|
MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_COMPETENZA|SHOW,F_STAMPAMODULO
|
|
ITEM "2|All'ultima immissione es. in corso"
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF|HIDE,F_COMPETENZA
|
|
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
|
MESSAGE RESET,F_DATABILRAF|RESET,F_COMPETENZA|RESET,F_DATAINI
|
|
MESSAGE RESET,F_DATAFINE|SHOW,F_STAMPAINT
|
|
MESSAGE SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
|
|
ITEM "3|All'ultima immissione es. precedente"
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF|HIDE,F_COMPETENZA
|
|
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
|
MESSAGE RESET,F_DATABILRAF|RESET,F_COMPETENZA|RESET,F_DATAINI
|
|
MESSAGE RESET,F_DATAFINE|SHOW,F_STAMPAINT
|
|
MESSAGE SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
|
|
MESSAGE COPY,F_TIPOSTAMPA
|
|
END
|
|
|
|
DATE F_DATALIM
|
|
BEGIN
|
|
PROMPT 4 9 "Data limite "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
DATE F_DATABILRAF
|
|
BEGIN
|
|
PROMPT 36 9 "Data bil. da raffrontare "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
BOOLEAN F_STAMPAINT
|
|
BEGIN
|
|
PROMPT 4 11 "Stampa intera struttura"
|
|
END
|
|
|
|
BOOLEAN F_STAMPACOD
|
|
BEGIN
|
|
PROMPT 41 11 "Non stampare cod. conti"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMOV
|
|
BEGIN
|
|
PROMPT 4 12 "Non stampare mov. con saldo a 0"
|
|
END
|
|
|
|
BOOLEAN F_COMPETENZA
|
|
BEGIN
|
|
PROMPT 41 12 "Controllo anno di competenza"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMOVPROV
|
|
BEGIN
|
|
PROMPT 4 13 "Stampa movimenti provvisori"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMODULO
|
|
BEGIN
|
|
PROMPT 41 13 "Stampa su modulo stretto"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 4 15 "Data inizio "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 52 15 "Data fine "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
BUTTON DLG_OK 9 0
|
|
BEGIN
|
|
PROMPT 51 18 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 0
|
|
BEGIN
|
|
PROMPT 63 18 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|