Imports Extensiones
Imports System.Data
Partial Class RH_CatPuestosSueldos
    Inherits ClsPaginas

    Private Property DTDatos As DataTable
        Get
            Return CType(ViewState("DTDatos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTDatos") = value
        End Set
    End Property
    Private Property FiltroPuestos As String
        Get
            Return ViewState("FiltroPuestos").ToString
        End Get
        Set(value As String)
            ViewState("FiltroPuestos") = value
        End Set
    End Property
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            cargar()
        End If
    End Sub

    Private Sub CargaPuestos(DDL As DropDownList, Optional CvePuesto As Integer = -1)
        DDL.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (CvePuesto NOT IN({0}) OR CvePuesto={1})", FiltroPuestos, CvePuesto))
        DDL.DataBind()
        If CvePuesto > 0 Then
            DDL.SelectedValue = CvePuesto
        End If
    End Sub

    Private Sub cargar()
        Dim objRH As New ClsRH
        Dim Str As New StringBuilder
        Str.Append("-1")
        If objRH.GetPuestosSueldos(UsuarioActual.CveEmpresa) Then
            DTDatos = objRH.DtResultados
            cargaGVDatos()
            For Each item As DataRow In DTDatos.Rows
                Str.Append(String.Format(",{0}", item("CvePuesto").ToString))
            Next
        End If
        FiltroPuestos = Str.ToString
        objRH.Dispose()
        TxtSueldo.Text = ""
        CargaPuestos(DdlPuesto)
    End Sub
#Region "GVDatos"

    Private Sub cargaGVDatos() 
        GvDatos.DataSource = DTDatos
        GvDatos.DataBind()
    End Sub
    Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
        GvDatos.EditIndex = -1
        cargaGVDatos()
    End Sub
    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
        Dim index As Integer = e.RowIndex
        Dim cvepuesto As Integer = GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToString.ToEntero
        Dim objRH As New ClsRH
        If objRH.RemovePuestosSueldos(cvepuesto) Then
            cargar()
            Alert("Se eliminó el registro", TipoMensaje.MsgInformacion)
        Else
            Alert("no se eliminó el registro", TipoMensaje.MsgAdvertencia)
        End If
        objRH.Dispose()
    End Sub

    Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
        Dim index As Integer = e.RowIndex
        Dim cvepuesto As Integer = GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToString.ToEntero
        Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToDouble
        Dim objRH As New ClsRH
        If objRH.UpdatePuestosSueldos(cvepuesto, Importe) Then
            GvDatos.EditIndex = -1
            cargar()
            Alert("Se actualizó el registro", TipoMensaje.MsgInformacion)
        Else
            Alert("no se actualizó el registro", TipoMensaje.MsgAdvertencia)
        End If
        objRH.Dispose()

    End Sub

    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
        Dim index As Integer = e.NewEditIndex
        GvDatos.EditIndex = index
        cargaGVDatos()
        CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value)
    End Sub
#End Region

    Protected Sub Agregar_Click(sender As Object, e As EventArgs) Handles Agregar.Click
        Dim CvePuesto As Integer = DdlPuesto.SelectedValue.ToEntero
        Dim Importe As Double = TxtSueldo.Text.ToDouble
        If CvePuesto > 0 And Importe > 0 Then
            Dim objRH As New ClsRH
            If objRH.AddPuestosSueldos(CvePuesto, Importe) Then
                cargar()
                Alert("los datos se guardaron satisfactoriamente", TipoMensaje.MsgInformacion)
            Else
                Alert("no se guardaron los cambios", TipoMensaje.MsgAdvertencia)
            End If
            objRH.Dispose()
        Else
            Alert("favor de llenar todos los campos")
        End If

    End Sub
End Class