AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-05-12 00:29:19 -07:00
parent 701eec057e
commit 4dd49e29f5
133 changed files with 3971 additions and 3886 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Sistemas/Empresa.aspx.vb
View File

@@ -589,8 +589,8 @@ Partial Class Sistemas_Empresa
'verifico si existe la carpeta de la empresa, sino la crea
For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
If Not IO.Directory.Exists(String.Format("{0}\{1}", AppDomain.CurrentDomain.BaseDirectory, dr("CveEmpresa"))) Then
IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", AppDomain.CurrentDomain.BaseDirectory, dr("CveEmpresa")))
If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))) Then
IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa")))
End If
Next
End If
@@ -1464,8 +1464,8 @@ 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