12/1/24 - Cambios para la lista de precios de SuperQ

B4A/C_Principal.bas

@@ -772,7 +772,7 @@ Sub Subir_Click
 
 		t1.Initialize("T1", 20000) ' 1000 = 1 second
 		t1.Enabled = True
-  
+
 		img2.Visible =True
 		'	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
 		If S_CP.Text = "SUBIENDO" Then
@@ -840,10 +840,9 @@ Sub cargar_Click
 	c=skmt.ExecQuery("select usuario from usuarioa")
 	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"
@@ -1016,8 +1015,10 @@ 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 reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
+		LogColor($">>>>>> Llega ${Job.tag}"$, Colors.Blue)
 		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
 			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
 			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
@@ -1029,7 +1030,6 @@ Sub JobDone(Job As HttpJob)
 		If Job.ErrorMessage = "STREAM" Then
 			If CARGA = "SUBIR" Then
 				PB2.Progress = PB2.Progress + PORCENTAJE
-		
 				If S_CP.Text = "EN PROCESO" Then
 					S_CP.Text = "SUBIENDO"
 				End If
@@ -1055,7 +1055,6 @@ Sub JobDone(Job As HttpJob)
 				LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.red)
 			End If
 			
-			
 			If RESULT.Tag = "kmt_datos" Then 'query tag
 				skmt.BeginTransaction
 				Try