I autostore enterprise on server with service pack 2.01. Scanner is a Kyocera taskalfa 500ci. Tried scanning in and get the error "Error trying to scan, Scanner is busy". We hook up laptop with kyocapture with no updates with the same CFG File and No Problems.
Could someone email me on this. craigd@cbp-sd.com
CFG FILE attached.
Here is the script
'This takes a InvoiceNumber RRT and have the data go to a database.
'This also creates RRTs for the fields that are being pulled.
Sub WorkOrder_onload
On Error Resume Next
Dim objConnection
Dim objRecordSet
Dim strSQL
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=Hegg;"
'objconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Hegg\HeggDataBase.mdb"
objRecordset.CursorType = 1
objRecordset.LockType = 3
objRecordset.cursorlocation = aduseclient
EKOManager.StatusMessage "GetCustomerNumberfromDB : InvoiceNumber is: " & InvoiceNumber
strSQL = "SELECT * FROM Hegg WHERE InvoiceNumber = '"& InvoiceNumber &"';"
objRecordset.Open strSQL, objConnection
If Not objRecordset.EOF Then
CustNumberStr = CStr(objRecordset.Fields("InvoiceNumber"))
EKOManager.StatusMessage WONumberStr
VendorNumberStr = CStr(objRecordset.Fields("VendorNumber"))
EKOManager.StatusMessage VINumberStr
VendorStr = CStr(objRecordset.Fields("VendorName"))
EKOManager.StatusMessage VINumberStr
AddressStr = CStr(objRecordset.Fields("Address"))
EKOManager.StatusMessage VINumberStr
CityStr = CStr(objRecordset.Fields("City"))
EKOManager.StatusMessage VINumberStr
PHNumberStr = CStr(objRecordset.Fields("PhoneNumber"))
EKOManager.StatusMessage VINumberStr
ZipStr = CStr(objRecordset.Fields("Zip"))
EKOManager.StatusMessage VINumberStr
CheckStr = CStr(objRecordset.Fields("Check"))
EKOManager.StatusMessage VINumberStr
DateStr = CStr(objRecordset.Fields("Date"))
EKOManager.StatusMessage VINumberStr
Else
End If
Set Ktopic = KnowledgeContent.GetTopicInterface
KTopic.Replace "~WER::InvoiceNumber~",InvoiceNumberStr
KTopic.Replace "~WER::VendorNumber~",VendorNumberStr
KTopic.Replace "~WER::VendorName~",VendorStr
KTopic.Replace "~WER::Address~",AddressStr
KTopic.Replace "~WER::City~",CityStr
KTopic.Replace "~WER::PHNumber~",PHNumberStr
KTopic.Replace "~WER::Zip~",ZipStr
KTopic.Replace "~WER::Check~",CheckStr
KTopic.Replace "~WER::Date~",DateStr
objRecordset.Close
objConnection.Close
End Sub
Sub WorkOrder_UnLoad
End Sub