diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 28ee2316a..2e1f84392 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -3402,17 +3402,14 @@ Partial Class Bancos_PopIEVentas
 
                                     'Conta ContPAQ
                                     If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                                        If idCuentaContabilizacion > 0 Then
 
-                                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                                IdPoliza = ObjMov.ContaIdPoliza
-                                                ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                                            Else
-                                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
-                                            End If
+                                        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                                            IdPoliza = ObjMov.ContaIdPoliza
+                                            ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
                                         Else
-                                            Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
+                                            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
                                         End If
+
                                     End If
 
                                 End If
@@ -3461,11 +3458,12 @@ Partial Class Bancos_PopIEVentas
             If IdPoliza > 0 Then
                 StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
             End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                StrMsg.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjMov.ContaFolio)
+            End If
 
             Alert($"{StrMsg.ToString}<br/>", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
 
-            'Limpiar
-            'LimpiarTodo()
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgError)