- limpieza de código

Site.master.vb

@@ -1,17 +1,12 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Activities.Statements
 Imports System.Data
 Imports System.IO
 Imports System.Security.Cryptography.X509Certificates
 Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
-Imports DocumentFormat.OpenXml.Math
-Imports DocumentFormat.OpenXml.Packaging
 Imports DocumentFormat.OpenXml.Spreadsheet
 Imports Extensiones
-'Imports Microsoft.AspNet.SignalR.Client
-'Imports ChatHub
 
 Partial Class Site
     Inherits BaseMasterPage
@@ -383,19 +378,6 @@ Partial Class Site
             dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
         End If
 
-        'Dim Inicio = From i In dt.AsEnumerable Where i!CvePadre.Equals(0) Order By i!Orden
-        'Dim CveModuloPadre, CveModuloPadreSeleccionado, CveModuloHijoSeleccionado, CveModuloNietoSeleccionado As Integer
-        'Dim CveModulo As Integer = CveModulomasterpage.Text.ToEntero()
-        'Dim ScriptColorGrupoModulo As String = ""
-        'Dim LinkBase = "javascript:;"
-        'Dim HeaderBar As New StringBuilder("<li><i class='fa fa-home'></i><a href='/Inicio.aspx'>Inicio</a>")
-        'Dim LinkPadre = ""
-        'Dim Linkpapa As String = ""
-        'Dim LinkHijo = ""
-        'Dim Linkson As String = ""
-        'Dim LinkNieto = ""
-        'Dim ClassActive As String
-        'CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
         Dim menuobj = New MenuModal()
         menuobj.dt = dt
         menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero()
@@ -408,116 +390,14 @@ Partial Class Site
             menuobj.HeaderBar.Append(stritem)
         Next
 
