Ruta personalizada por Empresa

Sistemas/Empresa.aspx.vb

@@ -1467,8 +1467,17 @@ Partial Class Sistemas_Empresa
         TxtFielArchivoKey.Text = ""
         RegistraScript("$('#ModalUpFiel').modal();")
     End Sub
-    Protected Sub LnkUpDatosFiel_Click(sender As Object, e As EventArgs)
-        Dim Password As String = TxtFielPass.Text
+    Protected Sub LnkUpDatosFiel_Click(sender As Object, e As EventArgs)
+        Dim Password As String = TxtFielPass.Text
+        Dim akey As String
+        Dim acer As String
+        Dim pemkey As String
+        Dim pemcer As String
+        Dim pfxname As String
+        Dim Archivopfx As String
+        Dim Archivokey As Archivo = Nothing
+        Dim Archivocer As Archivo = Nothing
+
         Dim dirbase = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
         Dim dirbasepfx = "" '  String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
         If EmpresaEditar IsNot Nothing Then