#include "batbinl.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE        

PAGE "Tabella Indici Libro Unico" -1 -1 71 20

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 1 "Anno esercizio     "
  FLAGS "AZ"
  FIELD %INL->CODTAB[1,4]
  USE %LBU
  INPUT F_ANNO CODTAB[1,4]
  INPUT F_CODLIB CODTAB[5,7]
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice libro unico" CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_CODLIB CODTAB[5,7]
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_CODLIB 3
BEGIN
  PROMPT 34 1 "Codice libro unico "
  FLAGS "U"
  FIELD %INL->CODTAB[5,7]
  COPY ALL F_ANNO
  CHECKTYPE REQUIRED
  KEY 1
END

NUMBER F_INDEX 7
BEGIN
  PROMPT 54 1 "Indice "
  FLAGS "Z"
  FIELD %INL->CODTAB[8,14]
  USE %INL
  COPY INPUT F_ANNO
  INPUT CODTAB[8,14] F_INDEX
  COPY DISPLAY F_ANNO
  DISPLAY "Indice@7" CODTAB[8,14]
  COPY OUTPUT F_ANNO
  OUTPUT F_INDEX CODTAB[8,14]
  CHECKTYPE REQUIRED
  KEY 1
END

NUMBER F_ANNOREG 4
BEGIN
  PROMPT 1 2 "Anno registrazione "
  FIELD %INL->I0
  VALIDATE NOT_EMPTY_FUNC
END

LIST F_MESE 2 10
BEGIN
  PROMPT 38 2 "Mese registrazione "
  FIELD %INL->I1
  ITEMS " |Nessuno"
  FLAGS "M"
END

STRING F_PINI_LU 5 5
BEGIN
  PROMPT 1 3 "Numero iniziale pagina registro unico  "
  FIELD %INL->I2
  FLAGS "R"
END

NUMBER F_PFIN_LU 5
BEGIN
  PROMPT 1 4 "Numero finale pagina registro unico    "
  FIELD %INL->I3
  FLAGS "R"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 6 "Codice ditta    "
  FIELD %INL->I4
  FLAGS "R"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA 
  DISPLAY "Codice ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_DITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 7 "Ragione sociale "
  FLAGS "D"
END

STRING F_CODREG 3
BEGIN
  PROMPT 1 8 "Codice registro "
  FIELD %INL->S0
  USE REG
  FLAGS "UZ"
  INPUT CODTAB[5,7] F_CODREG
  DISPLAY "Codice registro" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODREG CODTAB[5,7]
  OUTPUT 113 S0
  CHECKTYPE NORMAL
END

STRING F_DESCREG 50 50
BEGIN
  PROMPT 1 9 "Descrizione     "
  FLAGS "D"
END

NUMBER F_PINI_RU 5
BEGIN
  PROMPT 1 11 "Numero iniziale pagina registro utente "
  FIELD %INL->I5
  FLAGS "R"
END

NUMBER F_PFIN_RU 5
BEGIN
  PROMPT 1 12 "Numero finale pagina registro utente   "
  FIELD %INL->I6
  FLAGS "R"
END

STRING F_CODVID 3 3
BEGIN
  PROMPT 1 14 "Codice vidimazione "
  FIELD %INL->S1
END

BOOLEAN F_STAMPATO
BEGIN
  PROMPT 1 16 "Stampato su bollato "
  FIELD %INL->B0
END

BOOLEAN F_PANN_LU
BEGIN
  PROMPT 36 16 "Pagine libro unico annullate"
  FIELD %INL->B1
END

ENDPAGE

ENDMASK