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