campo-sirio/src/ve/ve5100a.uml

#include "ve5100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

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

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

RADIOBUTTON F_DOCUMENTI 1 24
BEGIN
  PROMPT 36 1 "Documenti"
  ITEM "1|Eliminabili"
  MESSAGE CLEAR,F_COMPATTA 
  ITEM "2|Evasi" 
  MESSAGE ENABLE,F_COMPATTA 
  ITEM "3|Entrambi"
  MESSAGE ENABLE,F_COMPATTA 
END

RADIOBUTTON F_SALVA 2 24
BEGIN
	PROMPT 1 7 "Salvare su "
	ITEM "F|Floppy"
	ITEM "D|File  "
	FLAGS "Z"
END

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

STRING F_DESTDIR 250 36
BEGIN
  PROMPT 2 10 "Percorso di backup   "
  DSELECT
END

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

STRING F_STATUS 1
BEGIN
  PROMPT 2 12 "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 12 ""
  FLAGS "D"
END

BOOELAN F_COMPATTA
BEGIN
  PROMPT 2 13 "Elimina la righe evase"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 14 "Esercizio    "
  FIELD ANNO
  WARNING "Inserire un anno valido"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 15 "Numerazione  "
  FIELD CODNUM
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE NORMAL
  FLAG "U"
  WARNING "Numerazione assente"
END

STRING F_DESNUM 50 42
BEGIN
  PROMPT 15 16 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

ENDPAGE

ENDMASK