Example VB Code

Dim ReaderTrans As String
ReaderTrans = ""

Do While True

(Wait for a transaction from the portable data collection device)

Do Until ReaderTrans <> ""

   ReaderTrans = EZServerTools1.GetEZTrans ( )

   DoEvents
Loop

(Parse the transaction for the Reader Address and collected data to process it to your database here. If necessary, you can easily send a response to the Intermec reader)
IPAddress = Left$(ReaderTrans,15)
BinNumber = Mid$(ReaderTrans,16,5)
ItemNumber = Mid$(ReaderTrans,21,12)
Qty = Mid$(ReaderTrans,33,5)

(Update your database here)
Insert Into MyDatabase TheBin, TheItem, TheQty VALUES(BinNumber, ItemNumber,
Cint(Qty))

(Send a Hardcoded or a Database Element Response To Reader)
ReaderTrans = "GOOD TRANSACTION"
Do While Not EZServerTools1.PutEZTrans (IPAddress, ReaderTrans)

   DoEvents
Loop

DoEvents

Loop

Contents | Index | Previous | Next