From fb8b76b24b79a6015b66ea4af32531abad043ac0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 13 May 2025 09:00:42 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C2=B4pon=20de=20parametros?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Nomina/CatSatConceptos.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Nomina/CatSatConceptos.aspx.vb b/Nomina/CatSatConceptos.aspx.vb
index b4b2cfb60..52f085ff2 100644
--- a/Nomina/CatSatConceptos.aspx.vb
+++ b/Nomina/CatSatConceptos.aspx.vb
@@ -17,14 +17,14 @@ Partial Class Nom_CatSatConceptos
 
     Public Sub CargaDatos()
         Dim GetConceptoSAT As New ClsNominas
-        If ObjConceptos.GetConceptos() Then
-            ViewState("DTConceptos") = ObjConceptos.DtResultados
-            GlobalDTNomSatConceptos = ObjConceptos.DtResultados
+        If GetConceptoSAT.GetConceptos(UsuarioActual.CveEmpresa) Then
+            ViewState("DTConceptos") = GetConceptoSAT.DtResultados
+            GlobalDTNomSatConceptos = GetConceptoSAT.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
 
-        ObjConceptos.Dispose()
+        GetConceptoSAT.Dispose()
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())