Ocultar divproyecto y su label correspondiente cuando tipo centro de costo 1-3

This commit is contained in:
MLopez
2023-02-13 21:08:16 -07:00
parent cc0b6f18de
commit 775546165d
5 changed files with 38 additions and 31 deletions

View File

@@ -4293,27 +4293,42 @@ Public Class ClsPaginas
ObjUsuario.Dispose() ObjUsuario.Dispose()
Return Retorno Return Retorno
End Function 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 Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False Case 1 To 3
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False If LblSubProyecto IsNot Nothing Then
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo" Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 2 Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False LblSubProyecto.Text = "Centro de costo"
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False Case 2
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" LblSubProyecto.Text = "Sucursal"
Case 3 Case 3
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False LblSubProyecto.Text = "Proyecto"
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False End Select
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto" End If
Case 4
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>" If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto" If LblProyecto IsNot Nothing Then
Case 5 LblProyecto.Visible = False
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>" Else
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" 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 End Select
If DdlProyecto IsNot Nothing Then 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.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() DdlProyecto.DataBind()

View File

@@ -158,9 +158,7 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto"> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto"> <div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div> </div>

View File

@@ -197,9 +197,7 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto"> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto"> <div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div> </div>

View File

@@ -96,9 +96,7 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto"> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto"> <div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div> </div>

View File

@@ -98,9 +98,7 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto"> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto"> <div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div> </div>