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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -122,11 +122,11 @@ Partial Class Bancos_RepProgramarRecursos
DdlEstatusCompra.DataBind()
If UsuarioActual.TienePermisoProceso(91) Then
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario)
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind()
End If
@@ -167,14 +167,14 @@ Partial Class Bancos_RepProgramarRecursos
RegistraScript(script, "random12345")
proyectolabel.Visible = False
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.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
DdlSubProyecto.DataBind()
' DdlEstatusCompra.SelectedValue = "2" 'las programadas
'DdlAgrupador.SelectedValue = "2"
'Gv.Columns(8).Visible = True
DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2"))
ListSubProyecto.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))
ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
ListSubProyecto.DataBind()
End If
@@ -188,10 +188,10 @@ Partial Class Bancos_RepProgramarRecursos
DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
'confirmo la seleccion, de no tener el dato, lo recargo
If DdlSubProyecto.SelectedValue <> CveSubProyecto.ToString Then
Dim CveProy As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, -1, UsuarioActual.CveEmpresa, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
End If