#include "ve6500.h"

PAGE "Lettura penna ottica" -1 -1 50 10

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 REQUIRED
  GROUP 1
END

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

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

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

ENDPAGE

ENDMASK