From f5920cfea1b9e49b95be22253fe60cea9864ec75 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 3 Feb 2022 22:51:43 -0700 Subject: [PATCH] -- filtros --- Ventas/RepProductosServicios.aspx | 37 +++++++++++---------- Ventas/RepProductosServicios.aspx.vb | 3 +- Ventas/RepProductosServiciosDetalle.aspx | 19 +++++++---- Ventas/RepProductosServiciosDetalle.aspx.vb | 10 +++++- 4 files changed, 43 insertions(+), 26 deletions(-) diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index 10c47da75..ba350812e 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -215,15 +215,7 @@ - - -
- - - - - -
+
@@ -297,6 +289,14 @@
+
+ +
+ + + + +
@@ -306,13 +306,7 @@
- - -
- -
- - +
@@ -338,18 +332,25 @@
- -
+ +
+ +
+ +
+
+
+
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 53ba3b7b7..997ee6925 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -63,11 +63,12 @@ Partial Class Ventas_RepProductosServicios SetValues() If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then - LblLitraje.Visible = True DvLitraje.Visible = True 'garantia divgarantia1.Visible = True divgarantia2.Visible = True + divdistribuidor1.Visible = True + divdistribuidor2.Visible = True End If End If diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index 46ba8f989..aca9dc857 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -323,7 +323,10 @@ -
+
+ Garantía?: +
+
@@ -331,18 +334,22 @@
- -
+ +
- -
- +
+
+
+
+
+ +
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 993345dec..c2238d933 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -384,6 +384,14 @@ Partial Class Ventas_RepProductosServiciosDetalle txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text) + If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then + DvLitraje.Visible = True + 'garantia + divgarantia1.Visible = True + divgarantia2.Visible = True + divdistribuidor1.Visible = True + divdistribuidor2.Visible = True + End If If FechaEjec <> "-1" Then TxtFechaIEjec.Text = FechaEjec @@ -468,7 +476,7 @@ Partial Class Ventas_RepProductosServiciosDetalle UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, - ModalidadContable:=Not ChkLecturaAdmin.Checked, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then + ModalidadContable:=Not ChkLecturaAdmin.Checked, MostrarLitraje:=ChkLitraje.Checked, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados TmpDT = ObjVentas.DtResultados Else