113 lines
1.8 KiB
Plaintext
Executable File
113 lines
1.8 KiB
Plaintext
Executable File
#include "cg3400a.h"
|
|
|
|
PAGE "" -1 -1 70 15
|
|
|
|
STRING REG_COD 3
|
|
BEGIN
|
|
PROMPT 1 1 "Codice registro "
|
|
FLAGS "U"
|
|
USE REG SELECT (I0 = 5) || (I0 = 4)
|
|
INPUT CODTAB[1,4] ANNO_ESER SELECT
|
|
INPUT CODTAB[5,7] REG_COD
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" I0
|
|
OUTPUT ANNO_ESER CODTAB[1,4]
|
|
OUTPUT REG_COD CODTAB[5,7]
|
|
OUTPUT REG_DESC S0
|
|
OUTPUT PAGINA_DA I1
|
|
// OUTPUT DATA_DA D0
|
|
OUTPUT DATA_A D1
|
|
CHECKTYPE NORMAL
|
|
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 "A"
|
|
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 "Questa data deve essere posteriore alla precedente"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN STAMPA_DEF
|
|
BEGIN
|
|
PROMPT 34 10 "Stampa definitiva"
|
|
MESSAGE TRUE DISABLE,DATA_DA
|
|
MESSAGE FALSE ENABLE,DATA_DA
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|