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