767 lines
61 KiB
Plaintext
767 lines
61 KiB
Plaintext
<%@ Application Language="VB" %>
|
|
<%@ Import Namespace="System.Web.Optimization" %>
|
|
<%@ Import Namespace="Extensiones" %>
|
|
<%@ Import Namespace="system.data" %>
|
|
<%@ Import Namespace="System.Data.SqlClient" %>
|
|
<%@ Import Namespace="Microsoft.AspNet.SignalR" %>
|
|
<%@ Import Namespace="System.Web.Http" %>
|
|
<%@ Import Namespace="ADSSession" %>
|
|
|
|
<script RunAt="server">
|
|
|
|
Public ReadOnly Property EsProduccion As String
|
|
Get
|
|
If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then
|
|
Return "0"
|
|
Else
|
|
Return System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString()
|
|
End If
|
|
End Get
|
|
End Property
|
|
Private Sub GuardaLogAsax(str As String)
|
|
'GuardaLog(str)
|
|
End Sub
|
|
Sub Application_Start(sender As Object, e As EventArgs)
|
|
Stimulsoft.Base.StiLicense.Key = "6vJhGtLLLz2GNviWmUTrhSqnOItdDwjBylQzQcAOiHmhQEs54hwXWiqhb7jE6yoykR4jHwP3Mz0nuxn0JR9fNMeDKv" + "sS5s+rCYr7Ex4DRTHaUJIUDqrvGmvWyMjzUl9RAEz/XG8RenfJvoEilBZ9Wqq8Uu/n92YhChB4PbAh9FeH3abSU3PF" + "LuVa6GydYWQvZGpHhFs98Idp754TAgWZatzcF3Ksp6q4laYxnyUY0cA0hYejanRBjIT1Nu59xmlOKE7EGIb9wKlLn/" + "XnW8k8PUNuReOk7ATeHO07JSMLikmvIytkWET2bXDmBI43tAX3fLUE+KlOe7FR/hvfQ6oqqtVRlSZ22QBanel09+XE" + "X8aVC8b+WuRv1nInJeQHBD9zF8b67n4ouKRgv2/vSxopOhCZXdaqdyO4ct+FmSC8cAAcMIGeiKnc5ww8Cq44ClTqJl" + "V2qsCjoS4bb8Nzd2Gy+q/TG/D3dAEKSpPGUx2EEksora/kIkNooq6+bgyH7hqCG2bHKaSQwr2g0keNrYIUcTIwROn1" + "cnQDetzsBqX4lvu64VZWq5+cQD+dyPJwOS6M"
|
|
|
|
'Dim Licence As String = String.Format("{0}/Bin/ASS151026R37.license", AppDomain.CurrentDomain.BaseDirectory)
|
|
'Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream(System.IO.File.ReadAllBytes(Licence))
|
|
|
|
'HyperSoft.ElectronicDocument.Download.Activation.Activation.LoadActivationFile(stream)
|
|
|
|
|
|
Dim sessionData As New Dictionary(Of String, HttpSessionState)()
|
|
Application("s") = sessionData
|
|
|
|
|
|
'BANDERA PARA VALIDACION DE CFDI
|
|
Application("GlobalValidarCFDI") = True
|
|
|
|
'----------------------------------------------------------------------------------------------------------------------
|
|
'C A R G A - R H
|
|
GuardaLogAsax(String.Format("Globalasax 1:{0}", DateTime.Now))
|
|
Using 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
|
|
End Using
|
|
'----------------------------------------------------------------------------------------------------------------------
|
|
'C A R G A - O S
|
|
GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
|
|
|
|
Using ObjOS As New ClsOS
|
|
If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
|
|
If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
|
|
End Using
|
|
'-------------------------------------------------------------------------------------------------------------------------
|
|
'A C T I V O S - F I J O S
|
|
GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
|
|
|
|
Using ObjActivosFijos As New ClsAF
|
|
If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
|
|
If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
|
|
If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
|
|
If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
|
|
If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
|
|
If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
|
|
If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
|
|
End Using
|
|
'-------------------------------------------------------------------------------------------------------------------------
|
|
'C A R G A - O R D E N E S - D E - C O M P R A S
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
|
|
Using ObjOC As New ClsOC
|
|
If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
|
|
'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
|
|
End Using
|
|
|
|
|
|
'-------------------------------------------------------------------------------------------------------------------------
|
|
'A M O R T I Z A C I O N - C O N T A B L E
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 5:{0}", DateTime.Now))
|
|
Using 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
|
|
' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing
|
|
'If ObjAC.GetProyectosProceso() Then Application("GlobalDTAC_ProyectosProceso") = ObjAC.DtResultados Else Application("GlobalDTAC_ProyectosProceso") = Nothing
|
|
'If ObjAC.GetFuncion() Then Application("GlobalDTAC_Funcion") = ObjAC.DtResultados Else Application("GlobalDTAC_Funcion") = Nothing
|
|
'If ObjAC.GetSubFuncion() Then Application("GlobalDTAC_SubFuncion") = ObjAC.DtResultados Else Application("GlobalDTAC_SubFuncion") = Nothing
|
|
'If ObjAC.GetSubProgramas() Then Application("GlobalDTAC_SubProgramas") = ObjAC.DtResultados Else Application("GlobalDTAC_SubProgramas") = Nothing
|
|
'If ObjAC.GetUbicaciones() Then Application("GlobalDTAC_Ubicaciones") = ObjAC.DtResultados Else Application("GlobalDTAC_Ubicaciones") = Nothing
|
|
' If ObjAC.GetOG() Then Application("GlobalDTAC_OG") = ObjAC.DtResultados Else Application("GlobalDTAC_OG") = Nothing
|
|
' If ObjAC.GetClasificadorOG() Then Application("GlobalDTAC_ClasificadorOG") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificadorOG") = Nothing
|
|
'If ObjAC.GetProgramas() Then Application("GlobalDTAC_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_Programas") = Nothing
|
|
' If ObjAC.GetCuentas() Then Application("GlobalDTAC_Cuentas") = ObjAC.DtResultados Else Application("GlobalDTAC_Cuentas") = Nothing
|
|
' If ObjAC.GetDependencias() Then Application("GlobalDTAC_Dependencias") = ObjAC.DtResultados Else Application("GlobalDTAC_Dependencias") = Nothing
|
|
'If ObjAC.GetFinalidad() Then Application("GlobalDTAC_Finalidad") = ObjAC.DtResultados Else Application("GlobalDTAC_Finalidad") = Nothing
|
|
End Using
|
|
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now))
|
|
Using Finan As New ClsFinanzas
|
|
|
|
If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados
|
|
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
''C A R G A - T I P O G A S T O S
|
|
'Using ObjCompra As New ClsCompras()
|
|
' If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
|
|
'End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C A R G A - N O M
|
|
|
|
Using ObjNom As New ClsNominas()
|
|
If ObjNom.GetConceptos(-1) Then Application("GlobalDTNomConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomConceptos") = Nothing
|
|
If ObjNom.GetConceptosFunciones() Then Application("GlobalDTNomConceptosFunciones") = ObjNom.DtResultados Else Application("GlobalDTNomConceptosFunciones") = Nothing
|
|
If ObjNom.GetTiposPeriodos() Then Application("GlobalDTTipoPeriodo") = ObjNom.DtResultados Else Application("GlobalDTTipoPeriodo") = Nothing
|
|
If ObjNom.GetPeriodos(-1, -1, -1, -1, -1) Then Application("GlobalDTNominasPeriodos") = ObjNom.DtResultados Else Application("GlobalDTNominasPeriodos") = Nothing
|
|
If ObjNom.GetBancos Then Application("GlobalDTNomSatBancos") = ObjNom.DtResultados Else Application("GlobalDTNomSatBancos") = Nothing
|
|
If ObjNom.GetConceptos Then Application("GlobalDTNomSatConceptos") = ObjNom.DtResultados Else Application("GlobalDTNomSatConceptos") = Nothing
|
|
If ObjNom.GetRegimenContratacion Then Application("GlobalDTNomSatRegimenContratacion") = ObjNom.DtResultados Else Application("GlobalDTNomSatRegimenContratacion") = Nothing
|
|
If ObjNom.GetRiesgoPuesto Then Application("GlobalDTNomSatRiesgoPuesto") = ObjNom.DtResultados Else Application("GlobalDTNomSatRiesgoPuesto") = Nothing
|
|
If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R O S P E C T O S
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
|
|
Using ObjProspectos As New ClsProspectos
|
|
If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
|
|
If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
|
|
If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
|
|
If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
|
|
If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
|
|
If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
|
|
If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
|
|
If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
|
|
If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
|
|
If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
|
|
If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
|
|
If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
|
|
If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
|
|
If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
|
|
If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
|
|
If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
|
|
If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
|
|
If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
|
|
If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
|
|
If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
'B A N C O S
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now))
|
|
Using ObjBancos As New ClsBancos
|
|
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
|
|
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
|
|
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
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
'I N V E N T A R I O S
|
|
|
|
Using 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
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C O N T A B I L I D A D - P L A N T I L L A S
|
|
|
|
|
|
Using ObjContabilidad As New ClsContabilidad
|
|
If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
|
|
If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
|
|
If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 15:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'G E N E R A L E S
|
|
|
|
Using ObjGenerales As New ClsGenerales
|
|
If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
|
|
If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
|
If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
|
|
If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
|
|
If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
|
|
If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
|
|
If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
|
|
If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
|
|
If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
|
|
If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
|
|
'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
|
|
If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
|
|
If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
|
|
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'E V E N T O S
|
|
|
|
Using ObjEventos As New ClsOIEventos
|
|
If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
|
|
If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
|
|
If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
|
|
If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'V E N T A S
|
|
|
|
Using 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
|
|
If ObjVentas.GetFormaPago() Then Application("GlobalDTVtaFormaPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaFormaPago") = Nothing
|
|
If ObjVentas.GetMetodoPago() Then Application("GlobalDTVtaMetodoPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaMetodoPago") = Nothing
|
|
If ObjVentas.GetTiposDocumentos() Then Application("GlobalDTTiposDocumentos") = ObjVentas.DtResultados Else Application("GlobalDTTiposDocumentos") = Nothing
|
|
If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing
|
|
If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
|
|
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 18:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'SAT
|
|
Using ObjGrales As New ClsGenerales
|
|
If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
|
|
'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
|
|
If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
|
|
If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
|
|
If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing
|
|
If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing
|
|
If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
|
|
If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing
|
|
If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing
|
|
If ObjGrales.GetSATPais Then Application("GlobalDTPais") = ObjGrales.DtResultados Else Application("GlobalDTPais") = Nothing
|
|
'If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
|
|
'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
|
|
'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
''MF
|
|
|
|
'Dim ObjMF As New ClsMF
|
|
'If ObjMF.GetActividad(-1, -1, -1) Then Application("GlobalDTActividad") = ObjMF.DtResultados Else Application("GlobalDTActividad") = Nothing
|
|
'If ObjMF.GetOperador(-1, -1, -1) Then Application("GlobalDTOperador") = ObjMF.DtResultados Else Application("GlobalDTOperador") = Nothing
|
|
'If ObjMF.GetEstatus(-1, -1, -1) Then Application("GlobalDTEstatus") = ObjMF.DtResultados Else Application("GlobalDTEstatus") = Nothing
|
|
|
|
|
|
'ObjMF.Dispose()
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C L A S I F I C A C I O N E S
|
|
|
|
Using ObjClasificaciones As New ClsClasificaciones()
|
|
If ObjClasificaciones.GetClasificaciones() Then
|
|
Application("GlobalDTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo is null OR Codigo = '' ")
|
|
Application("GlobalDTACClasificadorObjetoGasto") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
|
|
Else
|
|
Application("GlobalDTClasificaciones") = Nothing
|
|
Application("GlobalDTACClasificadorObjetoGasto") = Nothing
|
|
End If
|
|
|
|
If ObjClasificaciones.GetDTClasificacionesSubProyectos() Then
|
|
Application("GlobalDTClasificacionesSubProyecto") = ObjClasificaciones.DtResultados
|
|
Else
|
|
Application("GlobalDTClasificacionesSubProyecto") = Nothing
|
|
End If
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'F A M I L I A S
|
|
If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R E S U P U E S T O
|
|
If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C L A S I F I C A C I O N E S 2
|
|
If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
|
|
|
|
|
|
Using ObjVenta As New ClsVentas
|
|
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
|
|
Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
|
|
End If
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
|
|
|
|
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'S U C U R S A L E S
|
|
|
|
'Dim ObjSucursales As New ClsSucursales()
|
|
'If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
|
|
'ObjSucursales.Dispose()
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'U N I D A D E S - D E - M E D I D A
|
|
|
|
'Dim ObjUnidadesMedida As New ClsUnidadesMedida()
|
|
'If ObjUnidadesMedida.GetUnidadesMedida(-1) Then Application("GlobalDTUnidadesMedida") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedida") = Nothing
|
|
'If ObjUnidadesMedida.GetUnidadesMedidaAlias() Then Application("GlobalDTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedidaAlias") = Nothing
|
|
'ObjUnidadesMedida.Dispose()
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'M E T O D O S - D E - P A G O
|
|
|
|
Using ObjMetodoPago As New ClsMetodosPagos()
|
|
If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
|
|
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'M O N E D A S
|
|
|
|
Using ObjMonedas As New ClsMonedas()
|
|
If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
|
|
If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
|
|
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'L E Y E N D A S - F I S C A L E S
|
|
|
|
Using ObjLeyendasFiscales As New ClsLeyendasFiscales()
|
|
If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'F A C T U R A S
|
|
|
|
Using ObjEstatusFactura As New ClsEstatusFactura()
|
|
If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
|
|
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R O Y E C T O S
|
|
|
|
Using ObjProyectos As New ClsProyectos
|
|
If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'S U B P R O Y E C T O S
|
|
|
|
Using ObjSubProyectos As New ClsSubProyectos
|
|
'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing
|
|
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
|
|
'Else Application("GlobalDTProyectosUsuarios") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 26:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'T I P O S - D E - E V E N T O S
|
|
Using ObjTiposEventos As New ClsTiposEventos
|
|
If ObjTiposEventos.GetTiposEventos() Then Application("GlobalDTTiposEventos") = ObjTiposEventos.DtResultados Else Application("GlobalDTTiposEventos") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 27:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R O D U C T O S Y S E R V I C I O S - C A R A C T E R I S T I C A S
|
|
|
|
'Se comentan porque ya no se estan cargando con Global.
|
|
|
|
'Dim ObjProductosServiciosCaracteristicas As New ClsGralProductosServiciosCaracteristicas
|
|
'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicas() Then Application("GlobalDTProductosServiciosCaracteristicas") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicas") = Nothing
|
|
'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicasOpciones() Then Application("GlobalDTProductosServiciosCaracteristicasOpciones") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicasOpciones") = Nothing
|
|
'ObjProductosServiciosCaracteristicas.Dispose()
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R O D U C T O S S E R V I C I O S
|
|
|
|
Using 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
|
|
'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 28:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R O V E E D O R E S
|
|
|
|
'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.GetProveedorClasificacion(-1) 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()
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P R O V E E D O R E S C U E N T A S
|
|
Using ObjProveedoresBancos As New ClsGenerales
|
|
If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing
|
|
End Using
|
|
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 29:{0}", DateTime.Now))
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C L I E N T E S
|
|
|
|
'Dim ObjClientes As New ClsClientes
|
|
'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-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()
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C O N T R A T O S
|
|
|
|
Using 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(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now))
|
|
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'V E N D E D O R E S
|
|
|
|
Using ObjVendedores As New ClsVtaVendedores
|
|
If ObjVendedores.GetVendedores(-1) Then Application("GlobalDTVendedores") = ObjVendedores.DtResultados Else Application("GlobalDTVendedores") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 31:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C O R P O R A T I V O
|
|
|
|
Using ObjCorporativo As New ClsClientes
|
|
If ObjCorporativo.GetCorporativo(-1, -1) Then Application("GlobalDTClientesCorporativo") = ObjCorporativo.DtResultados Else Application("GlobalDTClientesCorporativo") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 32:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'E S T A T U S - F A C T U R A
|
|
|
|
Using ObjEstatusFacturaCompra As New ClsCompEstatusFactura
|
|
If ObjEstatusFacturaCompra.GetEstatusFactura Then Application("GlobalDTCompEstatusFactura") = ObjEstatusFacturaCompra.DtResultados Else Application("GlobalDTCompEstatusFactura") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'A C U M U L A D O R E S
|
|
|
|
Using ObjAcumuladores As New ClsAcumuladores()
|
|
If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
|
|
If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
|
|
If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
|
|
'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'P A R A M E T R O S
|
|
|
|
Using ObjParametros As New ClsSisParametros
|
|
If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'U S U A R I O S
|
|
|
|
Using 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
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 36:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'R O L E S
|
|
|
|
Using ObjRoles As New ClsSisRoles
|
|
If ObjRoles.GetRoles(-1, -1) Then Application("GlobalDTRoles") = ObjRoles.DtResultados Else Application("GlobalDTRoles") = Nothing
|
|
End Using
|
|
|
|
GuardaLogAsax(String.Format("Globalasax 37:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'M O D U L O S
|
|
|
|
Using ObjModulos As New ClsModulos
|
|
If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application("GlobalDTModulos") = ObjModulos.DtResultados Else Application("GlobalDTModulos") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 38:{0}", DateTime.Now))
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'C O M B U S T I B L E S
|
|
|
|
Using ObjFlotillas As New ClsFlotillas
|
|
If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
|
|
If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
|
|
|
|
'----------------------------------------------------------------------------------7--------------------------------------------------------------------------------------------
|
|
'E M P R E S A S
|
|
|
|
Using ObjEmpresas As New ClsSisEmpresas()
|
|
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
|
|
Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
|
|
'verifico si existe la carpeta de la empresa, sino la crea
|
|
For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
|
|
Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))
|
|
If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta)
|
|
If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
|
|
If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
|
|
|
|
Next
|
|
Else
|
|
Application("GlobalDTEmpresas") = Nothing
|
|
End If
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now))
|
|
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'G L O B A L E S A P L I C A C I Ó N
|
|
|
|
|
|
Using 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.ToDouble
|
|
End If
|
|
End If
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
|
|
|
|
|
|
BundleConfig.RegistrarBundles(BundleTable.Bundles)
|
|
BundleTable.EnableOptimizations = True
|
|
System.Web.UI.ValidationSettings.UnobtrusiveValidationMode = UnobtrusiveValidationMode.None
|
|
|
|
Dim EmpresaNotificaciones As New Empresa With {.SendMail = "signotificaciones@adssistemas.mx", .SendMailPassword = "sig123987", .SendMailServer = "mail.adssistemas.mx", .SendMailPuerto = 587}
|
|
ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones
|
|
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
'I M P U E S T O S L O C A L E S
|
|
|
|
'Using ObjPSImpuestos As New ClsProductosServicios
|
|
'If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then
|
|
' If ObjPSImpuestos.DtResultados.Rows.Count > 0 Then
|
|
' Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados
|
|
' Else
|
|
' Application("GlobalDTImpuestosLocales") = Nothing
|
|
' End If
|
|
'End If
|
|
'End Using
|
|
|
|
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
' R A S T R E O
|
|
Using ObjGPS As New ClsGPS
|
|
If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
|
|
If ObjGPS.DtResultados.Rows.Count > 0 Then
|
|
Application("GlobalDTDispositivos") = ObjGPS.DtResultados
|
|
Else
|
|
Application("GlobalDTDispositivos") = Nothing
|
|
End If
|
|
End If
|
|
|
|
If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
|
|
If ObjGPS.DtResultados.Rows.Count > 0 Then
|
|
Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
|
|
Else
|
|
Application("GlobalDTDispositivosUsuarios") = Nothing
|
|
End If
|
|
End If
|
|
End Using
|
|
GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now))
|
|
|
|
|
|
'If EsProduccion = "1" Then
|
|
' RegisterNotification()
|
|
'End If
|
|
'-----------------
|
|
|
|
|
|
GlobalConfiguration.Configure(AddressOf WebApiConfig.Register)
|
|
GlobalConfiguration.Configuration.EnsureInitialized()
|
|
End Sub
|
|
|
|
Sub Application_End(sender As Object, e As EventArgs)
|
|
If EsProduccion = "1" Then
|
|
SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
|
|
End If
|
|
' Code that runs on application shutdown
|
|
End Sub
|
|
|
|
Sub Application_Error(sender As Object, e As EventArgs)
|
|
' Code that runs when an unhandled error occurs
|
|
Dim CveUsuario As String = ""
|
|
Dim Nombre As String = ""
|
|
Try
|
|
Dim user As Usuario = ADSSessionConfig.sessionUser
|
|
If Not IsNothing(user) Then
|
|
CveUsuario = user.CveUsuario.ToString()
|
|
Nombre = user.Nombre
|
|
End If
|
|
Catch ex As Exception
|
|
Usuario.CerrarSession()
|
|
End Try
|
|
Dim InfoAdicional As String = vbCrLf & "CveUsuario: " & CveUsuario & "; Nombre: " & Nombre & vbCrLf & "Ruta: " & Context.Request.RawUrl & " "
|
|
OnError("Ocurrió un error en la página.", Context.Error, InfoAdicional)
|
|
End Sub
|
|
|
|
Sub Session_Start(sender As Object, e As EventArgs)
|
|
|
|
' Code that runs when a new session is started
|
|
'Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState))
|
|
|
|
'If sessionData.Keys.Contains(HttpContext.Current.Session.SessionID) Then
|
|
' sessionData.Remove(HttpContext.Current.Session.SessionID)
|
|
' sessionData.Add(HttpContext.Current.Session.SessionID, HttpContext.Current.Session)
|
|
'Else
|
|
' sessionData.Add(HttpContext.Current.Session.SessionID, HttpContext.Current.Session)
|
|
'End If
|
|
'Application("s") = sessionData
|
|
End Sub
|
|
|
|
Sub Session_End(sender As Object, e As EventArgs)
|
|
Dim objsession As Object = ADSSessionConfig.SessionManager(OpcionSession.removerSession, Nothing, -1, Session.SessionID)
|
|
If Not IsNothing(objsession) Then
|
|
'MyHub.RemoveConexiones(DirectCast(objsession, ADSSessionObj).CveUsuario)
|
|
End If
|
|
'Code that runs when a session ends.
|
|
' Note: The Session_End event Is raised only when the sessionstate mode
|
|
' Is set to InProc in the Web.config file. If session mode Is set to StateServer
|
|
'' or SQLServer, the event is not raised.
|
|
'Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState))
|
|
'sessionData.Remove(HttpContext.Current.Session.SessionID)
|
|
'Application("s") = sessionData
|
|
End Sub
|
|
|
|
#Region "S Q L D E P E N D E N C Y"
|
|
|
|
'Public Sub RegisterNotification()
|
|
' Try
|
|
' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created
|
|
' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
|
|
' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event
|
|
' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones"
|
|
' 'Start the SQL Dependency
|
|
' SqlDependency.Start(connectionString)
|
|
' Using connection As New SqlConnection(connectionString)
|
|
' Using command As New SqlCommand(commandText, connection)
|
|
' connection.Open()
|
|
' Dim sqlDependency = New SqlDependency(command)
|
|
' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange
|
|
' ' NOTE: You have to execute the command, or the notification will never fire.
|
|
' Using reader As SqlDataReader = command.ExecuteReader()
|
|
' End Using
|
|
' End Using
|
|
' End Using
|
|
' Catch ex As Exception
|
|
|
|
' End Try
|
|
|
|
'End Sub
|
|
|
|
'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs)
|
|
' If e.Info = SqlNotificationInfo.Update Then
|
|
' Try
|
|
' Dim ObjNotificaciones As New ClsSisNotificaciones
|
|
' ObjNotificaciones.ObtenerNotificaciones()
|
|
' ObjNotificaciones.Dispose()
|
|
' 'System.Threading.Thread.Sleep(5000)
|
|
' RegisterNotification()
|
|
' Catch ex As Exception
|
|
|
|
' End Try
|
|
' End If
|
|
' 'Call the RegisterNotification method again
|
|
'End Sub
|
|
|
|
#End Region
|
|
|
|
</script>
|