diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 18b04303a..32a5cb86e 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6403,8 +6403,9 @@ Public Class ClsContabilidad
             Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString
             If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza")
 
-            If MensajePolizaDescuadre = "" AndAlso AutoConta Then
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then ' el tipocontabilidad deberá activarse en el PA
+            If MensajePolizaDescuadre = "" Then
+                ' el tipocontabilidad 1. deberá activarse en el PA, solo aplica para conta contpaq y que no tenga activada el no contabilzar automática
+                If AutoConta AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso Not UsuarioActual.Empresa.Funcionalidad(224) = "1" Then
                     If Not ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
                         MensajePolizaDescuadre = Mensaje.ToString ' regresa el mensaje de contabilización
                         Retorno = False
diff --git a/Contabilidad/ContabilizacionCompras.aspx.cs b/Contabilidad/ContabilizacionCompras.aspx.cs
index ce1fe858d..aed42c95a 100644
--- a/Contabilidad/ContabilizacionCompras.aspx.cs
+++ b/Contabilidad/ContabilizacionCompras.aspx.cs
@@ -106,7 +106,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
 
             ClsContabilidad contP = new ClsContabilidad();
 
-            if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza))
+            if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa))
             {
                 if (contP.DtResultados.Rows.Count > 0)
                 {
diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs
index d971144cb..42f262ef1 100644
--- a/Contabilidad/ContabilizacionVentas.aspx.cs
+++ b/Contabilidad/ContabilizacionVentas.aspx.cs
@@ -93,7 +93,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
 
             ClsContabilidad contP = new ClsContabilidad();
 
-            if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza))
+            if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza,UsuarioActual.CveEmpresa))
             {
                 if (contP.DtResultados.Rows.Count > 0)
                 {
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index 12c2765c1..9c0cd5495 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -308,7 +308,7 @@ Partial Class Contabilidad_FiltraPolizas
                     If TempPolizas.FCCheckBox("ChkPoliza").Checked Then
                         contador += 1
                         CvePrePoliza = TempPolizas.DataKey("CvePrePoliza").ToString.ToEntero
-                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
+                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
                         TieneComprobante = VerificarComprobante(ObjContabilidad.DtResultados)
 
                         If TieneComprobante = "" And Not SinComprobante Then
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index a60d0febb..7ccb3487a 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -483,7 +483,7 @@ Partial Class ContabilidadC_RegPrePoliza
                     BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
                 End If
 
-                ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
+                ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
 
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
                 GvPrePoliza.DataSource = DtMovimientos