SIG/Sistemas/CatSesiones.aspx.vb

Imports Extensiones
Imports System.Data

Partial Class Sistemas_CatSesiones
    Inherits ClsPaginas


    Protected Sub BtnCargar_Click(sender As Object, e As EventArgs) Handles BtnCargar.Click
        If DdlVariable.SelectedItem.Value = "GlobalDTUsuarios" Then
            CargaUsuarios()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacenUsuarios" Then
            CargaAlmacenUsuarios()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCliente" Then
            CargaClientes()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacen" Then
            CargaAlmacen()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTEmpresas" Then
            CargaEmpresas()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTMonedas" Then
            CargaMonedas()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTProyectos" Then
            CargaProyectos()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSubProyectos" Then
            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
            CargaProveedores()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTMetodosPago" Then
            CargaMetodosPago()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPaises" Then
            CargaPaises()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEstados" Then
            CargaEstados()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
            CargaMunicipios()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPoblaciones" Then
            CargaPoblaciones()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEscolaridades" Then
            CargaEscolaridades()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTProspectosClasificaciones" Then
            CargaProsCla()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTProsCoordinadores" Then
            CargaProsCoord()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTProsSupervisores" Then
            CargaProsSup()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTBancosCuentas" Then
            CargaBancosCuentas()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTOCEstatus" Then
            CargaOCEstatus()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTOCEstatusUsuarios" Then
            CargaOCEstatusUsuarios()
        ElseIf DdlVariable.SelectedItem.Value = "UsuariosActivos" Then
            CargaSesionesActivas()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTContaPlantillasPolizas" Then
            CargaDTContaPlantillasPolizas()
        ElseIf DdlVariable.SelectedItem.Value = "ProductosServicios" Then
            CargaProductosServicios()
        ElseIf DdlVariable.SelectedItem.Value = "PSSimplificado" Then
            CargaProductosServiciossimplificado()

        ElseIf DdlVariable.SelectedItem.Value = "CONAC" Then
            CargaCONAC()
        ElseIf DdlVariable.SelectedItem.Value = "TipoCambio" Then
            CargaTC()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTRoles" Then
            ' CargaCONAC()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTProductosServiciosEquivalencias" Then
            CargarEquivalencias()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCombustibles" Then
            CargarCombustible()
        ElseIf DdlVariable.SelectedItem.Value = "RH" Then
            CargaRH()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTImpuestosLocales" Then
            CargaImpuestosLocales()
        ElseIf DdlVariable.SelectedItem.Value = "Ventas" Then
            CargaVenta()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTiposGastos" Then
            CargaTiposGastos()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTPaqueterias" Then
            CargaPaqueterias()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVtaTiposRelacion" Then
            CargaTiposRelacion()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTContratos" Then
            CargaContratos()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATMotivoTraslado" Then
            CargaSATMotivoTraslado()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then
            CargaConceptosContables()
		 ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
            CargaDTClasificacionPorcentaje()
        End If



		
    End Sub
    Private Sub CargaConceptosContables()
        Dim ObjContabilidad As New ClsContabilidad
        If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
        ObjContabilidad.Dispose()
    End Sub
    Private Sub CargaSATMotivoTraslado()
        Dim ObjGrales As New ClsGenerales
        If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
        ObjGrales.Dispose()
    End Sub

    Private Sub CargaContratos()
        Dim ObjContratos As New ClsContratos
        If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
        If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
        ObjContratos.Dispose()

    End Sub
    Private Sub CargaTiposRelacion()
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing

        ObjVentas.Dispose()
    End Sub
    Private Sub CargaImpuestosLocales()
        Dim ObjPSImpuestos As New ClsProductosServicios

        If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados Else Application("GlobalDTImpuestosLocales") = Nothing

        ObjPSImpuestos.Dispose()
    End Sub

    Private Sub CargaTiposGastos()
        Dim ObjCompra As New ClsCompras()
        If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
        ObjCompra.Dispose()
    End Sub

    Private Sub CargaDTContaPlantillasPolizas()
        Dim Conta As New ClsContabilidad

        If Conta.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = Conta.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing

        If Conta.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = Conta.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing

        If Conta.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = Conta.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing

        Conta.Dispose()
    End Sub


    Private Sub CargaAlmacenUsuarios()
        Dim Obj As New ClsSisUsuarios
        If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
        Obj.Dispose()
    End Sub

    Private Sub CargaClientes()
        Dim ObjClientes As New ClsClientes
        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados Else Application("GlobalDTCliente") = Nothing
        If ObjClientes.GetClienteClasificacion(-1) Then Application("GlobalDTClienteClasificaciones") = ObjClientes.DtResultados Else Application("GlobalDTClienteClasificaciones") = Nothing
        ObjClientes.Dispose()
    End Sub

    Private Sub CargaAlmacen()
        Dim Objinventarios As New ClsInventarios
        If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
        If Objinventarios.GetSeccionesAlmacenes(-1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
        If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
        If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
        Objinventarios.Dispose()

    End Sub

    Private Sub CargaRH()
        Dim ObjRH As New ClsRH
        If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
        If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
        If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
        If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
        If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
        If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
        If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
        If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
        If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
        If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
        If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
        If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
        If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
        If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
        If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
        If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
        ObjRH.Dispose()

    End Sub

    Private Sub CargaVenta()
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
        If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
        If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing

        ObjVentas.Dispose()
    End Sub

    Private Sub CargaProductosServicios()
        'Carga Usuarios
        Dim ObjPS As New ClsProductosServicios
        If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing
        If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
        'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
        If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
        If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
        ObjPS.Dispose()

        'Fin Carga Usuarios
    End Sub


    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()
    End Sub


    Private Sub CargaSesionesActivas()
        Try
            Dim gv As New StringBuilder
            Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState))

            If sessionData IsNot Nothing Then
                For Each item As KeyValuePair(Of String, HttpSessionState) In sessionData
                    'gv.Add(New String() With { _
                    '	Key .SessionId = item.Key, _
                    '	Key .SessionKey = Nothing, _
                    '	Key .SessionValue = Nothing _
                    '})
                    If item.Value IsNot Nothing AndAlso item.Value.Count > 0 Then
                        For Each key As String In item.Value.Keys
                            'gv.Add(New String() With { _
                            '	Key .SessionId = item.Key, _
                            '	Key .SessionKey = key, _
                            '	Key .SessionValue = If(item.Value(key) IsNot Nothing, item.Value(key).ToString(), String.Empty) _
                            '})
                        Next
                    End If
                Next
                'sessionValuesGrid.DataSource = gv
                'sessionValuesGrid.DataBind()
            End If
        Catch
        End Try
    End Sub

    'Generales
    Private Sub CargaUsuarios()
        'Carga Usuarios
        Dim ObjUsuarios As New ClsSisUsuarios
        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
        Else
            Application("GlobalDTUsuarios") = Nothing
        End If
        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
        ObjUsuarios.Dispose()
        'Fin Carga Usuarios
    End Sub


    Private Sub CargaEmpresas()
        'Carga Empresas
        Dim ObjEmp As New ClsSisEmpresas()
        If ObjEmp.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
            Application("GlobalDTEmpresas") = ObjEmp.DtResultados
        Else
            Application("GlobalDTEmpresas") = Nothing
        End If
        ObjEmp.Dispose()
        'Fin Carga  Empresas
    End Sub
    Private Sub carga1()
        Dim ObjAC As New ClsAC
        If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados
        ObjAC.Dispose()
    End Sub
    Private Sub CargaMonedas()
        'Carga Monedas
        Dim ObjMonedas As New ClsMonedas()
        If ObjMonedas.GetMonedas() Then
            Application("GlobalDTMonedas") = ObjMonedas.DtResultados
        Else
            Application("GlobalDTMonedas") = Nothing
        End If

        If ObjMonedas.GetMonedasAlias() Then
            Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados
        Else
            Application("GlobalDTMonedasAlias") = Nothing
        End If

        ObjMonedas.Dispose()
        'Fin Carga  Monedass
    End Sub

    Private Sub CargaProyectos()
        'Carga Proyectos
        Dim ObjProyectos As New ClsProyectos
        If ObjProyectos.GetProyectos Then
            Application("GlobalDTProyectos") = ObjProyectos.DtResultados
        Else
            Application("GlobalDTProyectos") = Nothing
        End If
        ObjProyectos.Dispose()
        'Fin Carga Proyectos
    End Sub

    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.GetSubProyectosUsuarios Then
            Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
            Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
        Else
            Application("GlobalDTProyectosUsuarios") = Nothing
            Application("GlobalDTSubProyectosUsuarios") = Nothing
        End If
        ObjSubProyectos.Dispose()
        '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()
    '    If ObjSucursales.GetSucursales() Then
    '        Application("GlobalDTSucursales") = ObjSucursales.DtResultados
    '    Else
    '        Application("GlobalDTSucursales") = Nothing
    '    End If
    '    ObjSucursales.Dispose()
    '    'Fin Carga Sucursales
    'End Sub

    Private Sub CargaMetodosPago()
        Dim ObjMetodoPago As New ClsMetodosPagos()
        If ObjMetodoPago.GetMetodosPago() Then
            Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados
        Else
            Application("GlobalDTMetodosPago") = Nothing
        End If
        ObjMetodoPago.Dispose()
    End Sub

    Private Sub CargaPaises()
        Dim Gral As New ClsGenerales
        If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
		If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing

        Gral.Dispose()
    End Sub

    Private Sub CargaEstados()
        Dim Gral As New ClsGenerales
        If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
        Gral.Dispose()
    End Sub

    Private Sub CargaMunicipios()
        Dim Gral As New ClsGenerales
        If Gral.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = Gral.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
        Gral.Dispose()
    End Sub

    Private Sub CargaPoblaciones()
        Dim Gral As New ClsGenerales
        If Gral.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = Gral.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
        Gral.Dispose()
    End Sub

    Private Sub CargaEscolaridades()
        Dim Gral As New ClsGenerales
        If Gral.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = Gral.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
        Gral.Dispose()
    End Sub

    'Prospectos

    Private Sub CargaProsCla()
        Dim Prosp As New ClsProspectos
        If Prosp.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
        Prosp.Dispose()
    End Sub

    Private Sub CargaProsCoord()
        Dim Prosp As New ClsProspectos
        If Prosp.GetCoordinadores(-1) Then Application("GlobalDTProsCoordinadores") = Prosp.DtResultados Else Application("GlobalDTProsCoordinadores") = Nothing
        Prosp.Dispose()
    End Sub

    Private Sub CargaProsSup()
        Dim Prosp As New ClsProspectos
        If Prosp.GetSupervisores(-1) Then Application("GlobalDTProsSupervisores") = Prosp.DtResultados Else Application("GlobalDTProsSupervisores") = Nothing
        Prosp.Dispose()
    End Sub

    Private Sub CargaBancosCuentas()
        Dim Banc As New ClsBancos
        If Banc.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
        Banc.Dispose()
    End Sub

    Private Sub CargaOCEstatus()
        Dim ObjOC As New ClsOC
        If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
        ObjOC.Dispose()
    End Sub

    Private Sub CargaOCEstatusUsuarios()
        Dim ObjOC As New ClsOC
        If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
        ObjOC.Dispose()
    End Sub

    'Compras
    Private Sub CargaProveedores()
        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, -1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing
        ObjProveedores.Dispose()
    End Sub


    Protected Sub DdlVariable_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlVariable.SelectedIndexChanged

        Gv.DataSource = DirectCast(Application(DdlVariable.SelectedValue), DataTable)

        Gv.DataBind()
        LblTotal.Text = "Registros:" & Gv.Rows.Count
    End Sub

    Protected Sub BtnRefresh_Click(sender As Object, e As EventArgs) Handles BtnRefresh.Click
        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


    'DT CONAC
    Private Sub CargaCONAC()
        Dim ObjAC As New ClsAC

        If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing

        If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing

        If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing

        If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing

        If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing

        If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing

        If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing

        If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing

        If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing

        If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing

        If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing

        If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing

        If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing

        If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing

        If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing

        If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing

        If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing

        If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing

        If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing

        ObjAC.Dispose()
    End Sub


    Private Sub CargaTC()
        Dim ObjGral As New ClsGenerales
        If ObjGral.GetTipoCambio(-1, Now) Then
            If ObjGral.DtResultados.Rows.Count > 0 Then
                Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString
            End If
        End If
        ObjGral.Dispose()
    End Sub

    Private Sub CargarEquivalencias()
        Dim ObjProductos As New ClsProductosServicios

        If ObjProductos.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjProductos.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing

        ObjProductos.Dispose()
    End Sub
    Private Sub CargarCombustible()

        Dim ObjFlotillas As New ClsFlotillas
        If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing

        ObjFlotillas.Dispose()
    End Sub



    Private Sub CargaPaqueterias()
        Dim ObjGenerales As New ClsGenerales
        If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
        If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
        ObjGenerales.Dispose()

    End Sub

    Private Sub Sistemas_CatSesiones_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim dominio As String = HttpContext.Current.Request.Url.GetLeftPart(UriPartial.Authority)

        'If Not dominio.Contains("gps.adsistemas") Then
        '    dominio = dominio.Replace("http", "https")
        '    Response.Redirect(dominio)
        'End If
        LblTotal.Text = dominio
    End Sub
	
	Private Sub CargaDTClasificacionPorcentaje()
	
		Dim ObjGenerales As New ClsGenerales
         If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
		 ObjGenerales.Dispose()
		 
   End Sub
	
End Class