#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  "
  USE VID           
  FIELD VID->CODTAB
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Intestatario@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_INTESTA S0
  OUTPUT F_DATAVID D0
  OUTPUT F_UFFVID S1
  OUTPUT F_NUMFOGLI I0
  OUTPUT F_PAGDA I1
  OUTPUT F_PAGA I2
  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 VID->S0
  CHECKTYPE REQUIRED  
END

DATE F_DATAVID
BEGIN
  PROMPT 4 5 "Data vidimazione    "
  FIELD VID->D0
  FLAGS "A"
  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 VID->S1
  CHECKTYPE REQUIRED 
END 

NUMBER F_NUMFOGLI 5
BEGIN
  PROMPT 4 9 "Numero fogli libro  "
  WARNING "E' necessario specificare il numero dei fogli"
  FIELD VID->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 VID->I1
  FLAGS "R"
  CHECKTYPE REQUIRED
END

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

ENDPAGE

ENDMASK