client/Catalogos/mdiprincipal.txt

    Private Sub PersonasBoletinadasMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PersonasBoletinadasMenu.Click

        If Not estaAbieta("frmlistasr") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMListasR
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Busqueda en Listas Restringidas"
            FORMA.Show()

        Else
            Application.OpenForms.Item("frmlistasr").Activate()
        End If


    End Sub

    Private Sub ClientesBoletinadosMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBoletinadosMenu.Click


        If Not estaAbieta("clientebol") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.ClientesBol
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Busqueda en Listas Restringidas Clientes"
            FORMA.Show()

        Else
            Application.OpenForms.Item("ClientesBol").Activate()
        End If

    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click

    End Sub

    Private Sub PersonaslMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PersonaslMenu.Click


        If Not estaAbieta("frmlistasr") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMListasR
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Busqueda en Listas Restringidas"
            FORMA.Show()

        Else
            Application.OpenForms.Item("frmlistasr").Activate()
        End If


    End Sub

    Private Sub ClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem.Click

        If Not estaAbieta("clientebol") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.ClientesBol
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Busqueda en Listas Restringidas Clientes"
            FORMA.Show()

        Else
            Application.OpenForms.Item("ClientesBol").Activate()
        End If

    End Sub

    Private Sub PaisesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaisesToolStripMenuItem.Click

        If Not estaAbieta("paisesbol") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.PaisesBol
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Busqueda Paises Boletinados"
            FORMA.Show()

        Else
            Application.OpenForms.Item("PaisesBol").Activate()
        End If


    End Sub

    Private Sub TipoOperacionMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TipoOperacionMenu.Click

        If Not estaAbieta("FRMyTipoOperacion") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyTipoOperacion
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo Tipos de Operacion"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyTipoOperacion").Activate()
        End If

    End Sub

    Private Sub InstitucionFinancieraMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstitucionFinancieraMenu.Click

        If Not estaAbieta("FRMyInstitucion") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyInstitucion
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo Institucion Financiera"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyInstitucion").Activate()
        End If

    End Sub

    Private Sub InstrumentoMonetarioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstrumentoMonetarioToolStripMenuItem.Click

        If Not estaAbieta("FRMyInstrumento") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyInstrumento
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo Instrumento Monetario"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyInstrumento").Activate()
        End If

    End Sub

    Private Sub MonedaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonedaToolStripMenuItem.Click

        If Not estaAbieta("FRMyMoneda") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyMoneda
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo Monedas"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyMoneda").Activate()
        End If

    End Sub

    Private Sub PaisToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaisToolStripMenuItem.Click


        If Not estaAbieta("FrmMasterCatalogo") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FrmMasterCatalogo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo de Paises"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FrmMasterCatalogo").Activate()
        End If


    End Sub

    Private Sub EstadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EstadoToolStripMenuItem.Click

        If Not estaAbieta("FRMyEstado") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyEstado
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo de Estados"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyEstado").Activate()
        End If


    End Sub

    Private Sub OrganismosInternacionalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrganismosInternacionalesToolStripMenuItem.Click

        If Not estaAbieta("FRMyOrganismo") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyOrganismo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo de Organismos Internacionales"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyOrganismo").Activate()
        End If


    End Sub

    Private Sub InstitucionalesMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InstitucionalesMenu.Click

    End Sub

    Private Sub ProductosMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductosMenu.Click

        If Not estaAbieta("FRMyProducto") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyProducto
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo de Productos"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMyProducto").Activate()
        End If

    End Sub

    Private Sub SubProductosMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubProductosMenu.Click

        If Not estaAbieta("FRMySubproducto") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMySubproducto
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Catalogo de Subproductos"
            FORMA.Show()

        Else
            Application.OpenForms.Item("FRMySubproducto").Activate()
        End If

    End Sub