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

56
asmx/WSApp.asmx
View File

@@ -1,5 +1,5 @@
<%@ WebService Language="VB" Class="WSApp" %>
<%@ WebService Language="VB" Class="WSApp" %>
Option Explicit On
Imports System.Data
@@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Public Class WSApp
Inherits System.Web.Services.WebService
Inherits System.Web.Services.WebService
#Region "G L O B A L - D T"
Public ReadOnly Property UrlSitio As String
Get
Return ConfigurationManager.AppSettings("UrlSitio").ToString
@@ -73,10 +73,10 @@ Public Class WSApp
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
Dim P As New ClsSubProyectos
If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
P.Dispose()
Dim msg As String = "aqui no se carga subproyectos"
Dim msg As String = "aqui no se carga subproyectos"
msg.GuardaLog()
End If
@@ -97,8 +97,8 @@ Public Class WSApp
End If
End Get
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property
@@ -425,9 +425,9 @@ Public Class WSApp
Set(value As DataTable)
Application("GlobalDTMotivosHorasExtras") = value
End Set
End Property
End Property
#End Region
Public Property CveEmpresa As Integer = 143
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -448,7 +448,7 @@ Public Class WSApp
Else
End If
ObjEmpresa.Dispose()
End Sub
End Sub
#Region "M E T O D O S - S E R V I C I O"
Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
Dim UsuarioActual As Usuario = Nothing
@@ -728,12 +728,12 @@ Public Class WSApp
If UsuarioActual IsNot Nothing Then
'If UsuarioActual.TienePermisoProceso(159) Then
' Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, Server.MapPath("/"))
' Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, ModExtensiones.DirectorioBaseEmpresas)
' Retorno = Factura.CancelarDocumento()
'Else
' Retorno.Mensajes.Add("Este usuario no tiene permiso para cancelar documento")
'End If
Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, Server.MapPath("/"))
Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, ModExtensiones.DirectorioBaseEmpresas)
If String.IsNullOrEmpty(Factura.FolioFiscal) Then
Factura.FolioFiscal = ""
End If
@@ -783,9 +783,9 @@ Public Class WSApp
Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.")
End If
ObjInv.Dispose()
End Sub
End Sub
#End Region
#Region "P E D I D O S"
Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
Dim Timbre As New CFDITimbre
@@ -899,9 +899,9 @@ Public Class WSApp
i += 1
Next
Return Timbre
End Function
End Function
#End Region
#Region "R E M I S I O N E S"
Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura
If CveSubProyecto <= 0 Then
@@ -923,7 +923,7 @@ Public Class WSApp
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("Rem", UsuarioActual.CveEmpresa) Then
@@ -1062,12 +1062,12 @@ Public Class WSApp
ObjFactura.Total = Total
ObjFactura.Timbre = PreParaTimbre(ObjFactura)
ObjFactura.CveContratoSecciones = ""
'BORRAR
ObjFactura.DtRecepcionUsados = New DataTable
ObjFactura.DtRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
ObjFactura.CveContratoSecciones = ""
'BORRAR
ObjFactura.DtRecepcionUsados = New DataTable
ObjFactura.DtRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
Catch ex As Exception
Retorno.Mensajes.Add(ex.ToString())
Return Nothing
@@ -1159,8 +1159,8 @@ Public Class WSApp
TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
TmpDT.Columns.Add("CveTamaño", GetType(Double))
Try
@@ -1430,9 +1430,9 @@ Public Class WSApp
End Try
ObjVentas.Dispose()
Return strBody.ToString
End Function
End Function
#End Region
End Class
Namespace WebServiceAppModels2

50
asmx/WSGPSApp.asmx
View File

