diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3ee4bfbb3..f956cf7fd 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4293,27 +4293,42 @@ Public Class ClsPaginas ObjUsuario.Dispose() Return Retorno End Function - Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) + Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) + Select Case UsuarioActual.Empresa.Tipo_CentroCosto - Case 1 - If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo" - Case 2 - If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" - Case 3 - If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto" - Case 4 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto" - Case 5 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" + + Case 1 To 3 + If LblSubProyecto IsNot Nothing Then + Select Case UsuarioActual.Empresa.Tipo_CentroCosto + Case 1 + LblSubProyecto.Text = "Centro de costo" + Case 2 + LblSubProyecto.Text = "Sucursal" + Case 3 + LblSubProyecto.Text = "Proyecto" + End Select + End If + + If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto + If LblProyecto IsNot Nothing Then + LblProyecto.Visible = False + Else + RegistraScript("$('[id$=""LblProyecto""]').css('display', 'none');") + End If + + Case 4 To 5 + If LblSubProyecto IsNot Nothing Then + Select Case UsuarioActual.Empresa.Tipo_CentroCosto + Case 4 + LblSubProyecto.Text = "Subproyecto" + Case 5 + LblSubProyecto.Text = "Sucursal" + End Select + End If + If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto" + End Select + If DdlProyecto IsNot Nothing Then DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) DdlProyecto.DataBind() diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 2b3afe529..9b735f488 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -158,9 +158,7 @@