campo-sirio/ba/batbinl.uml

#include "batbinl.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.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 FORCED
  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" CODLIB
//  DISPLAY "Descrizione@50" %LBU->S0
  DISPLAY "Indice@7" NUMREG
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Mese" MESEREG
  DISPLAY "Registro" CODREG
  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 "DP"
END

LIST F_MESE 2 10
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
  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
  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
  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
  WARNING "Codice registro assente"
  VALIDATE NOT_EMPTY_CHECK_FIELD
  CHECKTYPE NORMAL
//  MESSAGE EMPTY RESET,F_DESCREG
END

STRING F_DESCREG 50
BEGIN
  PROMPT 1 9 "Descrizione     "
  USE REG KEY 2
  INPUT S0 F_DESCREG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice" CODTAB[5,7]
  OUTPUT F_CODREG CODTAB[5,7]
  OUTPUT F_DESCREG S0
  CHECKTYPE NORMAL
END

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

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

STRING F_CODVID 3
BEGIN
  PROMPT 1 14 "Codice vidimazione "
  FIELD CODVID
  FLAGS "UZ"
  USE %VID
  INPUT CODTAB F_CODVID
  DISPLAY "Codice" CODTAB
  DISPLAY "Intestatario@50" S0
  OUTPUT F_CODVID CODTAB
  OUTPUT F_DESVID S0
  CHECKTYPE NORMAL
END

STRING F_DESVID 50
BEGIN
  PROMPT 1 15 "Intestatario       "
  USE %VID KEY 2
  INPUT S0 F_DESVID
  DISPLAY "Intestatario@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODVID
  CHECKTYPE NORMAL
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 ENABLE,F_DITTA|ENABLE,F_RAGSOC
//  MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
  MESSAGE FALSE REQUIRED,F_PINI_RU|REQUIRED,F_PFIN_RU
  MESSAGE TRUE  CLEAR,F_DITTA|CLEAR,F_RAGSOC
  MESSAGE TRUE  CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG
  MESSAGE TRUE NORMAL,F_PINI_RU|NORMAL,F_PFIN_RU
END

ENDPAGE

ENDMASK