campo-sirio/ve/ve5100a.uml

#include "ve5100a.h"

PAGE "Eliminazione/Archiviazione documenti" -1 -1 61 11

RADIOBUTTON F_OPERAZIONE 1 34
BEGIN
  PROMPT  1 1 "Operazione"
  ITEM "1|Eliminazione" 
    MESSAGE DISABLE,F_DESC|DISABLE,F_UNIT
  ITEM "2|Archiviazione" 
    MESSAGE ENABLE,F_DESC|ENABLE,F_UNIT
  ITEM "3|Eliminazione e archiviazione" 
    MESSAGE ENABLE,F_DESC|ENABLE,F_UNIT
  ITEM "4|Ripristino"
    MESSAGE DISABLE,F_DESC|ENABLE,F_UNIT
END

RADIOBUTTON F_DOCUMENTI 1 24
BEGIN
  PROMPT 36 1 "Documenti"
  ITEM "1|Eliminabili" 
  ITEM "2|Evasi" 
  ITEM "3|Entrambi"
END

LIST F_UNIT 2
BEGIN
  PROMPT 38 6 "Unita' di backup "
  ITEM "A|A:"
  ITEM "B|B:"
END

STRING F_DESC 50 36
BEGIN
  PROMPT 2 7 "Descrizione backup   "
END

STRING F_STATUS 1
BEGIN
  PROMPT 2 8 "Stato eliminabile    "
  USE %STD
  INPUT CODTAB F_STATUS
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATUS CODTAB
  OUTPUT F_STADESC S0
  CHECKTYPE REQUIRED
  WARNING "Stato documento obbligatorio"
  FLAGS "D"
END

STRING F_STADESC 32
BEGIN
  PROMPT 27 8 ""
  FLAGS "D"
END

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

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

ENDPAGE

ENDMASK