Formatos de Grids en Proveedores

This commit is contained in:
janeth arvizu
2019-10-08 13:40:50 -07:00
parent ebf65180cb
commit 40ccbeebfc
3 changed files with 223 additions and 63 deletions

View File

@@ -1175,15 +1175,27 @@
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Historial de Compras</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel3">
<ContentTemplate>
<asp:LinkButton ID="LnkHistorialComprasPDF" 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="LnkHistorialComprasExcel" 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="LnkHistorialComprasPDF" />
<asp:PostBackTrigger ControlID="LnkHistorialComprasExcel" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
@@ -1406,6 +1418,22 @@
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
<a href="javascript:;" class="remove" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel4">
<ContentTemplate>
<asp:LinkButton ID="LnkCxPActivasPDF" 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="LnkCxPActivasExcel" 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="LnkCxPActivasPDF" />
<asp:PostBackTrigger ControlID="LnkCxPActivasExcel" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body ">
<div class="row" style="margin-right: 10px;" align="right">
@@ -1490,14 +1518,26 @@
<span class="caption-subject bold uppercase">Historial de Compras Pagadas</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel6">
<ContentTemplate>
<asp:LinkButton ID="LnkHistorialComprasPagadasPDF" 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="LnkHistorialComprasPagadasExcel" 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="LnkHistorialComprasPagadasPDF" />
<asp:PostBackTrigger ControlID="LnkHistorialComprasPagadasExcel" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body ">
<div class="row" style="margin-right: 10px;" align="right">
@@ -1656,16 +1696,27 @@
<span class="caption-subject bold uppercase">Notas de Crédito por aplicar / Anticipos por Comprobar</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<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 class="actions">
<div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel7">
<ContentTemplate>
<asp:LinkButton ID="LnkNCxAplicarPDF" 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="LnkNCxAplicarExcel" 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="LnkNCxAplicarPDF" />
<asp:PostBackTrigger ControlID="LnkNCxAplicarExcel" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body ">
<div class="row" style="margin-right: 10px;" align="right">
@@ -1727,16 +1778,27 @@
<span class="caption-subject bold uppercase">Historial</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<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 class="actions">
<div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel8">
<ContentTemplate>
<asp:LinkButton ID="LnkNCxAplicarHistorialPDF" 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="LnkNCxAplicarHistorialExcel" 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="LnkNCxAplicarHistorialPDF" />
<asp:PostBackTrigger ControlID="LnkNCxAplicarHistorialExcel" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body ">
<div class="row" style="margin-right: 10px;" align="right">
@@ -1814,6 +1876,22 @@
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
<a href="javascript:;" class="remove" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel5">
<ContentTemplate>
<asp:LinkButton ID="LnkCtasBancariasPDF" 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="LnkCtasBancariasExcel" 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="LnkCtasBancariasPDF" />
<asp:PostBackTrigger ControlID="LnkCtasBancariasExcel" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="portlet-body ">
<asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
@@ -1967,7 +2045,12 @@
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Pagos Realizados</span>
</div>
<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 class="actions">
@@ -1984,11 +2067,7 @@
</asp:UpdatePanel>
</div>
</div>
<%-- <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 class="portlet-body ">
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">

View File

@@ -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 GenerarPDF(Optional Formato As String = "PDF")
Dim ObjTareas As New ClsOIEventos
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 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)
' 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))
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\RepProveedoresPagosBancos.rdlc", DTCobrosRealizados, params, "RepProveedoresPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
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
End Sub
#End Region
End Class

View File

@@ -261,7 +261,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Abreviatura</Value>
<Value />
<Style>
<FontWeight>Bold</FontWeight>
</Style>
@@ -754,7 +754,9 @@
</Style>
</TextRun>
</TextRuns>
<Style />
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
@@ -780,14 +782,16 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!FechaImpresion.Value</Value>
<Value>=Globals!ExecutionTime</Value>
<Style>
<FontSize>9pt</FontSize>
<Format>D</Format>
<Format>g</Format>
</Style>
</TextRun>
</TextRuns>
<Style />
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName>
@@ -964,6 +968,7 @@
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
</Report>