-- mejora en indicador

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())