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

correcciones con ddl de proyectos y subproyectos

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-22 12:23:14 -07:00
parent 4f1f40afe1
commit 221cff73b0
3 changed files with 13 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AF/CatAF.aspx.vb
View File

@@ -87,8 +87,8 @@ Partial Class AF_CatAF
DdlEstatus.DataSource = GlobalDTEstadoActivoFijo
DdlEstatus.DataBind()
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
GvDatos.Columns(7).HeaderText = LblSubProyecto.Text
DivProyecto.Visible = LblProyecto.Visible
DivProyectoDdl.Visible = LblProyecto.Visible
'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)

11
RH/CatPersonal.aspx
View File

@@ -57,14 +57,10 @@
</li>
<li>
<asp:LinkButton ID="LinkPDF" runat="server" Style="color: #686868;"> <i class="fa fa-ad-pdf" style="margin-right:5px;"></i>Imprimir</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LinkButton1" runat="server" Style="color: #686868;"> <i class="fa fa-ad-pdf" style="margin-right:5px;"></i>Imprimir</asp:LinkButton>
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-file-pdf-o" style="margin-right:5px;font-weight:bold"></i>Descargar PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Style="color: #686868;"><i class="fa fa-ad-excel" style="margin-right:5px"></i>Excel</asp:LinkButton>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="margin-right:5px;font-weight:bold"></i>Descargar Excel</asp:LinkButton>
</li>
<li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="HyperLink1" runat="server" Style="color: #686868;"><i class="fa fa-pencil" style="color:#686868;margin-left:3px;margin-right:2px"></i>Personalizar</asp:HyperLink>
@@ -389,7 +385,6 @@
&nbsp;<asp:Literal ID="LtlTurno" runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Puesto</HeaderTemplate>
<ItemTemplate>
@@ -434,7 +429,7 @@
</asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>SubProyecto</HeaderTemplate>
<%--<HeaderTemplate>SubProyecto</HeaderTemplate>--%>
<ItemTemplate>
&nbsp;<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Literal>
</ItemTemplate>

42
RH/CatPersonal.aspx.vb
View File

@@ -190,12 +190,12 @@ Partial Class RH_CatPersonal
DdlEstatusPersonal.DataBind()
End Sub
Private Sub CargaProyecto()
DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyectoAsignado.DataBind()
'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
'DdlProyectoAsignado.DataBind()
CargaTipoCentroCosto()
If DivProyecto.Visible Then
CargaSubProyectos()
End If
'If DivProyecto.Visible Then
' CargaSubProyectos()
'End If
End Sub
Private Sub CargaSubProyectos()
@@ -214,34 +214,10 @@ Partial Class RH_CatPersonal
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyectoAsignado.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.Text = "Sucursal:"
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoAsignado.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyectoAsignado.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.Text = "Proyecto:"
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoAsignado.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal:"
LblSubProyecto.Text = "Proyecto:"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto:"
LblSubProyecto.Text = "Sucursal:"
End If
CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
DivProyecto.Visible = LblProyecto.Visible
ChkSubProyecto.Text = LblSubProyecto.Text
GvDatos.Columns(12).HeaderText = LblSubProyecto.Text
End Sub
Private Sub CargaSupervisores()