227 lines
7.7 KiB
Plaintext
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
|