SIG/OS/CatTiposOrdenesServicios.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Linq
Imports Extensiones

Partial Class OS_CatTiposOrdenesServicios
    Inherits ClsPaginas

    Private Property CveOrdenServicioTipo As Integer
        Get
            If Not ViewState("CveOrdenServicioTipo") Is Nothing Then
                Return ViewState("CveOrdenServicioTipo").ToString.ToEntero
            Else
                Return -1
            End If

        End Get
        Set(value As Integer)
            ViewState("CveOrdenServicioTipo") = value
        End Set

    End Property

    Private Property Actualizar As Boolean
        Get
            If Not ViewState("Actualizar") Is Nothing Then
                Return DirectCast(ViewState("Actualizar"), Boolean)
            Else
                Return False
            End If
        End Get
        Set(value As Boolean)
            ViewState("Actualizar") = value
        End Set
    End Property


    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            CargadatosGvTiposOS()
        End If

    End Sub

    Private Sub CargadatosGvTiposOS()

        Dim ObjSubTipoOrdenServicios As New ClsOS
        If ObjSubTipoOrdenServicios.GetTipoOrdenesServicios(-1) Then
            GvTiposOS.DataSource = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GlobalDTSubTipoOrdenServicios = ObjSubTipoOrdenServicios.DtResultados
        Else
            GvTiposOS.DataSource = Nothing
        End If

        ObjSubTipoOrdenServicios.Dispose()

        GvTiposOS.DataBind()
        UpGral.Update()

    End Sub

    Protected Sub BtnAgregarTiposOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOS.Click
        LtlTituloModalTiposOS.Text = "Agregar Tipo de Orden de Servicio"
        BtnAgregarTiposOSModal.Text = "Agregar"
        DivEstatus.Visible = False

        TxtTiposOS.Text = ""

        Actualizar = False
        UpGral.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))

    End Sub

    Protected Sub BtnAgregarTiposOSModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOSModal.Click

        Dim ObjTipoOrdenServicios As New ClsOS

        If Not Actualizar Then
            If ObjTipoOrdenServicios.AddTipoOrdenServicio(TxtTiposOS.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then

                TxtTiposOS.Text = ""
                ChkEstatus.Checked = True

                CargadatosGvTiposOS()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")
                'GeneraGlobalDT()
                UpGral.Update()

                Alert("Tipo de Orden de Servicio Agregado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrio un error al guardar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
            End If
        Else
            If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TxtTiposOS.Text.Trim, False, ChkEstatus.Checked, CveOrdenServicioTipo) Then

                TxtTiposOS.Text = ""
                ChkEstatus.Checked = True

                CargadatosGvTiposOS()
                'GeneraGlobalDT()
                UpModalTiposOS.Update()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")

                UpGral.Update()
                Alert("Tipo de Orden de Servicio Actualizado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrio un error al Actualizar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
            End If
        End If

        CveOrdenServicioTipo = -1
        Actualizar = False

        ObjTipoOrdenServicios.Dispose()

    End Sub

    Public Sub Remove_ClickTiposOS(sender As Object, e As EventArgs)

        Dim ObjTipoOrdenServicios As New ClsOS
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = False
        CveOrdenServicioTipo = GvRow.DataKey("CveOrdenServicioTipo").ToEntero

        If ObjTipoOrdenServicios.RemoveTipoOrdenServicio(CveOrdenServicioTipo) Then
            CargadatosGvTiposOS()
            'GeneraGlobalDT()

            Alert("El Tipo de Orden de Servicio se eliminó Correctamente ", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrio un error al Eliminar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
        End If

        ObjTipoOrdenServicios.Dispose()

        CargadatosGvTiposOS()

        CveOrdenServicioTipo = -1

    End Sub

    Public Sub Edit_ClickTiposOS(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = False

        LtlTituloModalTiposOS.Text = "Editar Tipo de Orden de Servicio"
        Actualizar = True
        DivEstatus.Visible = True

        CveOrdenServicioTipo = GvRow.DataKey("CveOrdenServicioTipo").ToEntero

        TxtTiposOS.Text = GvRow.DataKey("OrdenServicioTipo")
        ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)

        BtnAgregarTiposOSModal.Text = "Actualizar"

        UpModalTiposOS.Update()

        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))

    End Sub

End Class