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.DesactivarControlAcceso(clsVaribles.varUsuario) 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("¿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ó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 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ñ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ñ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ñ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ñ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ó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í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ú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ó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í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ñ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ó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ó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ó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ó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ón_Click(sender As System.Object, e As System.EventArgs) Handles mnuIntercambioDeInformació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ó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 Private Sub mnuPerfilCta_Click(sender As Object, e As EventArgs) Handles mnuPerfilCta.Click If estaAbieta("frmPerfilCta") Then Exit Sub Dim frm As New frmPerfilCta frm.MdiParent = Me frm.Show() End Sub Private Sub mnuParamsPerfilCta_Click(sender As Object, e As EventArgs) Handles mnuParamsPerfilCta.Click If estaAbieta("frmParamsPerfilCta") Then Exit Sub Dim frm As New frmParamsPerfilCta frm.MdiParent = Me frm.Show() End Sub End Class