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)

Compras/Compras.aspx.cs

@@ -1,14 +0,0 @@
-using System;
-using System.Collections.Generic;
-using System.Linq;
-using System.Web;
-using System.Web.UI;
-using System.Web.UI.WebControls;
-
-public partial class Compras_Default :  ClsPaginas
-{
-    protected void Page_Load(object sender, EventArgs e)
-    {
-        Alert(UsuarioActual.Nombre);
-    }
-}

Sistemas/SessionesActivas.aspx.vb

@@ -15,14 +15,14 @@ Partial Class SessionesActivas
         End Set
     End Property
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
-        
+
-            Dim listacve As New List(Of String)
+            '         Dim listacve As New List(Of String)
-            listacve.Add("1815")
+            '         listacve.Add("1815")
-            Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
+            '         Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
-            
+
-            RCveUsuario = "0"
+            '         RCveUsuario = "0"
-			ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
+            'ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
             CargaDatos("")
         End If
     End Sub