Sub BtnKot_Click
Dim job_5, job_6 As HttpJob
job_5.Initialize("job", Me)
job_6.Initialize("", Me)
' job_5.PostString("http://192.168.1.4/posapi/insertKot/addkot",JSON)
job_6.Download("http://192.168.1.4/posapi/kot/selectdata")
k = 0
k = m.get("KotNo")
For i = 0 To Grid.RowCount - 1
job_5.Download2("http://192.168.1.4/posapi/insertKot/addkot", _
Array As String("kotno",k,"itemcode","S","itemcategory","food","unqno",2,"reason","vcsdawre","rate",Grid.GetValue(i,2),"amount",Grid.GetValue(i,3),"quantity",Grid.GetValue(i,1),"taxrate",3,"preferencepckey",123,"kotdate",DateTime.Now,"status","A","itempckey",1234))
k = k + 1
Next
Wait For (job_5) JobDone(job_5 As HttpJob)
If job_5.Success Then
Log(job_5.GetString)
' = job_5.GetString
Else
' = job_5.ErrorMessage
ToastMessageShow(job_5.ErrorMessage,True)
Return
End If
job_5.Release
job_6.Release
End Sub