#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