From b60e85e7b596308db786646b01e3d7d3b2a8d3e4 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Oct 2020 10:00:09 -0700 Subject: [PATCH] - codicioens apra ajustes de salidas, luz del mar --- Inventarios/EntradasSalidas.aspx.vb | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 659934309..08040c50e 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports Extensiones Imports System.IO Imports Microsoft.Reporting.WebForms +Imports DocumentFormat.OpenXml.Drawing.Diagrams 'Imports DocumentFormat.OpenXml.Wordprocessing @@ -2033,8 +2034,8 @@ Partial Class Inventarios_EntradasSalidas DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2")) End If - - If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then + '2185 + If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 1490 OrElse UsuarioActual.CveRol = 1) Then 'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1")) DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32")) @@ -2043,6 +2044,24 @@ Partial Class Inventarios_EntradasSalidas DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34")) End If + End If + + ''condicion de limpieza si es el usuario 1490, se dejan sino + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then + If UsuarioActual.CveUsuario <> 1490 Then + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("16")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("17")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("31")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("32")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("33")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34")) + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34")) 'si esta dos veces, se tiene que ejecutar 2 veces + DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35")) + + End If End If