1842 lines
68 KiB
VB.net
1842 lines
68 KiB
VB.net
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
|
||
End Class
|
||
|
||
|