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

Cargar ddl proyecto subproyecto con Centro de costo

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-28 10:33:31 -07:00
parent 30d2b9d595
commit a91e60b005
2 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
OC/PopUpBuscarReq.aspx.vb
View File

@@ -70,18 +70,19 @@ Partial Class OC_PopUpBuscarReq
txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
CargaEstatus()
If UsuarioActual.Empresa.GralSoloProyecto Then
TdProyecto.Visible = False
TdProyecto2.Visible = False
LtSubProyecto.Text = "Proyecto:"
Else
'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyectos.DataBind()
DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End If
CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
'If UsuarioActual.Empresa.GralSoloProyecto Then
' TdProyecto.Visible = False
' TdProyecto2.Visible = False
' LtSubProyecto.Text = "Proyecto:"
'Else
' 'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
' 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
' ' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
' DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
' DdlProyectos.DataBind()
' DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
'End If
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
Dim CveProyecto = -1
Dim CveSubProyecto = -1
If UsuarioActual.Empresa.GralSoloProyecto Then
If LblProyecto.Visible Then
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
Else
CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
End If