...

B4A/Subs.bas

@@ -65,6 +65,20 @@ Sub decompress(base64 As String) As String 'ignore
 	Return uncompressed
 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
+
 'Convierte una fecha al formato yyMMddHHmmss
 Sub fechaKMT(fecha As String) As String 'ignore
 '	Log(fecha)