diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 396b7a045..6d6e99153 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1612,13 +1612,17 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
-            For Each Gvr As GridViewRow In GvDatos.Rows
-                If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then
-                    Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                    RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
-                    Exit Sub
-                End If
-            Next
+            If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem")) Then   ' condicion si hay una devolucion de remision, no verifique la totalidad surtido
+                For Each Gvr As GridViewRow In GvDatos.Rows
+                    If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then
+                        Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                        RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+                        Exit Sub
+                    End If
+                Next
+
+            End If
+
         End If
 
 
@@ -2304,7 +2308,7 @@ Partial Class Inventarios_EntregaAlmacen
                 CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto
             End If
             'si el alamcen del que salio, es el mismo que entra, no hay traspasos.
-            If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0
+            If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero And TipoDocto <> "Rem" Then CveAlmacenTraspasoDestino = 0
 
             If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then
                 Dim ConceptoMovimiento = 3
@@ -2810,7 +2814,7 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString.ToDate)
                     Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
                     Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
-                    Dim Serie As String = ObjVentas.DtResultados(0)("Serie").ToString
+                    Dim Serie As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
                     Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
                     Dim TotalCostoAcumulado As Decimal = 0
                     Dim cont As Integer = 1