From adcdf5e21eb3ea7fc310ac206c1350108524e732 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 15 Feb 2023 14:28:49 -0700
Subject: [PATCH] =?UTF-8?q?-=20incluir=20columna=20de=20ventas=20en=20la?=
 =?UTF-8?q?=20exportaci=C3=B3n=20a=20excel?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/CatMetasVendedores.aspx.vb | 34 +++++++++++++++++++++++++++----
 1 file changed, 30 insertions(+), 4 deletions(-)

diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb
index 22cad0f55..ffc9ae574 100644
--- a/Ventas/CatMetasVendedores.aspx.vb
+++ b/Ventas/CatMetasVendedores.aspx.vb
@@ -13,6 +13,15 @@ Partial Class CatMetasVendedores
         End Set
     End Property
 
+    Private Property DtDatos() As DataTable
+        Get
+            Return ViewState("DtDatos")
+        End Get
+        Set
+            ViewState("DtDatos") = Value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             txtMesAnio.Text = Now.FirstDayOfMonth.ToShortDateString
@@ -33,6 +42,7 @@ Partial Class CatMetasVendedores
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then
             GvDatos.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
         GvDatos.DataBind()
@@ -164,10 +174,26 @@ Partial Class CatMetasVendedores
         DtExcel.Columns.Add(New DataColumn("Mes", GetType(String)))
         DtExcel.Columns.Add(New DataColumn("Año", GetType(String)))
         DtExcel.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
-        DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
-
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-
+        DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
+        DtExcel.Columns.Add(New DataColumn("Ventas", GetType(Decimal)))
+
+        Dim dttE As DataTable = DtDatos.Copy
+        dttE.TableName = "Metas"
+        For Each drr As DataRow In DtDatos.Rows
+            Dim dr As DataRow = DtExcel.NewRow
+            dr("Vendedor") = drr("Vendedor")
+            dr("Clasificación Superior") = drr("ClasificacionSup")
+            dr("Clasificación") = drr("Clasificacion")
+            dr("Marca") = drr("Marca")
+            dr("Cantidad") = drr("MetaCantidad")
+            dr("Importe") = drr("MetaImporte")
+            dr("Mes") = drr("MesAño").ToString.ToDate.Year
+            dr("Año") = drr("MesAño").ToString.ToDate.Month
+            dr("Ventas") = drr("VentaCantidad")
+
+            DtExcel.Rows.Add(dr)
+        Next
+
         Dim FileExcel As New ExcelFile()
 
         Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)