-- option strict on

Ashx/MHRedes.ashx

@@ -9,86 +9,86 @@ 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
+                    If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then
                         RepSimpatizantes(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41)
                     End If
                 Case "Metas"
-                    If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then
+                    If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "0" Then
                         RepMetas(IfNull(Contexto.Request("Agrupador"), "0").ToString.ToEntero, 41)
                     End If
                 Case "Actividades"
-                    If IfNull(Contexto.Request("Agrupador"), "0") <> "0" Then
+                    If IfNull(Contexto.Request("Agrupador"), "0").ToString <> "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
@@ -96,22 +96,22 @@ Public Class MobileHandler : Implements IHttpHandler
         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
@@ -122,20 +122,20 @@ Public Class MobileHandler : Implements IHttpHandler
                 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