client/Catalogos/Mantenimiento/frmFuenteIngreso.vb

Public Class frmFuenteIngreso

    Private opcion As Boolean
    Private idName As Integer    

    Private Sub frmDestinoRecurso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            Iniciar()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Function Iniciar() As Boolean
        Iniciar = False
        Dim Classcom As New clsComplejo
        Try
            Limpiar()
            llenarGrid()
            DesHeader.Text = Me.Text
            Dim Sql As String = "sp_ConsultaCatalogoRiesgo"
            Classcom.sbLlenaCombo(Sql, Me.CMBRiesgo)
            CMBRiesgo.SelectedIndex = -1
            ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Iniciar = True
    End Function

    Private Function Limpiar() As Boolean
        Try
            txtNombre.Enabled = False
            txtNombre.Text = ""
            chkActivo.Enabled = False
            chkActivo.Checked = False
            BtnOk.Enabled = False
            BtnEditar.Enabled = False
            txtRiesgo.Text = ""
            txtRiesgo.Enabled = False
            CMBRiesgo.SelectedValue = -1
            CMBRiesgo.Enabled = False
            opcion = False
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

    Private Function llenarGrid() As Boolean
        llenarGrid = False
        Try
            Dim ClassCatalogos As New ClassCatalogos

            GridMaster.AllowUpdate = False
            ClassCatalogos.LlenaGrid("select IdFuentesIngreso,FuenteIngreso,Activo,CD.RIESGO Calificacion,cr.Riesgo Riesgo,cd.CALRIESGO from CAT_FUENTEINGRESO cd LEFT JOIN CAT_RIESGO  cr on cd.CALRIESGO = cr.IdRiesgo", Me.GridMaster)
            GridMaster.Splits(0).DisplayColumns(0).AutoSize()
            GridMaster.Splits(0).DisplayColumns(1).AutoSize()
            GridMaster.Splits(0).DisplayColumns(2).AutoSize()
            GridMaster.Splits(0).DisplayColumns(5).Visible = False

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        llenarGrid = True
    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub BtnAgregar_Click(sender As System.Object, e As System.EventArgs) Handles BtnAgregar.Click
        Limpiar()
        habilitar()
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        opcion = True
    End Sub

    Private Function habilitar() As Boolean
        habilitar = False
        Try
            txtNombre.Enabled = True
            txtRiesgo.Enabled = True
            chkActivo.Enabled = True
            CMBRiesgo.Enabled = True
            BtnOk.Enabled = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        habilitar = True
    End Function

    Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick
        llenarDatos()
    End Sub

    Private Function llenarDatos() As Boolean
        llenarDatos = False
        Try
            idName = GridMaster.Columns(0).Value
            txtNombre.Text = GridMaster.Columns(1).Value
            chkActivo.Checked = GridMaster.Columns(2).Value
            txtRiesgo.Text = GridMaster.Columns(3).Value
            If IsDBNull(GridMaster.Columns(5).Value) Then
                CMBRiesgo.SelectedValue = 0
            Else
                CMBRiesgo.SelectedValue = Convert.ToInt32(GridMaster.Columns(5).Value)
            End If

            BtnEditar.Enabled = True
            ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        llenarDatos = True
    End Function

    Private Sub BtnEditar_Click(sender As System.Object, e As System.EventArgs) Handles BtnEditar.Click
        opcion = False
        habilitar()
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
    End Sub

    Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles BtnOk.Click
        Guardar()
    End Sub

    Private Function Guardar() As Boolean
        Guardar = False
        Dim cls As New clsComplejo
        Dim ssql As String
        Dim nombre As String
        Dim chk As Integer
        Try
            If ValidarDatos() Then
                nombre = txtNombre.Text.Trim()
                chk = chkActivo.CheckState
                If opcion Then
                    ssql = "INSERT INTO CAT_FUENTEINGRESO(FuenteIngreso,Activo,riesgo,CALRIESGO) "
                    ssql += " VALUES ('" & nombre & "', " & chk & "," & txtRiesgo.Text & "," & CMBRiesgo.SelectedValue.ToString & ")"
                Else
                    ssql = "UPDATE CAT_FUENTEINGRESO Set FuenteIngreso ='" & nombre & "',riesgo =" & txtRiesgo.Text & ",CALRIESGO =  " & CMBRiesgo.SelectedValue.ToString
                    ssql += ",Activo = " & chk & " WHERE IdFuentesIngreso =" & idName
                End If
                cls.sbGuardaModifica(ssql)
                MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Limpiar()
                llenarGrid()
                ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Guardar = True
    End Function

    Private Function ValidarDatos() As Boolean
        ValidarDatos = False
        Try
            If txtNombre.Text.Trim = "" Then
                MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Function
            End If
            If txtRiesgo.Text.Trim = "" Then
                MessageBox.Show("Es Necesario Capturar el Riesgo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Function
            End If
            ValidarDatos = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

    Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint

    End Sub

    Private Sub txtRiesgo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtRiesgo.KeyPress
        e.Handled = Not IsNumeric(e.KeyChar) And Not Char.IsControl(e.KeyChar)
    End Sub
End Class