114 lines
1.9 KiB
Plaintext
Executable File
114 lines
1.9 KiB
Plaintext
Executable File
#include "cg3400a.h"
|
|
|
|
PAGE "Stampa Libro Giornale" -1 -1 70 15
|
|
|
|
STRING CODREG 3
|
|
BEGIN
|
|
PROMPT 1 1 "Codice registro "
|
|
USE REG SELECT (I0 = 5) || (I0 = 4)
|
|
INPUT CODTAB[1,4] ANNO_ESER
|
|
INPUT CODTAB[5,7] CODREG
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" I0
|
|
// OUTPUT ANNO_ESER CODTAB[1,4]
|
|
OUTPUT CODREG CODTAB[5,7]
|
|
OUTPUT REG_DESC S0
|
|
OUTPUT PAGINA_DA I1
|
|
// OUTPUT DATA_DA D0
|
|
// OUTPUT DATA_A D1
|
|
// CHECKTYPE NORMAL
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
NUMBER ANNO_ESER 4
|
|
BEGIN
|
|
PROMPT 30 1 "Esercizio "
|
|
USE ESC
|
|
INPUT CODTAB ANNO_ESER
|
|
DISPLAY "Anno" CODTAB
|
|
DISPLAY "Data inizio " D0
|
|
DISPLAY "Data fine " D1
|
|
DISPLAY "Data scarico" D2
|
|
OUTPUT ANNO_ESER CODTAB
|
|
// CHECKTYPE REQUIRED
|
|
FLAGS "HRZ"
|
|
END
|
|
|
|
STRING REG_DESC 50
|
|
BEGIN
|
|
PROMPT 1 3 "Descrizione: "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 25 5
|
|
BEGIN
|
|
PROMPT 1 5 "Intervallo"
|
|
END
|
|
|
|
RADIOBUTTON DLG_NULL 20
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
ITEM "1|Tutto" MESSAGE DISABLE, PAGINA_DA
|
|
ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
|
|
END
|
|
|
|
NUMBER PAGINA_DA 5
|
|
BEGIN
|
|
PROMPT 13 8 ""
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 33 5
|
|
BEGIN
|
|
PROMPT 33 5 "Formato pagina"
|
|
END
|
|
|
|
LISTBOX STAMPA_WIDTH 3
|
|
BEGIN
|
|
PROMPT 35 6 "Numero di colonne "
|
|
ITEM "1|132 colonne"
|
|
ITEM "2|198 colonne"
|
|
END
|
|
|
|
NUMBER STAMPA_LEN 3
|
|
BEGIN
|
|
PROMPT 35 7 "Numero di righe "
|
|
END
|
|
|
|
DATE DATA_DA
|
|
BEGIN
|
|
PROMPT 2 10 "Dalla data "
|
|
END
|
|
|
|
DATE DATA_A
|
|
BEGIN
|
|
PROMPT 2 11 "Alla data "
|
|
// VALIDATE DATE_CMP_FUNC >= DATA_DA
|
|
WARNING "Specificare la data di fine stampa"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN STAMPA_DEF
|
|
BEGIN
|
|
PROMPT 34 10 "Stampa definitiva"
|
|
MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA
|
|
MESSAGE FALSE ENABLE,DATA_DA
|
|
END
|
|
|
|
BUTTON DLG_PRINT 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|