diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c78f926f4..ad36d073a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8279,7 +8279,7 @@ Partial Class Ventas
e.Row.FCLinkButton("imgE").Visible = True
End If
- If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.TienePermisoProceso(374) Then
+ If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
e.Row.FCLinkButton("LnkDescuentos").Visible = True
End If
@@ -24060,7 +24060,16 @@ Partial Class Ventas
UpDescPS.Update()
- RegistraScript("$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});")
+ If UsuarioActual.TienePermisoProceso(374) Then
+ RegistraScript("$('#ModalDescPS').modal({backdrop: 'static', keyboard: false});")
+ Else
+ txtUserDesc.Text = ""
+ txtPassDesc.Text = ""
+ 'UpAutorizarDesc.Update()
+ txtUserDesc.Focus()
+ RegistraScript("$('#ModalPermisoDesc').modal({backdrop: 'static', keyboard: false});$('#txtUserDesc').focus();", "A2")
+ End If
+
Else
DdlPS_SelectedIndexChanged(Nothing, Nothing)
End If
@@ -37038,5 +37047,25 @@ Partial Class Ventas
End Sub
+ Protected Sub BtnAutorizarDescuento_Click(sender As Object, e As EventArgs)
+ 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
+ Else
+ Alert("No se encontro el usuario para autorizar", TipoMensaje.MsgAdvertencia)
+ End If
+ End Using
+ End Sub
End Class