From 310ad994ad138da2b646482376e95a3e346c9b4e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 24 Jan 2022 08:10:27 -0700 Subject: [PATCH] =?UTF-8?q?--=20filtro=20de=20garant=C3=ADa.=20en=20empres?= =?UTF-8?q?as=20de=20acumuladores?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepProductosServicios.aspx | 10 ++++++++++ Ventas/RepProductosServicios.aspx.vb | 5 ++++- Ventas/RepVentasUtilidadPadre.aspx | 2 +- 3 files changed, 15 insertions(+), 2 deletions(-) diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index 80f91ed1e..d2e5e16a1 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -319,6 +319,16 @@ +
+ Garantía?: +
+
+ + + + + +
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index a77f55a8a..dfa2c9015 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -65,6 +65,9 @@ Partial Class Ventas_RepProductosServicios If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then LblLitraje.Visible = True DvLitraje.Visible = True + 'garantia + divgarantia1.Visible = True + divgarantia2.Visible = True End If End If @@ -275,7 +278,7 @@ Partial Class Ventas_RepProductosServicios DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra, - CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then + CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados Else diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index 1dc7c4fc0..56b17bd74 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -179,7 +179,7 @@
- Garantía: + Garantía?: