diff --git a/Global.asax b/Global.asax index f7cdd4974..53d481a72 100644 --- a/Global.asax +++ b/Global.asax @@ -17,8 +17,10 @@ Return System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() End If End Get - End Property - + 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" @@ -37,7 +39,7 @@ '---------------------------------------------------------------------------------------------------------------------- 'C A R G A - R H - GuardaLog(String.Format("Globalasax 1:{0}", DateTime.Now)) + 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 @@ -59,7 +61,7 @@ End Using '---------------------------------------------------------------------------------------------------------------------- 'C A R G A - O S - GuardaLog(String.Format("Globalasax 2:{0}", DateTime.Now)) + 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 @@ -67,7 +69,7 @@ End Using '------------------------------------------------------------------------------------------------------------------------- 'A C T I V O S - F I J O S - GuardaLog(String.Format("Globalasax 3:{0}", DateTime.Now)) + 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 @@ -81,7 +83,7 @@ '------------------------------------------------------------------------------------------------------------------------- 'C A R G A - O R D E N E S - D E - C O M P R A S - GuardaLog(String.Format("Globalasax 4:{0}", DateTime.Now)) + 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 @@ -91,7 +93,7 @@ '------------------------------------------------------------------------------------------------------------------------- 'A M O R T I Z A C I O N - C O N T A B L E - GuardaLog(String.Format("Globalasax 5:{0}", DateTime.Now)) + 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 @@ -127,21 +129,21 @@ End Using - GuardaLog(String.Format("Globalasax 6:{0}", DateTime.Now)) + 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 - GuardaLog(String.Format("Globalasax 7:{0}", DateTime.Now)) + 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 - GuardaLog(String.Format("Globalasax 8:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C A R G A - N O M @@ -157,11 +159,11 @@ If ObjNom.GetTipoIncapacidad Then Application("GlobalDTNomSatTipoIncapacidad") = ObjNom.DtResultados Else Application("GlobalDTNomSatTipoIncapacidad") = Nothing End Using - GuardaLog(String.Format("Globalasax 9:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'P R O S P E C T O S - GuardaLog(String.Format("Globalasax 10:{0}", DateTime.Now)) + 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 @@ -185,12 +187,12 @@ If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing End Using - GuardaLog(String.Format("Globalasax 11:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'B A N C O S - GuardaLog(String.Format("Globalasax 12:{0}", DateTime.Now)) + 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 @@ -200,7 +202,7 @@ If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing End Using - GuardaLog(String.Format("Globalasax 13:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'I N V E N T A R I O S @@ -212,7 +214,7 @@ If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing End Using - GuardaLog(String.Format("Globalasax 14:{0}", DateTime.Now)) + 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 @@ -223,7 +225,7 @@ If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing End Using - GuardaLog(String.Format("Globalasax 15:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 15:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'G E N E R A L E S @@ -244,7 +246,7 @@ End Using - GuardaLog(String.Format("Globalasax 16:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'E V E N T O S @@ -255,7 +257,7 @@ If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing End Using - GuardaLog(String.Format("Globalasax 17:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'V E N T A S @@ -270,7 +272,7 @@ If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing End Using - GuardaLog(String.Format("Globalasax 18:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 18:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'SAT Using ObjGrales As New ClsGenerales @@ -288,7 +290,7 @@ 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 - GuardaLog(String.Format("Globalasax 19:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ''MF @@ -331,7 +333,7 @@ '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 - GuardaLog(String.Format("Globalasax 20:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now)) Using ObjVenta As New ClsVentas @@ -339,7 +341,7 @@ Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados End If End Using - GuardaLog(String.Format("Globalasax 21:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now)) @@ -364,7 +366,7 @@ Using ObjMetodoPago As New ClsMetodosPagos() If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing End Using - GuardaLog(String.Format("Globalasax 21:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -375,7 +377,7 @@ If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing End Using - GuardaLog(String.Format("Globalasax 22:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'L E Y E N D A S - F I S C A L E S @@ -383,7 +385,7 @@ Using ObjLeyendasFiscales As New ClsLeyendasFiscales() If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing End Using - GuardaLog(String.Format("Globalasax 23:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -394,7 +396,7 @@ If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing End Using - GuardaLog(String.Format("Globalasax 24:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'P R O Y E C T O S @@ -402,7 +404,7 @@ Using ObjProyectos As New ClsProyectos If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing End Using - GuardaLog(String.Format("Globalasax 25:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'S U B P R O Y E C T O S @@ -418,14 +420,14 @@ End If 'Else Application("GlobalDTProyectosUsuarios") = Nothing End Using - GuardaLog(String.Format("Globalasax 26:{0}", DateTime.Now)) + 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 - GuardaLog(String.Format("Globalasax 27:{0}", DateTime.Now)) + 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 @@ -449,7 +451,7 @@ 'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing End Using - GuardaLog(String.Format("Globalasax 28:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 28:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'P R O V E E D O R E S @@ -467,7 +469,7 @@ End Using - GuardaLog(String.Format("Globalasax 29:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 29:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C L I E N T E S @@ -484,7 +486,7 @@ 'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing End Using - GuardaLog(String.Format("Globalasax 30:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -494,7 +496,7 @@ If ObjVendedores.GetVendedores(-1) Then Application("GlobalDTVendedores") = ObjVendedores.DtResultados Else Application("GlobalDTVendedores") = Nothing End Using - GuardaLog(String.Format("Globalasax 31:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 31:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C O R P O R A T I V O @@ -502,7 +504,7 @@ Using ObjCorporativo As New ClsClientes If ObjCorporativo.GetCorporativo(-1, -1) Then Application("GlobalDTClientesCorporativo") = ObjCorporativo.DtResultados Else Application("GlobalDTClientesCorporativo") = Nothing End Using - GuardaLog(String.Format("Globalasax 32:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 32:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'E S T A T U S - F A C T U R A @@ -511,7 +513,7 @@ If ObjEstatusFacturaCompra.GetEstatusFactura Then Application("GlobalDTCompEstatusFactura") = ObjEstatusFacturaCompra.DtResultados Else Application("GlobalDTCompEstatusFactura") = Nothing End Using - GuardaLog(String.Format("Globalasax 33:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'A C U M U L A D O R E S @@ -522,7 +524,7 @@ 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 - GuardaLog(String.Format("Globalasax 34:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- @@ -533,7 +535,7 @@ If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing End Using - GuardaLog(String.Format("Globalasax 35:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'U S U A R I O S @@ -547,7 +549,7 @@ End If 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing End Using - GuardaLog(String.Format("Globalasax 36:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 36:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'R O L E S @@ -556,7 +558,7 @@ If ObjRoles.GetRoles(-1, -1) Then Application("GlobalDTRoles") = ObjRoles.DtResultados Else Application("GlobalDTRoles") = Nothing End Using - GuardaLog(String.Format("Globalasax 37:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 37:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'M O D U L O S @@ -564,7 +566,7 @@ Using ObjModulos As New ClsModulos If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application("GlobalDTModulos") = ObjModulos.DtResultados Else Application("GlobalDTModulos") = Nothing End Using - GuardaLog(String.Format("Globalasax 38:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 38:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C O M B U S T I B L E S @@ -573,7 +575,7 @@ 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 - GuardaLog(String.Format("Globalasax 39:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now)) '----------------------------------------------------------------------------------7-------------------------------------------------------------------------------------------- 'E M P R E S A S @@ -593,7 +595,7 @@ Application("GlobalDTEmpresas") = Nothing End If End Using - GuardaLog(String.Format("Globalasax 40:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -608,7 +610,7 @@ End If End If End Using - GuardaLog(String.Format("Globalasax 41:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now)) BundleConfig.RegistrarBundles(BundleTable.Bundles) @@ -653,7 +655,7 @@ End If End If End Using - GuardaLog(String.Format("Globalasax 42:{0}", DateTime.Now)) + GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) 'If EsProduccion = "1" Then