-- se quito GlobalDTFolios

This commit is contained in:
rrene
2020-05-30 15:33:13 -07:00
parent e8031755ee
commit 28351c58e0
7 changed files with 129 additions and 114 deletions

View File

@@ -20,8 +20,7 @@
<asp:ListItem Text="Proyectos" Value="GlobalDTProyectos"></asp:ListItem>
<asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
<asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
<asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>
<asp:ListItem Text="Folios" Value="GlobalDTFolios"></asp:ListItem>
<asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>
<%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
<asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>
<asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>

View File

@@ -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()