[INDENT]Dim parser As JSONParser[/INDENT]
Dim response As String
response = HttpUtils.GetString(ServerUrl)
parser.Initialize(response)
Dim rows As List
rows = parser.NextArray
Dim PBar As ProgressBar
PBar.Initialize("")
For i = 0 To rows.Size - 1
Log("Rows #" & i)
Dim m As Map
m = rows.Get(i)
PBar.Progress=i/(rows.Size - 1)*100
Dim shifra As String
Dim emertimi As String
Dim debi As Double
Dim kredi As Double
Dim saldo As Double
shifra = m.Get("Kodi")
emertimi = m.Get("Subjekti")
debi = m.Get("#Debi")
kredi = m.Get("#Kredi")
saldo = m.Get("#Saldo")
DoEvents
Next
PBar.RemoveView