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 = "GlobalDTUsuarioResponsable" Then
            CargaUsuariosResponsable()
        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 = "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 = "GlobalDTGralColonias" Then
            CargaColonias()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
            CargaMunicipios()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTLocalidad" Then
            CargaLocalidades()
        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 = "GlobalDTInvPSSeccionesAlmacen" Then
            CargaDTInvPSSeccionesAlmacen()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
            CargaGlobalDTTipoTransacciones()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
            CargaSATGenerales()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then
            CargaActivoFijos()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then
            CargaActivoFijos()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAC" Then
            cargaAC()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATUsosCFDI" Then
            CargaUsosCFDI()
        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVtaCondicionesEntrega" Then
            CargaCondicionesEntrega()
        End If


    End Sub
    Private Sub CargaUsosCFDI()
        HttpContext.Current.Application("GlobalDTSATUsosCFDI") = Nothing
    End Sub
    Private Sub CargaGlobalDTVendedoresOld()
        Dim AppNombre As String = $"GlobalDTVendedores-{-1}"
        If HttpContext.Current.Application(AppNombre) Is Nothing Then
            Dim ObjVendedores As New ClsVtaVendedores
            If ObjVendedores.GetVendedores(-1) Then
                For Each Row As DataRow In ObjVendedores.DtResultados.Rows
                    Row("VendedorTipo") = 1
                Next
                HttpContext.Current.Application(AppNombre) = ObjVendedores.DtResultados.Copy()
            End If
            ObjVendedores.Dispose()
        End If
    End Sub

    Private Sub CargaActivoFijos()
        GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
        GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
        GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
        GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
    End Sub

    Private Sub CargaSATGenerales()
        Using ObjGrales As New ClsGenerales
            If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados
            If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable()
            If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados
            If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados
            If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados
            If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados
            If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados
        End Using
    End Sub

    Private Sub CargaGlobalDTTipoTransacciones()
        Using ObjBancos As New ClsBancos
            If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
            If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
            If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
            If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
        End Using
    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
        If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
        If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
        ObjGrales.Dispose()
    End Sub

    Private Sub CargaContratos()
        Dim ObjContratos As New ClsContratos
        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
        ' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
        ObjContratos.Dispose()
        GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
    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()
        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
        '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, -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(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
        'If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) 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()
        GlobalDTTipoVenta(-1) = Nothing
    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()
        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
        Using ObjVenta As New ClsVentas
            If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
                Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
            End If
        End Using

        'Fin Carga Usuarios
    End Sub
    Private Sub CargaCondicionesEntrega()
        GlobalDTVtaCondicionesEntrega(UsuarioActual.CveEmpresa) = Nothing
    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
        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
        'ObjUsuarios.Dispose()
        'Fin Carga Usuarios
    End Sub

    Private Sub CargaUsuariosResponsable()
        'Carga Usuarios
        GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
        'Dim ObjUsuarios As New ClsSisUsuarios
        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
        '    Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
        'Else
        '    Application("GlobalDTUsuarioResponsable") = Nothing
        'End If
        '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 cargaAC()
        Using ObjAC As New ClsAC
            If ObjAC.GetClasificacionFuncional(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
            If ObjAC.GetClasificacionGeografica(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
            If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
            If ObjAC.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
            If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
            If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) 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

        End Using
    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(UsuarioActual.CveEmpresa) Then
        '    Application("GlobalDTProyectos") = ObjProyectos.DtResultados
        'Else
        '    Application("GlobalDTProyectos") = Nothing
        'End If
        'ObjProyectos.Dispose()
        GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
        '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 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
        GlobalDTGralPaises = Nothing
        '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()
        GlobalDTGralEstados("") = Nothing
        'Dim Gral As New ClsGenerales
        'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
        'Gral.Dispose()
    End Sub

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


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

    Private Sub CargaLocalidades()
        GlobalDTLocalidad() = Nothing
        '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(UsuarioActual.CveEmpresa) 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, UsuarioActual.CveEmpresa) 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()
        GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = Nothing
    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()
        GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa, -1, "-1") = Nothing
    End Sub

    'Compras
    Private Sub CargaProveedores()
        GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing


        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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing

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

        If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing

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

        If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing

        If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) 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, NowADS()) Then
            If ObjGral.DtResultados.Rows.Count > 0 Then
                Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString
            End If
        End If
        ObjGral.Dispose()
        Application("TipoCambioActual") = Nothing
    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(UsuarioActual.CveEmpresa) 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 Page.IsPostBack Then
            GlobalDTRegimenesFiscales = Nothing
        End If
        'If Not dominio.Contains("gps.adsistemas") Then
        '    dominio = dominio.Replace("http", "https")
        '    Response.Redirect(dominio)
        'End If
        LblTotal.Text = dominio
    End Sub


    Private Sub CargaDTInvPSSeccionesAlmacen()
        GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
        GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing
    End Sub

End Class