Commit inicial Ventas Productivo

GPS/Notificaciones.aspx.vb

@@ -0,0 +1,29 @@
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+
+Partial Class GPS_Notificaciones
+    Inherits ClsPaginas
+
+    Private Sub GPS_Notificaciones_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            If Request("Tipo") IsNot Nothing AndAlso Request("Tipo").Length > 0 Then
+                If Request("Tipo") = "EMG" Or Request("Tipo") = "ALT" Then
+                    Dim Tipo As Integer = -1
+                    Select Case Request("Tipo")
+                        Case "ALT"
+                            Tipo = 1
+                        Case "EMG"
+                            Tipo = 2
+                    End Select
+                    Dim ObjNotificaciones As New ClsSisNotificaciones
+                    ObjNotificaciones.GetNotificacionesCampanaDetalle(UsuarioActual.CveUsuario, Tipo)
+                    GvDatos.DataSource = ObjNotificaciones.DtResultados
+                    ObjNotificaciones.Dispose()
+                    GvDatos.DataBind()
+                End If
+            End If
+        End If
+    End Sub
+End Class