Se agrego el envio del cuestionario a mandaPendientes

B4A/B4XMainPage.bas

@@ -425,6 +425,7 @@ Sub Entrar_Click
 End Sub
 
 Sub JobDone(Job As HttpJob)
+	Log("JOBDONE MAINPAGE")
 	If B4XPages.MainPage.reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
 		If B4XPages.MainPage.reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
 			B4XPages.MainPage.reqManager.reqsList.RemoveAt(B4XPages.MainPage.reqManager.reqsList.IndexOf(Job.tag))
@@ -504,6 +505,18 @@ Sub JobDone(Job As HttpJob)
 				IMEI = ""
 			End If
 		End If
+		
+		If result.Tag = "ruta" Then 'query tag
+			Log("JOBDONE PRINCIPAL MAINPAGE")
+			For Each records() As Object In result.Rows
+				Dim VALIDO As String = records(result.Columns.Get("VALIDO"))
+				If VALIDO = "OK" Then
+					Log(VALIDO)
+				End If
+			Next
+		End If
+		
+		
 		Job.Release
 	End If
 	Log($"Paso1 = ${paso1} - Name: ${name} - IMEI: ${IMEI} - IMEI_BASE: ${IMEI_BASE}"$)