#include "BATBUM.h"

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Unit… di misura " 11 60 14

STRING F_UM 2
BEGIN
  PROMPT 4 4 "Unit… di misura "
  FIELD %UM->CODTAB
  KEY 1
  FLAG "U"
  USE %UM
  FLAG "U"
  INPUT CODTAB F_UM
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UM CODTAB
  OUTPUT F_DESCR      S0 
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 4 6 "Descrizione "
  FIELD %UM->S0
  KEY 2
  USE %UM KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UM CODTAB
  OUTPUT F_DESCR      S0 
  CHECKTYPE REQUIRED
END

STRING F_UMR 2
BEGIN
  PROMPT 4 10 "Unit… di riferimento "
  FIELD %UM->S7
  FLAG "U"
END

NUMBER F_FC 15 5
BEGIN
  PROMPT 4 12 "Fattore conv. al rif. "
  FIELD %UM->R0
END

GROUPBOX DLG_NULL 70 7
BEGIN
  PROMPT 3 2 ""
  FLAG "R"
END

ENDPAGE

ENDMASK