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

10
GPS/WizardModelo.aspx.vb
View File

@@ -521,7 +521,7 @@ Partial Class GPS_WizardModelo
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
Imagen = FormatearNombreArchivo(ArchivoImagen.filenameO)
Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -534,7 +534,7 @@ Partial Class GPS_WizardModelo
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Sonido = FormatearNombreArchivo(ArchivoSonido.filenameO)
Dim dirSonido As String = String.Format("{0}\{1}", PathSonido, Sonido)
If File.Exists(dirSonido) Then
@@ -559,7 +559,7 @@ Partial Class GPS_WizardModelo
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
Imagen = FormatearNombreArchivo(ArchivoImagen.filenameO)
Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -573,7 +573,7 @@ Partial Class GPS_WizardModelo
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
Sonido = FormatearNombreArchivo(ArchivoSonido.filenameO)
Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}", PathSonido, Sonido)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -661,7 +661,7 @@ Partial Class GPS_WizardModelo
End If
e.Row.VerticalAlign = VerticalAlign.Middle
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEvento").ToString
If e.Row.DBCampo("Sonido").ToString <> "" AndAlso File.Exists($"{AppDomain.CurrentDomain.BaseDirectory}/Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
If e.Row.DBCampo("Sonido").ToString <> "" AndAlso File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}/Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
e.Row.FCLinkButton("PlaySonido").Visible = True
e.Row.FCLinkButton("PlaySonido").OnClientClick = $"javascript:PlaySonidito('{e.Row.DataKey("Sonido").ToString}');return false;"
End If