Gdiaz

Compras/RepComprasDetalle.aspx.vb

@@ -380,7 +380,19 @@ Partial Class Compras_RepComprasDetalle
             params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion)
+
+
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepComprasDetalle.rdlc", UsuarioActual.Empresa.Ruta))
+
+            If Archivo.Exists Then
+                ImprimirPDF(Archivo.FullName, DtDatos, params, "ReporteComprasDetalles", Opcion)
+            Else
+                ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion)
+            End If
+
+
+
+
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
@@ -463,6 +475,7 @@ Partial Class Compras_RepComprasDetalle
         GvDatos.Columns(14).Visible = ChkFecha.Checked
         GvDatos.Columns(15).Visible = ChkObs.Checked
         GvDatos.Columns(16).Visible = ChkDescripcion.Checked
+        GvDatos.Columns(17).Visible = ChkAlmacen.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then