SIG/Planeacion/PopUpEventos.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class PopUpEventos
    Inherits ClsPaginas

    Private ReadOnly Property CveEvento As Integer
        Get
            Return ViewState("CveEvento").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property TipoReferencia As String
        Get
            Return ViewState("TipoReferencia").ToString
        End Get
    End Property
    Private ReadOnly Property Referencia As String
        Get
            Return ViewState("Referencia").ToString
        End Get
    End Property

    'Request("TipoReferencia"), Request("Referencia")
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CType(Me.Master, BaseMasterPage).EsPopup = True
            CType(Me.Master, BaseMasterPage).PopupWidth = 350
            RegistraScript("$get('tdContenido').style.height='100px'")

            If Request("TipoReferencia") IsNot Nothing AndAlso Request("TipoReferencia").Length > 0 Then
                ViewState("TipoReferencia") = Request("TipoReferencia")
            Else
                ViewState("TipoReferencia") = "-1"
            End If
            If Request("Referencia") IsNot Nothing AndAlso Request("Referencia").Length > 0 Then
                ViewState("Referencia") = Request("Referencia")
            Else
                ViewState("Referencia") = "-1"
            End If

            CargaTiposEventos()

            If Request("CveEvento") IsNot Nothing AndAlso IsNumeric(Request("CveEvento")) AndAlso Request("CveEvento").ToEntero > 0 Then
                ViewState("CveEvento") = Request("CveEvento")
                CargarDatos()
            Else
                ViewState("CveEvento") = -1
            End If
        End If
    End Sub
    Public Sub CargarDatos()
        Dim ObjEventos As New ClsEventos
        If ObjEventos.GetEventos("-1", "-1", False, -1, UsuarioActual.CveEmpresa, False, CveEvento) Then
            If ObjEventos.DtResultados.Rows.Count > 0 Then
                DdlTipo.SelectedValue = ObjEventos.CveTipoEvento.ToString
                TxtTexto.Text = ObjEventos.Texto
                TxtFechaEvento.Text = ObjEventos.FechaEvento.ToShortDateString
                TxtHora.SelectedTime = ObjEventos.FechaEvento
                ChkFueEfectuado.Checked = ObjEventos.FueEfectuado
                If ChkFueEfectuado.Checked Then
                    BtnGuardar.Enabled = False
                    BtnEliminar.Enabled = False
                End If

            End If
        End If
        ObjEventos.Dispose()
    End Sub
    Private Sub CargaTiposEventos()
        If TipoReferencia <> "-1" Then
            DdlTipo.DataSource = GlobalDTTiposEventos.FiltraParametros("TipoReferencia = '" & TipoReferencia & "'")
            BtnEliminar.Enabled = False
            BtnGuardar.Text = "Agregar"
            ChkFueEfectuado.Visible = False
        Else
            DdlTipo.DataSource = GlobalDTTiposEventos
        End If

        DdlTipo.DataBind()
    End Sub

    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
        Dim ObjEventos As New ClsEventos
        Dim Tmp As Integer
        Dim FechaHora As String = TxtHora.SelectedTime.ToShortTimeString.ToString
        If FechaHora.Contains("p") = True OrElse FechaHora.Contains("P") = True Then
            Tmp = CInt(FechaHora.Substring(0, 2))
            If Tmp <> 12 Then
                Tmp = Tmp + 12
            End If
            FechaHora = Tmp & FechaHora.Substring(2, FechaHora.Length - 2)
        End If

        FechaHora = FechaHora.Replace("p.m.", "")
        FechaHora = FechaHora.Replace("P.M.", "")
        FechaHora = FechaHora.Replace("a.m.", "")
        FechaHora = FechaHora.Replace("A.M.", "")
        FechaHora = FechaHora.Trim

        FechaHora = TxtFechaEvento.Text & " " & FechaHora
        If CveEvento = -1 Then
            If ObjEventos.AddEventos(DdlTipo.SelectedValue.ToEntero, TxtTexto.Text.Trim, TipoReferencia, Referencia, FechaHora.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                Alert("Se guardó correctamente.", TipoMensaje.MsgInformacion, "RefrescarAnterior();")
            End If

        Else
            If ObjEventos.UpdateEventos(TxtTexto.Text.Trim, FechaHora.ToDate, ChkFueEfectuado.Checked, CveEvento.ToEntero) Then
                Alert("Se guardó correctamente.", TipoMensaje.MsgInformacion, "RefrescarAnterior();")
            End If
        End If
        ObjEventos.Dispose()
    End Sub
    Public Sub CargarHora()
        Dim Tmp As Integer
        Dim FechaHora As String = TxtHora.SelectedTime.ToShortTimeString.ToString
        If FechaHora.Contains("p") = True OrElse FechaHora.Contains("P") = True Then
            Tmp = CInt(FechaHora.Substring(0, 2))
            If Tmp <> 12 Then
                Tmp = Tmp + 12
            End If
            FechaHora = Tmp & FechaHora.Substring(2, FechaHora.Length - 2)
        End If

        FechaHora = FechaHora.Replace("p.m.", "")
        FechaHora = FechaHora.Replace("P.M.", "")
        FechaHora = FechaHora.Replace("a.m.", "")
        FechaHora = FechaHora.Replace("A.M.", "")
        FechaHora = FechaHora.Trim

        FechaHora = TxtFechaEvento.Text & " " & FechaHora
    End Sub

    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
        Dim ObjEventos As New ClsEventos
        If ObjEventos.RemoveEventos(CveEvento.ToEntero) Then
            Alert("Se ha eliminado satisfactoriamente.", TipoMensaje.MsgInformacion)
        End If
    End Sub
End Class