diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 021418dfa..6f5438acc 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -934,7 +934,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If Not ErrorMovInv Then
 
                 'VIRTUAL ENTRADA
-                If RealizarMovimientoVirtual Then
+                If RealizarMovimientoVirtual AndAlso CveAlmacenVirtualEntrada > 0 Then
 
                     Dim dtvirtual As DataTable = Nothing
 
@@ -963,6 +963,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         ErrorMovInv = True
                     End If
                 End If
+
                 Dim Concepto As String = TxtObservaciones.Text
                 If Concepto = "" Then Concepto = "Traspaso"
                 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
@@ -1743,13 +1744,13 @@ Partial Class Inventarios_TraspasoAlmacen
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
                                                      CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImporteDecimal) Then
                         ErrorMovInv = True
-                        TextoError = "Ocurrió un erro al cancelar el traspaso"
+                        TextoError = "Ocurrió un error 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"
+                        TextoError = "Ocurrió un error al cancelar el traspaso"
                     End If
                 End If
 
@@ -2967,7 +2968,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,25,28) AND Estatus = 'Activo' {0}   ", Str))
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))