Rem $INCLUDE: 'BHTDEF.INC'
Rem $INCLUDE: 'FUNC.TXT'
REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
REM START:
REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
START:
'KEY 4, CHR$(27)
'KEY 5, CHR$(20)
'KEY 6, CHR$(21)
KEY 10,CHR$(13)
KEY 1, CHR$(18) 'F1
KEY 2, CHR$(24)
KEY 3, CHR$(19)
KEY 4, CHR$(27)
KEY 5, CHR$(20)
KEY 6, CHR$(21)
KEY 7, CHR$(22) 'F7
KEY 8, CHR$(23) 'F8
'KEY 8, "BL40" ' bei4guang1
M$ = "0"
ON ERROR GOTO ERR01
'var
DEFREG S0%,S1%,S2%,S3%,S4% ,PO%, PO1%
DEFREG I%=0
DEFREG SL%=0
'-------------------------盎代腹--------------------------------------------
PARA%=.syPrdctNo
CALL "SYSTEM.FN3" .fcSysSGet PARA%,DATA$
T10$=MID$(DATA$,13,4)
'If DATA$<>"4963102800400887" Then
'K$=FNSETCODE$
If FNGETCODE$="0" Then
While 1
OUT &H6080,1
ER% = FNDISPTXT(1, 1, 1, " 盘点机系统",20)
ER% = FNDISPTXT(1, 1, 5, " 13923795875",20)
K$=FNWAITKEY$
Wend
End If
'----------------------------------------------------------------------------------
OUT &H6080,1 'SMALL SIZE
OUT &H60B0,1
POWER 180
S0%=0
While 1
'-----------------------------------------------------------------------------------
S11% = 1
While S0%=0
While S11% = 1
CLS
S11% = 10
ER% = FNDISPTXT(1, 1, 2, " 盘点机系统",20)
ER% = FNDISPTXT(1, 1, 7, " 13923795875",20)
TIMEB = 20
WAIT 0, &H21
Wend 'S11% = 1
Cls
ER% = FNDISPTXT(1, 1, 1," [1]仓库盘点", 0)
ER% = FNDISPTXT(1, 1, 3," [2]下载物料表", 0)
ER% = FNDISPTXT(1, 1, 5," [3]上传", 0)
ER% = FNDISPTXT(1, 1, 7," [4]删除资料", 0)
ER% = FNDISPTXT(1, 1, 9," [5]盘点资料", 0)
K$=FNWAITKEY$
Select K$
Case "1" '================仓库盘点=
S0%=1
S1%=1
Close
Open "DATA.TXT" AS #1 RECORD 25000 '玻珇戈
FIELD #1,16 AS TM$,30 AS MCH$,10 AS ShuLiang$,10 AS FL$ '虫HAO
TM$=""
TM1$=""
MCH$=""
FL$=""
ShuLiang$=""
Case "2" '================下载物料表=
S0%=1
S1%=2
Case "3" '================上传盘点明细=
Cls
ER% = FNDISPTXT(1, 1, 3," [1]上传盘点明细", 0)
ER% = FNDISPTXT(1, 1, 5," [2]上传盘点", 0)
K1$=FNWAITKEY$
Select K1$
Case "1" '================上传盘点明细=
S0%=1
S1%=3
Case "2" '==