Public Class frmCatalogos
    Dim blnuevo As Boolean = True
    Dim blcarga As Boolean = True


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Classcom As New clsComplejo
        Dim ClassCatalogos As New ClassCatalogos
        Dim SQL As String
        Dim FILA As DataRow
        If clsVaribles.lbDemo = True Then Exit Sub
        PnPais.Visible = False

        Me.PnPais.Visible = True
        Classcom = New clsComplejo

        'LLENA GRID
        SQL = "spCargaCatalogo"
        Classcom.sbLlenaCombo(SQL, Me.CMBGrupo)
        Me.CMBGrupo.SelectedIndex = -1
        blcarga = False
    End Sub

    Private Sub llenagrid()
        Dim Classcom As New clsComplejo
        Dim ClassCatalogos As New ClassCatalogos
        Dim SQL As String
        Dim FILA As DataRow
        Try
            PnPais.Visible = False
            If blcarga = True Then Exit Sub


            Me.PnPais.Visible = True


            If Me.CMBGrupo.Text <> "" Then
                'LLENA GRID
                SQL = " spConcatalogo " & Me.CMBGrupo.SelectedValue
                ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
                If Me.CMBGrupo.SelectedValue = 14 Then
                    txtClave.Enabled = True
                    txtClave.ReadOnly = False
                Else
                    txtClave.Enabled = False
                    txtClave.ReadOnly = True
                End If
            End If

        Catch ex As Exception
            MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

    Private Sub CMBGrupo_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMBGrupo.SelectedValueChanged
        LlenaGrid()
        blnuevo = True
        Me.Text = "Mantenimiento Catalogo de " & CMBGrupo.Text

    End Sub

    Private Sub limpiar()
        txtClave.Text = ""
        cboParamRango.SelectedIndex = -1
        txtValor.Text = ""
        blnuevo = False
        llenagrid()
    End Sub
    Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
        If clsVaribles.lbDemo = True Then Exit Sub
        Dim Classcom As New clsComplejo
        '0 Dim sql As String
        'Recupero Datos del gird
        Dim SQL As String = ""


        Dim Fila As DataRow
        '    Dim Clsvar As clsVaribles

        Try

            SQL = "spConcatalogoOpcion " & CMBGrupo.SelectedValue & "," & Me.GridMaster.Columns("id").Value
            Classcom = New clsComplejo

            Classcom.fdtDataSet(SQL)

            If Classcom.ds.Tables(0).Rows.Count <> 0 Then

                Fila = Classcom.ds.Tables(0).Rows(0)
                Me.txtValor.Text = Fila("descripcion").ToString
                txtClave.Text = Fila("id")

                If CMBGrupo.SelectedValue = 1 Or CMBGrupo.SelectedValue = 2 Then
                    chkActivo.Visible = False
                Else
                    chkActivo.Visible = True
                    chkActivo.Enabled = True
                    chkActivo.Checked = Fila("Estatus")
                End If

                blnuevo = True
            End If

            txtValor.Enabled = True
            cboParamRango.Enabled = True


            If Me.CMBGrupo.SelectedValue = 14 Then
                txtClave.Enabled = True
                txtClave.ReadOnly = False
            Else
                txtClave.Enabled = False
                txtClave.ReadOnly = True
            End If

            '--txtClave.Enabled = False


            Me.txtValor.Focus()
        Catch ex As Exception
            MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub


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



    Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
        Dim classcom As New clsComplejo
        Dim strSQLComodin As String
        Dim liclave As Integer
        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo
        If clsVaribles.lbDemo = True Then Exit Sub
        txtClave.Enabled = True

        'VALIDACION DE CAMPOS
        Try

            'If cboParamRango.Text = "" Or cboParamRango.SelectedIndex = -1 Then
            '    MessageBox.Show("Es Necesario Introducir el Nombre o Descripcion", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            '    Exit Sub
            'End If

            If txtValor.Text = "" Then
                MessageBox.Show("Es Necesario Introducir el Valor y/o Descripcion para el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                txtValor.Focus()
                Exit Sub
            End If
            If Me.CMBGrupo.SelectedValue = 14 Then
                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Valor de la clave para el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    txtClave.Focus()
                    Exit Sub
                Else
                    liclave = Val(txtClave.Text)
                End If
            Else
                If txtClave.Text = "" Then
                    liclave = 999999
                Else
                    liclave = Val(txtClave.Text)
                End If
            End If

            strSQLComodin = "spGrabaCatalogos 'A' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & Math.Abs(CInt(Me.chkActivo.Checked)) & "," & clsVaribles.varUsuario & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
            'Else
            '    strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',3"


            'End If
            classcom = New clsComplejo
            classcom.sbInserta(strSQLComodin)
            blnuevo = True
            limpiar()
            'auditoria
            ''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
            'FIN AUDITORIA
            llenagrid()
            MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

    Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
        limpiar()
    End Sub

    Private Sub BtnBorrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBorrar.Click
        Dim classcom As New clsComplejo
        Dim strSQLComodin As String
        Dim liclave As Integer

        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo
        If clsVaribles.lbDemo = True Then Exit Sub
        txtClave.Enabled = True

        'VALIDACION DE CAMPOS
        Try
            If blnuevo = False Then
                MessageBox.Show("Es necesario seleccionar un registro", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub

            End If
            If txtClave.Text = "" Then
                liclave = 99999
            Else
                liclave = Val(txtClave.Text)
            End If
            '            strSQLComodin = "spGrabaCatalogos 'E' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & chkActivo.Checked & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"

            strSQLComodin = "spGrabaCatalogos 'E' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & chkActivo.Checked & "," & clsVaribles.varUsuario & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"

            ' strSQLComodin = "spGrabaCatalogos " & Me.CMBGrupo.SelectedValue & " ,'E'," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',2"
            classcom = New clsComplejo
            classcom.sbInserta(strSQLComodin)
            blnuevo = False
            limpiar()
            'auditoria
            ''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
            'FIN AUDITORIA
            llenagrid()
            MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

    Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs) Handles BtnImprimir.Click

    End Sub

    Private Sub CMBGrupo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CMBGrupo.SelectedIndexChanged
        limpiar()
    End Sub

    Private Sub GridMaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridMaster.Click

    End Sub

Private Sub txtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged

End Sub
End Class