Sub JobDone(job As HttpJob)
Dim parser As JSONParser
Dim res As String
If job.Success Then
res = job.GetString
parser.Initialize(res)
'Log(job.GetString)
Select job.JobName
Case "RequestProductsInformation"
Dim list As List
lst.Initialize
Try
list = parser.NextArray
Catch
ToastMessageShow("Error when checking the license!", True)
Return
End Try
If list.Size > 0 Then
Dim mp As Map = list.Get(0)
CallSub2(CallBack, mEventName & "_ShowInAppBilling", mp)
Else
ToastMessageShow("Kein App-Produkt in der Datenbank vorhanden!", True)
End If
End Select
End If
job.Release
End Sub