From 1e205891be97d228299b9dac61d3df9a0135de08 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 14 Feb 2023 17:52:07 -0700 Subject: [PATCH] Correcion en descarga de evaluacion de proveedores --- Compras/Proveedores.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 975465cb7..ebc6772bf 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "CartaProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) @@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "FormatoEvaluacionProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino)