Validacion de traspasos

Ashx/SIGGPS.ashx

@@ -1,4 +1,4 @@
-<%@ WebHandler Language="VB" Class="SIGGPS" %>
+<%@ WebHandler Language="VB" Class="SIGGPS" %>
 Option Explicit On
 Option Strict On
 
@@ -16,7 +16,9 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
             If context.Request("metodo") IsNot Nothing Then
                 Select Case context.Request("metodo")
                     Case "getimginstalacion"
-                        GetImgInstalacion(context)
+                        GetImgInstalacion(context)
+                    Case "EjecutarNotificaciones"
+                        EjecutarNotificaciones(context)
                 End Select
             ElseIf context.Request.InputStream IsNot Nothing Then
                 Using reader As New StreamReader(context.Request.InputStream)
@@ -64,6 +66,14 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
         Return URLParametros
     End Function
 
+    Private Sub EjecutarNotificaciones(ByVal context As HttpContext)
+        Dim Retorno As String = "[]"
+        Using ObjGPS As New ClsSisNotificaciones
+            ObjGPS.ObtenerNotificaciones()
+        End Using
+        context.Response.Write(Retorno)
+    End Sub
+
     Private Sub GetImgInstalacion(ByVal context As HttpContext)
         Dim params As String = Decripta(context.Request("r").ToString)
         Dim Parametros = Me.Parametros(params)