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

Limpieza masiva ClsPaginas

Browse Source 
-RegistraScript se unifica en una sola clase static/shared y se simplica el código
-Alert se vuelve estático
-Random() no se manda a crear cada vez que se registra un script (esto tenía un costo alto)
-Se corrigieron unos errores en los nombres de funciones
-Las clases que ya heredan de Clspaginas, se les quita el this a RegistraScript y a Alert puesto que era innecesario (y además al haberlos vuelto métodos estáticos, NO pueden llamarse de un this)
This commit is contained in:
MLopez
2023-01-31 21:56:06 -07:00
parent 1b6f6366c2
commit 021e50c4b7
77 changed files with 323 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Global.asax
View File

@@ -405,18 +405,18 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'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))
'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