Option Strict On

Imports System.Data
Imports System.Linq
Imports Extensiones

Partial Class Edoc_CatTipoContrato
    Inherits ClsPaginas

    Protected Property CveTipoContrato As Integer
        Get
            If ViewState("CveTipoContrato") Is Nothing Then
                Return -1
            Else
                Return ViewState("CveTipoContrato").ToString.ToEntero
            End If
        End Get
        Set(value As Integer)
            ViewState("CveTipoContrato") = value
        End Set
    End Property

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

        If Not Page.IsPostBack Then
            CargaDatos()
        End If

    End Sub


    Private Sub CargaDatos()

        Dim ObjProv As New ClsCompProveedores

        If ObjProv.GetTiposContratos(-1, UsuarioActual.CveEmpresa, -1) Then
            GvDatos.DataSource = ObjProv.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjProv.Dispose()

        GvDatos.DataBind()

        UpDatos.Update()
    End Sub


    Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarTipoContrato.Click

        CveTipoContrato = -1
        TxtTipoContrato.Text = ""
        ChkEstatus.Checked = True

        UpModalTiposContrato.Update()

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

    Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)


        CveTipoContrato = GvRow.DataKey("CveTipoContrato").ToEntero
        TxtTipoContrato.Text = GvRow.DataKey("TipoContrato")
        ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
        UpModalTiposContrato.Update()

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

    End Sub

    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click

        Dim ObjProv As New ClsCompProveedores
        Dim ErrorProceso As Boolean = False

        If CveTipoContrato = -1 Then
            If Not ObjProv.AddTiposContratos(TxtTipoContrato.Text, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                ErrorProceso = True
            End If
        Else

            If Not ObjProv.UpdateTiposContratos(CveTipoContrato, TxtTipoContrato.Text, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                ErrorProceso = True
            End If

        End If


        If Not ErrorProceso Then

            Alert($"Tipo Contrato { If(CveTipoContrato > 0, "Actualizado", "Agregado") } correctamente.")
            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposContrato"))
            CargaDatos()

        End If



        ObjProv.Dispose()
    End Sub

    Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim ErrorProceso As Boolean = False
        Dim CveTipoContratoEliminar As Integer = GvRow.DataKey("CveTipoContrato").ToEntero

        Dim ObjProv As New ClsCompProveedores

        If ObjProv.RemoveTiposContratos(CveTipoContratoEliminar, UsuarioActual.CveEmpresa) Then
            Alert("Tipo Contrato eliminado correctamente")
        Else
            ErrorProceso = True
        End If

        If Not ErrorProceso Then
            CargaDatos()
        End If


        ObjProv.Dispose()

    End Sub
End Class