public Sub GetCharges(TargetModule As Object)
Dim job As HttpJob
job.Initialize("",Me)
job.Tag = "GetCharges"
job.Download($"${sdkurl}/charges"$)
job.GetRequest.SetHeader("Authorization", "Bearer "&apptoken)
Wait For (job) JobDone(j As HttpJob)
Dim result As String
If j.Success Then
Log(j.GetString)
result = j.GetString
CallSub3(TargetModule, mEventName & "_" & "Charges",True,result)
Else
result = j.ErrorMessage
'Log(j.ErrorMessage)
CallSub3(TargetModule, mEventName & "_" & "Charges",False,result)
End If
j.Release
End Sub