From bb6b58a2bade0ec2137cd8b1972da04daac657f3 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 7 Jun 2024 07:57:09 -0700 Subject: [PATCH] -- si es tipoventa - uso material, que se mande el pedido sobre la cveventa de la OS --- Ventas/Ventas.aspx.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ecce18717..caac8f105 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -38010,13 +38010,15 @@ Partial Class Ventas If ObjOrdenServicio.GetTipoOrdenesServicios(UsuarioActual.CveEmpresa) Then CveOSTipo = ObjOrdenServicio.DtResultados.FiltroPrimeroValor("CveOrdenServicioTipo", " Estatus = 'Activo' ").ToEntero End If + Dim CveVentaAdicional As Integer = -1 + If RBLTipoVenta.SelectedValue.Contiene("5", "6") Then + CveVentaAdicional = CveVentaOS + End If Dim EstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1").ToEntero - - If ObjOrdenServicio.AddOrdenesServicios(CveClienteOS, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFechaOS.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio, - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVentaOS, -1, -1, CveOSTipo, CveClienteSucursal:=CveClienteSucursalOS, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVentaOS, CveVentaAdicional, -1, CveOSTipo, CveClienteSucursal:=CveClienteSucursalOS, Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime, Paciente:=TxtPaciente.Text, IdentificadorCliente:=TxtEpisodio.Text) Then