diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 5182c0551..d9051657e 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2469,8 +2469,22 @@ Partial Class ContabilidadC_RegPrePolizaS
                         Dim objconta3 As New ClsContabilidad
                         objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)
                         If objconta3.DtResultados.Rows.Count > 0 Then
-                            Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
-                            CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                            'si solo hay una cuenta asignada, toma el primero
+                            If objconta3.DtResultados.Rows.Count = 1 Then
+                                Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
+                                CveBancoCuenta = rowcc("CveBancoCuenta").ToString.ToEntero()
+                            Else
+                                CveBancoCuenta = objconta3.DtResultados.Rows(0)("CveBancoCuenta").ToString.ToEntero() 'toma el primero sino hay del tipo cheque
+                                'casos que tienen la misma cuenta, que primero tome las cuentas de tipo cheque, y luego las demás
+                                Dim dttC As DataTable = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1)
+                                For Each drcta As DataRow In objconta3.DtResultados.Rows
+                                    Dim tCveTipoCuentas As Integer = dttC.FiltroPrimeroValor("CveTipoCuenta", $"CveCuenta= {drcta("CveBancoCuenta")}").ToEntero
+                                    If tCveTipoCuentas = 2 Then 'tipo cheques
+                                        CveBancoCuenta = drcta("CveBancoCuenta").ToString.ToEntero()
+                                        Exit For
+                                    End If
+                                Next
+                            End If
                         Else
                             CveBancoCuenta = 0
                         End If