From 3c8c902b6d1ebde58e447cadd1c94389d1661add Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 22 May 2020 18:48:27 -0700 Subject: [PATCH] Error en directorio en contratos --- Contratos/Contrato.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 9781142c1..9219165df 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -3417,7 +3417,7 @@ Partial Class Contratos_Default Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else @@ -3741,7 +3741,7 @@ Partial Class Contratos_Default #Region " IMPRIMIR DOCUMENTO - SABE " Public Sub DescarFormato(documento As String) - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim PathSource As String Dim pathDesti As String