Public Sub GetCustomers(target As Object)
If Not(m_customers.IsInitialized) Then
m_customers.Initialize
Wait For (LoadCustomers(target, "")) Complete (unfinished As String)
If unfinished<>"" Then
LoadCustomers(target, unfinished)
Else
Log("DOWNLOADED!!!!!")
End If
End If
End Sub
Private Sub LoadCustomers(target As Object, nxt As String) As ResumableSub
Dim unfinished As String=""
Dim J As HttpJob
J.Initialize("customers",target)
Dim uri As String
uri=$"https://myurl/customers"$
If nxt<>"" Then uri=$"${uri}&next=${nxt}"$
Log(uri)
j.Download(uri)
setHeader(j)
Wait For (j) JobDone (j As HttpJob)
If j.Success Then
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As Map = parser.NextObject
Dim db As DatabaseManager
db.Initialize
db.AddCustomers(root.Get("dati"))
If root.ContainsKey("next") Then unfinished=root.Get("next")
Log(unfinished)
Else
Log(j.ErrorMessage)
End If
j.Release
Return unfinished
End Sub
