diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4f4db7147..73147059c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14518,7 +14518,7 @@ Partial Class Ventas
 
             'Si viene de OS, Se guarda CveVenta en OS
             If CveOS > 0 Then
-                If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS) Then
+                If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS, UsuarioActual.CveEmpresa) Then
                     ErrorList.Add("Ocurrió un error al guardar la venta en Ordenes de Servicio")
                 End If
             End If