cambio en ejercicios

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