diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 28fd47c91..9b8d272e3 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2173,8 +2173,6 @@ Partial Class Inventarios_EntregaAlmacen
                     DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text
                 End If
 
-
-
             End If
             Index += 1
         Next
@@ -3322,9 +3320,7 @@ Partial Class Inventarios_EntregaAlmacen
             OnError("Ocurrió un error al guardar", ex)
         End Try
 
-
-
-        If EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 AndAlso TipoDocto = "Ped" Then
+        If Not ErrorMovInv AndAlso EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 AndAlso TipoDocto = "Ped" Then
             If Not CierreOS(CveOSSurtir, CveMovimiento, ObjInventario.IniciaTransacSQL) Then
                 ErrorMovInv = True
                 Alert("Error al finalizar orden de servicio", TipoMensaje.MsgError)