diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 027bef8cf..4bda8560c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4985,6 +4985,11 @@ Partial Class Ventas
End If
End If
+ 'NO DEBE IMPRIMIR PDF DE COTIZACION
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DbRowVenta("TipoDocto").ToString() = "Cot" Then
+ HplDownPDF.Visible = False
+ End If
+
If DbRowVenta("SeTimbro").ToString() = "Si" Then
TrEmitir.Visible = False
End If
@@ -8556,6 +8561,11 @@ Partial Class Ventas
HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
End If
+ 'NO DEBE IMPRIMIR PDF DE COTIZACION
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+ HplDownPDF.Visible = False
+ End If
+
UpnTools.Update()
End Sub
@@ -9285,17 +9295,21 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue = "Cot" Then
If Not CveEmpresaCRM > 0 Then
- If CveVenta > 0 Then MensajeAlert = New StringBuilder
- Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
- If Opcion = "Cot" And UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
- MensajeAlert.AppendFormat("Facturar
", CveVenta)
- End If
+ 'EN EMPRESA DE ACUMULADORES NO DESCARGAR EL PDF
+ If UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
+ If CveVenta > 0 Then MensajeAlert = New StringBuilder
+ Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
- If ArchivoCotizacion.Exists Then
- MensajeAlert.AppendFormat("