diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5b36fbde1..370bffb48 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2437,11 +2437,11 @@ Partial Class Inventarios_EntregaAlmacen
                     If CvePrePolizaTraspaso > 0 Then
 
                         Dim TotalGarantiaValor As Decimal = 0 ' el valor en almacen es cero, por tema contable
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantiaValor, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantiaValor, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=False, ImporteMX:=TotalGarantia) Then
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantiaValor, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantiaValor, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=False, ImporteMX:=TotalGarantia) Then
                             ErrorMovInv = True
                         End If
                     Else
@@ -3137,30 +3137,30 @@ Partial Class Inventarios_EntregaAlmacen
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                        If Not ErrorMovInv AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
                             If ObjConta.ValorPolizaDescuadre > 0 Then
                                 GuardaLogAD($"Inventario/EntregaAlmacen | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                 ErrorMovInv = True
                             End If
                         End If
 
-                        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+                        'Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
-                        If AutoConta And Not ErrorMovInv Then
-                            Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
+                        'If AutoConta And Not ErrorMovInv Then
+                        '    Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
 
-                            If IdCtaContable > 0 Then
-                                If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
-                                    Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
-                                    ErrorMovInv = True
-                                    TextoError.AppendFormat("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
-                                End If
-                            Else
-                                Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
-                            End If
+                        '    If IdCtaContable > 0 Then
+                        '        If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                        '            Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
+                        '            ErrorMovInv = True
+                        '            TextoError.AppendFormat("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
+                        '        End If
+                        '    Else
+                        '        Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
+                        '    End If
 
-                            ObjContPaq.Dispose()
-                        End If
+                        '    ObjContPaq.Dispose()
+                        'End If
                     Else
                         ErrorMovInv = True
                         TextoError.AppendFormat("Ocurrió un Error al ingresar la prepoliza.1")