#include "ps1002300a.h"

PAGE "Rilevazione produzione da bolle" -1 -1 78 12

STRING F_CODNUM 4
BEGIN
  PROMPT 1 1 "Num. bolle "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAGS "U"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 23 1 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE NORMAL
END

DATE F_DADATA
BEGIN
  PROMPT 1 3 "Dal "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 20 3 "Al "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

DATE F_DATAPROD
BEGIN
  PROMPT 1 5 "Data produzione "
  CHECKTYPE REQUIRED
END

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 7 "~Elabora"
  PICTURE BMP_ELABORA
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 7 "Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
END

ENDPAGE

ENDMASK