Version 5.11.25

B4A/C_Durakelo.bas

@@ -21,7 +21,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("")
@@ -310,6 +310,7 @@ Sub envia
 End Sub
 
 Sub JobDone(Job As HttpJob)
+	Log("JOBDONE DURAKELO")
 	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
@@ -441,7 +442,7 @@ Sub valida
 	cmd.Name = "select_cuantos_pedidoc_DUR"
 	cmd.Parameters = Array As Object(almacen, Subs.traeRuta)
 	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 = ""
@@ -465,4 +466,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