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

-- corrección de datos. de global

Browse Source
This commit is contained in:
rrene
2023-02-01 13:23:05 -07:00
parent 3fafe85430
commit 96248cb9bf
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Planeacion/CatProyectos.aspx.vb
View File

@@ -63,8 +63,7 @@ Partial Class CatProyectos
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjProyectos As New ClsProyectos Dim ObjProyectos As New ClsProyectos
If ObjProyectos.GetProyectos(1) Then If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
Application("GlobalDTProyectos") = ObjProyectos.DtResultados
GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GvDatos.DataBind() GvDatos.DataBind()
End If End If
@@ -82,20 +81,19 @@ Partial Class CatProyectos
End Sub End Sub
Private Sub RecargaGlobal() Private Sub RecargaGlobal()
Dim ObjProyectos As New ClsProyectos
If ObjProyectos.GetProyectos(1) Then GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
GlobalDTProyectos(-1) = ObjProyectos.DtResultados
End If
ObjProyectos.Dispose()
End Sub End Sub
Private Sub CargaSuproyectos() Private Sub CargaSuproyectos()
Dim ObjSubProyectos As New ClsSubProyectos GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
If ObjSubProyectos.GetSubProyectos() Then 'Dim ObjSubProyectos As New ClsSubProyectos
GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados 'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
End If
ObjSubProyectos.Dispose() 'End If
'ObjSubProyectos.Dispose()
End Sub End Sub
Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregar.Click