From 2081642479537529aca96fd54b79a6bfbf314070 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 25 Feb 2021 12:05:36 -0700
Subject: [PATCH] =?UTF-8?q?Cambio=20para=20llenar=20los=20a=C3=B1os=20sin?=
 =?UTF-8?q?=20usar=20la=20base=20de=20datos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Acumuladores/EntradasUsadosResumenRep.aspx.vb | 19 +++++++++++--------
 App_Code/ClsAcumuladores.vb                   | 14 --------------
 2 files changed, 11 insertions(+), 22 deletions(-)

diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 4043c344f..8e389cde6 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -9,6 +9,7 @@ Partial Class Acumuladores_RepEntradasUsados
 
     Private DiasSemana(7) As String
     Private Meses(12) As String
+    Private Cargado As Integer = 0
 
     Private Property DatosEntradasUsados() As DataTable
         Get
@@ -25,8 +26,6 @@ Partial Class Acumuladores_RepEntradasUsados
             txtFechaF.Text = Today
             CargarDatos()
             CargarCombos()
-
-
         End If
     End Sub
 
@@ -36,14 +35,18 @@ Partial Class Acumuladores_RepEntradasUsados
     End Sub
 
     Protected Sub CargarCombos()
-        Dim ObjAcum As New ClsAcumuladores
         Dim fecha As Date = Date.Now.AddMonths(-1)
-        ObjAcum.GetAñosVentas(UsuarioActual.CveEmpresa)
-        DdlAño.DataSource = ObjAcum.DtResultados
-        DdlAño.DataBind()
-        DdlAño.SelectedValue = fecha.Year.ToEntero
-        ObjAcum.Dispose()
+        Dim Años As New ListItem
+        Dim i As Integer
+        If Cargado = 0 Then
+            For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
+                Años = New ListItem(i, i)
+                DdlAño.Items.Add(Años)
+            Next
+        End If
+        Cargado = 1
 
+        DdlAño.SelectedValue = fecha.Year.ToEntero
         DdlMes.SelectedValue = fecha.Month.ToEntero
     End Sub
 
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index be1ec4b01..940bf0817 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -1206,20 +1206,6 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function GetAñosVentas(CveEmprea As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        SqlDataAdapter(String.Format("select top 6 year(Fecha) as Año from Ventas where CveEmpresa = {0} group by  year(Fecha) Order by year(Fecha) desc", CveEmprea.ToString), CommandType.Text)
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError(String.Format("Ocurrió un error al consultar los año de venta"), ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        Return Retorno
-
-    End Function
-
 
 #Region " IDisposable Support "
     ' IDisposable