Commit inicial Ventas Productivo

Ashx/MHRedes.ashx

@@ -0,0 +1,141 @@
+<%@ WebHandler Language="VB" Class="MobileHandler" %>
+
+Imports System.Web
+Imports System.Data
+Imports Extensiones
+Imports System.Text
+
+
+
+Public Class MobileHandler : Implements IHttpHandler
+    Private Property Contexto As HttpContext
+    
+    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
+        Contexto = context
+        
+        If context.Request("Opcion") IsNot Nothing Then
+            Dim Opcion As String = context.Request("Opcion")
+            
+            Select Case Opcion
+                Case "ValidaUsuario"
+                    ValidaUsuario()
+                Case "Simpatizantes"
+                    If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then
+                        RepSimpatizantes(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41)
+                    End If
+                Case "Metas"
+                    If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then
+                        RepMetas(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41)
+                    End If
+                Case "Actividades"
+                    If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then
+                        RepActividadesRecientes(41)
+                    End If
+                    
+            End Select
+        End If
+    End Sub
+ 
+    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
+        Get
+            Return False
+        End Get
+    End Property
+   
+
+    Private Sub ValidaUsuario()
+        Dim ObjUsuario As New ClsSisUsuarios
+        Dim User As Usuario
+        
+        Dim IP As String
+        
+        IP = clsUtilerias.GetIP4Address 'Request.ServerVariables("REMOTE_ADDR").ToString()
+
+        If IP = "::1" Then
+            IP = "127.0.0.1"
+        
+        End If
+
+        Dim Json As New StringBuilder
+        
+        User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), IMEI)
+
+        If User IsNot Nothing Then
+          
+            Dim Token As String = String.Format("{0}*{1}*{2}", Now.ToString, IP, User.CveUsuario)
+            Token = Encripta(Token)
+            json.AppendFormat("{{ ""CveUsuario"" : ""{0}"", ""Nombre"" : ""{1}"", ""Token"" : ""{2}"" }} ", User.CveUsuario, User.Nombre, Token)
+        Else
+            json.Append("{ ""CveUsuario"" : ""-1"", ""Nombre"" : ""No valido"" } ")
+        End If
+        
+        Contexto.Response.Write(json.ToString)
+    End Sub
+    
+    
+    Private Sub RepActividadesRecientes(CveEmpresa As Integer)
+        Dim Json As String = ""
+        Dim Ind As New ClsProspectos
+     
+        If Ind.GetProspectosSupervisor(CveEmpresa) Then
+         
+            Json = DataTableToJSON(Ind.DtResultados)
+            
+        End If
+
+        Ind.Dispose()
+
+        
+        Contexto.Response.Write(Json)
+    End Sub
+    
+    Private Sub RepSimpatizantes(Agrupador As Integer, CveEmpresa As Integer)
+        Dim Json As String = ""
+        Dim Ind As New ClsProspectos
+
+        If Ind.GetProspectosAgrupados2(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, Agrupador, CveEmpresa) Then
+            Dim yValues As New ArrayList
+            Dim xValues As New ArrayList
+          
+            'cuando es por edades, ordena por la claverango
+            Dim dt As DataTable = Ind.DtResultados.FiltraParametros("CveAgrupador > 0", If(Agrupador = 9, "CveRangoEdad", "Total Desc"))
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                Json = DataTableToJSON(Ind.DtResultados)
+            End If
+        End If
+        
+
+        Ind.Dispose()
+
+        
+        Contexto.Response.Write(Json)
+    End Sub
+    
+    
+    Private Sub RepMetas(Opcion As Integer, CveEmpresa As Integer)
+        Dim ObjProspectos As New ClsProspectos
+        Dim dt As DataTable
+        Dim Json As String = ""
+        If ObjProspectos.GetProspectosAgrupadosMetas(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, CveEmpresa) Then
+            dt = ObjProspectos.DtResultados
+            If Opcion = 1 Then
+                dt = dt.FiltraParametros("CveCoordinador > 0 AND CveAgrupador IS NULL")
+            Else
+                dt = dt.FiltraParametros("CveSupervisor > 0 AND CveCoordinador IS NULL")
+                
+            End If
+            
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                Json = DataTableToJSON(dt)
+            End If
+        End If
+      
+        ObjProspectos.Dispose()
+        Contexto.Response.Write(Json)
+        
+    End Sub
+    
+     
+   
+End Class
+