1785 lines
67 KiB
VB.net
1785 lines
67 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
|
|||
|
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
|
|||
|
End Class
|
|||
|
|
|||
|
|