diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 021418dfa..ceca7f823 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -882,7 +882,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 dtvirtual = ObjInventario.DtResultados
 
                 If dtvirtual.Rows.Count > 0 Then
-                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
+                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenVirtualEntrada)
                     FolioVirtualSalida = ObjInventario.Folio
 
                     For Each RowVirtual As DataRow In dtvirtual.Rows
@@ -1746,11 +1746,11 @@ Partial Class Inventarios_TraspasoAlmacen
                         TextoError = "Ocurrió un erro al cancelar el traspaso"
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
-                                                     CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImporteDecimal) Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un erro al cancelar el traspaso"
-                    End If
+                    'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
+                    '                                 CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImporteDecimal) Then
+                    '    ErrorMovInv = True
+                    '    TextoError = "Ocurrió un erro al cancelar el traspaso"
+                    'End If
                 End If
 
             End If
@@ -1841,7 +1841,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim RealizarMovimientoVirtual As Boolean = False
 
-            If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
                 RealizarMovimientoVirtual = True
             End If
 
@@ -2967,7 +2967,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 Str = String.Format(" AND CveSubProyecto = {0}  ", DrAlmO("CveSubProyecto"))
             End If
-            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,27,28) AND Estatus = 'Activo' {0}   ", Str))
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,28) AND Estatus = 'Activo' {0}   ", Str))
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))