diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index b56cc2f54..80c29bf88 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -108,7 +108,7 @@ Partial Class Bancos_PolizaCheque
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
 
             Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
                 If Conta.GetCuentas(-1, "-1", 1) Then
@@ -118,6 +118,17 @@ Partial Class Bancos_PolizaCheque
                 End If
                 Conta.Dispose()
 
+            End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                Dim Conta As New ClsContabilidad
+
+                If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                    dt = Conta.DtResultados
+                    DtCuentasContables = Conta.DtResultados
+                    Session("DtCuentas") = Conta.DtResultados
+                End If
+                Conta.Dispose()
+
             End If
 
             TipoPlantilla = 0
@@ -405,6 +416,18 @@ Partial Class Bancos_PolizaCheque
             NombreCuenta = ""
 
             If UsuarioActual.Empresa.UsaContabilidad Then
+                If drt("CveCuenta").ToString.ToEntero > 0 Then
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
+
+
+                    If drr IsNot Nothing Then
+                        IdCuenta = drt("IdCtaContable").ToString.ToEntero
+                        CodigoCuenta = drr("CuentaFormato").ToString()
+                        NombreCuenta = drr("Nombre").ToString()
+                        'Cuenta = drr("Nombre").ToString()
+                    End If
+                    EsComodin = 0
+                End If
                 If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
                     Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))