jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
7313774880
client/MainForm.vb
Tito Ruiz 9122e020af Reportes J13 y J14
2020-03-10 11:10:16 -06:00

1856 lines
69 KiB
VB.net
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink