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 @@