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/Proveedores.aspx.vb

@@ -2394,7 +2394,7 @@ Partial Class Compras_Proveedores
         End If
 
         UPPSucursales.Update()
-        Me.RegistraScript("$('#divAgregarSucursal').modal('hide');")
+        RegistraScript("$('#divAgregarSucursal').modal('hide');")
         LimpiaModalAgregarSucursal()
     End Sub
     Private Sub OcultaDiv()
@@ -2528,7 +2528,7 @@ Partial Class Compras_Proveedores
         DivPContactosSucursal.Visible = True
         UpAgregarSucursal.Update()
 
-        Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
+        RegistraScript("$('#divAgregarSucursal').modal('show');")
     End Sub
 
     Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
@@ -2540,7 +2540,7 @@ Partial Class Compras_Proveedores
         End If
         DivPContactosSucursal.Visible = False
         LimpiaModalAgregarSucursal()
-        Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
+        RegistraScript("$('#divAgregarSucursal').modal('show');")
     End Sub
 
     Protected Sub LimpiaModalAgregarSucursal()
@@ -3876,7 +3876,7 @@ Partial Class Compras_Proveedores
             lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
             lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
             lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-			
+
             'Dim params As New List(Of ReportParameter)
             Dim dtnc As New DataTable
             Dim ObjCompra As New ClsCompras()
@@ -4908,7 +4908,7 @@ Partial Class Compras_Proveedores
         EsEditar = 0
 
         limpiarCamposModalAgregarContacto()
-        Me.RegistraScript("$('#DivAgregarContactoProveedor').modal();")
+        RegistraScript("$('#DivAgregarContactoProveedor').modal();")
     End Sub
 
     Protected Sub imgEditarContactoProv_Click(sender As Object, e As EventArgs)
@@ -4931,7 +4931,7 @@ Partial Class Compras_Proveedores
 
         UpAgregarContatoProveedor.Update()
 
-        Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
+        RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
 
     End Sub
 
@@ -4977,7 +4977,7 @@ Partial Class Compras_Proveedores
         EsContactoSucursal = 1
         EsEditar = 0
         limpiarCamposModalAgregarContacto()
-        Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
+        RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
     End Sub
 
     Protected Sub imgEditarContactoProvSuc_Click(sender As Object, e As EventArgs)
@@ -5001,7 +5001,7 @@ Partial Class Compras_Proveedores
 
         UpAgregarContatoProveedor.Update()
 
-        Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
+        RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
     End Sub
 
     Protected Sub GVContactosProveedorSucursal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
@@ -5130,7 +5130,7 @@ Partial Class Compras_Proveedores
 
         End If
 
-        Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
+        RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
         limpiarCamposModalAgregarContacto()
 
     End Sub