2020-11-27 20:19:51 -07:00
parent 372317019f
commit 4892ae4b4a
3 changed files with 52 additions and 39 deletions
--- a/GPS/RepCombustible.aspx.vb
+++ b/GPS/RepCombustible.aspx.vb
@@ -311,8 +311,7 @@ Partial Class GPS_RepCombustible
    End Sub
    Protected Sub Lnkreportegral_Click(sender As Object, e As EventArgs)

-        Dim GloBalFileUrl As String = HttpContext.Current.Server.MapPath("~")
-        Dim file As String = $"{GloBalFileUrl}Empresas\Grales\Formatos\CombustibleGeneral.xlsx"
+        Dim file As String = $"{DirectorioBaseEmpresas}Empresas\Grales\Formatos\CombustibleGeneral.xlsx"
        Try
            Dim wb As New ClosedXML.Excel.XLWorkbook(file)
            Dim libro = wb.Worksheets(0)
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -17,7 +17,7 @@ Partial Class Site
            Return Convert.ToBoolean(HdnEsPopup.Value)
        End Get
        Set(value As Boolean)
-            HdnEsPopup.Value = value.ToString
+            HdnEsPopup.Value = value.ToString()
        End Set
    End Property

@@ -26,7 +26,7 @@ Partial Class Site
            Return HdnPopUpWidth.Value.ToEntero
        End Get
        Set(value As Integer)
-            HdnPopUpWidth.Value = value.ToString
+            HdnPopUpWidth.Value = value.ToString()
        End Set
    End Property
    Public Property userx As Usuario
@@ -39,7 +39,7 @@ Partial Class Site
    End Property
    Public Property countNotificaciones As Integer
        Get
-            countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString.ToEntero)
+            countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString().ToEntero)
        End Get
        Set(value As Integer)
            ViewState("countNotificaciones") = value
@@ -64,10 +64,10 @@ Partial Class Site
            lblFecha.Text = DateTime.Now.ToString("dd.MMMyyyy HH:mm tt")
            MasterChat.Visible = False

-            If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString = "true" Then EsPopup = True
+            If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString() = "true" Then EsPopup = True
            If UsuarioActual IsNot Nothing Then
-                HdnCveE.Value = UsuarioActual.CveEmpresa.ToString
-                HdnCveU.Value = UsuarioActual.CveUsuario.ToString
+                HdnCveE.Value = UsuarioActual.CveEmpresa.ToString()
+                HdnCveU.Value = UsuarioActual.CveUsuario.ToString()
                LitTit.Text = UsuarioActual.Empresa.EmpresaEncabezado
                If UsuarioActual.CveUsuario = 100 Then
                    LitTit.Text = String.Format("<span style='color:white; font-size:x-large'></span>&nbsp;<span style='color:  #32A1CF; font-size:x-large'>Mi Empresa de Ventas ({0})</span>  ", UsuarioActual.CveEmpresa)
@@ -81,7 +81,7 @@ Partial Class Site

                userx = New Usuario
                userx.Empresa = New Empresa
-                userx.Referencia = Encripta(UsuarioActual.CveUsuario.ToString)
+                userx.Referencia = Encripta(UsuarioActual.CveUsuario.ToString())
                userx.Usuario = Encripta(UsuarioActual.Usuario)
                userx.Liga = Encripta(UsuarioActual.Rol)

@@ -143,7 +143,7 @@ Partial Class Site
        Else
            'VALIDACION DE SEGURIDAD, EN LA QUE SE VALIDA QUE LA EMPRESA EN LA QUE SE GENERO LA PAGINA SEA LA MISMA A LA DE LA SESION,
            'DE NO SER ASI, SE REDIRECCIONA A INICIO.
-            If UsuarioActual IsNot Nothing AndAlso (HdnCveE.Value <> UsuarioActual.CveEmpresa.ToString OrElse HdnCveU.Value <> UsuarioActual.CveUsuario.ToString) Then
+            If UsuarioActual IsNot Nothing AndAlso (HdnCveE.Value <> UsuarioActual.CveEmpresa.ToString() OrElse HdnCveU.Value <> UsuarioActual.CveUsuario.ToString()) Then
                Response.Redirect(FormsAuthentication.DefaultUrl)
            End If
        End If
