From 99411970de6482fda0bdf64ceead1947f7c77b36 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 7 Dec 2022 11:47:48 -0700
Subject: [PATCH] -- mejora en indicador

---
 App_Code/ClsCGame.vb | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb
index 25c25c7a7..58274dcbc 100644
--- a/App_Code/ClsCGame.vb
+++ b/App_Code/ClsCGame.vb
@@ -12,6 +12,7 @@ Public Class ClsCGame
     Private SqlCommand As SqlCommand
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
+    Protected DTSet As DataSet
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIÓN
@@ -23,7 +24,11 @@ Public Class ClsCGame
             DtResultados = Data
         End Get
     End Property
-
+    Public ReadOnly Property DTSetResultados() As DataSet
+        Get
+            Return DTSet
+        End Get
+    End Property
 #End Region
 
 #Region "Propiedades"
@@ -3394,16 +3399,19 @@ Public Class ClsCGame
 
 #Region "INDICADORES"
 
-    Public Function GetIndicadores(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean
+    Public Function GetIndicadores(CveEmpresa As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Citrus_IndicadoresGet")
+        DTSet = New DataSet
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
         Try
-            SqlAdapter.Fill(Data)
+            SqlAdapter.Fill(DTSet)
             Retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al obtener los indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())