Sub GetRecord(id As Int)
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("getArticulos", Array(id))
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_result(res As DBResult)
req.PrintTable(res)
Dim columns As Map = res.Get("columns") [B][COLOR=rgb(184, 49, 47)] Miembro desconocido: ge[/COLOR][/B][COLOR=rgb(184, 49, 47)][B]t[/B][/COLOR]
For Each row() As Object In res.Rows
Dim descripcion As String = row.get(columns.get("descripcion")) [B] [COLOR=rgb(184, 49, 47)]Solo el 'Length' (Largo) esta permitido por arreglos.[/COLOR][/B]
Dim stock As Float = row.get(columns.get("stock")) [B][COLOR=rgb(184, 49, 47)]Solo el 'Length' (Largo) esta permitido por arreglos.[/COLOR][/B]
Dim neto As Float = row.get(columns.get("neto")) [B][COLOR=rgb(226, 80, 65)] [/COLOR][COLOR=rgb(184, 49, 47)]Solo el 'Length' (Largo) esta permitido por arreglos.[/COLOR][/B]
Next
Else
Log("ERROR: "&j.ErrorMessage)
End If
j.Release
End Sub