campo-sirio/ve/ve6500.uml

#include "ve6500.h"

PAGE "Lettura terminale portatile" -1 -1 80 12

STRING F_FILE 128 40
BEGIN
  PROMPT 1 1 "File "
  FLAGS "B"
  CHECKTYPE REQUIRED
END

STRING F_TIPORIGA 2
BEGIN
  PROMPT 1 2 "Tipo riga merce "
  USE %TRI SELECT S7="M"
  INPUT CODTAB F_TIPORIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPORIGA CODTAB
  CHECKTYPE REQUIRED
END  

RADIOBUTTON F_TIPO 1 28
BEGIN
  PROMPT 1 3 "Tipo di registrazione"
  ITEM "0|Quantita'"
  ITEM "1|Differenza da giacenza"
END

STRING F_MAG 3
BEGIN
  PROMPT 1 7 "Magazzino   "
  USE MAG 
  INPUT CODTAB[1,3] F_MAG
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MAG CODTAB
  OUTPUT F_DESCRMAG S0
  CHECKTYPE REQUIRED 
  GROUP 1
END

STRING F_DEP 2
BEGIN
  PROMPT 21 7 "Deposito "
  COPY USE F_MAG   
  COPY INPUT F_MAG
  INPUT CODTAB[4,5] F_DEP
  COPY DISPLAY F_MAG
  COPY OUTPUT F_MAG
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DESCRMAG 50 35
BEGIN
  PROMPT 1 8 "Descrizione "
  FLAGS "D"
  GROUP 1       
END

STRING F_PROFILO 70 50
BEGIN
  PROMPT 1 -2 "Profilo "
  PSELECT
END

ENDPAGE

TOOLBAR "" 

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

#include <cancelbar.h>

ENDPAGE

ENDMASK