Se agrego el envio del cuestionario a mandaPendientes

B4A/C_Principal.bas

@@ -8,6 +8,7 @@ Sub Class_Globals
 	Public rp As RuntimePermissions
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
+'	Dim reqManager As DBRequestManager
 	Dim rd As C_RespaldoDiario
 	Dim conectado As String
 	Dim ime As IME
@@ -1018,6 +1019,7 @@ Sub cargar_Click
 End Sub
 
 Sub JobDone(Job As HttpJob)
+	Log("JOBDONE PRINCIPAL")
 	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))
@@ -1656,6 +1658,7 @@ Sub JobDone(Job As HttpJob)
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 			If RESULT.Tag = "ruta" Then 'query tag
+				Log("JOBDONE PRINCIPAL RUTA")
 				For Each records() As Object In RESULT.Rows
 					Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
 					If VALIDO = "OK" Then
@@ -1743,6 +1746,11 @@ Sub JobDone(Job As HttpJob)
 		Subs.logJobDoneResultados(RESULT)
 	End If
 	
+	If RESULT.Tag = "test" Then 'query tag
+		Log(">>>>>>>>>>>>>  TEST")
+		Subs.logJobDoneResultados(RESULT)
+	End If
+	
 	Job.Release
 End Sub