diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index 4043ffbbd..36276040b 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -154,21 +154,6 @@ Partial Class CatClasificaciones
         CargaGrid()
     End Sub
 
-    'Public Sub CargaGlobal()
-
-    '    Dim ObjClasificaciones As New ClsClasificaciones
-
-    '    If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
-    '        ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)")
-    '        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
-    '    Else
-    '        Me.GvDatos.DataSource = Nothing
-    '        Alert("Ocurrió un error al cargar las clasificaciones. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-    '    End If
-
-    '    ObjClasificaciones.Dispose()
-    'End Sub
-
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjClasificaciones As New ClsClasificaciones
@@ -236,7 +221,7 @@ Partial Class CatClasificaciones
                 DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
             End If
             ObjContabilidad.Dispose()
-        ElseIf UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+        ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
             Dim ObjEmpresa As New ClsSisEmpresas
             Dim Empresa As Empresa = Nothing
@@ -249,11 +234,8 @@ Partial Class CatClasificaciones
                 ObjContabilidad.Dispose()
             End If
             ObjEmpresa.Dispose()
-
-
         End If
 
-
     End Sub
 
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click