unction SetupRequest(LineID)
Dim fso,f
Dim ForReading, ForWriting, ForAppending
Dim filePath
Dim tmpBatchStatus
Dim strBatchInfo
Dim bytSend()
Dim tmpPalletNo
Dim tmpProStartTime
Dim tmpBatchInfo
Dim tmpDrawCompInfo,tmpCompNum,tmpSplitDrawComp,CompByteStartPos,CompByteLenth,CompByteType,CompByteCode
Dim tmpOpInfo,tmpOpNum,tmpSplitOp,OpByteStartPos,OpByteLenth,OpByteValue
Dim strBatchID,strDrawingCode,strOrderCode,strCommandCode,strShortCode,strStartProgrNo,nQtyTarget,strQtyCorrect,nQtySetup,strMasterPalletNo,tmpBatchStartTime,strSuspend,strStart
Dim strCurPalletNo,strCurProgNo,strEngDes,strCompany,strFamilyCode,strPrintCode,strEditionCode,strReverseCode,strHotTest
Dim strHeadCode
Dim tmpStartPos,tmpEndPos,tmpSplitStartPos,tmpSplitEndPos,tmpCount
Dim tmpStr,tmpValue
Dim blnMaster
Dim blnHotTest,intQtyToTest,intFreqToTest
Dim i,j,k,leng
Dim strSend,Blocks,HexStr
Dim tmpTag

On Error Resume Next

Call WccDefine() 这个就是上面的程序


'************check curbatch state**********
tmpBatchStatus=HMIRuntime.Tags("BatchStatus_" & LineID).Read