@@ -1,4 +1,4 @@
<%@ WebService Language="VB" Class="WSGPSApp" %>
<%@ WebService Language="VB" Class="WSGPSApp" %>
Option Strict On
Imports System.Web
@@ -31,8 +31,8 @@ Public Class WSGPSApp
Inherits System.Web.Services.WebService
Private Const LongValue As Long = &H100000000
Public Property Credentials As AuthHeader
Public Property Credentials As AuthHeader
#Region "G L O B A L S"
Property GlobalDTDispositivos(CveCliente As Integer) As DataTable
Get
@@ -90,7 +90,7 @@ Public Class WSGPSApp
Set(value As DataTable)
Application("GlobalDTDispositivosUsuarios") = value
End Set
End Property
End Property
#End Region
<SoapHeader("Credentials")>
<WebMethod>
@@ -528,7 +528,7 @@ Public Class WSGPSApp
End If
If CveEmpresa > 0 Then
Dim Archivo As String = String.Format("{0}{1}", CveImagenDispositivo, FileExtension)
Dim Directorio As String = String.Format("{0}\Empresas\{1}\Dispositivos\{2}\Imagenes\", AppDomain.CurrentDomain.BaseDirectory, CveEmpresa, item.CveDispositivo)
Dim Directorio As String = String.Format("{0}\Empresas\{1}\Dispositivos\{2}\Imagenes\", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, item.CveDispositivo)
If Not Directory.Exists(Directorio) Then
Directory.CreateDirectory(Directorio)
End If
@@ -936,28 +936,28 @@ Public Class WSGPSApp
Return Retorno
End Function
End Function
<WebMethod>
Public Function GetArrastre(CveDispositivo As Integer) As String
Dim Retorno As String = "[]"
Using ObjGPS As New ClsGPS
If ObjGPS.GPS_ArrastreGET(CveDispositivo) Then
Retorno = ObjGPS.DtResultados.DataTableToJSONIPP()
End If
Dim Retorno As String = "[]"
Using ObjGPS As New ClsGPS
If ObjGPS.GPS_ArrastreGET(CveDispositivo) Then
Retorno = ObjGPS.DtResultados.DataTableToJSONIPP()
End If
End Using
Return Retorno
End Function
End Function
<WebMethod>
Public Function ActivarDesactivarArrastre(CveDispositivo As Integer, Activo As Boolean) As Boolean
Dim Retorno As Boolean = False
Using ObjGPS As New ClsGPS
Retorno = ObjGPS.GPS_ArrastreActivarDesactivar(CveDispositivo, Activo)
Dim Retorno As Boolean = False
Using ObjGPS As New ClsGPS
Retorno = ObjGPS.GPS_ArrastreActivarDesactivar(CveDispositivo, Activo)
End Using
Return Retorno
End Function
End Function
<WebMethod>
Public Function GetTrayectos(CveCliente As Integer) As String
Dim Retorno As String = "[]"
@@ -965,8 +965,8 @@ Public Class WSGPSApp
Return Retorno
End Function
End Function
<WebMethod>
Public Function GetEstatusTrayectos(CveCliente As Integer) As String
Dim Retorno As String = "[]"
@@ -974,7 +974,7 @@ Public Class WSGPSApp
Return Retorno
End Function
End Function
<WebMethod>
Public Function GetEstatusTrayectosHistorial(CveCliente As Integer) As String
Dim Retorno As String = "[]"
@@ -982,7 +982,7 @@ Public Class WSGPSApp
Return Retorno
End Function
End Function
<WebMethod>
Public Function GetTrayectosEstatusHistorial(CveTrayecto As Integer) As String
Dim Retorno As String = "[]"
@@ -990,8 +990,8 @@ Public Class WSGPSApp
Return Retorno
End Function
End Function
#Region "F U N C I O N E S"
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
Dim ObjEmpresa As New ClsSisEmpresas()
@@ -1107,7 +1107,7 @@ Public Class WSGPSApp
OnError("Acceso no autorizado", New SoapException("Unauthorized", SoapException.ClientFaultCode))
Return False
End If
End Function
End Function
#End Region
End Class
Namespace ADGPSModels

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

8
asmx/WsTSoft.asmx
View File

@@ -71,10 +71,12 @@ Public Class WsTSoft
ObjGPS.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
Next
End If
If ObjGPS.DtResultados IsNot Nothing AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
ObjPos.Direccion = ObjGPS.DtResultados.Rows("0")("Direccion").ToString
End If
ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
ObjPos.Direccion = ObjGPS.DtResultados.Rows("0")("Direccion").ToString
Catch ex As Exception
ObjPos.CurrentError = "No se pudo obtener la posición."
OnError("Ocurrió un error al asignar las direcciones", ex)