diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 120338480..bc6d50fc1 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3202,6 +3202,7 @@ Partial Class OS_OrdenesServicios
                         For i = 0 To dtmat.Rows.Count - 1
                             If DtVentaDetalle.Rows(i)("CvePS").ToString = dtmat.Rows(i)("CvePS").ToString Then
                                 DtVentaDetalle.Rows(i)("CveVentaDetalle") = dtmat.Rows(i)("CveVentaDetalle")
+                                DtVentaDetalle.Rows(i)("CveUM") = dtmat.Rows(i)("CveUM")
                             End If
                         Next
                     End If
@@ -3212,7 +3213,7 @@ Partial Class OS_OrdenesServicios
 
             If GenerarRemisionMovimientos AndAlso ProcesoOK Then
 
-                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil")
+                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil3")
                 Dim Folio As Integer = ObjInventario.Folio
 
                 If CveMovimientoSalida > 0 Then