117 lines
1.7 KiB
Plaintext
117 lines
1.7 KiB
Plaintext
|
#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
|
||
|
|
|