@@ -186,7 +186,7 @@ Partial Class Site
    '            userstring.AppendFormat("{0}{1} ", prefix, item)
    '            prefix = ","
    '        Next
-    '        stringusers = userstring.ToString
+    '        stringusers = userstring.ToString()
    '        If userconectedlist.Count > 0 Then
    '            GlobalDTUsuarios = GlobalDTUsuarios.FiltraParametros(String.Format("CveUsuario in ({0})", userstring))
    '            RptChatEmpresa.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa >1", "", {"CveEmpresa", "Empresa"})
@@ -198,7 +198,7 @@ Partial Class Site
    'End Sub
    'Private stringusers As String = "0"
    'Private Sub RptChatEmpresa_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles RptChatEmpresa.ItemDataBound
-    '    Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString.ToEntero
+    '    Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString().ToEntero
    '    Dim GlobalDTUsuarios As DataTable = DirectCast(Application("GlobalDTUsuarios"), DataTable).FiltraParametros(String.Format("CveUsuario in ({0}) AND CveEmpresa ={1}", stringusers, CveEmpresa))

    '    Dim rpthijo As Repeater = DirectCast(e.Item.FindControl("RPTChatuser"), Repeater)
@@ -312,61 +312,73 @@ Partial Class Site
        Dim LinkNieto = ""
        Dim ClassActive As String
        CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
+
+        Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "")
+        If Request.Url.Port <> 80 Then
+            strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
+        End If
        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"))
+            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)
+            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"))
+                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 CveModulo = drH("CveModulo").ToString.ToEntero Then
+                    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)
+                        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"))
+                    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"))
+                        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 CveModulo = drN("CveModulo").ToString.ToEntero Then
+                            LinkNieto = drN("LIGA").ToString()
+                            If (drH("IsAngular").ToString() = "1") Then
+                                LinkNieto = String.Format("{1}:4200{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)
+                                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"))
-                            MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkNieto, drN("Modulo"), If(drP("Estilo").ToString <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), ClassActive)
+                            If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO"))
+                            MenuHTML.AppendFormat("<li {3}><a href=""{0}"">{2}{1}</a></li>", LinkNieto, drN("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("<i class='{0}'></i>", drN("Estilo")), ""), ClassActive)
                        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)
+                        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")), ""))
+                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

@@ -380,9 +392,9 @@ Partial Class Site
            MenuHTML = MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado))
        End If
        HeaderBar.AppendFormat("</li>{0}", ScriptColorGrupoModulo)
-        BarraNavegacion.Text = HeaderBar.ToString
+        BarraNavegacion.Text = HeaderBar.ToString()
        'CargaMenu(MenuHTML)
-        Menu.Text = MenuHTML.ToString
+        Menu.Text = MenuHTML.ToString()
        MenuHTML.Clear()
        HeaderBar.Clear()
    End Sub
@@ -417,7 +429,7 @@ Partial Class Site
    End Function

    'Private Sub CargaMenu(Texto As StringBuilder)
-    '    Menu.Text = Texto.ToString
+    '    Menu.Text = Texto.ToString()
    'End Sub

 #Region "Notificaciones"
@@ -474,7 +486,7 @@ Partial Class Site
        'End If
        'OC.Dispose()

-        LtlMNotificaciones.Text = String.Format("{0}{1}", LtlMNotificaciones.Text, Notificaciones.ToString)
+        LtlMNotificaciones.Text = String.Format("{0}{1}", LtlMNotificaciones.Text, Notificaciones.ToString())
        Notificaciones.Clear()
    End Sub

@@ -484,7 +496,7 @@ Partial Class Site
            Dim Archivo As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.ArchivoCer)
            If File.Exists(Archivo) Then
                Dim CerFile As New FileStream(Archivo, FileMode.Open, FileAccess.Read)
-                Dim Size As Integer = CerFile.Length.ToString.ToEntero()
+                Dim Size As Integer = CerFile.Length.ToString().ToEntero()
                Dim Data As Byte() = New Byte(Size - 1) {}
                Size = CerFile.Read(Data, 0, Size)
                CerFile.Close()
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -132,6 +132,8 @@
    
  
    
+  
+