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

28
asmx/WSSIGApp.asmx
View File

@@ -1366,7 +1366,7 @@ Public Class WSSIGApp
If ObjEventoBitacora.AddEventoBitacora(Ent.Descripcion, FileExtension, Ent.CveUsuario, Ent.CveEmpresa, CveOC:=Ent.CveOC, Prioridad:=Ent.Prioridad.ToEntero()) Then
If Ent.Imagen1 <> "" Then
Try
Dim FileURL As String = String.Format("{0}Empresas\{1}\OI\", AppDomain.CurrentDomain.BaseDirectory, Ent.CveEmpresa)
Dim FileURL As String = String.Format("{0}Empresas\{1}\OI\", ModExtensiones.DirectorioBaseEmpresas, Ent.CveEmpresa)
If Not IO.Directory.Exists(FileURL) Then
IO.Directory.CreateDirectory(FileURL)
End If
@@ -1824,7 +1824,7 @@ Public Class WSSIGApp
End If
End If
Dim ObjFactura = New Modelos.Factura(UsuarioActual)
ObjFactura.DirectorioServidor = Server.MapPath("/")
ObjFactura.DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
Dim ObjFolios As New ClsGralFolios()
If ObjFolios.GetFolios(TipoDocto, UsuarioActual.CveEmpresa) Then
@@ -2600,7 +2600,7 @@ Public Class WSSIGApp
If ObjOI.AddEventoBitacora(Bit.Descripcion, FileExtension, Ent.CveUsuario, Ent.CveEmpresa, CveOC:=ObjOC.CveOrdenCompra, Prioridad:=Bit.CvePrioridad) Then
If Bit.Imagen1 <> "" Then
Try
Dim FileURL As String = String.Format("{0}Empresas\{1}\OI\", AppDomain.CurrentDomain.BaseDirectory, Ent.CveEmpresa)
Dim FileURL As String = String.Format("{0}Empresas\{1}\OI\", ModExtensiones.DirectorioBaseEmpresas, Ent.CveEmpresa)
If Not IO.Directory.Exists(FileURL) Then
IO.Directory.CreateDirectory(FileURL)
End If
@@ -3707,7 +3707,7 @@ Public Class WSSIGApp
Exit For
Else
If Not String.IsNullOrEmpty(FileExtension) Then
Dim Directorio As String = String.Format("{0}\Empresas\{1}\OI\OI{2}{3}", AppDomain.CurrentDomain.BaseDirectory, item.CveEmpresa, ObjBitacora.CveEvento.ToString(), FileExtension)
Dim Directorio As String = String.Format("{0}\Empresas\{1}\OI\OI{2}{3}", ModExtensiones.DirectorioBaseEmpresas, item.CveEmpresa, ObjBitacora.CveEvento.ToString(), FileExtension)
File.WriteAllBytes(Directorio, Convert.FromBase64String(item.Base64Archivo))
End If
End If
@@ -3738,7 +3738,7 @@ Public Class WSSIGApp
If Not TieneError Then
If Not String.IsNullOrEmpty(FileExtension) Then
Dim Directorio As String = String.Format("{0}\Empresas\{1}\OI\OI{2}{3}", AppDomain.CurrentDomain.BaseDirectory, item.CveEmpresa, ObjBitacora.CveEvento.ToString(), FileExtension)
Dim Directorio As String = String.Format("{0}\Empresas\{1}\OI\OI{2}{3}", ModExtensiones.DirectorioBaseEmpresas, item.CveEmpresa, ObjBitacora.CveEvento.ToString(), FileExtension)
File.WriteAllBytes(Directorio, Convert.FromBase64String(item.Base64Archivo))
End If
End If
@@ -3768,7 +3768,7 @@ Public Class WSSIGApp
If CveArchivo > 0 Then
If Not String.IsNullOrEmpty(FileExtension) Then
Dim Archivo As String = String.Format("{0}{1}", CveArchivo, FileExtension)
Dim Directorio As String = String.Format("{0}\Empresas\{1}\Acercamientos\{2}\Imagenes\", AppDomain.CurrentDomain.BaseDirectory, item.CveEmpresa, item.CveAcercamiento)
Dim Directorio As String = String.Format("{0}\Empresas\{1}\Acercamientos\{2}\Imagenes\", ModExtensiones.DirectorioBaseEmpresas, item.CveEmpresa, item.CveAcercamiento)
If Not Directory.Exists(Directorio) Then
Directory.CreateDirectory(Directorio)
End If
@@ -4177,8 +4177,8 @@ Public Class WSSIGApp
'<asp:ListItem Value = "2" Text="Medio Captacion"></asp: ListItem>
' <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
'<asp:ListItem Value = "4" Text="Fecha"></asp: ListItem>
Dim idgrupo2 = -1
Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
Dim idgrupo2 = -1
Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
Select Case AgrupadoPor
@@ -4224,12 +4224,12 @@ Public Class WSSIGApp
<WebMethod>
Public Function GetRepAcercamientosRechazos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
Dim Retorno = "[]"
Dim cveTipoProceso = -1
Dim idgrupo1 = 1
Dim idgrupo2 = -1
Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
Dim cveMedioCaptacion = -1
Dim cveTipoProceso = -1
Dim idgrupo1 = 1
Dim idgrupo2 = -1
Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
Dim cveMedioCaptacion = -1
Dim cveProbabilidadAcercamiento = -1
Using ObjCRM As New ClsCRM
If ObjCRM.RepAcercamientosEtapas(CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, FechaI, FechaF, CveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento) Then