diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 89f924ba6..5326a077e 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2444,16 +2444,6 @@ Partial Class Inventarios_RecepcionAlmacen
                         End If
                     End If
 
-                    'CONTABILIZAR - SIMPLIFICAR 
-                    If Retorno Then
-
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                Retorno = False
-                            End If
-                        End If
-
-                    End If
                 Else
                     Retorno = False
                 End If
@@ -2509,17 +2499,6 @@ Partial Class Inventarios_RecepcionAlmacen
                             Retorno = False
                         End If
                     End If
-
-                    'CONTABILIZAR - SIMPLIFICAR 
-                    If Retorno Then
-
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                Retorno = False
-                            End If
-                        End If
-
-                    End If
                 Else
                     Retorno = False
                 End If
@@ -3504,18 +3483,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                     End If
                                 End If
                             End If
-
-                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                    MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}'>{ObjConta.ContaFolio}</a></b><br>"
-                                Else
-                                    ErrorMovInv = True
-                                    MensajeError = "Error al contabilizar los conceptos contables"
-                                End If
-                            End If
-
                         End If
-
                     End If
                 Else
                     ErrorMovInv = True
@@ -3604,16 +3572,6 @@ Partial Class Inventarios_RecepcionAlmacen
                                     End If
                                 End If
                             End If
-
-                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-
-                                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                    MensajeContabilidad = $"<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
                         End If
                     End If
                 Else
@@ -4036,18 +3994,6 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
-        'If Not ErrorMovInv AndAlso 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
-
-
         If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then
 
             If Not ObjInventario.UpdateImportacionCierre(CveImportacionSeleccionada, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
@@ -4056,14 +4002,12 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
 
-
         If Not ErrorMovInv AndAlso CveFleteSeleccionado > 0 Then
             If Not ObjInventario.UpdateFleteCierre(CveFleteSeleccionado, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 ErrorMovInv = True
             End If
         End If
 
-
         'FINAL
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados