#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 1 1 "Anno               "
FLAGS "A"
FIELD ANNO
USE %LBU
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODLIB
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Libro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLIB CODTAB[5,7]
CHECKTYPE REQUIRED
MESSAGE COPY,F_ANNOREG
KEY 1
END

STRING F_CODLIB 3
BEGIN
PROMPT 28 1 "Libro "
FLAGS "UZ"
FIELD CODLIB
COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1
END

NUMBER F_INDEX 7
BEGIN
PROMPT 42 1 "Num. registrazione "
FLAGS "U"
FIELD NUMREG
USE LF_INDLIB
JOIN %LBU INTO CODTAB=ANNO+CODLIB
INPUT ANNO F_ANNO
INPUT CODLIB F_CODLIB
INPUT NUMREG F_INDEX
DISPLAY "Anno" ANNO
DISPLAY "Codice Libro Unico" CODLIB
DISPLAY "Indice@7" NUMREG
DISPLAY "Descrizione@50" %LBU->S0
OUTPUT F_ANNO ANNO
OUTPUT F_CODLIB CODLIB
OUTPUT F_INDEX NUMREG
CHECKTYPE REQUIRED
KEY 1
END

NUMBER F_ANNOREG 4
BEGIN
PROMPT 1 2 "Anno registrazione "
FIELD ANNOREG
FLAGS "D"
END

LIST F_MESE 2 12
BEGIN
PROMPT 40 2 "Mese registrazione "
FIELD MESEREG
FLAGS "M"
END

NUMBER F_PINI_LU 5
BEGIN
PROMPT 1 3 "Numero pagina iniziale registro unico  "
FIELD PAGINI
FLAGS "UR"
MESSAGE DIRTY,F_PFIN_LU
CHECKTYPE REQUIRED
END

NUMBER F_PFIN_LU 5
BEGIN
PROMPT 1 4 "Numero pagina finale registro unico    "
FIELD PAGFIN
FLAGS "UR"         
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
CHECKTYPE REQUIRED
WARNING "Inserire un numero di pagina superiore a quella iniziale"
END

NUMBER F_DITTA 5
BEGIN
PROMPT 1 6 "Codice ditta    "
FIELD CODDITTA
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 REQUIRED
WARNING "E' necessario specificare un codice ditta valido"
END

STRING F_RAGSOC 50
BEGIN
PROMPT 1 7 "Ragione sociale "
USE LF_NDITTE KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice ditta" CODDITTA
COPY OUTPUT F_DITTA
CHECKTYPE NORMAL
END

STRING F_CODREG 3
BEGIN
PROMPT 1 8 "Codice registro "
FIELD CODREG
FLAGS "UZ"        
USE REG SELECT CODTAB[1,4]=#F_ANNO
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODREG
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODREG CODTAB[5,7]
OUTPUT F_DESCREG S0
VALIDATE NOT_EMPTY_CHECK_FIELD
CHECKTYPE REQUIRED
END

STRING F_DESCREG 50
BEGIN
PROMPT 1 9 "Descrizione     "
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
INPUT S0 F_DESCREG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice registro" CODLIB
COPY OUTPUT F_CODREG
CHECKTYPE NORMAL
END

NUMBER F_PINI_RU 5
BEGIN
PROMPT 1 11 "Numero iniziale pagina registro utente "
FIELD PAGINIUT
FLAGS "R"
END

NUMBER F_PFIN_RU 5
BEGIN
PROMPT 1 12 "Numero finale pagina registro utente   "
FIELD PAGFINUT
FLAGS "R"
END

STRING F_CODVID 3
BEGIN
PROMPT 1 14 "Codice vidimazione "
FIELD CODVID
END

BOOLEAN F_STAMPATO
BEGIN
PROMPT 1 16 "Stampato su bollato "
FIELD STAMPATO
END

BOOLEAN F_PANN_LU
BEGIN
PROMPT 36 16 "Pagine libro unico annullate"
FIELD ANNULLATE
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
MESSAGE TRUE  NORMAL,F_DITTA|NORMAL,F_CODREG
END

ENDPAGE

ENDMASK