diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 5fba840c0..ccb64cfc1 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3407,11 +3407,13 @@ Partial Class OS_OrdenesServicios
         Dim ProcesoOK As Boolean = True
         Dim CveSubProyectoPedido As Integer = -1
         Dim CveMoneda As Integer = -1
+        Dim tCveVendedor As Integer = -1
 
         If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
             Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0)
             CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
             CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero()
+            tCveVendedor = DbRowVenta("CveVendedor").ToString.ToEntero
         End If
 
         Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Rem")
@@ -3427,6 +3429,7 @@ Partial Class OS_OrdenesServicios
             ObjFactura.Paciente = TxtPacienteModal.Text.Trim
             ObjFactura.Episodio = TxtEpisodioModal.Text.Trim
             ObjFactura.Alfa1 = TxtFolioRemisionModal.Text.Trim
+            ObjFactura.CveVendedor = tCveVendedor
 
             Dim TmpDTMat As New DataTable
             TmpDTMat.Columns.Add("Consec", GetType(Integer))