-

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
+