-- fix de impresion de ticket, etiqueta por empresa

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")

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