campo-sirio/ba/ba3500a.uml

#include "ba3500.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

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

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 1 "Anno esercizio     "
  FIELD %LBU->CODTAB[1,4]
  KEY 1
  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]
END

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

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

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

STRING F_DESCRLBU 50
BEGIN
  PROMPT 4 3 "Descrizione        "
  FIELD %LBU->S0
END
  
SPREADSHEET F_SHEET_LBU
BEGIN
  PROMPT 0 5 ""
  ITEM "Anno reg."
  ITEM "Mese reg."
  ITEM "Num.ini.reg.un."
  ITEM "Num.fin.reg.un."
  ITEM "Cod.ditta"
  ITEM "Cod.reg."
  ITEM "Num.ini.reg.ut."
  ITEM "Num.fin.reg.ut."
  ITEM "Cod.Vid."
  ITEM "Stamp.su.boll."
  ITEM "Pag.ann."
END

ENDPAGE

PAGE "Tabella libro unico 2/2" -1 -1 78 14

LIST F_TIPOA 10
BEGIN
  PROMPT 3 1 "Tipo persona         "
  FIELD %LBU->S2
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

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

NUMBER F_CODTABLIB 2
BEGIN
  PROMPT 3 3 "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 4 "Descrizione          "
  FLAGS "D"
END

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

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

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

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

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

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

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

RADIOBUTTON F_MODULO 27
BEGIN
  PROMPT 3 14 "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 14 "Numero caratteri           "
  ITEM "1|132 crt."
  ITEM "2|198 crt."
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 71 20

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

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

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

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

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

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

STRING 106 3
BEGIN
  PROMPT 1 8 "Codice registro "
  FIELD %INL->S0
  USE REG KEY 1 SELECT CODTAB[1,4] = #F_ANNO
  FLAGS "UZ"
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] 106
  DISPLAY "Anno@10" CODTAB[1,4]
  DISPLAY "Codice registro" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT 106 CODTAB[5,7]
  OUTPUT 113 S0
  CHECKTYPE NORMAL
END

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

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

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

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

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

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

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_NULL 9 2
BEGIN
  PROMPT -33 -1 "Azzera"
  MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK