VERSION 5.11.25

- Se corrigio el envio de bases de datos de reparto

B4A/C_Intmex_Reparto.bas

@@ -39,7 +39,7 @@ Sub envia
 	d.Position=0
 	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
 	d.Close
-	
+
 	'Buscamos ordenes a reprogramar.
 	Dim r As Cursor =B4XPages.MainPage.skmt.ExecQuery("select * from noventa where nv_reprogramar = 1")
 	If r.RowCount > 0 Then
@@ -81,7 +81,7 @@ Sub envia
 			fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
 			Dim fechacapano As String = fechacap(2).SubString(2)
 			Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
-			
+
 			cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"))
 			reqManager.ExecuteCommand(cmd , "ins_pagares")
 		Next
@@ -112,8 +112,7 @@ Sub envia
 		Next
 	End If
 	ab.Close
-		
-	
+
 	c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM hist_ventas WHERE HVD_RECHAZO = 1 ")
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
@@ -233,7 +232,7 @@ Public Sub ConfigurarYEnviar(ServidorURL As String)
 End Sub
 
 Sub JobDone(Job As HttpJob)
-	Log("JOBDONE INTMEX")
+	Log("JOBDONE INTMEX REPARTO")
 	Log(reqManager.link)
 	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
 		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then