campo-sirio/ba/batblbu.uml

#include "batblbu.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

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

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

STRING F_CODLIB 3
BEGIN
  PROMPT 4 2 "Codice libro unico "
  FLAGS "U"
  FIELD %LBU->CODTAB[5,7]
  COPY USE F_ANNO
  INPUT CODTAB[5,7] F_CODLIB
  COPY DISPLAY F_ANNO
  COPY OUTPUT F_ANNO
  CHECKTYPE REQUIRED
  KEY 1
END

LIST F_ULT_MESE_STAMP 2 10
BEGIN
  PROMPT 45 1 "Ultimo mese stampa "
  FIELD %LBU->I0
  ITEM " |Nessuno"
  FLAGS "M"
END

NUMBER F_ULT_PAG 5
BEGIN
  PROMPT 45 2 "Ultima pagina      "
  FIELD %LBU->I1
END

STRING F_DESCRLBU 50
BEGIN
  PROMPT 4 3 "Descrizione        "
  FIELD %LBU->S0
END
  
LIST F_TIPOA 10
BEGIN
  PROMPT 3 4 "Tipo persona         "
  FIELD %LBU->S2
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

STRING F_TIPOANAGR 50
BEGIN
  PROMPT 3 5 "Tipo anagrafico      "
  FIELD %LBU->S1
  USE LF_ANAG KEY 2
  INPUT TIPOA F_TIPOA
  INPUT RAGSOC F_TIPOANAGR
  DISPLAY "Tipo" TIPOA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_TIPOANAGR RAGSOC
  CHECKTYPE NORMAL
END

NUMBER F_CODTABLIB 2
BEGIN
  PROMPT 3 6 "Codice libro         "
  FIELD %LBU->I3
  FLAGS "Z"
  USE %ITL
  INPUT CODTAB F_CODTABLIB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODTABLIB CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
  HELP "Inserire il codice del libro"
END

STRING F_DESCR 50
BEGIN
  PROMPT 3 7 "Descrizione          "
  FLAGS "D"
END

STRING F_CONSPRESSO 40
BEGIN
  PROMPT 3 8 "Conservato presso    "
  FIELD %LBU->S3
END

STRING F_CODVID 3
BEGIN
  PROMPT 3 9 "Codice vidimazione   "
  FIELD %LBU->S4
END

DATE F_DATAVID
BEGIN
  PROMPT 3 10 "Data vidimazione     "
  FIELD %LBU->D0
END

DATE F_DATASCAD
BEGIN
  PROMPT 45 10 "Data scadenza      "
  FIELD %LBU->D1
END

NUMBER F_NUMPAG 5
BEGIN
  PROMPT 3 12 "Num.pag. libro unico "
  FIELD %LBU->I2
END

BOOLEAN F_STAMPAINT
BEGIN
  PROMPT 3 14 "Stampa intestazione studio su libro unico"
  FIELD %LBU->B0
END

BOOLEAN F_STAMPAINDCOMP
BEGIN
  PROMPT 3 15 "Stampa l' indirizzo completo della ditta"
  FIELD %LBU->B1
END

RADIOBUTTON F_MODULO 27
BEGIN
  PROMPT 3 17 "Formato modulo di stampa   "
  ITEM "66|11 pollici (27,94 cm)"
  ITEM "72|12 pollici (30,48 cm)"
END

RADIOBUTTON F_STAMPA 27
BEGIN
  PROMPT 46 17 "Numero caratteri           "
  ITEM "1|132 crt."
  ITEM "2|198 crt."
END

ENDPAGE

ENDMASK