diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 08af39fb4..25e2e72d7 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -289,6 +289,38 @@ Partial Class Compras_Proveedores
ViewState("DTCobrosRealizados") = value
End Set
End Property
+ Private Property DtProveedoresHistorial As DataTable
+ Get
+ DtProveedoresHistorial = CType(ViewState("DtProveedoresHistorial"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtProveedoresHistorial") = value
+ End Set
+ End Property
+ Private Property DtCxPHistorial As DataTable
+ Get
+ DtCxPHistorial = CType(ViewState("DtCxPHistorial"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtCxPHistorial") = value
+ End Set
+ End Property
+ Private Property DtAntNC As DataTable
+ Get
+ DtAntNC = CType(ViewState("DtAntNC"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtAntNC") = value
+ End Set
+ End Property
+ Private Property DtAntNCH As DataTable
+ Get
+ DtAntNCH = CType(ViewState("DtAntNCH"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtAntNCH") = value
+ End Set
+ End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -809,16 +841,19 @@ Partial Class Compras_Proveedores
LtlMaxima.Text = ObjProveedores.DtResultados.Rows(0)("MAX_Total").ToString.FormatoNumero(2)
'Carga Grid
- GVHistorial.DataSource = ObjProveedores.DtResultados
+ DtProveedoresHistorial = ObjProveedores.DtResultados
+ GVHistorial.DataSource = DtProveedoresHistorial
Else
LtlCantidad.Text = "0.00"
LtlTotalVendido.Text = "0.00"
LtlMinima.Text = "0.00"
LtlPromedio.Text = "0.00"
LtlMaxima.Text = "0.00"
+ DtProveedoresHistorial = Nothing
GVHistorial.DataSource = Nothing
End If
Else
+ DtProveedoresHistorial = Nothing
GVHistorial.DataSource = Nothing
End If
ObjProveedores.Dispose()
@@ -851,23 +886,31 @@ Partial Class Compras_Proveedores
If SelectTop > 0 Then
If ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'").Rows.Count > 0 Then
+ DtAntNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'").AsEnumerable.Take(SelectTop).CopyToDataTable
Else
+ DtAntNC = Nothing
GvA.DataSource = Nothing
End If
If ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'").Rows.Count > 0 Then
+ DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
GvAH.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'").AsEnumerable.Take(SelectTop).CopyToDataTable
Else
+ DtAntNCH = Nothing
GvAH.DataSource = Nothing
End If
Else
- GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
- GvAH.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+ DtAntNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
+ GvA.DataSource = DtAntNC
+ DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+ GvAH.DataSource = DtAntNCH
End If
Else
GvA.DataSource = Nothing
GvAH.DataSource = Nothing
+ DtAntNC = Nothing
+ DtAntNCH = Nothing
End If
ObjMovtos.Dispose()
GvA.DataBind()
@@ -2243,6 +2286,7 @@ Partial Class Compras_Proveedores
End If
'solo tomo los 10 ultimos mas el totalizador general
dtt = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+ DtCxPHistorial = dtt
If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 And Top = -1 Then
GvCxPHistorial.DataSource = dtt.AsEnumerable().Take(10).CopyToDataTable()
@@ -5621,44 +5665,76 @@ Partial Class Compras_Proveedores
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")
+#Region "P R O V E D O R E S G R I D S I M P R I M I R P D F/Excel"
+ Private Sub LnkExportarPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosExcel.Click
+ ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepProveedoresPagosBancos")
End Sub
- Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
- GenerarPDF()
+ Private Sub LinkPDFPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
+ ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepProveedoresPagosBancos")
+ End Sub
+
+ Private Sub LnkCtasBancariass_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasExcel.Click
+ ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepProveedoresCtasBancarias")
+ End Sub
+ Private Sub LinkCtasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasPDF.Click
+ ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepProveedoresCtasBancarias")
+ End Sub
+
+ Private Sub LnkExportarHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasExcel.Click
+ ImprimeGridsProveedores("Excel", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
+ End Sub
+ Private Sub LinkPDFHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPDF.Click
+ ImprimeGridsProveedores("PDF", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
+ End Sub
+
+ Private Sub LnkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasExcel.Click
+ ImprimeGridsProveedores("Excel", DTCxP, "RepProveedoresCxPActivas")
+ End Sub
+ Private Sub LinkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasPDF.Click
+ ImprimeGridsProveedores("PDF", DTCxP, "RepProveedoresCxPActivas")
+ End Sub
+
+ Private Sub LnkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasExcel.Click
+ ImprimeGridsProveedores("Excel", DtCxPHistorial, "RepProveedoresComprasPagadas")
+ End Sub
+ Private Sub LinkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasPDF.Click
+ ImprimeGridsProveedores("PDF", DtCxPHistorial, "RepProveedoresComprasPagadas")
+ End Sub
+
+ Private Sub LnkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarExcel.Click
+ ImprimeGridsProveedores("Excel", DtAntNC, "RepProveedoresNCxAplicar")
+ End Sub
+ Private Sub LinkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarPDF.Click
+ ImprimeGridsProveedores("PDF", DtAntNC, "RepProveedoresNCxAplicar")
+ End Sub
+
+ Private Sub LnkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialExcel.Click
+ ImprimeGridsProveedores("Excel", DtAntNCH, "RepProveedoresNCxAplicar")
+ End Sub
+ Private Sub LinkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialPDF.Click
+ ImprimeGridsProveedores("PDF", DtAntNCH, "RepProveedoresNCxAplicar")
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", ""))
+ Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)
+ If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
+ 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)
+
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text))
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
+ Else
+ Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
End If
- ImprimirPDF("Empresas\Grales\Formatos\RepProveedoresPagosBancos.rdlc", DTCobrosRealizados, params, "RepProveedoresPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
-
-
End Sub
#End Region
End Class
diff --git a/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc b/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc
index ea4c41db8..e65ff391e 100644
--- a/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc
+++ b/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc
@@ -261,7 +261,7 @@
- Abreviatura
+
@@ -754,7 +754,9 @@
-
+
Textbox10
@@ -780,14 +782,16 @@
- =Parameters!FechaImpresion.Value
+ =Globals!ExecutionTime
-
+
Textbox11
@@ -964,6 +968,7 @@
ReportParameter1
+
es-MX
Cm
40c94aad-a12a-44fb-ab0d-ea36a9656792
\ No newline at end of file