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
Case 1 To 3
If LblSubProyecto IsNot Nothing Then
Select Case UsuarioActual.Empresa.Tipo_CentroCosto Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1 Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False LblSubProyecto.Text = "Centro de costo"
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
Case 2 Case 2
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False LblSubProyecto.Text = "Sucursal"
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
If LblSubProyecto IsNot Nothing Then 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
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
Case 4
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
Case 5
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
End Select 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 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>