-

Inventarios/Fletes.aspx

@@ -8,6 +8,9 @@
     Costo Indirecto
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>

Inventarios/Fletes.aspx.vb

@@ -3,6 +3,8 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
 Partial Class Compras_Fletes
     Inherits ClsPaginas
 
@@ -402,6 +404,30 @@ Partial Class Compras_Fletes
 
 #End Region
 
+    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
+
+        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Fletes.rdlc", UsuarioActual.Empresa.Ruta))
+
+        If Archivo.Exists Then
+            Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
+            Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
+            Dim ImporteData As Double = ImporteStr.ToDouble()
+
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("Folio", LblFolio.Text))
+            params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
+            params.Add(New ReportParameter("Fecha", TxtFecha.Text))
+            params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
+            params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
+            params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
+            params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
+
+            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
+        End If
+
+    End Sub
+
 
 
 

Inventarios/RepFletes.aspx

@@ -81,7 +81,7 @@
     <table class="table  Widthall ">
         <tr>
             <td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
-            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Flete</td>
+            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
             <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
         </tr>
     </table>