diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 616051072..68399421d 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -656,7 +656,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         End If
     End Sub
-    Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean
+    Private Function ValidaExistencia(Cantidad As Decimal, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean
         Dim Retorno As Boolean = True
 
         Dim ExistenciaEspecificada As Decimal
@@ -2956,7 +2956,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
                         Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
 
-                        Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
+                        Dim Cantidad As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
                         Dim Serie As String = RowExcel("Serie").ToString()
                         Dim Lote As String = RowExcel("Lote").ToString()
                         Dim FechaCaducidad As Date = If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
@@ -3156,9 +3156,9 @@ Partial Class Inventarios_TraspasoAlmacen
         ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("22") Then 'Recepcion de Usados
 
             If ChkTransitorio.Checked Then
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoAlmacen IN (21,22) AND Estatus = 'Activo'  ")
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoAlmacen IN (21,22,2) AND Estatus = 'Activo'  ")
             Else
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22)  ")
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22,2)  ")
             End If
 
             DdlAlmacenDestino.DataBind()
@@ -3172,6 +3172,16 @@ Partial Class Inventarios_TraspasoAlmacen
                 DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (1,21,22)  ")
             End If
 
+            DdlAlmacenDestino.DataBind()
+            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("2") Then 'herramientas -- puede regresar a usados
+
+            If ChkTransitorio.Checked Then
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoAlmacen IN (21,22) AND Estatus = 'Activo'  ")
+            Else
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (1,21,22)  ")
+            End If
+
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
         Else
@@ -3456,8 +3466,3 @@ Partial Class Inventarios_TraspasoAlmacen
 
 #End Region
 End Class
-
-
-
-
-