-        'Dim MenuHTML As New StringBuilder
-        'For Each drP As DataRow In Inicio
-        '    CveModuloPadre = drP("CveModulo").ToString().ToEntero()
-        '    LinkPadre = drP("LIGA").ToString()
-        '    If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO"))
-
-        '    Dim Hijos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloPadre) Order By h!Orden
-        '    If CveModulo = drP("CveModulo").ToString().ToEntero() Then
-        '        HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i></li> <li><a href='{0}'>{1}</a>", LinkPadre, drP("Modulo").ToString())
-        '        ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero())
-        '    End If
-        '    If Hijos.Count > 0 Then
-        '        Linkpapa = LinkPadre
-        '        LinkPadre = LinkBase
-        '        MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}<span class='title'>{1}</span><span id='j{3}' ></span><span class='arrow '></span></a><ul class='sub-menu'>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""), drP("CveModulo"))
-        '        For Each drH As DataRow In Hijos
-        '            Dim CveModuloHijo As Integer = drH("CveModulo").ToString().ToEntero()
-        '            LinkHijo = drH("LIGA").ToString()
-        '            If (drH("IsAngular").ToString() = "1") Then
-        '                LinkHijo = String.Format("{1}:84{0}", drH("LIGA"), strdomain)
-        '            End If
-
-        '            If CveModulo = drH("CveModulo").ToString().ToEntero() Then
-        '                CveModuloPadreSeleccionado = CveModuloPadre
-        '                ClassActive = "class='active'"
-        '                HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a>", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString())
-        '                ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero())
-        '            Else
-
-        '                ClassActive = ""
-        '            End If
-        '            If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO"))
-
-        '            Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden
-        '            If Nietos.Count > 0 Then
-        '                Linkson = LinkHijo
-        '                LinkHijo = LinkBase
-        '                MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), drH("CveModulo"))
-        '                For Each drN As DataRow In Nietos
-        '                    LinkNieto = drN("LIGA").ToString()
-        '                    If (drN("IsAngular").ToString() = "1") Then
-        '                        LinkNieto = String.Format("{1}:84{0}", drN("LIGA"), strdomain)
-        '                    End If
-        '                    If CveModulo = drN("CveModulo").ToString().ToEntero() Then
-        '                        CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
-        '                        ClassActive = "class='active'"
-        '                        HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"))
-        '                        ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero())
-        '                    Else
-        '                        ClassActive = ""
-        '                    End If
-        '                    If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
-
-        '                    Dim bizNietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(drN("CveModulo").ToString().ToEntero()) Order By h!Orden
-        '                    Dim LinkBizNieto As String
-        '                    If bizNietos.Count = 0 Then
-        '                        MenuHTML.AppendFormat("<li id='m{4}'{3}><a href=""{0}"">{2}{1}</a></li>", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), ClassActive, drN("CveModulo").ToString().ToEntero())
-        '                    Else
-        '                        MenuHTML.AppendFormat("<li id='m{3}'><a href='{0}'>{2}{1}<span class='arrow '></span> </a><ul class='sub-menu'>", LinkNieto, drN("Modulo"), If(drN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), drN("CveModulo"))
-        '                        For Each drBN As DataRow In bizNietos
-        '                            LinkBizNieto = drBN("LIGA").ToString()
-        '                            If (drBN("IsAngular").ToString() = "1") Then
-        '                                LinkBizNieto = String.Format("{1}:84{0}", drBN("LIGA"), strdomain)
-        '                            End If
-        '                            If CveModulo = drBN("CveModulo").ToString().ToEntero() Then
-        '                                CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo
-        '                                ClassActive = "class='active'"
-        '                                HeaderBar.AppendFormat("<i class='fa fa-angle-right'></i> </li><li><a href='{0}'>{1}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{2}'>{3}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{4}'>{5}</a> <i class='fa fa-angle-right'></i> </li><li><a href='{6}'>{7}</a>", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo"), LinkBizNieto, drBN("Modulo"))
-        '                                ScriptColorGrupoModulo = ColorPage(drBN("CveGrupoModulo").ToString().ToEntero())
-        '                            Else
-        '                                ClassActive = ""
-        '                            End If
-        '                            If drBN("PopUp").ToString() = "S" Then LinkBizNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drBN("LIGA"), drBN("ANCHO"), drBN("ALTO"))
-        '                            MenuHTML.AppendFormat("<li id='m{4}'{3}><a href=""{0}"">{2}{1}</a></li>", LinkBizNieto, drBN("Modulo"), If(drBN("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drBN("Estilo")), ""), ClassActive, drBN("CveModulo").ToString().ToEntero())
-
-        '                        Next
-
-        '                        MenuHTML.AppendFormat("</ul></li>")
-        '                    End If
-        '                Next
-        '                MenuHTML.AppendFormat("</ul></li>")
-        '            Else
-        '                MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drH("Estilo")), ""), ClassActive)
-        '            End If
-        '        Next
-        '        MenuHTML.AppendFormat("</ul></li>")
-        '    Else
-        '        MenuHTML.AppendFormat("<li><a href=""{0}"">{2}<span class='title'>{1}</span></a></li>", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drP("Estilo")), ""))
-        '    End If
-        'Next
-
-        'If CveModuloPadreSeleccionado > 0 Then
-        '    menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloPadreSeleccionado), String.Format("id='m{0}' class='active open'", CveModuloPadreSeleccionado))
-        '    menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloPadreSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloPadreSeleccionado))
-        'Else
-        'End If
-        'If CveModuloHijoSeleccionado > 0 Then
-        '    menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", CveModuloHijoSeleccionado), String.Format("id='m{0}' class='open'", CveModuloHijoSeleccionado))
-        '    menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
-        'End If
-        'HeaderBar.AppendFormat("</li>")
         menuobj.HeaderBar.AppendFormat("{0}", menuobj.ScriptColorGrupoModulo)
         BarraNavegacion.Text = menuobj.HeaderBar.ToString()
-        'CargaMenu(MenuHTML)
+
         Menu.Text = menuobj.MenuHTML.ToString()
         menuobj.MenuHTML.Clear()
         menuobj.HeaderBar.Clear()
     End Sub
 
-
     Private Function ColorPage(value As Integer) As String
 
         Select Case value