#include "batblbu.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella libro unico" -1 -1 78 18

NUMBER F_CODLIB 1
BEGIN
  PROMPT 4 1 "Codice libro unico "
  HELP "Codice libro unico da gestire"
  FIELD %LBU->CODTAB
  KEY 1
  USE %LBU
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 53 1 "Anno esercizio "
  HELP "Anno d'esercizio a cui si riferisce il libro"
  FIELD %LBU->I0
END

SPREADSHEET F_SHEET_LBU
BEGIN
  PROMPT 2 5 ""
  ITEM "Numero iniziale reg.unico "
  ITEM "Numero finale reg.unico"
  ITEM "Codice ditta"
  ITEM "Ragione sociale@50"
  ITEM "Codice registro"
  ITEM "Descrizione@50"
  ITEM "Numero iniziale reg.utente"
  ITEM "Numero finale reg.utente"
END

ENDPAGE

PAGE "" -1 -1 78 18

BOOLEAN F_FLG_STAMPA_BOLLATO
BEGIN
  PROMPT 4 1 "Flag di stampa su bollato "
  HELP "Indicare se viene stampato su bollato"
  FIELD %LBU->B0
END

ENDMASK

PAGE "" -1 -1 71 15

STRING 101 5
BEGIN
  PROMPT 1 1 "Numero iniziale pagina registro unico  "
  HELP "Numero della pagina iniziale del libro unico"
  FIELD %LBU->I1
END

NUMBER 102 5
BEGIN
  PROMPT 1 2 "Numero finale pagina registro unico    "
  HELP "Numero della pagina finale del libro unico"
  FIELD %LBU->I2
END

NUMBER 103 5
BEGIN
  PROMPT 1 4 "Codice ditta    "
  HELP "Codice ditta a cui si riferisce il libro unico"
  FIELD %LBU->I3
  USE LF_NDITTE KEY 1
  INPUT CODDITTA 103 
  DISPLAY "Codice ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT 103 CODDITTA
  OUTPUT 104 RAGSOC
END

STRING 104 50
BEGIN
  PROMPT 1 5 "Ragione sociale "
  HELP "Ragione sociale ditta a cui si riferisce il libro unico"
  FIELD %LBU->S0
END

NUMBER 105 3
BEGIN
  PROMPT 1 7 "Codice registro "
  HELP "Codice resgistro ?????"
  FIELD %LBU->I4
  USE REG
  INPUT CODTAB[5,7] 105
  DISPLAY "Codice registro" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT 105 CODTAB[5,7]
  OUTPUT 106 S0
END

STRING 106 50
BEGIN
  PROMPT 1 8 "Descrizione     "
  HELP "Descrizione ???????"
  FIELD %LBU->S1
  COPY USE 105
  INPUT S0 106
  COPY DISPLAY 105
  COPY OUTPUT 105
END

NUMBER 107 5
BEGIN
  PROMPT 1 10 "Numero iniziale pagina registro utente "
  HELP "????"
  FIELD %LBU->I5
END

NUMBER 108 5
BEGIN
  PROMPT 1 11 "Numero finale pagina registro utente   "
  HELP "??????"
  FIELD %LBU->I6
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
	PROMPT -23 -1 ""
END

BUTTON DLG_NULL 9 2
BEGIN
	PROMPT -33 -1 "Azzera"
	MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK
