30 lines
1.1 KiB
VB.net
30 lines
1.1 KiB
VB.net
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
|