- VERSION 4.07.28

- Se agregó el nuevo ruteo dinamico

B4A/Subs.bas

@@ -870,4 +870,29 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String)
 			Log(LastException)
 		End Try
 	End Try
+End Sub
+
+'Regresa la ruta actual de la base de datos.
+Sub traeRutaReparto As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("RUTAA")
+	End If
+	c.Close
+	Return r
+End Sub
+
+'Regresa el almacen actual de la base de datos.
+Sub traeAlmacen As String 'ignore
+	Private c As Cursor
+	Private a As String
+	c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	c.Position = 0
+	a = C.GetString("ID_ALMACEN")
+	c.Close
+	Return a
 End Sub