client/Catalogos/Mantenimiento/frmDestinoRecurso.vb

Public Class frmDestinoRecurso

    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 SQL As String
        Dim Classcom As New clsComplejo
        Try
            txtRiesgo.Enabled = False
            Limpiar()
            llenarGrid()
            SQL = "sp_ConsultaCatalogoRiesgo"
            Classcom.sbLlenaCombo(SQL, Me.CMBRiesgo)
            CMBRiesgo.SelectedIndex = -1


            ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
            DesHeader.Text = Me.Text
        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
            CMBRiesgo.Enabled = False
            CMBRiesgo.SelectedValue = -1
            txtRiesgo.Text = ""
            txtRiesgo.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 cd.IDDESTINORECURSO,cd.DESTINORECURSO,cd.ACTIVO,cd.RIESGO 'CALIFICACIÓN RIESGO',CALRIESGO 'R',cr.RIESGO FROM  CAT_DESTINORECURSO cd INNER 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(4).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
            chkActivo.Enabled = True
            BtnOk.Enabled = True
            CMBRiesgo.Enabled = True
            txtRiesgo.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()
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
    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
            CMBRiesgo.SelectedValue = Convert.ToInt32(GridMaster.Columns(4).Value)
            txtRiesgo.Text = Convert.ToInt32(GridMaster.Columns(3).Value)
            BtnEditar.Enabled = True
        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
        Dim riesgoValor As Integer
        Dim nRiesgo As Integer

        Try
            If ValidarDatos() Then
                nombre = txtNombre.Text.Trim()
                chk = chkActivo.CheckState
                If CMBRiesgo.SelectedValue = 1 Then
                    nRiesgo = 7
                ElseIf CMBRiesgo.SelectedValue = 2 Then
                    nRiesgo = 8
                ElseIf CMBRiesgo.SelectedValue = 3 Then
                    nRiesgo = 9
                ElseIf nRiesgo = 0 Then
                End If
                If nRiesgo = 0 Then
                    MessageBox.Show("Es necesario elegir un riesgo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Function
                End If
                If txtRiesgo.Text = "" Then
                    MessageBox.Show("Es necesario colocar la calificación de riesgo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Function
                End If

                riesgoValor = ObtieneRiesgoValor(nRiesgo)


                If opcion Then
                        ssql = "INSERT INTO CAT_DESTINORECURSO(DESTINORECURSO,ACTIVO,CALRIESGO,RIESGO) "
                    ssql += " VALUES ('" & nombre & "', " & chk & "," & CMBRiesgo.SelectedValue & "," & Convert.ToInt32(txtRiesgo.Text) & ")"
                    'ssql += " VALUES ('" & nombre & "', " & chk & "," & CMBRiesgo.SelectedValue & "," & Convert.ToInt32(txtRiesgo.Text) & ")"
                Else
                    ssql = "UPDATE CAT_DESTINORECURSO SET DESTINORECURSO ='" & nombre & "', CALRIESGO=" & CMBRiesgo.SelectedValue & ",RIESGO=" & Convert.ToInt32(txtRiesgo.Text) & " ,"
                    'ssql = "UPDATE CAT_DESTINORECURSO Set DESTINORECURSO ='" & nombre & "', CALRIESGO=" & CMBRiesgo.SelectedValue & ",RIESGO=" & Convert.ToInt32(txtRiesgo.Text) & " ,"
                    ssql += "ACTIVO = " & chk & " WHERE IDDESTINORECURSO =" & 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 ObtieneRiesgoValor(ByVal idParametro As Integer) As Integer
        Dim Classcom As New clsComplejo
        Dim ssql As String
        Dim Fila As DataRow
        ObtieneRiesgoValor = 0
        ssql = "sp_ConsultaParametroRiesgo  " & idParametro & " "
        Classcom = New clsComplejo
        Classcom.fdtDataSet(ssql)
        If Classcom.ds.Tables(0).Rows.Count <> 0 Then
            Fila = Classcom.ds.Tables(0).Rows(0)
            ObtieneRiesgoValor = Fila("valor").ToString
        End If
    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

            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_TextChanged(sender As Object, e As EventArgs) Handles txtRiesgo.TextChanged

    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