AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

53
App_Code/ClsPaginas.vb
View File

@@ -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<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"
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()

4
Compras/RepCompras.aspx
View File

@@ -158,9 +158,7 @@
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto">
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<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>
</div>

4
Compras/RepComprasDetalle.aspx
View File

@@ -197,9 +197,7 @@
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto">
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<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>
</div>

4
Compras/RepComprasPeriodo.aspx
View File

@@ -96,9 +96,7 @@
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto">
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<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>
</div>

4
Compras/RepProductosServiciosPeriodo.aspx
View File

@@ -98,9 +98,7 @@
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<div class="col-md-1" runat="server" id="DivLblProyecto">
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<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>
</div>