AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-07-30 13:53:33 -07:00
parent 7d88b67dec
commit f4d6abbeaf
1 changed files with 47 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
Global.asax
View File

@@ -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