- incluir columna de ventas en la exportación a excel

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()
@@ -165,8 +175,24 @@ Partial Class CatMetasVendedores
         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)))
+        DtExcel.Columns.Add(New DataColumn("Ventas", GetType(Decimal)))
 
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        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()