8/11/23 - Cambios en DBRequestManager y JobDone.

- Cambios para que mande mas informacion al log cuando se carga día.

seleccion.bas

@@ -928,6 +928,8 @@ Sub cargar_Click
 	c.Position = 0
 	usuario = c.GetString("USUARIO")
 	
+	reqManager.reqsList.Initialize 'inicializamos lista de requests.
+	
 	Dim cmd As DBCommand
 	cmd.Initialize
 	cmd.Name ="insert_drop2_DUR"
@@ -1101,7 +1103,16 @@ Sub cargar_Click
 	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
 End Sub
 Sub JobDone(Job As HttpJob)
-	If Job.Success = False Then
+	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
+		LogColor($">>>>>> Llega "${Job.tag}""$, Colors.RGB(170, 174, 0))
+		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
+			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
+			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
+		End If
+		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
+	End If
+	If Not(Job.Success) Then
+		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
 		'If 	Job.ErrorMessage <> "STREAM" Then
 		'	ToastMessageShow("Error: " & Job.ErrorMessage, True)
 		'End If