diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 5799a0492..935689de9 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4518,12 +4518,12 @@
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 873a9fa95..64a7d1e23 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37884,7 +37884,7 @@ Partial Class Ventas
Dim CveUsuarioNuevo As Integer = -1
Using ObjUsuarios As New ClsSisUsuarios
- CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccesoDescPS.Text.Trim, UsuarioActual.CveEmpresa)
+ CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccDesc.Text.Trim, UsuarioActual.CveEmpresa)
End Using
If CveUsuarioNuevo > 0 Then
@@ -38089,7 +38089,7 @@ Partial Class Ventas
Else
DivUserPass.Visible = False
DivCodAcceso.Visible = True
- TxtCodAccesoDescPS.Focus()
+ TxtCodAccDesc.Focus()
End If
End Sub