client/frmEstatusCuenta.vb

Public Class frmEstatusCuenta

    Private opcion As Boolean
    Private id As Integer

    Private Sub frmObjCuenta_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            Iniciar()
            ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Function Iniciar() As Boolean
        Iniciar = False
        Try
            Limpiar()
            llenarGrid()
            DesHeader.Text = Me.Text
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Iniciar = True
    End Function

    Private Function Limpiar() As Boolean
        Try
            txtEstatusCta.Enabled = False
            txtEstatusCta.Text = ""
            chkActivo.Enabled = False
            chkActivo.Checked = False
            btnGuardar.Enabled = False
            btnEditar.Enabled = False

            id = 0
            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("SP_OBTENERESTATUSCTA NULL", Me.GridMaster)
            GridMaster.Splits(0).DisplayColumns(0).AutoSize()
            GridMaster.Splits(0).DisplayColumns(0).Visible = False
            GridMaster.Splits(0).DisplayColumns(1).AutoSize()
            GridMaster.Splits(0).DisplayColumns(2).AutoSize()
        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 btnCerrar.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, btnGuardar, btnCerrar)
        opcion = True

        txtEstatusCta.Focus()

    End Sub

    Private Function habilitar() As Boolean
        habilitar = False
        Try
            txtEstatusCta.Enabled = True
            chkActivo.Enabled = True
            btnGuardar.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, btnGuardar, btnCerrar)
    End Sub

    Private Function llenarDatos() As Boolean
        llenarDatos = False
        Try
            id = GridMaster.Columns(0).Value
            txtEstatusCta.Text = GridMaster.Columns(1).Value
            chkActivo.Checked = GridMaster.Columns(2).Value


            btnEditar.Enabled = True

            txtEstatusCta.Enabled = False
            chkActivo.Enabled = False
            btnGuardar.Enabled = False


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar)

        llenarDatos = True
    End Function

    Private Sub BtnEditar_Click(sender As System.Object, e As System.EventArgs) Handles btnEditar.Click
        opcion = False
        habilitar()

        btnAgregar.Enabled = True
        btnEditar.Enabled = False

        ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar)

        txtEstatusCta.Focus()

    End Sub

    Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.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 riesgo As Single
        Try
            If ValidarDatos() Then
                nombre = txtEstatusCta.Text.Trim()
                chk = chkActivo.CheckState
                'riesgo = txtRiesgo.Text.Trim()

                If opcion Then
                    ssql = "SP_INSERTARACTUALIZARESTATUSCTA " & id & ",'" & nombre & "'," & chk
                Else
                    ssql = "SP_INSERTARACTUALIZARESTATUSCTA " & id & ",'" & nombre & "'," & chk
                End If

                cls.sbGuardaModifica(ssql)
                MessageBox.Show("Operación Realizada Correctamente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Limpiar()
                llenarGrid()

                ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar)
            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 txtEstatusCta.Text.Trim = "" Then
                MessageBox.Show("Es necesario introducir el Objeto de la Cuenta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                txtEstatusCta.Focus()
                Exit Function
            End If

            'If txtRiesgo.Text.Trim = "" Then
            '    MessageBox.Show("Es Necesario introducir el Riesgo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '    txtRiesgo.Focus()
            '    Exit Function
            'End If

            'If Not IsNumeric(txtRiesgo.Text) Then
            '    MessageBox.Show("El Riesgo debe ser númerico ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '    txtRiesgo.Focus()
            '    Exit Function
            'End If

            'If txtRiesgo.TextLength > 4 Then
            '    MessageBox.Show("Riesgo no valido ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '    txtRiesgo.Focus()
            '    Exit Function
            'End If

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

End Class