diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 94533a423..d3b746536 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3850,22 +3850,28 @@ Partial Class Bancos_IE
 
         'Conta ContPAQ
         If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-            If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
+            Dim AutoConta As Boolean = True
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                If Not (IDCtaBeneficiario > 0 And IDCtaContable > 0) Then
+                    AutoConta = False
+                    If IDCtaContable < 1 Then
+                        Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
+                    End If
+                    If IDCtaBeneficiario < 1 Then
+                        Alert("No se puede contabilizar la Prepoliza debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
+                    End If
+                End If
+            End If
+
+            If AutoConta Then
                 If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                     IDPoliza = ObjMov.ContaIdPoliza
-                    'Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
                 Else
                     Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
                     MsgError = "Error al contabilizar."
                 End If
-            Else
-                If IDCtaContable < 1 Then
-                    Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
-                End If
-                If IDCtaBeneficiario < 1 Then
-                    Alert("No se puede contabilizar la Prepoliza debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
-                End If
             End If
+
         End If
 
         If MsgError = "" Then