AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

E140. No descargar PDF en cotizaciones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-02-28 18:53:53 -07:00
parent 8c1d541859
commit 2181acbd59
1 changed files with 23 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ventas/Ventas.aspx.vb
View File

@@ -4985,6 +4985,11 @@ Partial Class Ventas
End If End If
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 If DbRowVenta("SeTimbro").ToString() = "Si" Then
TrEmitir.Visible = False TrEmitir.Visible = False
End If 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))) HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
End If 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() UpnTools.Update()
End Sub End Sub
@@ -9285,6 +9295,9 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue = "Cot" Then If DdlTipoComprobante.SelectedValue = "Cot" Then
If Not CveEmpresaCRM > 0 Then If Not CveEmpresaCRM > 0 Then
'EN EMPRESA DE ACUMULADORES NO DESCARGAR EL PDF
If UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
If CveVenta > 0 Then MensajeAlert = New StringBuilder If CveVenta > 0 Then MensajeAlert = New StringBuilder
Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta)) Dim ArchivoCotizacion As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
@@ -9297,6 +9310,7 @@ Partial Class Ventas
Else Else
MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ") 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
GeneraPDFCotizacion(ChkEnviarFactura.Checked) ' MANDA CORREO GeneraPDFCotizacion(ChkEnviarFactura.Checked) ' MANDA CORREO
End If End If