diff --git a/Contabilidad2/CatContaEjercicios.aspx.vb b/Contabilidad2/CatContaEjercicios.aspx.vb
index 157cd674d..cea243360 100644
--- a/Contabilidad2/CatContaEjercicios.aspx.vb
+++ b/Contabilidad2/CatContaEjercicios.aspx.vb
@@ -72,7 +72,7 @@ Partial Class Contabilidad2_CatContaEjercicios
         Dim ObjConta As New ClsContabilidad
         Dim errorString As String = ""
         If LbAgregar.Text = "Agregar" Then
-            If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
+            If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
                                               PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al agregar"
             End If