From 0cbb44d04ac4f47bcfbbb57c7bd957d617eec680 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 3 Jun 2021 17:55:51 -0700 Subject: [PATCH] Correcion al cargar subproyectos por asignar --- Sistemas/UsuarioDetalle.aspx.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 89a9b347e..e9948bffc 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1582,9 +1582,15 @@ Partial Class Sistemas_UsuarioDetalle GvSubProyectos.Columns(0).Visible = False End Sub Protected Sub CboProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargaSubProyectos(DdlProyecto.SelectedValue.ToEntero) + CargaSubProyectos(DdlProyecto.SelectedValue.ToEntero, DdlEmpresaAsignaciones.SelectedValue.ToEntero()) End Sub - Private Sub CargaSubProyectos(Optional CveProyectoFiltrado As Integer = -1) + Private Sub CargaSubProyectos(Optional CveProyectoFiltrado As Integer = -1, Optional CveEmpresaFiltro As Integer = -1) + + Dim CveEmpresaRef As Integer = UsuarioActual.CveEmpresa + If CveEmpresaFiltro > 0 Then + CveEmpresaRef = CveEmpresaFiltro + End If + DdlSubProyecto.Items.Clear() If CveProyectoFiltrado > 0 Then Dim SubProyectosSinGV As String = GetSubProyectosSinGV() @@ -1609,7 +1615,7 @@ Partial Class Sistemas_UsuarioDetalle Else 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, "")) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, "")) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero), CveEmpresa:=CveEmpresaRef).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, "")) 'NO SE PARA QUE SE USA - COMENTADO IPP 30 AGOSTO 2017 'If SubProyectosSinGV.Length > 0 Then ' Dim SubProyectoFiltrado As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero).FiltraParametros(SubProyectosSinGV)