Sub btnUpload_Click
UploadPOD
End Sub
Sub UploadPOD
Dim Cur As Cursor
'Cur = Starter.SQl1.ExecQuery2("SELECT PODID, RECEIVEDBY, RECEIVEDDATE, SIGNATURE FROM tblpoddetails WHERE RECEIVEDDATE IS NOT NULL " , Array As String())
Cur = Starter.SQl1.ExecQuery("SELECT PODID, RECEIVEDBY, RECEIVEDDATE, SIGNATURE FROM tblpoddetails WHERE RECEIVEDDATE IS NOT NULL")
For i = 0 To Cur.RowCount - 1
Cur.Position = i
PodID = Cur.GetInt("PODID")
ReceivedDate = Cur.GetString("RECEIVEDDATE")
ReceivedBy = Cur.GetString("RECEIVEDBY")
Signature = Cur.GetBlob("SIGNATURE")
' If Cur.GetBlob("SIGNATURE") <> Null Then
' Dim Buffer() As Byte
' Buffer = Cur.GetBlob("SIGNATURE")
' Dim InputStream1 As InputStream
' InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
' bmp.Initialize2(InputStream1)
' InputStream1.Close
' Try
' imgSignature.Bitmap = bmp
' Catch
' Log(LastException)
' End Try
' End If
SpForUpload
Next
End Sub
Sub SpForUpload
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "upload_pod"
cmd.Parameters = Array As Object(PodID, ReceivedDate, ReceivedBy, Signature )
'cmd.Parameters = Array As Object(PodID, ReceivedDate, ReceivedBy, reqManager.ImageToBytes(bmp) )
reqManager.ExecuteCommand(cmd, "UploadPOD")
End Sub
'-----------------------------------------------------------------------------------------------------
'|JOB DONE - FOR ASYNC CALL - UI STILL RESPOND WHILE PROCESSING SQL REQUEST |
'-----------------------------------------------------------------------------------------------------
Sub JobDone(Job As HttpJob)
If Job.Success = False Then
Log("Error: " & Job.ErrorMessage)
Else
If Job.JobName = "DBRequest" Then
reqManager.HandleJobAsync(Job, "ReqManager")
'Dim result As DBResult = reqManager.HandleJob(Job)
End If
End If
Job.Release
End Sub
Sub ReqManager_Result(result As DBResult)
'------------------------------------
'|UPLOAD RESULT |
'------------------------------------
#Region LoadPodList Result
If result.Tag = "UploadPOD" Then 'query tag
Log(result)
End If
#End Region
End Sub