campo-sirio/ve/ve2400a.uml

// SHEET 0 (unita' di misura) DI VE2400

PAGE "Pagina 1" 8 5 65 11

STRING FS_CODUM 2
BEGIN
  PROMPT 3 2 "Unita' di misura       "
  FIELD LF_UMART->UM
  FLAG "U"
  USE %UMS
  INPUT CODTAB FS_CODUM
  DISPLAY "U.M. "          CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FS_CODUM CODTAB
  CHECKTYPE REQUIRED
  WARNING "Unita' di misura errata"
END

NUMBER FS_FCUM 15 5
BEGIN
  PROMPT 3 4 "Fattore di conversione "
  FIELD LF_UMART->FC
  CHECKTYPE REQUIRED
  WARNING "Fattore di conversione obbligatorio"
END

NUMBER FS_PREZZO 15 
BEGIN
  PROMPT 3 5 "Prezzo netto           "
  FIELD LF_UMART->PREZZO
  PICTURE "###.###.###.###"
END

NUMBER FS_PREZZO_LORDO 15 
BEGIN
  PROMPT 3 6 "Prezzo lordo           "
  PICTURE "###.###.###.###"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE

ENDMASK