From 33aa8021b08007bbb23a36e5d9c3c10804b62168 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Dec 2023 17:46:53 -0700 Subject: [PATCH] - sleecciona por funcionalidad, lote,cad,secc,serie --- Ventas/ProductosServicios.aspx | 6 +++--- Ventas/ProductosServicios.aspx.vb | 6 ++++++ 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 1163fa121..e19e1185a 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -174,7 +174,7 @@ - + @@ -200,7 +200,7 @@
- + @@ -1020,7 +1020,7 @@
- +
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index af051c9da..b9abdc86f 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -227,6 +227,12 @@ Partial Class ProductosyServicios End If End If + If UsuarioActual.Empresa.Funcionalidad(170) <> "" Then + ChkSerie.Checked = UsuarioActual.Empresa.Funcionalidad(170).Contains("SERIE") + ChkLote.Checked = UsuarioActual.Empresa.Funcionalidad(170).Contains("LOTE") + ChkCaducidad.Checked = UsuarioActual.Empresa.Funcionalidad(170).Contains("CADUCIDAD") + ChkSeccion.Checked = UsuarioActual.Empresa.Funcionalidad(170).Contains("SECCION") + End If If UsuarioActual.Empresa.Funcionalidad(143) = "1" Then