diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index aba81d922..66162fb19 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -718,19 +718,28 @@ Partial Class Inventarios_EntregaAlmacen
 
                 If TipoMovimiento = 2 Then ' cuando es cancelación
                     Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
+                    Dim FiltroPS As String = ""
                     Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString()
                         Case "Ing", "Ped"
                             Filtro = "CveConcepto IN (3,40)"
                         Case "Dev"
                             'cuand es devolucionventa=1, es cancelación de la devolución
-                            If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)"
+                            If EsDevolucionVenta = 1 Then
+                                Filtro = "CveConcepto = 18"
+                            Else
+                                Filtro = "CveConcepto IN (3,40)" 'cuando es devolución
+                                For Each drr As DataRow In ObjInventario.DtResultados.Rows
+                                    FiltroPS = FiltroPS + "," + drr("CvePS").ToString
+                                Next
+                                FiltroPS = "AND CvePS IN (" & FiltroPS.Substring(1) & ")" 'elimino la primer  comma
+                            End If
                         Case "DPe"
                             Filtro = "CveConcepto = 9"
                         Case Else
                             Filtro = "CveConcepto = 9"
                     End Select
                     If ObjInventario.GetInv_Mov(ObjInventario.DtResultados.Rows(0)("CveVentaPadre").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then
-                        DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro}")
+                        DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS)
 
                         If Not DtExistencias.Rows.Count > 0 Then
                             Alert("La Venta original de la Devolución no tiene salida de Almacén.", TipoMensaje.MsgAdvertencia)
@@ -2067,64 +2076,23 @@ Partial Class Inventarios_EntregaAlmacen
                     Next
                 End If
 
-                If Not ErrorMovInv Then
+                If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then
                     Dim CvePrePolizaSinCosto As Integer = ObjConta.AddPrePolizas("EA/SinCost", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrega", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                     If CvePrePolizaSinCosto > 0 Then
 
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then
+                            ErrorMovInv = True
+                        End If
+
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, False, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then
-                            ErrorMovInv = True
-                        End If
                     Else
                         ErrorMovInv = True
                     End If
                 End If
 
-
-
-                Dim ImportePrePoliza As Decimal = 0D
-
-                If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
-                    ImportePrePoliza = ObjInventario.DtResultados.SUMD("Total")
-                End If
-
-
-                Dim MovAlmacen As Boolean = True
-
-                Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 9).ToEntero
-
-                If OrigenMov = 1 Then
-                    MovAlmacen = True
-                Else
-                    MovAlmacen = False
-                End If
-
-                Dim ObjConta2 As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
-
-                Dim Concepto As String = "ARMPAQ2"
-                Dim CvePrePoliza = ObjConta2.AddPrePolizas("RE/GSC1/GSC3/RE/G4", 74, ImportePrePoliza, ImportePrePoliza, 1, TxtFecha.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
-
-                If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "RE/G4", 68, "RE/G4", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntradaApartado, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
-                    ErrorMovInv = True
-                End If
-
-                If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "RE/GSC1/GSC3", 68, "RE/GSC1/GSC3", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
-                    ErrorMovInv = True
-                End If
-
-
-                If ObjConta2.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
-                    If ObjConta2.ValorPolizaDescuadre > 0 Then
-                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta2.MensajePolizaDescuadre} Diferencia:{ObjConta2.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                        ErrorMovInv = True
-                    End If
-                End If
-
-
             End If
 
             If Not ErrorMovInv Then