-- cambio de clase de validación de usuario

2024-07-01 08:46:40 -07:00
parent 087c15d8ed
commit 370c128d61
3 changed files with 47 additions and 22 deletions
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -8361,8 +8361,8 @@ Partial Class PV
            tUsuario = DrUsuario("Usuario").ToString
            tContraseña = DrUsuario("Contraseña").ToString
            tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
-
-            Dim ObjUsuario As New ClsSisUsuarios
+            Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(tCveEmpresa)
+            Dim ObjUsuario As New ClsSisUsuarioAutenticacion
            Dim Usuario As Usuario

            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)