#include "mr0500c.h"

PAGE "Elaborazione produzione" -1 -1 80 8

STRING F_CODICE_EL 8
BEGIN
  PROMPT 2 1 "Codice elaborazione"
  FLAG "U"
  USE %ELD SELECT I0 == 6
  INPUT CODTAB F_CODICE_EL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@55" S0
  OUTPUT F_CODICE_EL CODTAB
  OUTPUT F_DESC_EL S0
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare il codice elaborazione"
END

STRING F_DESC_EL 50 30
BEGIN
  PROMPT 35 1 ""
  USE %ELD KEY 2 SELECT I0 == 6
  INPUT S0 F_DESC_EL
  DISPLAY "Descrizione@55" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE_EL
END

DATE F_DATA_EL
BEGIN
  PROMPT 2 3 "Data elaborazione  "
  CHECKTYPE REQUIRED
  WARNING "La data di inizio intervallo e' obbligatoria"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END   

ENDPAGE

ENDMASK