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)