#include "ba3300.h"

PAGE "Stampa fogli libro bollato" -1 -1 74 20

NUMBER F_ANNO 4
BEGIN
	PROMPT 3 3 "Anno Riferimento "
        HELP "Anno a cui si riferisce il bollato"
	USE REG
	INPUT CODTAB[1,4] F_ANNO
	INPUT CODTAB[5,7] F_CODICE
	DISPLAY "Anno " CODTAB[1,4]
	DISPLAY "Codice Registro" CODTAB[5,7]
	DISPLAY "Descrizione@50" S0
	DISPLAY "Tipo" I0
	OUTPUT F_ANNO CODTAB[1,4]
	OUTPUT F_CODICE CODTAB[5,7]
	OUTPUT F_REGISTRO S0
	FLAGS "URZ"
	CHECKTYPE REQUIRED
	KEY 1
END

STRING F_CODDITTA 5
BEGIN
	PROMPT 3 2 "Ditta            "
	FLAGS "DFR"
	KEY 1
END

STRING F_CODICE 3
BEGIN
	PROMPT 3 4 "Codice Registro  "
        HELP "Codice del registro da numerare"
	FLAGS "U"
	COPY ALL F_ANNO
	CHECKTYPE REQUIRED
	KEY 1
END

STRING F_REGISTRO 50
BEGIN
  PROMPT 3 6 "Registro         "
        HELP "Descrizione del registro da numerare"
	USE REG KEY 2
	INPUT S0 F_REGISTRO
	DISPLAY "Descrizione@50" S0
	DISPLAY "Anno " CODTAB[1,4]
	DISPLAY "Codice Registro" CODTAB[5,7]
	DISPLAY "Tipo" I0
	COPY OUTPUT F_CODICE
	CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
	PROMPT 3 7 "Ragione sociale  "
	FLAGS "U"
        HELP "Ragione sociale dell'intestatario del registro"
//  USE LF_NDITTE KEY 2
//  INPUT RAGSOC F_RAGSOC
//  DISPLAY "Ragione sociale @50" RAGSOC
//  DISPLAY "Ditta" CODDITTA
//  OUTPUT F_RAGSOC RAGSOC
//  OUTPUT F_CODDITTA CODDITTA
END

STRING F_INDIRIZZO 35
BEGIN
	PROMPT 3 8 "Indirizzo "
        HELP "Indirizzo dell'intestatario del registro"
//  USE LF_UNLOC
//  CHECKTYPE NORMAL
//  INPUT CODULC "1"
//  INPUT CODDITTA F_CODDITTA
//  DISPLAY "Ditta" CODDITTA
//  DISPLAY "Indirizzo @35" INDULC
//  OUTPUT F_INDIRIZZO INDULC
//  OUTPUT F_CODDITTA CODDITTA
//  WARNING "Indirizzo assente"
END

STRING F_CIV 10
BEGIN
  PROMPT 51 8 "N.civico "
  HELP "Numero civico dell'intestatario del registro"
END 

STRING F_CAP 5
BEGIN
  PROMPT 3 9 "CAP "
  HELP "CAP del comune dell'intestatario del registro"
END 

STRING F_CODCOM 4
BEGIN
  PROMPT 15 9 "Comune "
  HELP "Codice del comune dell'intestatario del registro"
END

STRING F_COM 28
BEGIN
  PROMPT 29 9 ""
  HELP "Nome del comune dell'intestatario del registro"
END

STRING F_PROV 5
BEGIN
  PROMPT 60 9 "Prov."
  HELP "Provincia dell'intestatario del registro"
END

STRING F_COFI 16
BEGIN
  PROMPT 3 10 "Codice fiscale   "
  HELP "Codice fiscale dell'intestatario del registro"
//  USE LF_ANAG KEY 2
//  INPUT RAGSOC F_RAGSOC
//  DISPLAY "Tipo" TIPOA
//  DISPLAY "Codice" CODANAGR
//  DISPLAY "Ragione sociale @50" RAGSOC
//  OUTPUT F_RAGSOC RAGSOC
//  OUTPUT F_COFI COFI
//  OUTPUT F_PAIV PAIV
END

STRING F_PAIV 12
BEGIN
  PROMPT 44 10 "Partita I.V.A "
  HELP "Partita IVA dell'intestatario del registro"
//  USE LF_ANAG KEY 2
//  INPUT RAGSOC F_RAGSOC
//  DISPLAY "Tipo" TIPOA
//  DISPLAY "Codice" CODANAGR
//  DISPLAY "Ragione sociale @50" RAGSOC
//  OUTPUT F_RAGSOC RAGSOC
//  OUTPUT F_COFI COFI
//  OUTPUT F_PAIV PAIV
END

NUMBER F_NPAGINI 6
BEGIN
  PROMPT 3 12 "Numero pagina iniziale "
  HELP "Numero della prima pagina da numerare"
  FLAGS "RU"
  NUM_EXPR {#THIS_FIELD >= 0}
  WARNING "Numero pagina iniziale errato: non puo' essere negativo"
END

NUMBER F_NPAGFI 6
BEGIN
  PROMPT 3 13 "Numero pagina finale   "
  HELP "Numero dell'ultima pagina da numerare"
  FLAGS "R"
  NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
  WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
END

BOOLEAN F_PRIMO
BEGIN
  PROMPT 3 14 "Inizio numerazione dopo primo foglio "
  HELP "Indicare se iniziare la numerazione nel secondo foglio"
END

LIST F_TIPOST 7
BEGIN
  PROMPT 3 15 "Tipo di stampa         "
  HELP "Larghezza del foglio"
  ITEM "0|132"
  ITEM "1|132 c."
  ITEM "2|198"
END

NUMBER F_LUNG 2
BEGIN
  PROMPT 3 16 "Numero di righe        "
  HELP "Lunghezza del foglio"
  FLAGS "R"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK