VERSION 6.02.03

B4A/C_Auditoria.bas

@@ -5,8 +5,6 @@ Type=Class
 Version=12.8
 @EndOfDesignText@
 Sub Class_Globals
-	Private Root As B4XView 'ignore
-	Private xui As XUI 'ignore
 	Dim audb As SQL
 	Dim ruta As String = File.DirInternal
 End Sub
@@ -21,7 +19,7 @@ End Sub
 
 'This event will be called once, before the page becomes visible.
 Private Sub B4XPage_Created (Root1 As B4XView)
-	Root = Root1
+'	Root = Root1
 	'load the layout to Root
 End Sub
 
@@ -35,10 +33,12 @@ End Sub
 'Regresa el almacen actual de la base de datos.
 Sub traeAlmacen As String 'ignore
 	Private c As Cursor
-	Private a As String
+	Private a As String = ""
 	c = audb.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-	c.Position = 0
-	a = C.GetString("ID_ALMACEN")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		a = C.GetString("ID_ALMACEN")
+	End If
 	c.Close
 	Return a
 End Sub
@@ -50,7 +50,7 @@ Sub traeRuta As String 'ignore
 	c = audb.ExecQuery("select CAT_CL_RUTA from kmt_info limit 1")
 	r = "0"
 	If c.RowCount > 0 Then
-		c.Position=0
+		c.Position = 0
 		r = c.GetString("CAT_CL_RUTA")
 	End If
 	c.Close
@@ -62,8 +62,10 @@ Sub traeUsuarioDeBD As String 'ignore
 	Private c As Cursor
 	Private u As String = "SinUsuario"
 	c = audb.ExecQuery("select USUARIO from usuarioa")
-	c.Position=0
-	If c.RowCount > 0 Then u = c.GetString("USUARIO")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		u = c.GetString("USUARIO")
+	End If
 	c.Close
 	Return u
 End Sub
@@ -71,10 +73,12 @@ End Sub
 'Trae el cliente de CUENTAA
 Sub traeCliente As String 'ignore
 	Private c As Cursor
-	Private cl As String
+	Private cl As String = ""
 	c = audb.ExecQuery("Select CUENTA from cuentaa")
-	c.Position = 0
-	cl = c.GetString("CUENTA")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		cl = c.GetString("CUENTA")
+	End If
 	c.Close
 	Return cl
 End Sub