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

24
Prospeccion/Prospectos.aspx.vb
View File

@@ -435,7 +435,7 @@ Partial Class Prospectos_Prospectos
' 'GuardaLog("Inicia Petición de Aplicación")
' oWordApp = New Microsoft.Office.Interop.Word.Application
' oWordApp.Visible = True
' oWordDoc = oWordApp.Documents.Open(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Prospectos\" & "ApartarLote.doc")
' oWordDoc = oWordApp.Documents.Open(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Prospectos\" & "ApartarLote.doc")
' 'GuardaLog("Inicia Petición de Documento")
' If oWordDoc IsNot Nothing Then
' 'GuardaLog("Creación de Documento")
@@ -458,10 +458,10 @@ Partial Class Prospectos_Prospectos
' 'GuardaLog("Termina de reemplazo de variables")
' objSelection.TypeBackspace()
' objSelection.TypeBackspace()
' If Not System.IO.Directory.Exists(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\") Then
' System.IO.Directory.CreateDirectory(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\")
' If Not System.IO.Directory.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\") Then
' System.IO.Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\")
' End If
' ArchivoPath = AppDomain.CurrentDomain.BaseDirectory & "Temp\" & UsuarioActual.CveUsuario & ".doc"
' ArchivoPath = ModExtensiones.DirectorioBaseEmpresas & "Temp\" & UsuarioActual.CveUsuario & ".doc"
' oWordDoc.SaveAs(ArchivoPath.ToString)
' oWordDoc.Close()
@@ -574,7 +574,7 @@ Partial Class Prospectos_Prospectos
'Dim FillColor, LineColor As Color
Mapa.RemoveAllLayers()
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -585,7 +585,7 @@ Partial Class Prospectos_Prospectos
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -597,7 +597,7 @@ Partial Class Prospectos_Prospectos
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -609,7 +609,7 @@ Partial Class Prospectos_Prospectos
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -619,7 +619,7 @@ Partial Class Prospectos_Prospectos
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -629,7 +629,7 @@ Partial Class Prospectos_Prospectos
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' feature.LabelFont.Size = 8
@@ -655,7 +655,7 @@ Partial Class Prospectos_Prospectos
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' feature.LabelFont.Size = 12
@@ -683,7 +683,7 @@ Partial Class Prospectos_Prospectos
'End If
dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", AppDomain.CurrentDomain.BaseDirectory, 1))
dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
dbLayer.Name = "Stand"

16
Prospeccion/RepProspectosGIS.aspx.vb
View File

@@ -161,7 +161,7 @@ Partial Class Prospeccion_RepProspectosGIS
'Dim FillColor, LineColor As Color
Mapa.RemoveAllLayers()
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Accesos.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -172,7 +172,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -184,7 +184,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Edificios2.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -196,7 +196,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Cajones_Polyline.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -206,7 +206,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lineas.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' 'el campo de la bd es: CveSubTipoQueja, pero cuando se genera el SHP, corta las columnas a 10 caracteres
@@ -216,7 +216,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Texto.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' feature.LabelFont.Size = 8
@@ -242,7 +242,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", AppDomain.CurrentDomain.BaseDirectory, 43))
'dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\TextoEspecial.shp", ModExtensiones.DirectorioBaseEmpresas, 43))
'If dbLayer IsNot Nothing Then
' feature = New AspMap.Feature()
' feature.LabelFont.Size = 12
@@ -270,7 +270,7 @@ Partial Class Prospeccion_RepProspectosGIS
'End If
dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", AppDomain.CurrentDomain.BaseDirectory, 1))
dbLayer = Mapa.AddLayer(String.Format("{0}Empresas\{1}\GIS\Lotes.shp", ModExtensiones.DirectorioBaseEmpresas, 1))
dbLayer.Name = "Stand"