- sleecciona por funcionalidad, lote,cad,secc,serie

2023-12-14 17:46:53 -07:00
parent 561fc309c4
commit 33aa8021b0
2 changed files with 9 additions and 3 deletions
--- 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