From b8beb159baa8c3045d844dc5172813942d58e483 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Wed, 24 Feb 2021 11:18:38 -0700 Subject: [PATCH] =?UTF-8?q?en=20el=20reporte=20de=20sabana=20de=20venta=20?= =?UTF-8?q?mostrar=20solo=20el=20a=C3=B1o=20actual=20y=205=20anteriores?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsAcumuladores.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index b14e03dfe..b041ab359 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -1197,7 +1197,7 @@ Public Class ClsAcumuladores Public Function GetAñosVentas(CveEmprea As Integer) As Boolean Dim Retorno As Boolean = False - SqlDataAdapter(String.Format("select year(Fecha) as Año from Ventas where CveEmpresa = {0} group by year(Fecha) Order by year(Fecha)", CveEmprea.ToString), CommandType.Text) + 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)