From 06d8f385e4a6ecbbcea59092dc8628f53c0536fb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 27 Feb 2024 13:38:08 -0700 Subject: [PATCH] -- fix de impresion de ticket, etiqueta por empresa --- Compras/PopUpVerFactura.aspx.vb | 3 +++ Ventas/PVCobranza.aspx.vb | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 5c2593aa1..2e73e1c62 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -6040,6 +6040,9 @@ Partial Class PopUpVerFactura If DtPrecios IsNot Nothing Then Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt" + If System.IO.File.Exists(UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt") Then + DirectorioArchivo = UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt" + End If Dim params As New List(Of ReportParameter) ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios") diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 8d0802f49..b07564e1a 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -539,12 +539,12 @@ Partial Class Ventas_PVCobranza Dim ExistePDF As Boolean = False Dim ArchivoPDF As String = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio) - If System.IO.File.Exists(ArchivoPDF) Then + If ObjFactura.TipoDocto = "Rem" AndAlso System.IO.File.Exists(ArchivoPDF) Then ExistePDF = True Else 'REGENERAR EL PDF Try - GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False) + GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False, EsTicket:=True) If System.IO.File.Exists(ArchivoPDF) Then ExistePDF = True End If