cbb608d183
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 1.5 fino alla patch 811 git-svn-id: svn://10.65.10.50/trunk@8985 c028cbd2-c16b-5b4b-a496-9718f37d4682
75 lines
1.1 KiB
Plaintext
Executable File
75 lines
1.1 KiB
Plaintext
Executable File
#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 |