diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index e105ebc35..d116062a3 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -5,14 +5,6 @@ Imports Extensiones
 Imports System.IO
 Imports System.Data
 Imports System.Data.SqlClient
-Imports System.Diagnostics
-Imports System.ServiceModel.Security
-Imports RVCFDI.RVLTimbrado
-Imports Microsoft.Owin.Security.Provider
-Imports Telerik.Web.UI
-Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
-
-
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
@@ -3125,7 +3117,8 @@ Partial Class OS_OrdenesServicios
                             Dim Lote As String = GVRow.DataKey("Lote")
                             Dim CveUM As Integer = GVRow.DataKey("CveUM").ToEntero
                             Dim FechaCaducidad As DateTime = GVRow.DataKey("FechaCaducidad").ToDate
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then
+                            Dim CveVentaDetalle As Integer = GVRow.DataKey("CveVentaDetalle").ToEntero
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle) Then
                                 Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
                                 ProcesoOK = False
                                 Exit For
@@ -3705,14 +3698,8 @@ Partial Class OS_OrdenesServicios
         Try
             Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
             If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then
-
-                Dim SWatch As New Stopwatch
-                SWatch.Start()
-
                 Dim DevAlm As Boolean = True
-
                 ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
-
                 resp = ObjFacturaCancelacion.CancelarFactura(2, New List(Of Integer), CveMotivoCancelacion:=CveMotivoCancelacion, Motivo:="Cancelacion de Orden de servicio")
 
                 If resp.HuboError Then