- limpieza de código
This commit is contained in:
122
Site.master.vb
122
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
|
||||
|
||||
Reference in New Issue
Block a user