client/Catalogos/FRMyOrganismo.vb

Public Class FRMyOrganismo

    Private Sub FRMyOrganismo_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 = "Organismos Internacionales"
        Me.PnPais.Visible = True
        DesHeader.Text = Me.Text
        'If clsVaribles.lbDemo = True Then Exit Sub

        'LLENA GRID
        'SQL = "SELECT IdOrganismoInternacional CLAVE,OrganismoInternacional NOMBRE,ACTIVO FROM cat_OrganismoInternacional ORDER BY OrganismoInternacional"
        SQL = "sp_ConsultarOrganismosInter 0"
        ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)

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

    End Sub

    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 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.txtNombreIngles.Text = Me.GridMaster.Columns("NOMBREUS").Value
        'Me.cmbOrganismo.ValueMember = Me.C1TrueDBGrid1.Columns("Id_Organismo").Text
        'Me.cmbOrganismo.SelectedValue = Me.GridMaster.Columns("Organismo").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
        'Me.txtNombreIngles.Enabled = False
        'Me.cmbOrganismo.Enabled = False
        Me.chkActivo.Enabled = False

        Dim SQL As String = ""

        'SQL = fsDefineSQL("spGridPaisClasificacion ")
        'clCmp1.fdtDataSetTabla(SQL)
        BtnEditar.Enabled = True
        txtClave.Enabled = False
        ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
        'pnlBotones.Visible = False
    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_Organismo FROM OrganismoInternacional WHERE NombreOrganismo = '" & txtNombre.Text & "'"

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

                strSQLComodin = "INSERT INTO  OrganismoInternacional (NombreOrganismo,Id_Catalogo,Activo) VALUES ("
                strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "',14," & Me.chkActivo.CheckState & ")"

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA

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

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 25, My.Computer.Name, "Minds Cliente", "ALTA DE Organismo Internacional 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 Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre del Organismo ", "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 OrganismoInternacional SET "
                strSQLComodin = strSQLComodin & " NombreOrganismo = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
                strSQLComodin = strSQLComodin & " where Id_Organismo = " & 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, 27, 1, txtNombre.Text)

                '                ClassAud.RT_Auditoria(clsVaribles.varUsuario, 27, My.Computer.Name, "Minds Cliente", "Cambio de Organismo Internacional 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 OrganismoInternacional SET ACTIVO = 0 where Id_Organismo = " & 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, 27, 1, txtNombre.Text)

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

                MessageBox.Show("Operaci<EFBFBD>n 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_Organismo CLAVE,NombreOrganismo NOMBRE,ACTIVO FROM OrganismoInternacional ORDER BY NombreOrganismo"
        CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)

        CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)


    End Sub

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

        'If clsVaribles.lbDemo = True Then Exit Sub

        'pnlBotones.Visible = True

        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 = True
        Label1.Visible = True

        txtNombre.Enabled = True

        'Me.txtNombreIngles.Enabled = True
        'Me.cmbOrganismo.Enabled = True
        Me.chkActivo.Enabled = True

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


    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

        Me.chkActivo.Enabled = True

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

    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 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 IdOrganismoInternacional FROM cat_OrganismoInternacional WHERE OrganismoInternacional = '" & txtNombre.Text & "'"

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

                strSQLComodin = "INSERT INTO  cat_OrganismoInternacional (OrganismoInternacional,Activo) VALUES ("
                strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "'," & Me.chkActivo.CheckState & ")"

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 25, 1, " | Valores Nuevos: idOrganismoInternacional: " & txtClave.Text & ", OrganismoInternacional = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState)
                '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 Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    'txtClave.Focus()
                    Exit Sub
                End If

                If txtNombre.Text = "" Then
                    MessageBox.Show("Es Necesario Introducir el Nombre del Organismo ", "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 13," & txtClave.Text)

                'pnlBotones.Visible = False

                strSQLComodin = "UPDATE cat_OrganismoInternacional SET "
                strSQLComodin = strSQLComodin & " OrganismoInternacional = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
                strSQLComodin = strSQLComodin & " where IdOrganismoInternacional = " & txtClave.Text

                classcom.sbInserta(strSQLComodin)

                'AUDITORIA
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 27, 1, clsVaribles.lsValAnt & " | Valores Nuevos: idOrganismoInternacional: " & txtClave.Text & ", OrganismoInternacional = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState)
                '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 cat_OrganismoInternacional SET ACTIVO = 0 where IdOrganismoInternacional = " & 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, 27, 1, txtNombre.Text)

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

                MessageBox.Show("Operaci<EFBFBD>n 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 IdOrganismoInternacional CLAVE,OrganismoInternacional NOMBRE,ACTIVO FROM cat_OrganismoInternacional ORDER BY OrganismoInternacional"
        SQL = "sp_ConsultarOrganismosInter 0"
        CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)

        CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)

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

    End Sub
End Class