Ruta dinamica de carpeta "Empresas" asignar valor desde el web config

Compras/EvaluacionProveedor.aspx.vb

@@ -10,26 +10,46 @@ Imports System.Linq
 Partial Class Compras_EvaluacionProveedor
     Inherits ClsPaginas
 #Region "P R O P I E D A D E S"
-    Private Property CveEvaluacionProveedor() As Integer
+    Private Property CveEvaluacionProveedor() As Integer
+        Get
             Return If(IsNothing(ViewState("CveEvaluacionProveedor")), -1, CInt(ViewState("CveEvaluacionProveedor")))
-            Return If(IsNothing(ViewState("CveEvaluacionProveedor")), -1, CInt(ViewState("CveEvaluacionProveedor")))
-        End Get
-        Set
+        End Get
+        Set
+            ViewState("CveEvaluacionProveedor") = Value
+        End Set
+    End Property
+    Private Property CveProveedor() As Integer
+        Get
             Return If(IsNothing(ViewState("CveProveedor")), -1, CInt(ViewState("CveProveedor")))
-        End Set
-    End Property
-    Private Property CveProveedor() As Integer
+        End Get
+        Set
+            ViewState("CveProveedor") = Value
+        End Set
+    End Property
+    Private Property CveCompra() As Integer
+        Get
             Return If(IsNothing(ViewState("CveCompra")), -1, CInt(ViewState("CveCompra")))
-            Return If(IsNothing(ViewState("CveProveedor")), -1, CInt(ViewState("CveProveedor")))
-        End Get
-        Set
+        End Get
+        Set
+            ViewState("CveCompra") = Value
+        End Set
+    End Property
+    Private Property DtPreguntas() As DataTable
+        Get
             Return If(IsNothing(ViewState("DtPreguntas")), New DataTable(), DirectCast(ViewState("DtPreguntas"), DataTable))
-        End Set
-    End Property
-    Private Property CveCompra() As Integer
+        End Get
+        Set
+            ViewState("DtPreguntas") = Value
+        End Set
+    End Property
+    Private Property CorreoEnvio() As String
+        Get
             Return If(IsNothing(ViewState("CorreoEnvio")), "", ViewState("CorreoEnvio").ToString())
-            Return If(IsNothing(ViewState("CveCompra")), -1, CInt(ViewState("CveCompra")))
-        End Get
+        End Get
+        Set
+            ViewState("CorreoEnvio") = Value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -264,7 +284,7 @@ Partial Class Compras_EvaluacionProveedor
         Dim archivoCarta As New ClsSisMail.ArchivoMail()
         archivoCarta.NombreArchivo = "Carta Evaluacion.pdf"
         Try
-
+            Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
             Dim Documento As String = "CartaProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
             Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
@@ -298,7 +318,7 @@ Partial Class Compras_EvaluacionProveedor
         Dim archivoCarta As New ClsSisMail.ArchivoMail()
         archivoCarta.NombreArchivo = "Formato Evaluacion Proveedor.pdf"
         Try
-            ObjCarta.GuardarStreamPDF()
+            Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
             Dim Documento As String = "FormatoEvaluacionProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
             Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento