-- parametro cveempresa

OC/CatEstatus.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Diagnostics
 Imports Extensiones
 
 Partial Class OC_CatEstatus
@@ -70,6 +71,7 @@ Partial Class OC_CatEstatus
             CargaEstatus()
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
             CargaUsuarios()
+            sssss()
 
             'SOLO MUESTRA SUBPROYECTO
 
@@ -87,11 +89,61 @@ Partial Class OC_CatEstatus
         End If
     End Sub
 
+    Private Sub sssss()
+        Dim length = 200000
+        Dim concatString = ""
+        Dim aaa As New StringBuilder
+        Dim stopWatch = New Stopwatch()
+        stopWatch.Start()
+
+        For i As Integer = 0 To length - 1
+            concatString = concatString & i
+        Next
+
+        stopWatch.[Stop]()
+        aaa.Append($"String Concat took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
+        stopWatch.Reset()
+        concatString = String.Empty
+        stopWatch.Start()
+
+        For i As Integer = 0 To length - 1
+            concatString = $"{concatString}a"
+        Next
+
+        stopWatch.[Stop]()
+        aaa.Append($"String Interpolation took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
+        stopWatch.Reset()
+        concatString = String.Empty
+        Dim stringBuilder = New StringBuilder()
+        stopWatch.Start()
+
+        For i As Integer = 0 To length - 1
+            stringBuilder.Append("a")
+        Next
+
+        concatString = stringBuilder.ToString()
+        stopWatch.[Stop]()
+        aaa.Append($"String Builder took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
+        stopWatch.Reset()
+        concatString = String.Empty
+
+        stopWatch.Start()
+
+        For i As Integer = 0 To length - 1
+            concatString = String.Format("a{0}", i)
+        Next
+
+        stopWatch.[Stop]()
+        aaa.Append($"String.Format took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
+        Alert(aaa.ToString)
+
+    End Sub
+
 #Region "C A T A L O G O "
     Public Sub CargaDatos()
 
         Dim ObjEstatus As New ClsOC
-        If ObjEstatus.GetEstatus() Then
+        If ObjEstatus.GetEstatus(UsuarioActual.CveEmpresa) Then
             ViewState("DTOCEstatus") = ObjEstatus.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
             GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = ObjEstatus.DtResultados
         Else
@@ -683,6 +735,9 @@ Partial Class OC_CatEstatus
         objEstatusOC.Dispose()
         CargaGridEstatusUsuarios("OC")
     End Sub
+
+
+
 #End Region
 #End Region