campo-sirio/ba/batbvid.uml

#include "batbvid.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella Vidimazioni" -1 -1 78 18

STRING F_CODICE 3
BEGIN              
  PROMPT 4 1 "Codice vidimazione  "
  FIELD CODTAB
  FLAGS "UZ"
  USE %VID           
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Intestatario@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_INTESTA S0
  CHECKTYPE REQUIRED 
  KEY 1
END

STRING F_INTESTA 50
BEGIN
  PROMPT 4 3 "Intestatario        "
  HELP "Inserire l'intestatario del codice di vidimazione"
  WARNING "E' necessario specificare l'intestatario"
  FIELD S0
  USE %VID KEY 2
  INPUT S0 F_INTESTA
  DISPLAY "Intestatario@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED  
  KEY 2
END

DATE F_DATAVID
BEGIN
  PROMPT 4 5 "Data vidimazione    "
  FIELD D0
  WARNING "E' necessario specificare la data di vidimazione"
  CHECKTYPE REQUIRED 
END

STRING F_UFFVID 50
BEGIN
  PROMPT 4 7 "Ufficio vidimazione "
  WARNING "E' necessario specificare il nome dell'ufficio"
  FIELD S1
  CHECKTYPE REQUIRED 
END 

NUMBER F_NUMFOGLI 5
BEGIN
  PROMPT 4 9 "Numero fogli libro  "
  WARNING "E' necessario specificare il numero dei fogli"
  FIELD I0
  FLAGS "R"
  CHECKTYPE REQUIRED
END

NUMBER F_PAGDA 5
BEGIN
  PROMPT 4 11 "Dalla pagina        "
  WARNING "E' necessario specificare un numero di pagina iniziale"
  FIELD I1
  FLAGS "R"
  CHECKTYPE REQUIRED
END

NUMBER F_PAGA 5
BEGIN
  PROMPT 32 11 "Alla pagina "
  FIELD I2
  FLAGS "R"
  CHECKTYPE REQUIRED  
  WARNING "Specificare un numero di pagina superiore a quella iniziale"
  NUM_EXPR {(#THIS_FIELD>=#F_PAGDA)}
END

ENDPAGE

ENDMASK