From 5772bdf068ee8ffbe67d450bd6de3bc2ac2b1996 Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Fri, 30 Jul 2021 16:37:31 -0700
Subject: [PATCH] cambio en ejercicios

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

diff --git a/Nomina/CatPeriodos.aspx.vb b/Nomina/CatPeriodos.aspx.vb
index 9703cb742..5ce0f941e 100644
--- a/Nomina/CatPeriodos.aspx.vb
+++ b/Nomina/CatPeriodos.aspx.vb
@@ -61,13 +61,13 @@ Partial Class Nomina_CatPeriodos
     End Sub
 
     Private Sub cargaEjercicios()
-        Dim objconta As New ClsContabilidad
-        If objconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
-            DdlEjercicio.DataSource = objconta.DtResultados
+        Dim ObjNom_Periodos As New ClsNominas
+        If ObjNom_Periodos.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DdlEjercicio.DataSource = ObjNom_Periodos.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
         End If
-            objconta.Dispose()
+        ObjNom_Periodos.Dispose()
         DdlEjercicio.DataBind()
         DdlEjercicio.Items.Insert(0, New ListItem("Todos", "-1"))