diff --git a/Ventas/CatClasificacionesDetalle.aspx.vb b/Ventas/CatClasificacionesDetalle.aspx.vb
index 47e242f3b..c8899794d 100644
--- a/Ventas/CatClasificacionesDetalle.aspx.vb
+++ b/Ventas/CatClasificacionesDetalle.aspx.vb
@@ -40,10 +40,7 @@ Partial Class CatClasificacionesDetalle
 
                 If CargaDatos() Then
 
-                    DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
-                    DdlCategoria.DataBind()
-
-                    If UsuarioActual.Empresa.UsaContabilidad Then
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                         Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
 
                         If Cuenta.GetCuentas(-1, "-1", -1) Then
@@ -100,8 +97,8 @@ Partial Class CatClasificacionesDetalle
         Dim Retorno As Boolean = False
         Dim ObjClasificaciones As New ClsClasificaciones
 
-        If ObjClasificaciones.GetClasificaciones() Then
-            Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} AND CveEmpresa = {1}", CveClasificacion, UsuarioActual.CveEmpresa)).FiltroPrimero("")
+        If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} ", CveClasificacion)).FiltroPrimero("")
 
             If dr IsNot Nothing Then
                 TxtClasificacion.Text = dr("Clasificacion").ToString
@@ -110,6 +107,8 @@ Partial Class CatClasificacionesDetalle
                 DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
                 DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString
 
+                DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+                DdlCategoria.DataBind()
 
                 DdlCategoria.SelectedValue = dr("CveCategoria").ToString
                 ChkEstado.Checked = dr("Estatus").ToString = "Activo"
@@ -123,6 +122,7 @@ Partial Class CatClasificacionesDetalle
                     Me.GvDatos.DataSource = Nothing
                 End If
 
+
             End If
 
         End If