--Modal para autorizar descuentos

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