#include "ve6500.h"

PAGE "Lettura terminale portatile" -1 -1 65 15

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 
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
  OUTPUT F_DEP CODTAB[4,5]
  CHECKTYPE NORMAL
END

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



STRING F_MAGC 3
BEGIN
  PROMPT 1 10 "Mag. colleg."
  USE MAG 
  INPUT CODTAB[1,3] F_MAGC
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MAGC CODTAB
  OUTPUT F_DESCRMAGC S0
  CHECKTYPE NORMAL 
END

STRING F_DEPC 2
BEGIN
  PROMPT 21 10 "Dep. coll."
  COPY USE F_MAGC   
  COPY INPUT F_MAGC
  INPUT CODTAB[4,5] F_DEPC
  COPY DISPLAY F_MAGC
  COPY OUTPUT F_MAGC
  OUTPUT F_DEPC CODTAB[4,5]
  CHECKTYPE NORMAL
END

STRING F_DESCRMAGC 50
BEGIN
  PROMPT 1 11 "Descrizione "
  FLAGS "D"
END


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

ENDPAGE

TOOLBAR "" 

BUTTON DLG_OK 2 2
BEGIN
  PROMPT -12 -1 ""
  PICTURE BMP_ELABORA
END

#include <cancelbar.h>

ENDPAGE

ENDMASK