diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 6d7a84b9e..7475e0d66 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -1969,15 +1969,26 @@
Pagos Realizados
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index c65a64af2..08af39fb4 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/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 = "Filtros: "
+
+
+
+ '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