diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 3b1b0db67..0d736a53d 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1510,9 +1510,8 @@ Partial Class Inventarios_TraspasoAlmacen
                 BtnCancelarTraspaso.Visible = True
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(162) = "1" Then
+            If UsuarioActual.TienePermisoProceso(347) Then
                 DivRealizarDevolucion.Visible = True
-                ChkRealizarDevolucion.Checked = True
             End If
         End If
 
@@ -1647,30 +1646,35 @@ Partial Class Inventarios_TraspasoAlmacen
                         Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
                         'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
                         If CvePS > 0 Then
-                            CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToString.ToEntero
-                            Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToString.ToDecimal
-                            Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToString.ToDecimal
+                            CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+                            Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
+
+                            If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
+
+                            Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToDecimal
                             If CveMovimientoDetalleSalida <= 0 Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos de salida"
                                 Exit For
                             End If
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie").ToString, Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al guardar los movimientos de entrada"
-                                Exit For
-                            End If
-                            'MOV, Alm, Transito
-                            If GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, Cantidad, GvRow.DataKey("CveUM").ToString.ToEntero, CvePS, PrecioUnitario, CveSeccionAlmacen:=-3, Serie:=GvRow.DataKey("Serie").ToString, Lote:=GvRow.DataKey("Lote").ToString, FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+                            If Cantidad <> 0 Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
                                     ErrorMovInv = True
-                                    TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                                    TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
                                 End If
-                            Else
-                                CveMovimientoSalidaTransitorio = 0
+                                'MOV, Alm, Transito
+                                If GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, CveSeccionAlmacen:=-3, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote").ToString, FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+                                        ErrorMovInv = True
+                                        TextoError = "Ocurrió un error al guardar los movimientos de salida"
+                                        Exit For
+                                    End If
+                                Else
+                                    CveMovimientoSalidaTransitorio = 0
+                                End If
                             End If
+
                             importe += Cantidad * PrecioUnitario
                         End If
                     End If