19/9/23 - Pruebas

B4A/C_Subs.bas

@@ -17,6 +17,7 @@ Sub Class_Globals
 	Dim db, kmt, errorLog As SQL 'Requiere la libreria "SQL" 'ignore
 	Dim ssid As String  'ignore
 	Dim reqsList As List
+	Dim reqError As Boolean = False
 	Private subsLogs As Boolean = False
 End Sub
 
@@ -65,7 +66,8 @@ Sub envioTest
 	Private cmd As DBCommand
 	cmd.Initialize
 	cmd.Name = "select_fecha"
-	For i = 0 To 20 
+	For i = 0 To 50
+'		Sleep(200)
 		reqManager.ExecuteQuery(cmd, 0, $"select_fecha_${i}"$)
 		reqsList.Add($"select_fecha_${i}"$)
 	Next
@@ -82,7 +84,10 @@ End Sub
 Sub JobDone(Job As HttpJob)
 	LogColor("C_SUBS JOBDONE - " & Job.Success, Colors.Red)
 	If Job.Success = False Then
+		Log($"Error en el request ${Job.Tag}"$)
 		LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red)
+		If reqsList.IndexOf(Job.Tag) > -1 Then reqsList.RemoveAt(reqsList.IndexOf(Job.Tag))
+		reqError = True
 	Else
 		If Job.JobName = "DBRequest" Then
 			Dim resultado As DBResult = reqManager.HandleJob(Job)
@@ -94,13 +99,19 @@ Sub JobDone(Job As HttpJob)
 					Next
 				Next
 			End If
-			Log(reqsList.Size)
-			If reqsList.Size = 0 Then 'Ya no hay DBReqs pendientes.
-				envioOk(True)
-				Log("-= FIN =-")
-			End If
 		End If
 	End If
+	Log(reqsList.Size)
+	If reqsList.Size = 0 Then 'Ya no hay DBReqs pendientes.
+		Log(reqError)
+		If Not(reqError) Then
+			envioOk(True)
+		Else
+			envioOk(False)
+		End If
+		reqError = False
+		Log("-= FIN =-")
+	End If
 	Job.Release
 End Sub