Sub Test
wait for(ExecCommand("ins_cmpny",Array As Object("Cmpny","2020-01-01","C7D646DA-1EEE-4577-9522-A24080A528DE"),"Please wait, ...")) complete (DbRsl As List)
End Sub
Sub ExecCommand(Name As String, Parameters() As Object,Msg As String) As ResumableSub
Private req As DBRequestManager = CreateRequest
Private cmd As DBCommand = CreateCommand(Name,Parameters)
Private result As DBResult
Private ErrMsg As String
If Msg <> "" Then ProgressDialogShow2(Msg,False)
wait for (req.ExecuteCommand(cmd, cmd.Name)) JobDone (job As HttpJob)
ProgressDialogHide
If job.success Then
result = req.HandleJob(job)
ErrMsg = ""
Else
result = Null
ErrMsg = job.ErrorMessage
End If
job.Release
Private L As List
L.Initialize
L.Add(result)
L.Add(GetErrMsg(ErrMsg))
Return L
End Sub