diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 9b735f488..c2c3b08bd 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -58,29 +58,34 @@ Reporte de Compras -
  • - PDF -
  • -
  • - Excel -
  • - - -
  • - Personalizar -
  • -
    -
    -
  • - Ver Dlls en pesos -
  • - - -
  • - Ver Grafica -
  • -
    -
    + + +
  • + PDF +
  • +
  • + Excel +
  • +
  • + Personalizar +
  • +
  • + Excel Personalizado +
  • +
  • + Ver Dlls en pesos +
  • + +
  • + Ver Grafica +
  • +
    + + + + + +
    diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index dc5b5fb03..9e5844ce5 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -8,7 +8,15 @@ Imports Microsoft.Reporting.WebForms Partial Class Compras_RepCompras Inherits ClsPaginas #Region "PROPIEDADES" + Private Property Personalizo As Integer + Get + Return ViewState("Personalizo").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("Personalizo") = value + End Set + End Property Private Property TCEspecifico As Double Get If ViewState("TCEspecifico") Is Nothing Then @@ -43,6 +51,7 @@ Partial Class Compras_RepCompras Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + Personalizo = 0 CargaCombos() End If End Sub @@ -289,8 +298,16 @@ Partial Class Compras_RepCompras GvDatos.Columns(15).Visible = True Else GvDatos.Columns(15).Visible = False + End If + + + Personalizo = 1 + If Personalizo = 1 Then + ImgExcelPersonalizado.Visible = True + Else + ImgExcelPersonalizado.Visible = False End If - + UppAcciones.Update() UPDatos.Update() End Sub @@ -398,9 +415,14 @@ Partial Class Compras_RepCompras Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region - - + + Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + + GvDatos.ExportToExcel("Compras_" & NowADS().ToShortDateString) + 'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx") + End Sub + End Class diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index 820b840e8..df26c2813 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -3,37 +3,46 @@ <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - <%----%> -
  • - Generar PDF -
  • + + + +
  • + Generar PDF +
  • -
  • - - Exportar Excel - -
  • -
  • - - Imprimir Remesa - -
  • - - -
  • - Personalizar -
  • -
    -
    -
  • - Ver Dlls en pesos -
  • - - -
  • - Ver Grafica -
  • +
  • + + Exportar Excel + +
  • +
  • + Excel Personalizado +
  • +
  • + + Imprimir Remesa + +
  • + +
  • + Personalizar +
  • + +
  • + Ver Dlls en pesos +
  • + +
  • + Ver Grafica +
  • +
    + + + + + +
    diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index b7e7c2946..669e79f5a 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -28,6 +28,15 @@ Partial Class Compras_RepComprasDetalle End Set End Property + Private Property Personalizo As Integer + Get + Return ViewState("Personalizo").ToString.ToEntero + End Get + + Set(value As Integer) + ViewState("Personalizo") = value + End Set + End Property Private Property TCEspecifico As Double Get If ViewState("TCEspecifico") Is Nothing Then @@ -62,6 +71,7 @@ Partial Class Compras_RepComprasDetalle Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + Personalizo = 0 CargaCombos() CargaParametrosInicio() CargaDatos() @@ -460,10 +470,22 @@ Partial Class Compras_RepComprasDetalle GvDatos.Columns(14).Visible = ChkFecha.Checked GvDatos.Columns(15).Visible = ChkObs.Checked GvDatos.Columns(16).Visible = ChkDescripcion.Checked + + Personalizo = 1 + If Personalizo = 1 Then + ImgExcelPersonalizado.Visible = True + Else + ImgExcelPersonalizado.Visible = False + End If + UppAcciones.Update() UPDatos.Update() End Sub + Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + GvDatos.ExportToExcel("DetalleCompras_" & NowADS().ToShortDateString) + 'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx") + End Sub End Class