Formatos de Grids en Proveedores
This commit is contained in:
janeth arvizu
@@ -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 = "<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", ""))
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user