Hi Sorex,
Hope u r doing fine.
I have a question, I am calling Jobs one inside another due to reason of program execution going ahead and job finishing late.After the last job finishes I am calling another activity.But the control again comes back to the last activity(with jobs) and
Job.Jobname having value
[errormessage=, httputils2service=null, jobname=
, password=, req=null, username=
, tag=null, target=null, taskid=
, success=false]
Pls see below.I checked it is successfully finishing last Job_Update_ParamTable but after showing Activity agian comes back to this form with above value.
Pls help.
Sub Jobdone (Job As HttpJob)
Dim str As String
Dim sDt As String
Dim i As Int
If Job.Success=True Then
Select Job.jobname
Case "Job_Get_Param"
Dim parser As JSONParser
Dim response As String
response=Job_Get_Param.GetString
If response.Length<10 Then
ToastMessageShow("No Record Found In Ledger Table" & Job.ErrorMessage, True)
Exit
End If
parser.Initialize(response)
Dim rows As List
rows=parser.NextArray
Dim m As Map
Dim i As Int
i=0
m=rows.Get(i)
Dim snos As String
Dim scode As String
scode=m.Get("DocName")
snos=m.Get("Nos")
sFormNo=scode & snos
DateTime.DateFormat ="MM/dd/yyyy"
sDt=DateTime.Date(DateTime.Now)
str="Insert .............."
Job_Insert_Header.initialize("Job_Insert_Header",Me)
Job_Insert_Header.Download2(frmLogin.ServerURL,Array As String ............)
Case "Job_Insert_Header"
str="Update...................'"
Job_Update_ParamTable.Initialize("Job_Update_ParamTable",Me)
Job_Update_ParamTable.Download2(frmLogin.ServerURL,Array As String(...................)
Case "Job_Update_ParamTable"
For i=0 To strMArray.Length-1
If strMArray(i).Length>5 Then
GP_Count(txtMsg.text ,strMArray(i))
End If
Next
StartActivity("frmSystemMsg")
End Select
Hope u r doing fine.
I have a question, I am calling Jobs one inside another due to reason of program execution going ahead and job finishing late.After the last job finishes I am calling another activity.But the control again comes back to the last activity(with jobs) and
Job.Jobname having value
[errormessage=, httputils2service=null, jobname=
, password=, req=null, username=
, tag=null, target=null, taskid=
, success=false]
Pls see below.I checked it is successfully finishing last Job_Update_ParamTable but after showing Activity agian comes back to this form with above value.
Pls help.
Sub Jobdone (Job As HttpJob)
Dim str As String
Dim sDt As String
Dim i As Int
If Job.Success=True Then
Select Job.jobname
Case "Job_Get_Param"
Dim parser As JSONParser
Dim response As String
response=Job_Get_Param.GetString
If response.Length<10 Then
ToastMessageShow("No Record Found In Ledger Table" & Job.ErrorMessage, True)
Exit
End If
parser.Initialize(response)
Dim rows As List
rows=parser.NextArray
Dim m As Map
Dim i As Int
i=0
m=rows.Get(i)
Dim snos As String
Dim scode As String
scode=m.Get("DocName")
snos=m.Get("Nos")
sFormNo=scode & snos
DateTime.DateFormat ="MM/dd/yyyy"
sDt=DateTime.Date(DateTime.Now)
str="Insert .............."
Job_Insert_Header.initialize("Job_Insert_Header",Me)
Job_Insert_Header.Download2(frmLogin.ServerURL,Array As String ............)
Case "Job_Insert_Header"
str="Update...................'"
Job_Update_ParamTable.Initialize("Job_Update_ParamTable",Me)
Job_Update_ParamTable.Download2(frmLogin.ServerURL,Array As String(...................)
Case "Job_Update_ParamTable"
For i=0 To strMArray.Length-1
If strMArray(i).Length>5 Then
GP_Count(txtMsg.text ,strMArray(i))
End If
Next
StartActivity("frmSystemMsg")
End Select
