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)