7164ce314e
Files correlati : ba2.exe ba2200.msk ba6100a.msk ba6300a.msk Ricompilazione Demo : [ ] Commento : 0001336: Backup Se nel campo directory imposto una directory che non esiste (con l'intenzione quindi di fargliela creare la pgm stesso) la procedura và in errore. Aggiunte toolbar moderne. git-svn-id: svn://10.65.10.50/trunk@18920 c028cbd2-c16b-5b4b-a496-9718f37d4682
133 lines
2.9 KiB
Plaintext
Executable File
133 lines
2.9 KiB
Plaintext
Executable File
#include "ba6200.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa comuni" -1 -1 67 16
|
|
|
|
RADIOBUTTON F_SCELTA 25
|
|
BEGIN
|
|
PROMPT 1 1 "Stampa per: "
|
|
HELP "Criterio di ordinamento della stampa dei comuni"
|
|
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 "
|
|
HELP "Data in cui viene effettuata la stampa"
|
|
FLAGS "A"
|
|
END
|
|
|
|
GROUPBOX F_CODICE 63 3
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
END
|
|
|
|
STRING F_STATOINI 3
|
|
BEGIN
|
|
PROMPT 2 6 "Da codice "
|
|
HELP "Codice del comune da cui iniziare la stampa. Vuoto = inizio archivio"
|
|
USE %STA
|
|
INPUT CODTAB F_STATOINI
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_STATOINI CODTAB
|
|
FLAG "Z"
|
|
END
|
|
|
|
STRING F_CODICEINI 4
|
|
BEGIN
|
|
PROMPT 20 6 ""
|
|
FLAGS "U"
|
|
HELP "Codice del comune da cui iniziare la stampa. Vuoto = inizio archivio"
|
|
USE LF_COMUNI
|
|
INPUT STATO F_STATOINI
|
|
INPUT COM F_CODICEINI
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Codice" COM
|
|
DISPLAY "Denominazione@50" DENCOM
|
|
OUTPUT F_STATOINI STATO
|
|
OUTPUT F_CODICEINI COM
|
|
END
|
|
|
|
STRING F_STATOFINE 3
|
|
BEGIN
|
|
PROMPT 37 6 "A codice "
|
|
HELP "Codice del comune a cui terminare la stampa. Vuoto = fine archivio"
|
|
COPY USE F_STATOINI
|
|
INPUT CODTAB F_STATOFINE
|
|
COPY DISPLAY F_STATOINI
|
|
OUTPUT F_STATOFINE CODTAB
|
|
FLAG "Z"
|
|
END
|
|
|
|
STRING F_CODICEFINE 4
|
|
BEGIN
|
|
PROMPT 54 6 ""
|
|
HELP "Codice del comune a cui terminare la stampa. Vuoto = fine archivio"
|
|
FLAGS "U"
|
|
COPY USE F_CODICEINI
|
|
INPUT STATO F_STATOFINE
|
|
INPUT COM F_CODICEFINE
|
|
COPY DISPLAY F_CODICEINI
|
|
OUTPUT F_STATOFINE STATO
|
|
OUTPUT F_CODICEFINE COM
|
|
END
|
|
|
|
GROUPBOX F_NOME 63 4
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
END
|
|
|
|
STRING F_NOMEINI 50
|
|
BEGIN
|
|
PROMPT 2 6 "Da nome "
|
|
HELP "Nome del comune da cui iniziare la stampa. Vuoto = inizio archivio"
|
|
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 "
|
|
HELP "Nome del comune da cui iniziare la stampa. Vuoto = inizio archivio"
|
|
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 "
|
|
HELP "Nome della provincia di cui stampare l'anagrafica dei comuni"
|
|
FLAGS "U"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAALICI
|
|
BEGIN
|
|
PROMPT 1 11 "Stampa le aliquote I.C.I. "
|
|
FLAGS "H"
|
|
HELP "Stampa anche le aliquote I.C.I. dei vari comuni"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|