--Procesos para no permitir descarga de pdf en ventas

Ventas/Ventas.aspx.vb

@@ -10052,6 +10052,8 @@ Partial Class Ventas
 
         'If (UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 81, 83) And UsuarioActual.CveUsuario = 100) Or UsuarioActual.CveEmpresa.Contiene(80, 83) Or UsuarioActual.CveUsuario = 100 Then
         If (Archivo.Exists Or Archivo2.Exists Or ArchivoSti.Exists Or ArchivoSti2.Exists Or ArchivoSti3.Exists) And IfNull(CveVenta, 0).ToString().ToEntero() > 0 Then
+
+            If Not UsuarioActual.TienePermisoProceso(380) Then
                 HplDownPDF.Visible = True
                 HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
 
@@ -10069,6 +10071,7 @@ Partial Class Ventas
                     HplImprimirTicket.Visible = True
                     HplImprimirTicket.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1&REGENERAR=1", CveVenta)))
                 End If
+            End If
 
         End If
 
@@ -10895,10 +10898,12 @@ Partial Class Ventas
 
                         ' DESCARGA XML - SI SE TIMBRA MANDA CORREO CON FACTURA
                         If SeTimbro Then
+                            If Not UsuarioActual.TienePermisoProceso(380) Then
                                 Dim ArchivoXML As String = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
                                 If File.Exists(ArchivoXML) Then
                                     MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
                                 End If
+                            End If
                             'MANDA CORREO
                             Try
                                 Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
@@ -10928,6 +10933,7 @@ Partial Class Ventas
 
 
                         'DESCARGA PDF
+                        If Not UsuarioActual.TienePermisoProceso(380) Then
                             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant", "Egs", "Dev", "Ped") Then
                                 'If Not ImprimeAlert Then
 
@@ -10942,6 +10948,8 @@ Partial Class Ventas
                                     MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
                                 End If
                             End If
+                        End If
+
 
                         'CRM
                         If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
@@ -11018,6 +11026,7 @@ Partial Class Ventas
                         '    End If
                         'End If
 
+                        If Not UsuarioActual.TienePermisoProceso(380) Then
                             If DdlTipoComprobante.SelectedValue = "Cot" Then
 
                                 If Not CveEmpresaCRM > 0 Then
@@ -11042,6 +11051,8 @@ Partial Class Ventas
                                     GeneraPDFCotizacion(ChkEnviarFactura.Checked)  ' MANDA CORREO
                                 End If
                             End If
+                        End If
+
 
                         'ENVIA CORREO CON DETALLE DEL CONTRATO
                         If DdlTipoComprobante.SelectedValue.Contiene("DPe", "Ped") Then