client/Catalogos/mdiprincipal.txt

227 lines
7.7 KiB
Plaintext

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