96f33c01ee
Files correlati : ve6.exe Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 979 git-svn-id: svn://10.65.10.50/trunk@15623 c028cbd2-c16b-5b4b-a496-9718f37d4682
83 lines
1.2 KiB
Plaintext
Executable File
83 lines
1.2 KiB
Plaintext
Executable File
#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 -3 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|