- VERSION 4.11.18

- Se agregó Marquez para el envío y validación de infromación.

B4A/Subs.bas

@@ -172,6 +172,20 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta actual de la base de datos.
+Sub traeRuta2 (cliente As String) As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$)
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
 'Regresa la ruta del cliente dado de la tabla pedido.
 Sub traeRutaPedidoCliente(idcliente As String) As String 'ignore
 	Private r As String