Formato de Pagos en pestaña de Bancos de Proveedores

Compras/Proveedores.aspx

@@ -1969,15 +1969,26 @@
                                             <span class="caption-subject bold uppercase">Pagos Realizados</span>
 
                                         </div>
+
                                         <div class="actions">
                                             <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkPagosProveedoresBancosPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkPagosProveedoresBancosExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkPagosProveedoresBancosPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkPagosProveedoresBancosExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
                                             </div>
                                         </div>
-                                        <div class="tools">
+<%--                                        <div class="tools">
                                             <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
-                                        </div>
+                                        </div>--%>
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">

Compras/Proveedores.aspx.vb

@@ -281,6 +281,14 @@ Partial Class Compras_Proveedores
         End Set
     End Property
 
+    Private Property DTCobrosRealizados As DataTable
+        Get
+            DTCobrosRealizados = CType(ViewState("DTCobrosRealizados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCobrosRealizados") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -876,7 +884,8 @@ Partial Class Compras_Proveedores
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
         If ObjMovtos.GetProveedorBancos(CveProveedor, CveMoneda:=CveMonedaFiltro, CveProveedorSucursal:=If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), SelectTop:=SelectTop) Then
-            GvBancos.DataSource = ObjMovtos.DtResultados
+            DTCobrosRealizados = ObjMovtos.DtResultados
+            GvBancos.DataSource = DTCobrosRealizados
         End If
 
         ObjMovtos.Dispose()
@@ -5611,6 +5620,47 @@ Partial Class Compras_Proveedores
         'MyBase.VerifyRenderingInServerForm(control)
 
     End Sub
+
+#Region "C L I E N T E S   P A G O S  R E A L I Z A D O S   I M P R I M I R   P D F/Excel"
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosExcel.Click
+        GenerarPDF("Excel")
+    End Sub
+    Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
+        GenerarPDF()
+    End Sub
+    Private Sub GenerarPDF(Optional Formato As String = "PDF")
+        Dim ObjTareas As New ClsOIEventos
+
+        Dim params As New List(Of ReportParameter)
+
+
+
+        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 Filtros As String = "<b>Filtros: </b> "
+
+
+
+        'Dim FechaI, FechaF As String
+
+        ' params.Add(New ReportParameter("AgrupadoPor", Filtros))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        'params.Add(New ReportParameter("FechaInicio", FechaI))
+        'params.Add(New ReportParameter("FechaFin", FechaF))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        ImprimirPDF("Empresas\Grales\Formatos\RepProveedoresPagosBancos.rdlc", DTCobrosRealizados, params, "RepProveedoresPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
+
+
+    End Sub
+#End Region
 End Class