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

cambios en los titulos de proyectos y subproyectos basandose en el centro de costo

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-03 17:13:34 -07:00
parent 837a7a51bb
commit cba9c86a79
7 changed files with 88 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
OC/OC.aspx
View File

@@ -738,8 +738,8 @@
<th scope="col">Unidad</th>
<th scope="col">Observación</th>
<th scope="col">
<asp:Label ID="TtituloProyecto" Text="Proyecto" runat="server" /><br />
<asp:Label ID="TituloSubProyecto" Text="SubProyecto" runat="server" />
<asp:Label ID="TtituloProyecto" Text="" runat="server" />
<asp:Label ID="TituloSubProyecto" Text="" runat="server" />
</th>
<th scope="col" id="ThActivoFijo" runat="server">Activo Fijo</th>
<th runat="server" visible="false" id="CabeceraPOA" scope="col">POA</th>

17
OC/OC.aspx.vb
View File

@@ -697,8 +697,8 @@ Partial Class OC
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False
TituloSubProyecto.Text = ""
TtituloProyecto.Text = "Sucursal"
'TituloSubProyecto.Text = ""
'TtituloProyecto.Text = "Sucursal"
DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -710,8 +710,8 @@ Partial Class OC
LblSubProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False
TituloSubProyecto.Text = ""
TtituloProyecto.Text = "Proyecto"
'TituloSubProyecto.Text = ""
'TtituloProyecto.Text = "Proyecto"
DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -722,19 +722,20 @@ Partial Class OC
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
TtituloProyecto.Text = "Sucursal"
TituloSubProyecto.Text = "Proyecto"
'TtituloProyecto.Text = "Sucursal"
'TituloSubProyecto.Text = "Proyecto"
LblSubProyecto.Text = "Proyecto"
LblProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
TtituloProyecto.Text = "Proyecto"
TituloSubProyecto.Text = "Sucursal"
'TtituloProyecto.Text = "Proyecto"
'TituloSubProyecto.Text = "Sucursal"
LblSubProyecto.Text = "Sucursal"
LblProyecto.Text = "Proyecto"
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
If Not CveOrdenCompra > 0 Then