Cambios para guardar cuestionario en web

B4A/Subs.bas

@@ -664,6 +664,18 @@ Sub traeAlmacen As String 'ignore
 	Return a
 End Sub
 
+'Regresa la ruta desde kmt_info.
+Sub traeRuta As String 'ignore
+	Private r As Cursor
+	Private r2 As String = ""
+	r = B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info limit 1")
+	If r.RowCount > 0 Then
+		r.Position = 0
+		r2 = r.GetString("CAT_CL_RUTA")
+	End If
+	Return r2
+End Sub
+
 'Regresa el nombre del producto desde CAT_GUNAPROD
 Sub traeProdNombre(id As String) As String
 	Private h As Cursor