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