-- activación de impresión etiqueta lote/cad SMS

2023-11-14 11:33:35 -07:00
parent 2ac8b1c424
commit 232f3955a6
2 changed files with 6 additions and 3 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -6607,7 +6607,10 @@ Partial Class PopUpVerFactura
        params.Add(New ReportParameter("PS", PS))
        params.Add(New ReportParameter("Lote", Lote))
        params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString("dd/MM/yyyy")))
-        Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params)
+        Dim tRuta As String = String.Format("{0}Formatos/EtiquetaDeRecepcion.rdlc", UsuarioActual.Empresa.Ruta)
+
+        If Not IO.File.Exists(tRuta) Then tRuta = "Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc"
+        Return StreamPDF(tRuta, New DataTable, params)
    End Function
 #End Region