Version 5.11.25

C_Marquez.bas

@@ -22,7 +22,7 @@ End Sub
 'You can add more parameters here.
 Public Sub Initialize As Object
 '	reqManager.Initialize(Me, "http://keymon.lat:1781")
-	reqManager.Initialize(Me, "http://192.99.93.204:1781")
+	reqManager.Initialize(Me, "http://keymon.net:1781")
 	l_ruta.Initialize("")
 	L_ABORDO.Initialize("")
 	l_porvisitar.Initialize("")
@@ -329,6 +329,7 @@ Sub envia
 End Sub
 
 Sub JobDone(Job As HttpJob)
+	Log("JOBDONE MARQUEZ")
 	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
@@ -517,7 +518,7 @@ Sub valida
 	cmd.Name = "select_cuantos_pedidoc_MARQUEZ"
 	cmd.Parameters = Array As Object(almacen,l_ruta.text)
 	reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
-	Log("http://keymon.lat:1781")
+	Log("http://keymon.net:1781")
 	
 	B4XPages.MainPage.l_vPedidos2.Text = ""
 	B4XPages.MainPage.l_vProds2.Text = ""
@@ -541,4 +542,11 @@ Sub T4_Tick
 			B4XPages.MainPage.p_validacion.Visible = True
 		End If
 	End If
+End Sub
+
+' Nuevo método para inicializar el manager con el Target correcto
+Public Sub ConfigurarYEnviar(ServidorURL As String)
+	' 'Me' aquí es C_Intmex, asegurando que C_Intmex.JobDone sea llamado.
+	reqManager.Initialize(Me, ServidorURL)
+	envia ' Llama a la función de envío original de C_Intmex
 End Sub