diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 82bc8cde7..ed0f11905 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2346,16 +2346,18 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                If Not ErrorMovInv And CvePrePolizaCompra > 0 Then
+                If Not ErrorMovInv Then
 
-                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                        If Not ObjConta.PrePolizaUnificacion(CvePrePolizaCompra, CvePrePoliza) Then
-                            ErrorMovInv = True
-                            MensajeError = "Error al unificar los conceptos contables"
+                    If CvePrePolizaCompra > 0 Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
                         If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             ErrorMovInv = True
                             MensajeError = "Error al simplificar los conceptos contables"
@@ -2458,17 +2460,20 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                If Not ErrorMovInv And CvePrePolizaCompra > 0 Then
+                If Not ErrorMovInv Then
 
-                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Or UsuarioActual.CveEmpresa = 119 Then
-                        If Not ObjConta.PrePolizaUnificacion(CvePrePolizaCompra, CvePrePoliza) Then
-                            ErrorMovInv = True
-                            MensajeError = "Error al unificar los conceptos contables"
+                    If CvePrePolizaCompra > 0 Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Or UsuarioActual.CveEmpresa = 119 Then
-                        If Not ObjConta.PrePolizaSimplificacion(CvePrePolizaCompra, UsuarioActual.CveEmpresa) Then
+
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                        If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             ErrorMovInv = True
                             MensajeError = "Error al simplificar los conceptos contables"
                         End If
@@ -2743,6 +2748,17 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+            ObjContaAC.IniciaTransacSQL()
+            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
+                MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
+            Else
+                ErrorMovInv = True
+                MensajeError = "Error al contabilizar los conceptos contables"
+            End If
+        End If
+
 
         'FINAL
         If Not ErrorMovInv Then