174 lines
3.3 KiB
Plaintext
Executable File
174 lines
3.3 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
|
|
|
|
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
|
|
FLAGS "RZ"
|
|
CHECKTYPE NORMAL
|
|
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
|
|
FLAGS "RZ"
|
|
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
|
|
MESSAGE SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF
|
|
ITEM "2|Bilancio di verifica"
|
|
MESSAGE HIDE,F_TIPOSTAMPA|RESET,F_TIPOSTAMPA|SHOW,F_TIPOSTAMPA1|K_SPACE,F_TIPOSTAMPA1
|
|
MESSAGE HIDE,F_ANNORAFFR|HIDE,F_DATABILRAF
|
|
END
|
|
|
|
LIST F_TIPOSTAMPA 23
|
|
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_STAMPAINT|SHOW,F_STAMPAMOV
|
|
ITEM "2|All'ultima immissione"
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
|
|
MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE|
|
|
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
|
END
|
|
|
|
LIST F_TIPOSTAMPA1 23
|
|
BEGIN
|
|
PROMPT 4 7 "Tipo stampa1 "
|
|
ITEM "1|Per data "
|
|
MESSAGE HIDE,F_DATALIM
|
|
MESSAGE RESET,F_DATALIM
|
|
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
|
MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_STAMPAMODULO
|
|
ITEM "2|All'ultima immissione"
|
|
MESSAGE HIDE,F_DATALIM|HIDE,F_DATAINI|HIDE,F_DATAFINE
|
|
MESSAGE RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE
|
|
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
|
|
MESSAGE COPY,F_TIPOSTAMPA
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 4 4 "Data stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
TEXT 96
|
|
BEGIN
|
|
PROMPT 4 9 "Dalla data competenza "
|
|
END
|
|
|
|
TEXT 97
|
|
BEGIN
|
|
PROMPT 40 9 "Alla data competenza "
|
|
END
|
|
|
|
TEXT 98
|
|
BEGIN
|
|
PROMPT 4 9 "Dalla data operazione "
|
|
END
|
|
|
|
TEXT 99
|
|
BEGIN
|
|
PROMPT 40 9 "Alla data operazione "
|
|
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
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 26 9 ""
|
|
// VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 62 9 ""
|
|
// 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_STAMPAMOVPROV
|
|
BEGIN
|
|
PROMPT 41 12 "Stampa movimenti provvisori"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMODULO
|
|
BEGIN
|
|
PROMPT 4 13 "Stampa su modulo stretto"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|