- VERSION 4.07.28

- Se agregó el nuevo ruteo dinamico

B4A/C_Principal.bas

@@ -599,8 +599,6 @@ Sub Subir_Click
 End Sub
 
 Sub cargar_Click
-	
-	
 	Dim pedidodiaanterior As Boolean = False
 	Dim cp As Cursor = Starter.skmt.ExecQuery("select * from NOVENTA")
 	If cp.RowCount > 0 Then
@@ -689,6 +687,11 @@ Sub cargar_Click
 		Log($"Pedimos hist_datos"$)
 		reqs.Add("hist_datos")
 
+		cmd.Initialize
+		cmd.Name = "select_coords_almacen_Marquez"
+		cmd.Parameters = Array As Object(ALMACEN)
+		reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
+
 '	c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
 '	If c.RowCount > 0 Then
 '		For i=0 To c.RowCount -1
@@ -1122,6 +1125,8 @@ Sub JobDone(Job As HttpJob)
 					End If
 					Starter.cedisLocation.Latitude = lat
 					Starter.cedisLocation.Longitude = lon
+					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("COORDS_ALMACEN"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("COORDS_ALMACEN",lon&","&lat))
 					'19.48118148992086,-99.15295579261536
 				Next
 			End If