Sub JobDone(job As HttpJob)
ProgressDialogHide
Public badger1 As Badger
If job.Success Then
Log("Job.GetString=" & job.GetString)
Select job.JobName
Case "BxContatos"
' Produtos: idpi, itens
Dim Itens As String
Dim parser As JSONParser
parser.Initialize(job.getstring)
Dim root As List = parser.NextArray
Dim Dcolroot As Map
Dcolroot.initialize
If root.Size>0 Then
Dcolroot=root.Get(0)
DBUtils.InsertMaps(ADM.SQL3, "contatos", root)
End If