From 7bc3facd5e81266c465d7caf90b93d0b1272a4aa Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 6 Apr 2024 10:11:51 -0700 Subject: [PATCH] =?UTF-8?q?--Ventas.=20en=20el=20validador=20de=20usuario?= =?UTF-8?q?=20=20para=20descuentos,=20poner=20radiobutt=C3=B3n.=20es=20c?= =?UTF-8?q?=C3=B3digo=20R=C3=A1pido=20o=20usuario/pass,=20selecci=C3=B3n?= =?UTF-8?q?=20inicial=20el=20c=C3=B3digo=20r=C3=A1pido?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 52 +++++++++++++++++++++++---------- Ventas/Ventas.aspx.vb | 67 ++++++++++++++++++++++++++++++++++--------- 2 files changed, 91 insertions(+), 28 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 9f12d88c4..ea994df37 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4470,25 +4470,47 @@
-
-
-
- -   - -
+
+
+ + + +
-
-
-
-
- -   - +
+
+
+
+ +   + +
+ +
+
+
+
+ +   + +
+
+ +
+
+
+
+
+
+ +   + +
+
+
-
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0dc5f4e34..5ced596f5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24777,8 +24777,13 @@ Partial Class Ventas txtUserDesc.Text = "" txtPassDesc.Text = "" 'UpAutorizarDesc.Update() + + RblTipoAutorizacionDesc.SelectedValue = "1" + DivUserPass.Visible = True + DivCodAcceso.Visible = False txtUserDesc.Focus() - RegistraScript("$('#ModalPermisoDesc').modal({backdrop: 'static', keyboard: false});$('#txtUserDesc').focus();", "A2") + + RegistraScript("$('#ModalPermisoDesc').modal({backdrop: 'static', keyboard: false});setTimeout(() => {$('#txtUserDesc').focus();}, 500); ", "A2") End If Else @@ -37854,21 +37859,45 @@ Partial Class Ventas Dim UsuarioAutorizar As Usuario = Nothing Using ObjUsuario As New ClsSisUsuarios - UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa) - If UsuarioAutorizar IsNot Nothing Then - If UsuarioAutorizar.TienePermisoProceso(374) Then - txtUserDesc.Text = "" - txtPassDesc.Text = "" - 'UpAutorizarDesc.Update() - - RegistraScript("$('#ModalPermisoDesc').modal('hide');$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});", "AUT") - Else - Alert("El usuario no tiene permiso para autorizar", TipoMensaje.MsgAdvertencia) - End If + If RblTipoAutorizacionDesc.SelectedValue = "1" Then + UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa) Else - Alert("No se encontro el usuario para autorizar", TipoMensaje.MsgAdvertencia) + Dim CveUsuarioNuevo As Integer = -1 + + Using ObjUsuarios As New ClsSisUsuarios + CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccesoDescPS.Text.Trim, UsuarioActual.CveEmpresa) + End Using + + If CveUsuarioNuevo > 0 Then + Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuarioNuevo, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "", {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"}).Rows(0) + If DrUsuario IsNot Nothing Then + Dim tUsuario, tContraseña As String + Dim tCveEmpresa As Integer + tUsuario = DrUsuario("Usuario").ToString + tContraseña = DrUsuario("Contraseña").ToString + tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero + + UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa) + End If + End If End If + End Using + + If UsuarioAutorizar IsNot Nothing Then + If UsuarioAutorizar.TienePermisoProceso(374) Then + txtUserDesc.Text = "" + txtPassDesc.Text = "" + 'UpAutorizarDesc.Update() + + RegistraScript("$('#ModalPermisoDesc').modal('hide');$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});", "AUT") + Else + Alert("El usuario no tiene permiso para autorizar", TipoMensaje.MsgAdvertencia) + End If + Else + Alert("No se encontro el usuario para autorizar", TipoMensaje.MsgAdvertencia) + End If + End Sub Protected Sub ImgAntiPend_Click(sender As Object, e As EventArgs) ' $get('HdnTipoDescuento').value = '3'; MuestraAnticipos(); @@ -38033,5 +38062,17 @@ Partial Class Ventas RegistraScript("$('#DivFacturasRelacionadas').modal('show')") UpFacturasRelacionadas.Update() End Sub + Protected Sub RblTipoAutorizacionDesc_SelectedIndexChanged(sender As Object, e As EventArgs) + If RblTipoAutorizacionDesc.SelectedValue = "1" Then + DivUserPass.Visible = True + DivCodAcceso.Visible = False + txtUserDesc.Focus() + Else + DivUserPass.Visible = False + DivCodAcceso.Visible = True + TxtCodAccesoDescPS.Focus() + End If + + End Sub End Class