Dim ll_list As List
ll_list.Initialize
Timer1.Enabled = False
Dim ls_http As HttpJob
Dim gen As JSONGenerator
Dim ls_sql_query as String
Dim ls_resultset as ResultSet
ls_sql_query = " Select insertdate "
ls_sql_query = ls_sql_query & " From in_sales_order_header_temp "
ls_resultset = Main.gs_sql.ExecQuery(ls_sql_query)
Do While ls_resultset.NextRow
Dim ls_insertdate_header As String = ls_resultset.Getstring("insertdate")
Dim lm_map As Map
lm_map.Initialize
lm_map.Put("insertdate_header", ls_insertdate_header)
ll_list.Add(lm_map)
Loop
gen.Initialize2(ll_list)
Dim ls_str As String
ls_str = gen.ToString
Log(gen.ToString)
Log("Ls_str : " & ls_str)
If ls_str = "" Then
Timer1.Enabled = True
Return
End If
ls_http.Initialize("j1",Me)
ls_http.PostString(Main.gs_url & "/salesordertemp/insertCustomerItemDetails", ls_str)
Wait For (ls_http) JobDone(ls_http As HttpJob)
If ls_http.Success = False Then
Timer1.Enabled = True
Return
End If
Dim ls_result As String
ls_result = ls_http.GetString
Log("Returned Item Status: " & ls_result)