From 7284f06ceef854535a3821573ee03da0a17979e1 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 15 Aug 2024 07:47:38 -0700 Subject: [PATCH] =?UTF-8?q?--=20env=C3=ADo=20de=20vendedor=20en=20la=20OS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 3 +++ 1 file changed, 3 insertions(+) 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))