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

Reporte de CRM en app

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-01-08 16:41:42 -07:00
parent 809b505796
commit 4365df10e4
1 changed files with 47 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
asmx/WSSIGApp.asmx
View File

@@ -4170,28 +4170,63 @@ Public Class WSSIGApp
End Function
<WebMethod>
Public Function GetRepAcercamientosProcesos(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
Public Function GetRepAcercamientosProcesos(CveEmpresa As Integer, AgrupadoPor As Integer, CveTipoProceso As Integer, CveVendedor As Integer, CveMedioCaptacion As Integer, CveProbabilidadAcercamiento As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
Dim Retorno As New JObject()
' <asp:ListItem Value = "-1" Text="Ninguno" Selected="True"></asp: ListItem>
' <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
'<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 FechaF = FechaFin.ToString("yyyy/MM/dd")
Dim cveMedioCaptacion = -1
Dim cveProbabilidadAcercamiento = -1
Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
Select Case AgrupadoPor
Case 1
Retorno("Agrupado") = "Vendedor"
Case 2
Retorno("Agrupado") = "Medio Captación"
Case 3
Retorno("Agrupado") = "Probabilidad de Acercamiento"
Case 4
Retorno("Agrupado") = "Fecha"
End Select
Using ObjCRM As New ClsCRM
If ObjCRM.RepAcercamientosEtapas(CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, FechaI, FechaF, CveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento) Then
Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
If ObjCRM.RepAcercamientosEtapas(CveEmpresa, CveTipoProceso, AgrupadoPor, idgrupo2, FechaI, FechaF, CveVendedor, CveMedioCaptacion, cveProbabilidadAcercamiento) Then
Dim Reporte = JArray.Parse(ObjCRM.DSResultados.Tables(0).DataTableToJSONIPP())
Dim Etapas = JArray.Parse(ObjCRM.DSResultados.Tables(1).DataTableToJSONIPP())
Dim Visible1 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 0)
Dim Visible2 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 1)
Dim Visible3 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 2)
Dim Visible4 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 3)
Dim Visible5 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 4)
Dim Visible6 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 5)
For Each Rep As JObject In Reporte
Rep("Visible1") = Visible1
Rep("Visible2") = Visible2
Rep("Visible3") = Visible3
Rep("Visible4") = Visible4
Rep("Visible5") = Visible5
Rep("Visible6") = Visible6
Next
Retorno("Reporte") = Reporte
Retorno("Etapas") = Etapas
End If
End Using
Return Retorno
Return Retorno.ToString()
End Function
<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 idgrupo2 = -1
Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
Dim cveMedioCaptacion = -1