Denso BHT-8044程序

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" '==