campo-sirio/ba/batbinl.uml

#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 esercizio     "
  FLAGS "AZ"
  FIELD CODTAB[1,4]
  USE %LBU
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_CODLIB
  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 31 1 "Codice libro "
  FLAGS "U"
  FIELD CODTAB[5,7]
  COPY ALL F_ANNO
  CHECKTYPE REQUIRED
  VALIDATE ZEROFILL_FUNC 3
  KEY 1
END

NUMBER F_INDEX 7
BEGIN
  PROMPT 54 1 "Indice "
  FLAGS "Z"
  FIELD 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 I0
  CHECKTYPE REQUIRED
END

LIST F_MESE 2 10
BEGIN
  PROMPT 42 2 "Mese registrazione "
  FIELD I1
  ITEMS " |Nessuno"
  FLAGS "M"
END

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

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

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 6 "Codice ditta    "
  FIELD 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 "
  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 S0
  USE REG SELECT CODTAB[1,4]=#F_ANNO
  FLAGS "UZ"        
  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
  CHECKTYPE NORMAL
END

STRING F_DESCREG 50 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" CODTAB[5,7]
  COPY OUTPUT F_CODREG
  CHECKTYPE NORMAL
END

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

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

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

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

BOOLEAN F_PANN_LU
BEGIN
  PROMPT 36 16 "Pagine libro unico annullate"
  FIELD B1
END

ENDPAGE

ENDMASK