- Se completo el codigo de la clase promociones, ya "casi" sin mapas!

B4A/Starter.bas

@@ -209,11 +209,11 @@ Sub JobDone(Job As HttpJob)
 		If Job.JobName = "DBRequest" Then
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "updateKell_UTR" Then 'query tag
-				For Each records() As Object In result.Rows
-					For Each k As String In result.Columns.Keys
+'				For Each records() As Object In result.Rows
+'					For Each k As String In result.Columns.Keys
 '						If Logger Then Log("Ubicacion en tiempo real: " & k & ": " & records(result.Columns.Get(k)))
-					Next
-				Next
+'					Next
+'				Next
 			End If
 		End If
 	End If