For i = 0 To tblMasters.RowCount - 1
tblMasters.Position = i
ddlaccname.Text = tblMasters.GetString("MName")
Dim job4 As HttpJob
job4.Initialize("job4",Me)
job4.Download("http://" & GlobalConst.IPAddress & ":" & GlobalConst.PortNo)
job4.GetRequest.SetHeader("SC",GlobalConst.SC_GET_ACC_LEDGER_JSON)
job4.GetRequest.SetHeader("Username",GlobalConst.BUSYId)
job4.GetRequest.SetHeader("Pwd",GlobalConst.BUSYPwd)
job4.GetRequest.SetHeader("MasterName", ddlaccname.Text)
job4.GetRequest.SetHeader("StartDate", txtFrom.Text)
job4.GetRequest.SetHeader("EndDate", txtTo.Text)
job4.GetRequest.Timeout = 120000 'In Milliseconds i.e 2 minutes
Next
Any Idea ?
Job.success is returned as False
tblMasters.Position = i
ddlaccname.Text = tblMasters.GetString("MName")
Dim job4 As HttpJob
job4.Initialize("job4",Me)
job4.Download("http://" & GlobalConst.IPAddress & ":" & GlobalConst.PortNo)
job4.GetRequest.SetHeader("SC",GlobalConst.SC_GET_ACC_LEDGER_JSON)
job4.GetRequest.SetHeader("Username",GlobalConst.BUSYId)
job4.GetRequest.SetHeader("Pwd",GlobalConst.BUSYPwd)
job4.GetRequest.SetHeader("MasterName", ddlaccname.Text)
job4.GetRequest.SetHeader("StartDate", txtFrom.Text)
job4.GetRequest.SetHeader("EndDate", txtTo.Text)
job4.GetRequest.Timeout = 120000 'In Milliseconds i.e 2 minutes
Next
Any Idea ?
Job.success is returned as False