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

-cambios en globalsDT2

Browse Source
This commit is contained in:
janeth arvizu
2020-01-02 12:55:04 -07:00
parent 7dcdf8bc22
commit b9f942cb72
30 changed files with 878 additions and 649 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Sistemas/CatSesiones.aspx.vb
View File

@@ -221,6 +221,7 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaProductosServiciosSimplificado()
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
Dim dt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
'Dim ObjPS As New ClsProductosServicios
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
'ObjPS.Dispose()
@@ -321,12 +322,13 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaSubProyectos()
'Carga SubProyectos
GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
Dim ObjSubProyectos As New ClsSubProyectos
If ObjSubProyectos.GetSubProyectos Then
Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados
Else
Application("GlobalDTSubProyectos") = Nothing
End If
'If ObjSubProyectos.GetSubProyectos Then
' Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados
'Else
' Application("GlobalDTSubProyectos") = Nothing
'End If
If ObjSubProyectos.GetSubProyectosUsuarios Then
Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
@@ -447,7 +449,7 @@ Partial Class Sistemas_CatSesiones
Dim ObjProveedores As New ClsCompProveedores
If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing
If ObjProveedores.GetClasificacionProveedores Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing
If ObjProveedores.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing
If ObjProveedores.GetSucursales(-1, -1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing
ObjProveedores.Dispose()
End Sub
@@ -461,7 +463,15 @@ Partial Class Sistemas_CatSesiones
End Sub
Protected Sub BtnRefresh_Click(sender As Object, e As EventArgs) Handles BtnRefresh.Click
Gv.DataSource = DirectCast(Application(DdlVariable.SelectedValue), DataTable)
Dim dt As DataTable = Nothing
Select Case DdlVariable.SelectedValue
Case ""
dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
Case Else
dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable)
End Select
Gv.DataSource = dt
Gv.DataBind()
End Sub