Reporte de CRM en app

asmx/WSSIGApp.asmx

@@ -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
+    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 = "[]"
+        Dim Retorno As New JObject()
-        Dim cveTipoProceso = -1
+        '            <asp:ListItem Value = "-1" Text="Ninguno" Selected="True"></asp: ListItem>
-        Dim idgrupo1 = 1
+        '  <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
-        Dim idgrupo2 = 1
+        '<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
+        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
+            If ObjCRM.RepAcercamientosEtapas(CveEmpresa, CveTipoProceso, AgrupadoPor, idgrupo2, FechaI, FechaF, CveVendedor, CveMedioCaptacion, cveProbabilidadAcercamiento) Then
-                Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
+                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