127 lines
2.3 KiB
Plaintext
Executable File
127 lines
2.3 KiB
Plaintext
Executable File
#include "ba6200.h"
|
|
|
|
PAGE "" -1 -1 65 14
|
|
|
|
RADIOBUTTON F_SCELTA 25
|
|
BEGIN
|
|
PROMPT 1 1 "Stampa per: "
|
|
ITEM "1|Codice comune "
|
|
MESSAGE HIDE,F_NOMEINI|HIDE,F_NOMEFINE|HIDE,F_NOME
|
|
MESSAGE RESET,F_NOMEINI|RESET,F_NOMEFINE|RESET,F_NOME
|
|
MESSAGE SHOW,F_CODICEINI|SHOW,F_CODICEFINE|SHOW,F_CODICE
|
|
MESSAGE SHOW,F_STATOINI|SHOW,F_STATOFINE
|
|
ITEM "2|Denominazione comune"
|
|
MESSAGE HIDE,F_CODICEINI|HIDE,F_CODICEFINE|HIDE,F_CODICE
|
|
MESSAGE HIDE,F_STATOINI|HIDE,F_STATOFINE
|
|
MESSAGE RESET,F_CODICEINI|RESET,F_CODICEFINE|RESET,F_CODICE
|
|
MESSAGE RESET,F_STATOINI|RESET,F_STATOFINE
|
|
MESSAGE SHOW,F_NOMEINI|SHOW,F_NOMEFINE|SHOW,F_NOME
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 37 2 "Data di stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
GROUPBOX F_CODICE 63 3
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
END
|
|
|
|
STRING F_STATOINI 3
|
|
BEGIN
|
|
PROMPT 2 6 "Da codice "
|
|
USE LF_COMUNI KEY 1
|
|
INPUT STATO F_STATOINI
|
|
INPUT COM F_CODICEINI
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Comune" COM
|
|
DISPLAY "Denominazione@50" DENCOM
|
|
OUTPUT F_STATOINI STATO
|
|
OUTPUT F_CODICEINI COM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODICEINI 4
|
|
BEGIN
|
|
PROMPT 20 6 ""
|
|
COPY USE F_STATOINI
|
|
INPUT STATO F_STATOINI
|
|
INPUT COM F_CODICEINI
|
|
COPY DISPLAY F_STATOINI
|
|
OUTPUT F_STATOINI STATO
|
|
OUTPUT F_CODICEINI COM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_STATOFINE 3
|
|
BEGIN
|
|
PROMPT 37 6 "A codice "
|
|
COPY USE F_STATOINI
|
|
INPUT STATO F_STATOFINE
|
|
INPUT COM F_CODICEFINE
|
|
COPY DISPLAY F_STATOINI
|
|
OUTPUT F_STATOFINE STATO
|
|
OUTPUT F_CODICEFINE COM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODICEFINE 4
|
|
BEGIN
|
|
PROMPT 54 6 ""
|
|
COPY USE F_STATOINI
|
|
INPUT STATO F_STATOFINE
|
|
INPUT COM F_CODICEFINE
|
|
COPY DISPLAY F_STATOINI
|
|
OUTPUT F_STATOFINE STATO
|
|
OUTPUT F_CODICEFINE COM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX F_NOME 63 4
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
END
|
|
|
|
STRING F_NOMEINI 50
|
|
BEGIN
|
|
PROMPT 2 6 "Da nome "
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM F_NOMEINI
|
|
DISPLAY "Denominazione@50" DENCOM
|
|
OUTPUT F_NOMEINI DENCOM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_NOMEFINE 50
|
|
BEGIN
|
|
PROMPT 2 7 "A nome "
|
|
COPY USE F_NOMEINI
|
|
INPUT DENCOM F_NOMEFINE
|
|
COPY DISPLAY F_NOMEINI
|
|
OUTPUT F_NOMEFINE DENCOM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_PROVCOM 5
|
|
BEGIN
|
|
PROMPT 1 9 "Stampa solo la provincia di "
|
|
FLAGS "U"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -2 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -22 -2 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|