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

99
Compras/Compras.aspx.vb
View File

@@ -1535,26 +1535,27 @@ Partial Class Compras_Compras
DivConsignaciones.Visible = False
End If
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto"
' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = ""
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAsignaSubProyecto.Items.Clear()
'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlAsignaSubProyecto.DataBind()
'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear()
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' 'DdlAsignaSubProyecto.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False
'divasignaproyecto.Visible = False
@@ -1562,57 +1563,57 @@ Partial Class Compras_Compras
DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal"
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = ""
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Sucursal"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAsignaSubProyecto.Items.Clear()
'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlAsignaSubProyecto.DataBind()
'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear()
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' 'DdlAsignaSubProyecto.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False
'divasignaproyecto.Visible = False
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
divproyecto.Visible = False
'divasignaproyecto.Visible = False
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = "Proyecto"
LblSubProyectoPHeader.Text = "Proyecto"
' LblSubProyectoHeader.Text = "Proyecto"
' LblSubProyectoPHeader.Text = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Sucursal"
'LblProyectoDivAplica.InnerText = "Proyecto"
LblSubProyecto.InnerText = "Sucursal"
LblProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
' 'LblProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Sucursal"
' LblProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = "Sucursal"
LblSubProyectoPHeader.Text = "Sucursal"
' LblSubProyectoHeader.Text = "Sucursal"
' LblSubProyectoPHeader.Text = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Proyecto"
'LblProyectoDivAplica.InnerText = "Sucursal"
LblSubProyecto.InnerText = "Proyecto"
LblProyecto.InnerText = "Sucursal"
End If
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
' 'LblProyectoDivAplica.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Proyecto"
' LblProyecto.InnerText = "Sucursal"
End If
CargaGvPersonal()
CargaGvPersonal()
CargaDdlPersonal()