diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 4d6a181ee..67b6f6e60 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1124,6 +1124,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 dtvirtual = ObjInventario.DtResultados
 
                 If dtvirtual.Rows.Count > 0 Then
+                    'SALIDA VIRTUAL
                     CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenVirtualEntrada)
                     FolioVirtualSalida = ObjInventario.Folio
                     Dim Contabilizable As Boolean = False
@@ -1143,9 +1144,9 @@ Partial Class Inventarios_TraspasoAlmacen
                             End If
                         Next
 
-                        'SALIDA VIRTUAL
+                        'ENTRADA VIRTUAL
                         Dim importevirtual As Decimal = 0
-                        CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 36, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S3", CveMovimientoRelacionado:=CveMovimientoEntrada, CveAlmacenDestino:=CveAlmacenVirtualEntrada)
+                        CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtualEntrada, 36, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S3", CveMovimientoRelacionado:=CveMovimientoEntrada, CveAlmacenDestino:=CveAlmacenVirtualEntrada)
                         FolioVirtualEntrada = ObjInventario.Folio
                         If CveMovimientoVirtualEntrada > 0 Then
                             Dim DtCostosVirtual As DataTable