Limpieza masiva ClsPaginas

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

Compras/eFacturas.aspx.vb

@@ -2528,7 +2528,7 @@ Partial Class Compras_eFacturas
 
         TabPanel.ActiveTabIndex = 0
         cargasolicitudes()
-        Me.RegistraScript("$('#ModalViewSolicitudes').modal();")
+        RegistraScript("$('#ModalViewSolicitudes').modal();")
 
     End Sub
 
@@ -2553,9 +2553,9 @@ Partial Class Compras_eFacturas
     '    'If Continuar Then
     '    '    txtFechaIAdd.Text = ""
     '    '    txtFechaFAdd.Text = ""
-    '    '    Me.RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
+    '    '    RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
     '    '    cargasolicitudes()
-    '    '    Me.Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
+    '    '    Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
     '    'End If
 
     '    Dim idSolicitudCFDI As Integer = 0
@@ -2640,7 +2640,7 @@ Partial Class Compras_eFacturas
     '    If Continuar Then
     '        txtFechaIAdd.Text = ""
     '        txtFechaFAdd.Text = ""
-    '        Me.RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
+    '        RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
     '        cargasolicitudes()
     '    End If
 
@@ -2705,7 +2705,7 @@ Partial Class Compras_eFacturas
             txtFechaIAdd.Text = ""
             txtFechaFAdd.Text = ""
             ChkMetaDatos.Checked = False
-            Me.RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
+            RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
             cargasolicitudes()
         End If
     End Sub
@@ -2869,7 +2869,7 @@ Partial Class Compras_eFacturas
         txtFechaFAdd.Text = ""
         ChkMetaDatos.Checked = False
         UPModalViewSolicitudesAgregar.Update()
-        Me.RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
+        RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
     End Sub
 
     Protected Sub GVSolicitudesNominas_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)