client/MainForm.vb

Imports System.IO
Imports System.Data.SqlClient
Imports CLIENTE.dmModulo
Imports System.Security.Permissions

Public Class mdiForm
    Public iTimeout As Integer

    Dim liperfil As Integer = 0
    Public Function estaAbieta(ByVal Forma As String) As Boolean
        Dim abierta As Boolean = False
        For cont As Integer = 0 To Application.OpenForms.Count - 1
            If Forma.Equals(Application.OpenForms.Item(cont).Name) Then
                abierta = True
            End If
        Next
        estaAbieta = abierta
    End Function

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        If Salir() Then
            Dim ClassAud As New ClassMyUtils
            ClassAud.DesactivarControlAcceso(clsVaribles.varUsuario)
            ClassAud.RT_Auditoria(clsVaribles.varUsuario, 6, 1, "Salida de Minds Cliente")
            SalirdeMinds()
        End If
    End Sub

    Private Sub mdiForm_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 6, 1, "Salida de Minds Cliente")
        SalirdeMinds()

    End Sub
    Private Sub RecuperaLogin()
        Dim strLocation = Application.StartupPath
        Dim cOpcion As String = strLocation & "\PrjLogin.exe" + " " + My.Computer.Name + "," + VariablesGlobales.gblUsuario + "," + "op"
        Shell(cOpcion, AppWinStyle.NormalFocus, False)
    End Sub

    Private Sub mdiForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim ClassAud As New ClassMyUtils
        Dim varUser As Long
        Dim ClassComodin As New clsComplejo

        If Not Salir() Then
            e.Cancel = True 'Cancela el cierre del formulario
        Else
            ClassAud.DesactivarControlAcceso(clsVaribles.varUsuario)
            ClassAud.RT_Auditoria(clsVaribles.varUsuario, 6, 1, "Salida de Minds Cliente")
            SalirdeMinds()
        End If
    End Sub

    Private Function Salir() As Boolean
        If MessageBox.Show("<EFBFBD>Desea Salir?", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
        Dim frmAcercaDe As New CLIENTE.FrmAboutBox
        frmAcercaDe.Show()
    End Sub


    Private Sub mdiForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '- valida parametros de ejecucion

        '----------------+++++++++inicia
        Dim Cadena As String
        Dim cmd1 As SqlCommand
        Dim cnn1 As SqlConnection
        Dim dap1 As SqlDataAdapter = New SqlDataAdapter()
        Dim das1 As DataSet
        Dim vIdUsr As Integer
        Dim i As Integer
        Dim lcCtrl As Object
        Dim lctab As Object
        Dim classcom As New clsComplejo
        Dim sql As String
        Dim Fila As DataRow
        Dim fila1 As DataRow
        Dim liperfil As Integer
        Dim sAmbienteConexion As String
        Dim VersionCliente As String
        Dim aplicacioncorriendo As Process() = Process.GetProcessesByName("MINDS CLIENTE")

        'If aplicacioncorriendo.Length > 1 Then
        '    MessageBox.Show("la aplicaci<63>n 'Minds Cliente', ya se esta ejecutando.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
        '    End
        'End If

        'valida parametros de ejecucion
        Dim mLocation As String
        '-- se obtiene la version del ensamblado del programa
        mLocation = System.Reflection.Assembly.GetExecutingAssembly.Location
        '-- aqui lo estoy asignando a un campo del toolbar
        VersionCliente = "Version:" & System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileMajorPart.ToString & "." _
                             & System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileMinorPart.ToString & "." _
                             & System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileBuildPart.ToString & "." _
                            & System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FilePrivatePart.ToString



        sAmbienteConexion = ""
        If VariablesGlobales.ValidaParametros() Then
            '-- asigna el idusuario
            Dim cnS() As String
            Try
                strConnection = ""
                dmModulo.strConnection = ""

                LEE()

                clsVaribles.Conexion = New SqlConnection(clsVaribles.strCon)
                strConnection = dmModulo.strConnection

                sAmbienteConexion = clsVaribles.Conexion.ConnectionString.ToString()

                ToolStripStatusLabel2.Size = Me.MaximumSize
                cnS = Split(clsVaribles.Conexion.ConnectionString.ToString(), ";")
                If InStr(1, strConnection, "Integrated") = 0 Then
                    ToolStripStatusLabel2.Text = cnS(0) & " " & cnS(1) & " " & cnS(3)
                Else
                    ToolStripStatusLabel2.Text = cnS(0) & " " & cnS(1)
                End If



                cnn1 = New SqlConnection(dmModulo.strConnection)
                cnn1.Open()

                Cadena = "select * from Usuario WHERE Usuario = '"
                Cadena = Cadena & VariablesGlobales.gblUsuario.Trim & "'"

                cmd1 = New SqlCommand(Cadena, cnn1)
                dap1.SelectCommand = cmd1

                das1 = New DataSet
                dap1.Fill(das1, "UsuarioPerfil")

                If das1.Tables(0).Rows.Count <> 0 Then
                    vIdUsr = das1.Tables(0).Rows(0).Item("IdUsuario")
                    clsVaribles.varUsuario = vIdUsr
                    VariablesGlobales.gblIdUsuario = vIdUsr
                    clsVaribles.VarPerfil = das1.Tables(0).Rows(0).Item("Idperfil")
                    VariablesGlobales.gblIdPerfilUsuario = das1.Tables(0).Rows(0).Item("Idperfil")
                End If
                '-cierra
                das1.Dispose()
                dap1.Dispose()
                cmd1.Dispose()
                cnn1.Close()

                Me.RecorrerNivelesAltosAp()



                sql = "spConPerfil 4," & clsVaribles.VarPerfil '-- lista permisos del cliente, de acuerdo al perfil


                classcom = New clsComplejo

                classcom.fdtDataSet(sql)

                'classcom.ds()
                '-- de momento comento esta linea
                Me.RecorrerNivelesAltos(classcom.ds)
                'mnu_ReportesAnom.Enabled = True
                AcercaDeToolStripMenuItem.Enabled = True
                SalirToolStripMenuItem.Enabled = True
                ''RelevantesToolStripMenuItem.Enabled = True
                ''InusualesFraccionadasToolStripMenuItem.Enabled = True
                'CreditoToolStripMenuItem.Enabled = True

                'Me.Text = "Minds Cliente Mizuho" & "  " & VersionCliente

                ''Inicializa el timer con intervalos de 5 segundos
                ''Timer1.Interval = 5 * 1000  '' (60 seg * 1000 = 1 MINUTO)  
                ''Timer1.Start()
                ''Me.ToolStripStatusLabel4.Text = "0"
                ''Fin de inicializar el timer

                ''Lectura de TimeoutCliente 
                Dim MiTable As New DataTable
                sql = "SELECT TimeoutCliente FROM ConfigPassw"
                classcom.ds = Nothing
                MiTable = classcom.fdtDataTable(sql)
                If MiTable.Rows.Count = 1 Then
                    iTimeout = MiTable.Rows(0).Item("TimeoutCliente")  ''Tiempo en minutos
                End If


                ''Fin de la lectura de TimeoutCliente
            Catch ex As Exception
                MsgBox("excepcion de error:" & ex.Message)
                End
            End Try
            '--
            'clsVaribles.varUsuario = 4
        Else
            '-- si no hubo los parametros debidos cierra la aplicacion
            MsgBox("No le llegaron los parametros correctos:" & VariablesGlobales.gblUsuario & "," & VariablesGlobales.gblMaquina & vbLf & ", por lo que termina el programa validar con sistemas")

            End
        End If

        Dim ClassAud As New ClassMyUtils
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 1, 1, "Entrada a Minds Cliente")


        ExcedentesToolStripMenuItem.Enabled = True

        '------
        Dim ctl As Control
        Dim ctlMDI As MdiClient

        ' Loop through all of the form's controls looking
        ' for the control of type MdiClient.
        For Each ctl In Me.Controls
            Try
                ' Attempt to cast the control to type MdiClient.
                ctlMDI = CType(ctl, MdiClient)

                ' Set the BackColor of the MdiClient control.
                ctlMDI.BackColor = Color.White


            Catch exc As InvalidCastException
                ' Catch and ignore the error if casting failed.
            End Try
        Next


        'mnuNacionalidad.Enabled = True
        'mnuCiudadOperacion.Enabled = True
        'mnuRiesgoPPE.Enabled = True
        'mnuEstatusCta.Enabled = True

    End Sub

    Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActividadEconomicaMenu.Click
        If Not estaAbieta("FRMyActividad") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FRMyActividad
            'FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Actividad Economica"
            FORMA.Show()
            clsVaribles.lnInusual = 1
        Else
            Application.OpenForms.Item("FRMyActividad").Activate()
        End If

    End Sub


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


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

            Dim FORMA As New CLIENTE.FRMFraccionadas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Inusuales Fraccionadas Vida"
            FORMA.Show()
            clsVaribles.lnInusual = 5
        Else
            Application.OpenForms.Item("ReporteOperComer").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.FRMFraccionadas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Inusuales Fraccionadas Autos"
            FORMA.Show()
            clsVaribles.lnInusual = 6
        Else
            Application.OpenForms.Item("FRMFraccionadas").Activate()
        End If
    End Sub

    Private Sub Da<EFBFBD>osToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

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

            Dim FORMA As New CLIENTE.FRMFraccionadas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Inusuales Fraccionadas Da<44>os"
            FORMA.Show()
            clsVaribles.lnInusual = 7
        Else
            Application.OpenForms.Item("FRMFraccionadas").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.FRMFraccionadas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Inusuales Fraccionadas Salud"
            FORMA.Show()
            clsVaribles.lnInusual = 8
        Else
            Application.OpenForms.Item("FRMFraccionadas").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.ReporteOperPreo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Preocupantes Vida"
            FORMA.Show()
            clsVaribles.lnInusual = 13
        Else
            Application.OpenForms.Item("ReporteOperPreo").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.ReporteOperPreo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Preocupantes Autos"
            FORMA.Show()
            clsVaribles.lnInusual = 14
        Else
            Application.OpenForms.Item("ReporteOperPreo").Activate()
        End If
    End Sub

    Private Sub Da<EFBFBD>osToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

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

            Dim FORMA As New CLIENTE.ReporteOperPreo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Preocupantes Da<44>os"
            FORMA.Show()
            clsVaribles.lnInusual = 15
        Else
            Application.OpenForms.Item("ReporteOperPreo").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.ReporteOperPreo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Preocupantes Salud"
            FORMA.Show()
            clsVaribles.lnInusual = 16
        Else
            Application.OpenForms.Item("ReporteOperPreo").Activate()
        End If
    End Sub


    Private Sub ParametrosDeGrupoMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParametrosDeGrupoMenu.Click
        If Not estaAbieta("frmMyParametroGrupo") Then  '- verifica si ya se abrio la forma
            Dim FORMA As New CLIENTE.frmMyParametroGrupo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild            
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("frmMyParametroGrupo").Activate()
        End If
    End Sub

    Private Sub TipoCambioMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TipoCambioMenu.Click

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

            Dim FORMA As New CLIENTE.ActTipoCambio
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Tipo de Cambio"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("ActTipoCambio").Activate()
        End If

    End Sub

    Private Sub AsignacionDeGruposMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AsignacionDeGruposMenu.Click

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

            Dim FORMA As New CLIENTE.MyAsignaGrupo
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Asignaci<EFBFBD>n de Grupo"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("MyAsignaGrupo").Activate()
        End If
    End Sub

    Private Sub RazonesMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RazonesMenu.Click

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

            Dim FORMA As New CLIENTE.RazonAct
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "catalogo Razones Cerrado de Alarmas"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("RazonAct").Activate()
        End If
    End Sub

    Private Sub UsuarioMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuarioMenu.Click

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

            Dim FORMA As New CLIENTE.UsuarioM
            ' FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Usuarios"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("usuariom").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.FrmNewInsuales
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Captura manual de Inusuales"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("FrmNewInsuales").Activate()
        End If

    End Sub

    Private Sub PerfilesMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PerfilesMenu.Click

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

            Dim FORMA As New CLIENTE.Perfil
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Perfiles"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("perfil").Activate()
        End If
    End Sub

    Private Sub AuditoriaMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AuditoriaMenu.Click

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

            Dim FORMA As New CLIENTE.FRAuditoria
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Auditor<EFBFBD>a"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("FRAuditoria").Activate()
        End If
    End Sub

    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.Text = "B<EFBFBD>squeda 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 = "Tipos de Operaci<63>n"
            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 = "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 = "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 = "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 = "Pa<EFBFBD>ses"
            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 = "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 = "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 = "Ramo"
            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 = "Subproductos"
            FORMA.Show()

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

    End Sub

    Private Sub CNFSMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNFSMenu.Click

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

            Dim FORMA As New CLIENTE.ReporteCNBV
            'FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte SITI"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("ReporteCNBV").Activate()
        End If
    End Sub

    Private Sub TransaccionesMenuT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransaccionesMenuT.Click

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

            Dim FORMA As New CLIENTE.FrTransaccionesXGpo
            ' FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Transacciones"
            FORMA.Show()
            clsVaribles.lnInusual = 1
        Else
            Application.OpenForms.Item("FrTransacciones").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.FrmRepEstadistico
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Transacciones"
            FORMA.Show()
            clsVaribles.lnInusual = 1
        Else
            Application.OpenForms.Item("FrmRepEstadistico").Activate()
        End If
    End Sub


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

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

            Dim FORMA As New CLIENTE.FRMFraccionadas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Inusuales Fraccionadas"
            FORMA.Show()
            clsVaribles.lnInusual = 5
        Else
            Application.OpenForms.Item("ReporteOperComer").Activate()
        End If
    End Sub



    Private Sub PreocupantesMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreocupantesMenu.Click


    End Sub

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

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

            Dim FORMA As New CLIENTE.frmCatalogos
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Mantenimiento Catalogos"
            FORMA.Show()
            clsVaribles.lnInusual = 14
        Else
            Application.OpenForms.Item("FrmCatalogos").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.FrmOficinas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            'FORMA.Text = "Mantenimiento Catalogos"
            FORMA.Show()
            clsVaribles.lnInusual = 14
        Else
            Application.OpenForms.Item("FrmOficinas").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.FrmDirAgencia
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            'FORMA.Text = "Mantenimiento Catalogos"
            FORMA.Show()
            clsVaribles.lnInusual = 14
        Else
            Application.OpenForms.Item("FrmDirAgencia").Activate()
        End If
    End Sub

    Private Sub AgentesMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgentesMenu.Click

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

            Dim FORMA As New CLIENTE.FrmAgentes
            'FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            'FORMA.Text = "Mantenimiento Catalogos"
            FORMA.Show()
            clsVaribles.lnInusual = 14
        Else
            Application.OpenForms.Item("FrmAgentes").Activate()
        End If

    End Sub


    Public Sub RecorrerNivelesAltos(ByVal DS As DataSet)
        Dim FILA1 As DataRow
        For Each M As ToolStripMenuItem In MenuStrip1.Items
            M.Enabled = False
            If DS.Tables(0).Rows.Count <> 0 Then
                For Each FILA1 In DS.Tables(0).Rows

                    If M.Name = FILA1("ETIQUETA") Then
                        M.Enabled = 1
                        Exit For
                    End If
                Next
            End If


            Me.RecorrerSubMenuNivelesAltos(M, DS)
        Next
    End Sub

    Public Sub RecorrerSubMenuNivelesAltos(ByVal M As ToolStripMenuItem, ByVal DS As DataSet)
        Dim FILA1 As DataRow
        For Each SubMenu As ToolStripMenuItem In M.DropDownItems
            SubMenu.Enabled = False
            If DS.Tables(0).Rows.Count <> 0 Then
                For Each FILA1 In DS.Tables(0).Rows
                    'If SubMenu.text = FILA1("ETIQUETA") Then

                    'If SubMenu.Name = "MercadoDeCapitalesToolStripMenuItem" Then
                    '    SubMenu.Enabled = 1
                    '    Exit For
                    'End If

                    If FILA1("ETIQUETA") = "bReviewer" Then
                        VariablesGlobales.breview = True
                        'Exit For
                    End If

                    If FILA1("ETIQUETA") = "bCompliance" Then
                        VariablesGlobales.bcompli = True
                        'Exit For
                    End If


                    If SubMenu.Name = "AgentesMenu" Then
                        SubMenu.Visible = False
                        Exit For
                    End If


                    If SubMenu.Name = "PatronesToolStripMenuItem" Then
                        SubMenu.Visible = False
                        Exit For
                    End If

                    'If SubMenu.Name = "UmbralesToolStripMenuItem" Then
                    '    SubMenu.Visible = False
                    '    Exit For
                    'End If

                    'If SubMenu.Name = "IngresosDepositosToolStripMenuItem" Then
                    '    SubMenu.Visible = False
                    '    Exit For
                    'End If

                    If SubMenu.Name = "ExcedentesToolStripMenuItem" Then
                        SubMenu.Visible = False
                        Exit For
                    End If

                    'If SubMenu.Name = "AcumuladoMensualToolStripMenuItem" Then
                    '    SubMenu.Enabled = True
                    '    Exit For
                    'End If


                    If SubMenu.Name = "MunicipioToolStripMenuItem" Then
                        SubMenu.Visible = False
                        Exit For
                    End If

                    If SubMenu.Name = FILA1("ETIQUETA") Then
                        SubMenu.Enabled = 1
                        Exit For
                    End If

                    '-- de momento activa todo
                    '-SubMenu.Enabled = 1
                Next
            End If
            Me.RecorrerSubMenuNivelesAltos(SubMenu, DS)
        Next

    End Sub


    Public Sub RecorrerNivelesAltosAp()
        Dim FILA1 As DataRow
        For Each M As ToolStripMenuItem In MenuStrip1.Items
            'MessageBox.Show(M.Text)
            M.Enabled = False
            'If DS.Tables(0).Rows.Count <> 0 Then
            ' For Each FILA1 In DS.Tables(0).Rows
            'If M.Name = FILA1("ETIQUETA") Then
            M.Enabled = 0
            'End If
            'Next
            'End If


            Me.RecorrerSubMenuNivelesAltosAp(M)
        Next
    End Sub

    Public Sub RecorrerSubMenuNivelesAltosAp(ByVal M As ToolStripMenuItem)
        For Each SubMenu As ToolStripMenuItem In M.DropDownItems
            'MessageBox.Show(SubMenu.Text)

            'SubMenu.Enabled = False

            Me.RecorrerSubMenuNivelesAltosAp(SubMenu)
        Next
    End Sub

    'Private Sub ReportesMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportesMenu.Click

    'End Sub

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

        'Mercado de dinero
        Dim frmMerDin As ReporteMerDin = New ReporteMerDin
        frmMerDin.lblAreaUsuario.Text = ""
        frmMerDin.ShowDialog()

    End Sub

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

        Dim frmOperComer As ReporteOperComer = New ReporteOperComer
        frmOperComer.ShowDialog()
    End Sub

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

        '- Sociedades de Inversion
        Dim FrmDerivados As InusualesDerivados = New InusualesDerivados
        FrmDerivados.ShowDialog()

    End Sub

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

        Dim frmOpInu As RepOpInusuales = New RepOpInusuales
        frmOpInu.ShowDialog()
    End Sub

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

    ''    'Dim frmOpInuCrd As InusualesCredito = New InusualesCredito
    ''    'frmOpInuCrd.ShowDialog()
    ''    '-- se cambio la forma, pues esta incluye el historico.
    ''    If Not estaAbieta("frmHistoricoAlarmas") Then  '- verifica si ya se abrio la forma

    ''        Dim FORMA As New CLIENTE.frmHistoricoAlarmas
    ''        FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
    ''        FORMA.Text = "Alarmas Inusuales Credito"
    ''        FORMA.Show()
    ''        clsVaribles.lnInusual = 9
    ''    Else
    ''        Application.OpenForms.Item("frmHistoricoAlarmas").Activate()
    ''    End If
    ''End Sub

    Private Sub RelevantesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RelevantesToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.ReporteRelevantes
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Relevantes"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("ReporteRelevantes").Activate()
        End If
    End Sub

    Private Sub InusualesFraccionadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InusualesFraccionadasToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.FRMFraccionadas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte Inusuales Fraccionadas"

            FORMA.Show()
            clsVaribles.lnInusual = 5
        Else
            Application.OpenForms.Item("FRMFraccionadas").Activate()
        End If
    End Sub

    Private Sub ConfiguracionClavesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConfiguracionClavesToolStripMenuItem.Click

        Dim Frm_cuentas As New FrmPasswConfig
        Frm_cuentas.Show()
        If Not estaAbieta("FrmPasswConfig") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FrmPasswConfig
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Configuracion Contrase<73>as"
            FORMA.ShowDialog()

        Else
            Application.OpenForms.Item("FrmPasswConfig").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.frmHistoricoAlarmas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Historico de Alarmas"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmas").Activate()
        End If
    End Sub

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

        'ReporteOperComer.ShowDialog()
        If Not estaAbieta("frmHistoricoAlarmasBT") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.frmHistoricoAlarmasBT
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Banca Tradicional"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmasBT").Activate()
        End If
    End Sub

    Private Sub UmbralesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UmbralesToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.FrmUmbral
            FORMA.MdiParent = Me '- Asigna que la forma es un MdiChild
            FORMA.Text = "Reporte de Umbrales"
            FORMA.Show()
        Else
            Application.OpenForms.Item("FrmUmbral").Activate()
        End If

    End Sub


    Private Sub DorminaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DorminaToolStripMenuItem.Click
        If Not estaAbieta("DormatAccount") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.DormatAccount
            'FORMA.MdiParent = Me '- Asigna que la forma es un MdiChild
            FORMA.Text = "Cuentas dormidas"
            FORMA.ShowDialog()
        Else
            Application.OpenForms.Item("DormatAccount").Activate()
        End If

    End Sub

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

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

            Dim FORMA As New CLIENTE.frmHistoricoAlarmasBI
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Banca Internacional"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmasBI").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.frmHistoricoAlarmasDIV
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Divisas"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmasDIV").Activate()
        End If
    End Sub

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

        'ReporteOperComer.ShowDialog()
        If Not estaAbieta("frmHistoricoAlarmasBT") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.frmHistoricoAlarmasBT
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Banca Tradicional"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmasBT").Activate()
        End If
    End Sub

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

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

            Dim FORMA As New CLIENTE.frmHistoricoAlarmasBI
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Banca Internacional"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmasBI").Activate()
        End If
    End Sub

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

        'Dim frmOpInuCrd As InusualesCredito = New InusualesCredito
        'frmOpInuCrd.ShowDialog()
        '-- se cambio la forma, pues esta incluye el historico.
        If Not estaAbieta("frmHistoricoAlarmas") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.frmHistoricoAlarmas
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Credito"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmas").Activate()
        End If
    End Sub


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

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

            Dim FORMA As New CLIENTE.frmHistoricoAlarmasDIV
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Alarmas Inusuales Divisas"
            FORMA.Show()
            clsVaribles.lnInusual = 9
        Else
            Application.OpenForms.Item("frmHistoricoAlarmasDIV").Activate()
        End If
    End Sub

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

    End Sub

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

        Dim frmOpInu As RepOpInusuales = New RepOpInusuales
        frmOpInu.ShowDialog()
    End Sub

    Private Sub NuevaInusalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuevaInusalToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.FrmNewInsuales
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Nueva Inusual"
            FORMA.Show()
            clsVaribles.lnInusual = 0
        Else
            Application.OpenForms.Item("FrmNewInsuales").Activate()
        End If
    End Sub

    Private Sub PatronesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PatronesToolStripMenuItem.Click

        ''FrmStatusPatrones.Show()
        If Not estaAbieta("FrmStatusPatrones") Then  '- verifica si ya se abrio la forma
            Dim FORMA As New CLIENTE.FrmStatusPatrones
            FORMA.MdiParent = Me '- Asigna que la forma es un MdiChild
            FORMA.Show()
        Else
            Application.OpenForms.Item("FrmStatusPatrones").Activate()
        End If

    End Sub

    Private Sub PerfilTransaccionalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PerfilTransaccionalToolStripMenuItem.Click
        If Not estaAbieta("FRAlarmasKYC") Then  '- verifica si ya se abrio la forma
            Dim FORMA As New CLIENTE.FRAlarmasKYC
            FORMA.MdiParent = Me '- Asigna que la forma es un MdiChild
            FORMA.Show()
        Else
            Application.OpenForms.Item("FRAlarmasKYC").Activate()
        End If
    End Sub

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

        'Me.ToolStripStatusLabel4.Text = Val(Me.ToolStripStatusLabel4.Text) + 5
        'If Val(Me.ToolStripStatusLabel4.Text) > iTimeout * 60 Then
        '    Dim ClassAud As New ClassMyUtils
        '    ClassAud.RT_Auditoria(clsVaribles.varUsuario, 6, 1, "Salida Minds Cliente x Inact")
        '    Timer1.Stop()
        '    Timer1.Dispose()
        '    ''Inicia llamado a la aplicacion de login para avisar que la session se termina por inactividad. El parametro para indicar esto es -1
        '    'Dim cOpcion As String
        '    'cOpcion = Application.StartupPath
        '    'cOpcion = cOpcion & "\PrjLogin.exe -1"
        '    'Shell(cOpcion, AppWinStyle.NormalFocus, False)
        '    ''Fin de llamado a la aplicacion de login
        '    ''Sale del sistema
        '    SalirdeMinds()
        'End If

    End Sub

    ''Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
    ''    'Check for mouse movements and / or clicks

    ''    Dim mouse As Boolean = (m.Msg >= &H200 And m.Msg <= &H20D) Or (m.Msg >= &HA0 And m.Msg <= &HAD)
    ''    'Check for keyboard button presses
    ''    Dim kbd As Boolean = (m.Msg >= &H100 And m.Msg <= &H109)
    ''    If mouse Or kbd Then
    ''        If CDbl(m.WParam) <> 0 Then
    ''            Me.ToolStripStatusLabel4.Text = "0"
    ''        End If
    ''    End If
    ''    Return False

    ''End Function

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        ''Application.AddMessageFilter(Me)
        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Public Sub SalirdeMinds()
        'Cierra hilos de ejecuci<63>n
        RecuperaLogin()
        Application.DoEvents()
        Application.ExitThread()

        'LLama al recolector de basura
        GC.Collect()
        GC.WaitForPendingFinalizers()
        ' GC needs to be called twice in order to get the Finalizers called  
        ' - the first time in, it simply makes a list of what is to be  
        ' finalized, the second time in, it actually is finalizing. Only  
        ' then will the object do its automatic ReleaseComObject. 
        GC.Collect()
        GC.WaitForPendingFinalizers()

        ''Finalmente sale de la aplicacion.
        End

    End Sub

    Private Sub IngresosDepositosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IngresosDepositosToolStripMenuItem.Click
        If Not estaAbieta("FrmIngresosDepositos") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FrmIngresosDepositos
            FORMA.MdiParent = Me '- Asigna que la forma es un MdiChild            
            FORMA.Show()
        Else
            Application.OpenForms.Item("FrmIngresosDepositos").Activate()
        End If

    End Sub

    Private Sub FuncionariosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FuncionariosToolStripMenuItem.Click
        If Not estaAbieta("FrmFuncionario") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.FrmFuncionario
            ' FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            'FORMA.Text = "Mantenimiento Catalogos"
            FORMA.Show()
            clsVaribles.lnInusual = 14
        Else
            Application.OpenForms.Item("FrmFuncionario").Activate()
        End If
    End Sub

    Private Sub RepExcedentesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        ' ''Reporte de excedentes. Lectura de la tabla ExcedenteBT
        'If Not estaAbieta("frmExcedentes") Then  '- verifica si ya se abrio la forma
        '    Dim FORMA2 As New CLIENTE.frmExcedentes
        '    FORMA2.MdiParent = Me '- Asigna que la formaq es un MdiChild
        '    'FORMA.Text = "Mantenimiento Catalogos"
        '    FORMA2.Show()
        'Else
        '    Application.OpenForms.Item("frmExcedentes").Activate()
        'End If
    End Sub

    Private Sub ExcedentesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExcedentesToolStripMenuItem.Click
        ''Reporte de excedentes. Lectura de la tabla ExcedenteBT
        If Not estaAbieta("frmExcedentes") Then  '- verifica si ya se abrio la forma
            Dim FORMA2 As New CLIENTE.frmExcedentes
            FORMA2.MdiParent = Me '- Asigna que la formaq es un MdiChild
            'FORMA.Text = "Mantenimiento Catalogos"
            FORMA2.Show()
        Else
            Application.OpenForms.Item("frmExcedentes").Activate()
        End If

    End Sub

    Private Sub CanalesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CanalesToolStripMenuItem.Click
        If Not estaAbieta("FrmCanales") Then  '- verifica si ya se abrio la forma

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

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

    End Sub

    Private Sub MercadoDeCapitalesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        If Not estaAbieta("frmMCapitales") Then  '- verifica si ya se abrio la forma

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

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

    End Sub

    Private Sub AcumuladoMensualToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AcumuladoMensualToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.frmAcumuladoCliente
            FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Acumulado Mensual"
            FORMA.Show()

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

    End Sub

    Private Sub TransferenciaInternacionalToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TransferenciaInternacionalToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.frmTInternacional
            FORMA.MdiParent = Me
            FORMA.Text = "Transferencia Internacional de Fondos"
            FORMA.Show()

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

    End Sub

    Private Sub MunicipioToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MunicipioToolStripMenuItem.Click

    End Sub

    Private Sub ReporteUSDEfectivoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ReporteUSDEfectivoToolStripMenuItem.Click

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

            Dim FORMA As New CLIENTE.frmDolaresEfectivo
            'FORMA.MdiParent = Me
            FORMA.Text = "Dolares en Efectivo"
            FORMA.Show()

        Else
            Application.OpenForms.Item("frmDolaresEfectivo").Activate()
        End If
    End Sub

    Private Sub AcurdoDeTransfernciaDeInformacionToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        If Not estaAbieta("frmAcuerdoTransfeInfo") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.frmAcuerdoTransfeInfo
            FORMA.MdiParent = Me
            FORMA.Text = "Acuerdo de Transferencia de Informaci<63>n"
            FORMA.Show()

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

    End Sub

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

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

            Dim FORMA As New CLIENTE.frmTransferenciaInfo
            FORMA.MdiParent = Me
            FORMA.Text = "Transferencia de Informaci<63>n"
            FORMA.Show()

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

    End Sub

    Private Sub ChequesDeCajaToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ChequesDeCajaToolStripMenuItem.Click

        If Not estaAbieta("frmChequeCaja") Then  '- verifica si ya se abrio la forma
            Dim FORMA As New CLIENTE.frmChequeCaja
            FORMA.MdiParent = Me
            FORMA.Text = "Cheques de Caja"
            FORMA.Show()

        Else
            Application.OpenForms.Item("frmChequeCaja").Activate()
        End If
    End Sub

    Private Sub Rep6ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles Rep6ToolStripMenuItem.Click

        If Not estaAbieta("frmRep6") Then  '- verifica si ya se abrio la forma
            Dim FORMA As New CLIENTE.frmRep6
            FORMA.MdiParent = Me
            FORMA.Text = "Reporte Seis"
            FORMA.Show()

        Else
            Application.OpenForms.Item("frmRep6").Activate()
        End If
    End Sub

    Private Sub ReportesAn<EFBFBD>nimosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        If estaAbieta("FrmRepAnonimo") Then Exit Sub
        Dim FrmRepAn As FrmRepAnonimo = New FrmRepAnonimo
        FrmRepAn.MdiParent = Me
        FrmRepAn.Show()
    End Sub

    Private Sub mnu_ReportesAnom_Click(sender As System.Object, e As System.EventArgs) Handles mnu_ReportesAnom.Click
        If estaAbieta("FrmRepAnonimo") Then Exit Sub
        Dim FrmRepAn As FrmRepAnonimo = New FrmRepAnonimo
        FrmRepAn.MdiParent = Me
        FrmRepAn.Show()
    End Sub

    Private Sub ProcesoHITToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuProcesoHit.Click
        If estaAbieta("FrmProcesoHit") Then Exit Sub
        Dim ProcesoHit As FrmProcesoHit = New FrmProcesoHit
        ProcesoHit.MdiParent = Me
        ProcesoHit.Show()
    End Sub

    Private Sub PatronesToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles mnuPatrones.Click
        If estaAbieta("frmPatrones") Then Exit Sub
        Dim Patrones As frmPatrones = New frmPatrones
        Patrones.MdiParent = Me
        Patrones.Show()
    End Sub

    Private Sub mnuActividadVulnerable_Click(sender As System.Object, e As System.EventArgs) Handles mnuActividadVulnerable.Click
        If estaAbieta("frmActividadVulnerable") Then Exit Sub
        Dim frmAV As frmActividadVulnerable = New frmActividadVulnerable
        'frmAV.MdiParent = Me
        frmAV.Show()
    End Sub

    Private Sub mnuConcepto_Click(sender As System.Object, e As System.EventArgs) Handles mnuConcepto.Click
        If estaAbieta("frmConcepto") Then Exit Sub
        Dim fC As frmConcepto = New frmConcepto
        ' fC.MdiParent = Me
        fC.Show()
    End Sub

    Private Sub DestinoRecursoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuDestinoRecurso.Click
        If estaAbieta("frmDestinoRecurso") Then Exit Sub
        Dim frmDR As frmDestinoRecurso = New frmDestinoRecurso
        ' frmDR.MdiParent = Me
        frmDR.Show()
    End Sub

    Private Sub mnuFuenteIngreso_Click(sender As System.Object, e As System.EventArgs) Handles mnuFuenteIngreso.Click
        If estaAbieta("frmFuenteIngreso") Then Exit Sub
        Dim frmFI As frmFuenteIngreso = New frmFuenteIngreso
        'frmFI.MdiParent = Me
        frmFI.Show()
    End Sub

    Private Sub mnuIdentificacion_Click(sender As System.Object, e As System.EventArgs) Handles mnuIdentificacion.Click
        If estaAbieta("frmIdentificacion") Then Exit Sub
        Dim frmId As frmIdentificacion = New frmIdentificacion
        ' frmId.MdiParent = Me
        frmId.Show()
    End Sub

    Private Sub mnuInstrumento_Click(sender As System.Object, e As System.EventArgs) Handles mnuInstrumento.Click
        If estaAbieta("frmInstrumento") Then Exit Sub
        Dim frmIns As frmInstrumento = New frmInstrumento
        ' frmIns.MdiParent = Me
        frmIns.Show()
    End Sub

    Private Sub mnuTipoTransferencia_Click(sender As System.Object, e As System.EventArgs) Handles mnuTipoTransferencia.Click
        If estaAbieta("frmTipoTransferencia") Then Exit Sub
        Dim frmTT As frmTipoTransferencia = New frmTipoTransferencia
        ' frmTT.MdiParent = Me
        frmTT.Show()
    End Sub

    Private Sub ParentescoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuParentesco.Click
        If estaAbieta("frmParentesco") Then Exit Sub
        Dim frmPar As frmParentesco = New frmParentesco
        ' frmPar.MdiParent = Me
        frmPar.Show()
    End Sub

    Private Sub mnuProcedenciaRecurso_Click(sender As System.Object, e As System.EventArgs) Handles mnuProcedenciaRecurso.Click
        If estaAbieta("frmProcedenciaRecurso") Then Exit Sub
        Dim frmPR As frmProcedenciaRecurso = New frmProcedenciaRecurso
        ' frmPR.MdiParent = Me
        frmPR.Show()
    End Sub

    Private Sub mnuTipoCuenta_Click(sender As System.Object, e As System.EventArgs) Handles mnuTipoCuenta.Click
        If estaAbieta("frmTipoCuenta") Then Exit Sub
        Dim frmTC As frmTipoCuenta = New frmTipoCuenta
        'frmTC.MdiParent = Me
        frmTC.Show()
    End Sub

    Private Sub mnuTipoDomicilio_Click(sender As System.Object, e As System.EventArgs) Handles mnuTipoDomicilio.Click
        If estaAbieta("frmTipoDomicilio") Then Exit Sub
        Dim frmTD As frmTipoDomicilio = New frmTipoDomicilio
        'frmTD.MdiParent = Me
        frmTD.Show()
    End Sub

    Private Sub EstructuraCorpToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuEstructuraCorp.Click
        If estaAbieta("frmEstructuraCorp") Then Exit Sub
        Dim frmEC As frmEstructuraCorp = New frmEstructuraCorp
        'frmEC.MdiParent = Me
        frmEC.Show()
    End Sub

    Private Sub TipoPersonaToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuTipoPersona.Click
        If estaAbieta("frmTipoPersona") Then Exit Sub
        Dim frmTP As frmTipoPersona = New frmTipoPersona
        'frmTP.MdiParent = Me
        frmTP.Show()
    End Sub

    Private Sub mnuFiguraLegal_Click(sender As System.Object, e As System.EventArgs) Handles mnuFiguraLegal.Click
        If estaAbieta("frmFiguraLegal") Then Exit Sub
        Dim frmFL As frmFiguraLegal = New frmFiguraLegal
        ' frmFL.MdiParent = Me
        frmFL.Show()
    End Sub

    Private Sub SucursalesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuSucursales.Click
        If estaAbieta("frmSucursal") Then Exit Sub
        Dim frmSuc As frmSucursal = New frmSucursal
        'frmSuc.MdiParent = Me
        frmSuc.Show()
    End Sub

    Private Sub GrupoRiesgoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuGrupoRiesgo.Click
        If estaAbieta("frmGrupoRiesgo") Then Exit Sub
        Dim fmrGR As frmGrupoRiesgo = New frmGrupoRiesgo
        'fmrGR.MdiParent = Me
        fmrGR.Show()
    End Sub

    Private Sub AvisosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuAvisos.Click
        If estaAbieta("FrmAvisos") Then Exit Sub
        Dim frmAv As FrmAvisos = New FrmAvisos
        ' frmAv.MdiParent = Me
        frmAv.Show()
    End Sub

    Private Sub mnuInformes_Click(sender As System.Object, e As System.EventArgs) Handles mnuAsesorias.Click
        If estaAbieta("FrmInformes") Then Exit Sub
        Dim frmrfeporteA As FrmReporteAsesorias = New FrmReporteAsesorias
        '  frmInf.MdiParent = Me
        frmrfeporteA.Show()
    End Sub

    Private Sub mnuIntercambioDeInformaci<EFBFBD>n_Click(sender As System.Object, e As System.EventArgs) Handles mnuIntercambioDeInformaci<EFBFBD>n.Click
        If estaAbieta("FrmRepInterExt") Then Exit Sub
        Dim frmRIE As FrmRepInterExt = New FrmRepInterExt
        'frmRIE.MdiParent = Me
        frmRIE.Show()
    End Sub

    Private Sub mnuCASFIM_Click(sender As System.Object, e As System.EventArgs) Handles mnuCASFIM.Click
        If estaAbieta("frmCASFIM") Then Exit Sub
        Dim frmCASFIM As frmCASFIM = New frmCASFIM
        ' frmCASFIM.MdiParent = Me
        frmCASFIM.Show()
    End Sub

    Private Sub LocalidadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuLocalidad2.Click
        If estaAbieta("frmLocalidad") Then Exit Sub
        Dim frmlocalidad As frmLocalidad = New frmLocalidad
        ' frmlocalidad.MdiParent = Me
        frmlocalidad.Show()
    End Sub

    Private Sub mnuSectoresEco_Click(sender As System.Object, e As System.EventArgs) Handles mnuSectoresEco.Click
        If estaAbieta("frmSectorEconomico") Then Exit Sub
        Dim frmSE As frmSectorEconomico = New frmSectorEconomico
        frmSE.MdiParent = Me
        frmSE.Show()
    End Sub

    Private Sub mnuInusualSnT_Click(sender As System.Object, e As System.EventArgs) Handles mnuInusualSnT.Click

        Dim Forma As OperInuSinTran = New OperInuSinTran
        Forma.MdiParent = Me
        Forma.Show()
    End Sub

    Private Sub mnuPreocupanteConT_Click(sender As System.Object, e As System.EventArgs) Handles mnuPreocupanteConT.Click
        If Not estaAbieta("ReporteOperPreo") Then  '- verifica si ya se abrio la forma

            Dim FORMA As New CLIENTE.ReporteOperPreo
            ' FORMA.MdiParent = Me '- Asigna que la formaq es un MdiChild
            FORMA.Text = "Reporte de Operaciones Preocupantes con Transacci<63>n"
            FORMA.Show()
            clsVaribles.lnInusual = 13
        Else
            Application.OpenForms.Item("ReporteOperPreo").Activate()
        End If
    End Sub

    Private Sub mnuPreocupantesnT_Click(sender As System.Object, e As System.EventArgs) Handles mnuPreocupantesnT.Click
        Dim OperPreoAdminDet As OperPreoSinTran = New OperPreoSinTran
        OperPreoAdminDet.ShowDialog()
    End Sub

    Private Sub mnuControlAcceso_Click(sender As System.Object, e As System.EventArgs) Handles mnuControlAcceso.Click
        If estaAbieta("frmAccesoControl") Then Exit Sub
        Dim AccesoControl As New frmAccesoControl
        'AccesoControl.MdiParent = Me
        AccesoControl.Show()
    End Sub

    Private Sub CuentasUSDToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuCuentasUSD.Click
        If estaAbieta("frmCuentasUSD") Then Exit Sub
        Dim frm As New frmCuentasUSD
        ' frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuPropositoCuenta_Click(sender As System.Object, e As System.EventArgs) Handles mnuPropositoCuenta.Click
        If estaAbieta("frmPropositoCuenta") Then Exit Sub
        Dim frm As New frmPropositoCuenta
        'frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuRelacion_Click(sender As System.Object, e As System.EventArgs) Handles mnuRelacion.Click
        If estaAbieta("frmRelacionCuenta") Then Exit Sub
        Dim frm As New frmRelacionCuenta
        ' frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuRazonesCuentaUSD_Click(sender As System.Object, e As System.EventArgs) Handles mnuRazonesCuentaUSD.Click
        If estaAbieta("frmRazonesCuentaUSD") Then Exit Sub
        Dim frm As New frmRazonesCuentaUSD
        ' frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuRazonesUsoUSDMexico_Click(sender As System.Object, e As System.EventArgs) Handles mnuRazonesUsoUSDMexico.Click
        If estaAbieta("frmRazonesUSDMX") Then Exit Sub
        Dim frm As New frmRazonesUSDMX
        'frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuListaSPID_Click(sender As System.Object, e As System.EventArgs) Handles mnuListaSPID.Click
        If estaAbieta("frmListaRSPID") Then Exit Sub
        Dim frm As New frmListaRSPID
        ' frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuLocalidad1_Click(sender As Object, e As EventArgs) Handles mnuLocalidad.Click
        If estaAbieta("frmLocalidad") Then Exit Sub
        Dim frmlocalidad As frmLocalidad = New frmLocalidad
        ' frmlocalidad.MdiParent = Me
        frmlocalidad.Show()
    End Sub

    Private Sub TodosLosProductosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OperacionesInusualesToolStripMenuItem1.Click
        Dim frmOpInu As RepOpInusuales = New RepOpInusuales
        'frmOpInu.MdiParent = Me
        frmOpInu.Show()
    End Sub

    Private Sub mnuVigenciaAlertas_Click(sender As Object, e As EventArgs) Handles mnuVigenciaAlertas.Click
        If estaAbieta("FrmVigenciaAlertas") Then Exit Sub
        Dim frmrfeporteVigencia As FrmVigenciaAlertas = New FrmVigenciaAlertas
        '  frmInf.MdiParent = Me
        frmrfeporteVigencia.Show()
    End Sub

    Private Sub mnuParamsgen_Click(sender As Object, e As EventArgs) Handles mnuParamsgen.Click
        If estaAbieta("frmParamsGral") Then Exit Sub
        Dim frm As New frmParamsGral
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuObjCta_Click(sender As Object, e As EventArgs) Handles mnuObjCta.Click
        If estaAbieta("frmObjCuenta") Then Exit Sub
        Dim frm As New frmObjCuenta
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuParamsMR_Click(sender As Object, e As EventArgs) Handles mnuParamsMR.Click
        If estaAbieta("frmParametrosMR") Then Exit Sub
        Dim frm As New frmParametrosMR
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuEBR_Click(sender As Object, e As EventArgs) Handles mnuEBR.Click
        If estaAbieta("frmEBR") Then Exit Sub
        Dim frm As New frmEBR
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuNacionalidad_Click(sender As Object, e As EventArgs) Handles mnuNacionalidad.Click
        If estaAbieta("frmNacionalidad") Then Exit Sub
        Dim frm As New frmNacionalidad
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuCiudadOperacion_Click(sender As Object, e As EventArgs) Handles mnuCiudadOperacion.Click
        
        If estaAbieta("frmCiudadOperacion") Then Exit Sub
        Dim frm As New frmCiudadOperacion
        frm.MdiParent = Me
        frm.Show()

    End Sub

    Private Sub mnuRiesgoPPE_Click(sender As Object, e As EventArgs) Handles mnuRiesgoPPE.Click

        If estaAbieta("frmRiesgoPPE") Then Exit Sub
        Dim frm As New frmRiesgoPPE
        frm.MdiParent = Me
        frm.Show()


    End Sub

    Private Sub mnuCatsEBR_Click(sender As Object, e As EventArgs) Handles mnuCatsEBR.Click

        If estaAbieta("frmCatEBR") Then Exit Sub
        Dim frm As New frmCatEBR
        frm.MdiParent = Me
        frm.Show()

    End Sub

    Private Sub mnuEstatusCta_Click(sender As Object, e As EventArgs) Handles mnuEstatusCta.Click

        If estaAbieta("frmEstatusCuenta") Then Exit Sub
        Dim frm As New frmEstatusCuenta
        frm.MdiParent = Me
        frm.Show()

    End Sub

    Private Sub mnuReporteJ13_Click(sender As Object, e As EventArgs) Handles mnuReporteJ13.Click
        If estaAbieta("frmReporteJ13") Then Exit Sub
        Dim frm As New frmReporteJ13
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuReporteJ14_Click(sender As Object, e As EventArgs) Handles mnuReporteJ14.Click
        If estaAbieta("frmReporteJ14") Then Exit Sub
        Dim frm As New frmReporteJ14
        frm.MdiParent = Me
        frm.Show()
    End Sub
End Class