-- se quito GlobalDTFolios
This commit is contained in:
@@ -24,8 +24,6 @@ Partial Class Sistemas_CatSesiones
|
||||
CargaSubProyectos()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSubProyectosUsuarios" Then
|
||||
CargaSubProyectos()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTFolios" Then
|
||||
CargaFolios()
|
||||
'ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSucursales" Then
|
||||
' CargaSucursales()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCompProveedores" Then
|
||||
@@ -341,18 +339,6 @@ Partial Class Sistemas_CatSesiones
|
||||
'Fin Carga Proyectos
|
||||
End Sub
|
||||
|
||||
Private Sub CargaFolios()
|
||||
'Carga Folios
|
||||
Dim ObjFolios As New ClsGralFolios()
|
||||
If ObjFolios.GetFolios() Then
|
||||
Application("GlobalDTFolios") = ObjFolios.DtResultados
|
||||
Else
|
||||
Application("GlobalDTFolios") = Nothing
|
||||
End If
|
||||
ObjFolios.Dispose()
|
||||
'Fin Carga Folios
|
||||
End Sub
|
||||
|
||||
'Private Sub CargaSucursales()
|
||||
' 'Carga Sucursales
|
||||
' Dim ObjSucursales As New ClsSucursales()
|
||||
|
||||
Reference in New Issue
Block a user