diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index 707282855..00e7bf7a4 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -99,7 +99,7 @@ Partial Class Bancos_CuentasBancariasDetalle
     Private Sub CargaCuentasContables()
         Dim dt As DataTable = Nothing
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Using ObjContabilidad As New ClsContabilidad
                 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
                 If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
@@ -212,36 +212,24 @@ Partial Class Bancos_CuentasBancariasDetalle
                         End If
                     Next
 
-
                     If ExisteEnIntems Then
                         DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
                     Else
-
-                        If UsuarioActual.Empresa.UsaContabilidad Then
+                        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                             Dim objCont As New ClsContPAQi(UsuarioActual.Empresa)
 
-
                             If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then
                                 If objCont.DtResultados.Rows.Count > 0 Then
 
                                     DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString))
                                     DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
-
                                 End If
                             End If
-
-
                             objCont.Dispose()
-
                         End If
 
-
                     End If
-
-
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
-
-
                 End If
 
             Else