Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
567
Sistemas/CatSesiones.aspx.vb
Normal file
567
Sistemas/CatSesiones.aspx.vb
Normal file
@@ -0,0 +1,567 @@
|
||||
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()
|
||||
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
|
||||
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) 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
|
||||
Gv.DataSource = DirectCast(Application(DdlVariable.SelectedValue), DataTable)
|
||||
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
|
||||
Reference in New Issue
Block a user