client/Catalogos/FRMyTipoOperacion.vb

Public Class FRMyTipoOperacion

    Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)

        Dim classcom As New clsComplejo
        Dim strSQLComodin As String

        Select Case e.Button.Text
            Case "Agregar"

                'pnlBotones.Visible = True

                txtClave.Enabled = True
                txtClave.ReadOnly = False
                txtClave.Text = ""
                txtNombre.Text = ""
                'txtNombreIngles.Text = ""
                'cmbOrganismo.Text = ""
                clsVaribles.varProceso = "Agregar"
                txtClave.Focus()
                BtnOk.Enabled = True

                'txtClave.Enabled = True
                txtClave.Visible = False
                txtNombre.Enabled = True
                'Me.txtNombreIngles.Enabled = True
                'Me.cmbOrganismo.Enabled = True
                Me.chkActivo.Enabled = True

            Case "Actualizar"

                'VALIDACION DE CAMPOS

                'If txtClave.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'If txtNombre.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                ''pnlBotones.Visible = False

                'strSQLComodin = "UPDATE PAIS SET Id_Pais  = " & TXTNumero.Text & " ,Id_Organismo = " & Me.cmbOrganismo.SelectedIndex & ""
                'strSQLComodin = strSQLComodin & ",Nombre = '" & txtNombre.Text & "',NombreUs = '" & txtNombreIngles.Text & "',Activo = " & Me.chkActivo.CheckState
                'strSQLComodin = strSQLComodin & " where ID_PAIS = " & TXTNumero.Text

                'classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 39, My.Computer.Name, "Minds Cliente", "Cambio de Pais CLAVE = " & TXTNumero.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

                'C1TrueDBGrid1.DataSource = Nothing

                'clCmp.fdtDataSetTabla("spGridPais 0")
                'Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid

                'sbIniciaForma()

                clsVaribles.varProceso = "Actualizar"

                txtClave.Enabled = False
                'txtClave.Visible = False
                txtNombre.Enabled = True
                'Me.txtNombreIngles.Enabled = True
                'Me.cmbOrganismo.Enabled = True

                Me.chkActivo.Enabled = True
                BtnOk.Enabled = True

            Case "Desactivar"

                'If TXTNumero.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'pnlBotones.Visible = False

                'strSQLComodin = "UPDATE pais SET ACTIVO = 0 where id_pais = " & TXTNumero.Text
                'classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 38, My.Computer.Name, "Minds Cliente", "Baja de Pais CLAVE = " & TXTNumero.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

                clsVaribles.varProceso = "Eliminar"

                txtClave.Enabled = False
                txtNombre.Enabled = False
                'Me.txtNombreIngles.Enabled = False
                'Me.cmbOrganismo.Enabled = False
                'Me.chkActivo.Enabled = False

                BtnOk.Enabled = True

            Case "Salir"
                Me.Close()
        End Select
    End Sub

    Private Sub FRMyTipoOperacion_Load(ByVal sender As System.Object, ByVal 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

        PnPais.Visible = False

        Me.Text = "Tipo de Operaci<63>n"
                Me.PnPais.Visible = True
        DesHeader.Text = Me.Text
        'LLENA GRID


        'If clsVaribles.lbDemo = True Then Exit Sub

        'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO,isnull(aliasID,' ') ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
        'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO, ' ' AS ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
        SQL = "sp_ConsultarTipoOperacion 0"

        ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)

        Call ajustarColumnas()

        txtClave.Focus()


        txtClave.Enabled = False
        txtNombre.Enabled = False
        TXTAlias.Enabled = False
        chkActivo.Enabled = False
        BtnEditar.Enabled = False
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        'Classcom.fdtDataSet(SQL)

    End Sub

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

    End Sub

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

        'Recupero Datos del gird
        Me.txtClave.Text = Me.GridMaster.Columns("CLAVE").Value
        Me.txtNombre.Text = Me.GridMaster.Columns("Nombre").Value
        Me.TXTAlias.Text = Me.GridMaster.Columns("Alias").Value
        Me.chkActivo.Checked = Me.GridMaster.Columns("ACTIVO").Value
        'Hago una consulta ala base de datos para recuperar la clasificacion del pais

        txtClave.Enabled = False
        txtNombre.Enabled = False
        TXTAlias.Enabled = False
        Me.chkActivo.Enabled = False

        txtNombre.Focus()

        Dim SQL As String = ""

        txtClave.Enabled = False
        BtnEditar.Enabled = True
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim classcom As New clsComplejo
        Dim strSQLComodin As String

        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo

        Select Case UCase(clsVaribles.varProceso)

            Case Is = "AGREGAR"

                txtClave.Enabled = True

                'VALIDACION DE CAMPOS

                'If txtClave.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                strSQLComodin = "SELECT Id_TipoOperacion FROM TIPOOPERACION WHERE NombreTipoOperacion = '" & txtNombre.Text & "'"

                If classcom.BuscaDatos(strSQLComodin) Then
                    MessageBox.Show("Este Nombre del Tipo de Operacion ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                strSQLComodin = "INSERT INTO  TIPOOPERACION (NombreTipoOperacion,Id_Catalogo,Activo) VALUES ("
                strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "',22," & Me.chkActivo.CheckState & ")"

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA

                'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 77, 1, txtNombre.Text)

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 77, My.Computer.Name, "Minds Cliente", "ALTA DE TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                'FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)


            Case Is = "ACTUALIZAR"

                'VALIDACION DE CAMPOS

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE tipooperacion SET "
                strSQLComodin = strSQLComodin & " NombreTipoOperacion = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
                strSQLComodin = strSQLComodin & " where Id_TipoOperacion = " & txtClave.Text

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, 1, txtNombre.Text)

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, My.Computer.Name, "Minds Cliente", "Cambio de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                'FIN AUDITORIA

                MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)



                classcom = New clsComplejo
                'classcom.fdtDataSetTabla("spGridPais 0")
                'Me.GridMaster.SetDataBinding(classcom.ds, "Tabla") 'Llena el grid

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Case Is = "ELIMINAR"

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE tipooperacion SET ACTIVO = 0 where Id_TipoOperacion = " & txtClave.Text
                classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 79, 1, "Proceso Empleados VS Listas restringidas")

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 79, My.Computer.Name, "Minds Cliente", "Baja de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)



        End Select

        BtnOk.Enabled = False


        Dim SQL As String
        Dim CLASSCATALOGOS As New ClassCatalogos

        GridMaster.DataSource = Nothing
        SQL = "SELECT Id_TipoOperacion CLAVE,NombreTipoOperacion NOMBRE,ACTIVO FROM TIPOOPERACION ORDER BY NombreTipoOperacion"
        CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)

        CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)

    End Sub

    Private Sub BtnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click

        'If clsVaribles.lbDemo = True Then Exit Sub

        txtClave.Enabled = True
        txtClave.ReadOnly = True
        txtClave.Text = ""
        txtNombre.Text = ""
        'txtNombreIngles.Text = ""
        'cmbOrganismo.Text = ""
        clsVaribles.varProceso = "Agregar"

        BtnOk.Enabled = True

        'txtClave.Enabled = True
        'txtClave.Visible = False
        txtNombre.Enabled = True
        'Me.txtNombreIngles.Enabled = True
        'Me.cmbOrganismo.Enabled = True
        Me.chkActivo.Enabled = True
        Me.chkActivo.Checked = False
        Me.TXTAlias.Clear()
        Me.TXTAlias.Enabled = True

        txtNombre.Focus()
        BtnEditar.Enabled = False
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
    End Sub

    Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click

        ' If clsVaribles.lbDemo = True Then Exit Sub

        clsVaribles.varProceso = "Actualizar"

        txtClave.Enabled = False
        'txtClave.Visible = False
        txtNombre.Enabled = True
        'Me.txtNombreIngles.Enabled = True
        'Me.cmbOrganismo.Enabled = True

        TXTAlias.Enabled = True

        Me.chkActivo.Enabled = True
        BtnOk.Enabled = True

        BtnEditar.Enabled = False

        txtNombre.Focus()
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
    End Sub

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

        'If clsVaribles.lbDemo = True Then Exit Sub

        Dim classcom As New clsComplejo
        Dim strSQLComodin As String

        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo

        Select Case UCase(clsVaribles.varProceso)

            Case Is = "AGREGAR"

                txtClave.Enabled = True

                'VALIDACION DE CAMPOS

                'If txtClave.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txtNombre.Focus()
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If

                strSQLComodin = "SELECT IdTipoOperacion FROM CAT_TIPOOPERACION WHERE TipoOperacion = '" & txtNombre.Text & "'"

                If classcom.BuscaDatos(strSQLComodin) Then
                    MessageBox.Show("Este Nombre del Tipo de Operacion ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'strSQLComodin = "INSERT INTO  CAT_TIPOOPERACION (IdTipoOperacion,TipoOperacion,aliasID,Activo) VALUES ("
                'strSQLComodin = strSQLComodin & "'" & txtClave.Text & "','" & txtNombre.Text & "','" & TXTAlias.Text & "'," & Me.chkActivo.CheckState & ")"

                'strSQLComodin = "INSERT INTO  CAT_TIPOOPERACION (TipoOperacion,Clave,Activo) VALUES ("
                'strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & Me.chkActivo.CheckState & ")"

                strSQLComodin = "sp_CargarTipoOperacion NULL,'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & chkActivo.CheckState

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 2, 1, " | Valores Nuevos: IdTipoOperacion: " & txtClave.Text & ", TipoOperacion = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text)


                'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 77, My.Computer.Name, "Minds Cliente", "ALTA DE TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                'FIN AUDITORIA

                MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)


            Case Is = "ACTUALIZAR"

                'VALIDACION DE CAMPOS

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    txtNombre.Focus()
                    Exit Sub
                End If

                'If cmbOrganismo.Text = "" Then
                '    MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                '    Exit Sub
                'End If
                clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 9," & txtClave.Text)

                'pnlBotones.Visible = False

                'strSQLComodin = "UPDATE cat_tipooperacion SET "
                'strSQLComodin = strSQLComodin & " TipoOperacion = '" & txtNombre.Text & "',aliasid = '" & TXTAlias.Text & "',Activo = " & Me.chkActivo.CheckState
                'strSQLComodin = strSQLComodin & " where IdTipoOperacion = '" & txtClave.Text & "'"


                'strSQLComodin = "UPDATE cat_tipooperacion SET "
                'strSQLComodin = strSQLComodin & " TipoOperacion = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
                'strSQLComodin = strSQLComodin & " where IdTipoOperacion = '" & txtClave.Text & "'"

                strSQLComodin = "sp_CargarTipoOperacion " & txtClave.Text & ",'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & chkActivo.CheckState


                classcom.sbInserta(strSQLComodin)
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdTipoOperacion: " & txtClave.Text & ", TipoOperacion = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text)

                'AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, My.Computer.Name, "Minds Cliente", "Cambio de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                'FIN AUDITORIA

                MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)



                classcom = New clsComplejo
                'classcom.fdtDataSetTabla("spGridPais 0")
                'Me.GridMaster.SetDataBinding(classcom.ds, "Tabla") 'Llena el grid

                'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Case Is = "ELIMINAR"

                If txtClave.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE cat_tipooperacion SET ACTIVO = 0 where IdTipoOperacion = '" & txtClave.Text & "'"
                classcom.sbInserta(strSQLComodin)

                ''AUDITORIA
                'Dim ClassAud As New ClassMyUtils
                'Dim varUser As Long
                'Dim ClassComodin As New clsComplejo
                ''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
                'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 79, My.Computer.Name, "Minds Cliente", "Baja de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
                ''FIN AUDITORIA

                MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)



        End Select

        BtnOk.Enabled = False


        Dim SQL As String
        Dim CLASSCATALOGOS As New ClassCatalogos

        GridMaster.DataSource = Nothing
        'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO,aliasid ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
        'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO,' ' AS ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
        SQL = "sp_ConsultarTipoOperacion 0"
        CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)

        CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)

        Call ajustarColumnas()

        txtClave.Enabled = False
        txtNombre.Enabled = False
        TXTAlias.Enabled = False
        chkActivo.Enabled = False
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
    End Sub

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

    Private Sub ajustarColumnas()
        For Each dc As C1.Win.C1TrueDBGrid.C1DisplayColumn In GridMaster.Splits(0).DisplayColumns
            dc.AutoSize()
        Next
    End Sub

    Private Sub Img_logoCabecera_Click(sender As Object, e As EventArgs) Handles Img_logoCabecera.Click

    End Sub
End Class