161 lines
3.6 KiB
Plaintext
Executable File
161 lines
3.6 KiB
Plaintext
Executable File
#include "ba3600.h"
|
|
|
|
PAGE "Stampa indici libro unico" -1 -1 78 20
|
|
|
|
RADIOBUTTON F_TIPO_STAMPA 25
|
|
BEGIN
|
|
PROMPT 4 2 "Tipo stampa registro "
|
|
HELP "Indicare il tipo di stampa che si vuole eseguire"
|
|
ITEM "1|Stampa di prova"
|
|
MESSAGE HIDE,F_LIBRO_UNICO2|RESET,F_LIBRO_UNICO2
|
|
MESSAGE HIDE,F_STAMPA_MESE|RESET,F_STAMPA_MESE
|
|
MESSAGE HIDE,F_STAMPA_ANNO|RESET,F_STAMPA_ANNO
|
|
MESSAGE HIDE,F_CODLIB_STAMPA|RESET,F_CODLIB_STAMPA
|
|
MESSAGE HIDE,F_PAGFINALE|RESET,F_PAGFINALE
|
|
MESSAGE HIDE,F_TITOLO_BOLLATO|RESET,F_TITOLO_BOLLATO
|
|
MESSAGE SHOW,F_DATA_STAMPA|SHOW,F_MESEDA|SHOW,F_ANNODA|SHOW,F_MESEA
|
|
MESSAGE SHOW,F_ANNOA|SHOW,F_TITOLO_PROVA
|
|
MESSAGE SHOW,F_LIBRO_UNICO1|SHOW,F_GRUPPO
|
|
ITEM "2|Stampa su libro bollato"
|
|
MESSAGE HIDE,F_LIBRO_UNICO1|RESET,F_LIBRO_UNICO1
|
|
MESSAGE HIDE,F_DATA_STAMPA|RESET,F_DATA_STAMPA
|
|
MESSAGE HIDE,F_MESEDA|RESET,F_MESEDA|HIDE,F_ANNODA|RESET,F_ANNODA
|
|
MESSAGE HIDE,F_MESEA|RESET,F_MESEA|HIDE,F_ANNOA|RESET,F_ANNOA
|
|
MESSAGE HIDE,F_TITOLO_PROVA|RESET,F_TITOLO_PROVA
|
|
MESSAGE HIDE,F_GRUPPO|RESET,F_GRUPPO
|
|
MESSAGE SHOW,F_STAMPA_MESE|SHOW,F_STAMPA_ANNO|SHOW,F_CODLIB_STAMPA
|
|
MESSAGE SHOW,F_PAGFINALE|SHOW,F_TITOLO_BOLLATO|SHOW,F_LIBRO_UNICO2
|
|
END
|
|
|
|
TEXT F_TITOLO_PROVA
|
|
BEGIN
|
|
PROMPT -11 7 "STAMPA DI PROVA"
|
|
END
|
|
|
|
TEXT F_TITOLO_BOLLATO
|
|
BEGIN
|
|
PROMPT -11 7 "STAMPA SU LIBRI BOLLATI DELLO STUDIO"
|
|
END
|
|
|
|
DATE F_DATA_STAMPA
|
|
BEGIN
|
|
PROMPT 4 9 "Data stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
STRING F_LIBRO_UNICO1 3
|
|
BEGIN
|
|
PROMPT 4 11 "Codice libro unico "
|
|
HELP "E' obbligatorio inserire un codice presente nella tabella"
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_ANNODA
|
|
INPUT CODTAB[5,7] F_LIBRO_UNICO1
|
|
DISPLAY "Anno riferimento" CODTAB[1,4]
|
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
|
OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
|
|
OUTPUT F_ANNODA CODTAB[1,4]
|
|
OUTPUT F_ANNOA CODTAB[1,4]
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX F_GRUPPO 71 4
|
|
BEGIN
|
|
PROMPT 4 13 "Stampa movimenti"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_MESEDA 2
|
|
BEGIN
|
|
PROMPT 8 14 "dal : mese "
|
|
NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)}
|
|
END
|
|
|
|
NUMBER F_ANNODA 4
|
|
BEGIN
|
|
PROMPT 57 14 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_MESEA 2
|
|
BEGIN
|
|
PROMPT 8 15 "al : mese "
|
|
NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)}
|
|
END
|
|
|
|
NUMBER F_ANNOA 4
|
|
BEGIN
|
|
PROMPT 57 15 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LIBRO_UNICO2 3
|
|
BEGIN
|
|
PROMPT 4 9 "Codice libro unico di studio "
|
|
HELP "E' obbligatorio inserire un codice presente nella tabella"
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_STAMPA_ANNO
|
|
INPUT CODTAB[5,7] F_LIBRO_UNICO2
|
|
DISPLAY "Codice libro" CODTAB[5,7]
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Ult.mese stampa" I0
|
|
DISPLAY "Ult.pagina stampa" I1
|
|
OUTPUT F_LIBRO_UNICO2 CODTAB[5,7]
|
|
OUTPUT F_STAMPA_MESEG I0
|
|
OUTPUT F_STAMPA_ANNO CODTAB[1,4]
|
|
OUTPUT F_PAGFINALE I1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
NUMBER F_STAMPA_MESEG 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_STAMPA_MESE 2
|
|
BEGIN
|
|
PROMPT 4 11 "Stampa mese "
|
|
NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)}
|
|
END
|
|
|
|
NUMBER F_STAMPA_ANNO 4
|
|
BEGIN
|
|
PROMPT 37 11 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODLIB_STAMPA 3
|
|
BEGIN
|
|
PROMPT 4 13 "Codice libro unico su cui stampare "
|
|
HELP "E' obbligatorio inserire un codice presente nella tabella"
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_STAMPA_ANNO
|
|
INPUT CODTAB[5,7] F_CODLIB_STAMPA
|
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
|
DISPLAY "Anno riferimento" CODTAB[1,4]
|
|
OUTPUT F_CODLIB_STAMPA CODTAB[5,7]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_PAGFINALE 5
|
|
BEGIN
|
|
PROMPT 4 15 "Ultim.num.pagina stampata libro unico "
|
|
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
|
|
|