Formato PDF de Ajuste

Ventas/PV.aspx

@@ -2755,6 +2755,9 @@
                                         </div>
                                     </div>
                                     <asp:UpdatePanel ID="UpAjuste" runat="server" class="portlet-body form" UpdateMode="Conditional">
+                                        <Triggers>
+                                            <asp:PostBackTrigger ControlID="BtnPDFHistorial" />
+                                        </Triggers>
                                         <ContentTemplate>
                                             <div class="col-md-1" id="DivAjuste" runat="server" visible="false">
                                                 <div class="portlet light xspadding bordered">
@@ -2764,10 +2767,10 @@
                                                             <span class="caption-subject bold uppercase">Ajuste </span>
                                                         </div>
                                                         <div class="tools">
+                                                            <asp:LinkButton ID="BtnPDFHistorial" OnClick="BtnPDFHistorial_Click" runat="server" data-toggle="tooltip" Title="PDF"><i class="fa fa-file-pdf-o" style="font-size:15px; font-weight:bold; color:dimgray;"></i></asp:LinkButton>
                                                             <a href="javascript;" class="collapse" data-original-title="" title=""></a>
                                                         </div>
                                                     </div>
-
                                                     <div class="row">
                                                         <div class="col-md-12">
                                                             <div class="form-group form-md-line-input input-iconright">

Ventas/PV.aspx.vb

@@ -8,6 +8,7 @@ Imports System.Linq
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Globalization
 Imports System.Net.Http
+Imports Microsoft.Reporting.WebForms
 
 Partial Class PV
     Inherits ClsPaginas
@@ -5644,6 +5645,36 @@ Partial Class PV
     End Sub
 #End Region
 
+    Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim DtDatos As New DataTable
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
+        params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text))
+        params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+
+        params.Add(New ReportParameter("Fecha", TxtFechaAjuste.Text))
+        params.Add(New ReportParameter("Defecto", DdlTipoDefecto.SelectedItem.Text))
+        params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text))
+        params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text))
 
 
+
+        params.Add(New ReportParameter("MarcaAuto", ""))
+        params.Add(New ReportParameter("TipoAuto", ""))
+
+
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+
+        ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
+
+    End Sub
 End Class