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

-- corregir doble carga de proyectos en combo

Browse Source
This commit is contained in:
rrene
2024-03-14 17:53:36 -07:00
parent 399c9e0a76
commit 8762c94175
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
OC/OC.aspx.vb
View File

@@ -753,14 +753,11 @@ Partial Class OC_OC
'ASIGNA ESTATUS OC 'ASIGNA ESTATUS OC
CboE_SelectedIndexChanged(New Object, New EventArgs) CboE_SelectedIndexChanged(New Object, New EventArgs)
If Request("CveOrdenTrabajo") IsNot Nothing AndAlso Request("CveOrdenTrabajo").ToString.ToEntero > 0 Then If Request("CveOrdenTrabajo") IsNot Nothing AndAlso Request("CveOrdenTrabajo").ToString.ToEntero > 0 Then
CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
CargaOT() CargaOT()
End If End If
End If End If
@@ -823,6 +820,8 @@ Partial Class OC_OC
divtxtprioridad.Visible = False divtxtprioridad.Visible = False
End If End If
DdlProyecto.Items.Clear()
DdlSubProyectoContrato.Items.Clear()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoContrato, LblProyecto, LblSubProyecto) CargarCentrosDeCosto(Nothing, DdlSubProyectoContrato, LblProyecto, LblSubProyecto)
DivProyecto.Visible = DdlProyecto.Visible DivProyecto.Visible = DdlProyecto.Visible
@@ -1961,7 +1960,7 @@ Partial Class OC_OC
End Sub End Sub
Private Sub CargaProyectos() Private Sub CargaProyectos()
DdlProyecto.Items.Clear() DdlProyecto.Items.Clear()
DdlProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1), GlobalDTProyectos(CveEmpresaActual, -1)) 'DtEstatusUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaActual), "", {"CveProyecto", "Proyecto"}) ' GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa) DdlProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "Proyecto", {"CveProyecto", "Proyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1), GlobalDTProyectos(CveEmpresaActual, -1)) 'DtEstatusUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaActual), "", {"CveProyecto", "Proyecto"}) ' GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
DdlProyecto.DataBind() DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))