'Noviembre 2005 'Noé Sánchez 'CONDORBS 'Importacion de espacios de nombres o clases Imports CLIENTE.clsComplejo 'permite conectarme a la base de datos y establer parametros Imports System.Data.SqlClient 'para manejar objetos de datos SQL Imports CLIENTE.Registro 'clase que me permite encriptar el password Imports System.Data 'Para manejar objetos de estructuras de datos 'Imports CLIENTE.clBusqueda 'para realizar busqueda en un registro 'Imports CLIENTE.clOcultarColumna 'Permite ocultar columnas Imports CLIENTE.Perfil Public Class Permiso Inherits System.Windows.Forms.Form Dim liperfil As Integer = 0 Friend WithEvents ChkTodosReporte As CheckBox Friend WithEvents ChkTodosCatalogos As CheckBox Friend WithEvents CheckBox2 As CheckBox Friend WithEvents ChkModulos As CheckBox Friend WithEvents ChkActualizadores As CheckBox Friend WithEvents chkTodosSeguridad As CheckBox Friend WithEvents ChkListaRestringidas As CheckBox Friend WithEvents chkAsesoria As CheckBox Friend WithEvents chkVigenciaAlertas As CheckBox Friend WithEvents chkVigDoctos As CheckBox Friend WithEvents chkRevExpediente As CheckBox Friend WithEvents chkAVigDoctos As CheckBox Friend WithEvents chkRevExp As CheckBox Friend WithEvents chkparamsgen As CheckBox Friend WithEvents chkObjCta As CheckBox Friend WithEvents chkBoxParamMR As CheckBox Friend WithEvents CheckBox1 As CheckBox Friend WithEvents chkCdOperacion As CheckBox Friend WithEvents chkNacionalidad As CheckBox Friend WithEvents chkRiesgoPPE As CheckBox Friend WithEvents chkCatsEBR As CheckBox Friend WithEvents chkEstatusCta As CheckBox Friend WithEvents chkReporteJ13 As CheckBox Friend WithEvents chkReporteJ14 As CheckBox #Region " Código generado por el Diseñador de Windows Forms " Dim esCarga As Boolean Public Sub New() MyBase.New() 'El Diseñador de Windows Forms requiere esta llamada. InitializeComponent() esCarga = False 'Agregar cualquier inicialización después de la llamada a InitializeComponent() End Sub 'Form reemplaza a Dispose para limpiar la lista de componentes. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Requerido por el Diseñador de Windows Forms Private components As System.ComponentModel.IContainer 'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento 'Puede modificarse utilizando el Diseñador de Windows Forms. 'No lo modifique con el editor de código. Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents btnGuardar As System.Windows.Forms.ToolBarButton Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton Friend WithEvents Reportes As System.Windows.Forms.TabPage Friend WithEvents Actualizadores As System.Windows.Forms.TabPage Friend WithEvents seguridad As System.Windows.Forms.TabPage Friend WithEvents Catalogos As System.Windows.Forms.TabPage Friend WithEvents TabControl3 As System.Windows.Forms.TabControl Friend WithEvents tlbPermiso As System.Windows.Forms.ToolBar Friend WithEvents txtNombrePerfil As System.Windows.Forms.TextBox Friend WithEvents lblIdPerfil As System.Windows.Forms.Label Friend WithEvents ListaRestringuida As System.Windows.Forms.TabPage Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox Friend WithEvents TABServer As System.Windows.Forms.TabPage Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents BntSalie As System.Windows.Forms.Button Friend WithEvents BtnAlta As System.Windows.Forms.Button Friend WithEvents KYC As System.Windows.Forms.TabPage Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents chkKYC As System.Windows.Forms.CheckBox Friend WithEvents chkCteSinKYC As System.Windows.Forms.CheckBox Friend WithEvents chkAlarmaKYC As System.Windows.Forms.CheckBox Friend WithEvents Modulos As System.Windows.Forms.TabPage Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents ChkModuloServer As System.Windows.Forms.CheckBox Friend WithEvents ChkModuloKYC As System.Windows.Forms.CheckBox Friend WithEvents ChkModuloClientes As System.Windows.Forms.CheckBox Private WithEvents ShapeContainer2 As PowerPacks.ShapeContainer Private WithEvents LineShape26 As PowerPacks.LineShape Private WithEvents LineShape25 As PowerPacks.LineShape Private WithEvents LineShape24 As PowerPacks.LineShape Private WithEvents LineShape23 As PowerPacks.LineShape Private WithEvents LineShape22 As PowerPacks.LineShape Private WithEvents LineShape21 As PowerPacks.LineShape Private WithEvents LineShape20 As PowerPacks.LineShape Private WithEvents LineShape19 As PowerPacks.LineShape Private WithEvents LineShape17 As PowerPacks.LineShape Private WithEvents LineShape16 As PowerPacks.LineShape Private WithEvents LineShape15 As PowerPacks.LineShape Private WithEvents LineShape14 As PowerPacks.LineShape Private WithEvents LineShape13 As PowerPacks.LineShape Private WithEvents LineShape12 As PowerPacks.LineShape Friend WithEvents gbxAlarmas As System.Windows.Forms.GroupBox Friend WithEvents chkReproceso As System.Windows.Forms.CheckBox Friend WithEvents ChkInuS As System.Windows.Forms.CheckBox Friend WithEvents ChkrelevantesS As System.Windows.Forms.CheckBox Friend WithEvents ChkFraccS As System.Windows.Forms.CheckBox Friend WithEvents gbxContCargas As System.Windows.Forms.GroupBox Friend WithEvents chkListas As System.Windows.Forms.CheckBox Friend WithEvents chkTCambio As System.Windows.Forms.CheckBox Friend WithEvents chktran As System.Windows.Forms.CheckBox Friend WithEvents gbxProcs As System.Windows.Forms.GroupBox Friend WithEvents ChkListasS As System.Windows.Forms.CheckBox Friend WithEvents chkPerfilTranServer As System.Windows.Forms.CheckBox Friend WithEvents chkConfigCarga As System.Windows.Forms.CheckBox Friend WithEvents gbxLogs As System.Windows.Forms.GroupBox Friend WithEvents chkAuditS As System.Windows.Forms.CheckBox Friend WithEvents chkLogs As System.Windows.Forms.CheckBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents KYCControles As System.Windows.Forms.TabPage Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox Friend WithEvents chkKYCEstatus As System.Windows.Forms.CheckBox Friend WithEvents lstAutorizados As System.Windows.Forms.ListBox Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents lstDisponibles As System.Windows.Forms.ListBox Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents pnlPermisosKYCEstatus As System.Windows.Forms.Panel Friend WithEvents btnBorraUno As System.Windows.Forms.Button Friend WithEvents btnPasaUno As System.Windows.Forms.Button Friend WithEvents btnBorraTodos As System.Windows.Forms.Button Friend WithEvents btnPasaTodos As System.Windows.Forms.Button Friend WithEvents tabProcesoHit As System.Windows.Forms.TabPage Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox Friend WithEvents chkIngrDep As System.Windows.Forms.CheckBox Friend WithEvents Label1 As System.Windows.Forms.Label Private WithEvents ShapeContainer1 As PowerPacks.ShapeContainer Private WithEvents LineShape8 As PowerPacks.LineShape Private WithEvents LineShape4 As PowerPacks.LineShape Private WithEvents LineShape3 As PowerPacks.LineShape Private WithEvents LineShape2 As PowerPacks.LineShape Private WithEvents LineShape1 As PowerPacks.LineShape Friend WithEvents chkAcumuladoMen As System.Windows.Forms.CheckBox Friend WithEvents chkTIF As System.Windows.Forms.CheckBox Friend WithEvents chkreportdlls As System.Windows.Forms.CheckBox Friend WithEvents chkCheques As System.Windows.Forms.CheckBox Private WithEvents LineShape5 As PowerPacks.LineShape Private WithEvents LineShape6 As PowerPacks.LineShape Friend WithEvents chkActVul As System.Windows.Forms.CheckBox Friend WithEvents chkConcepto As System.Windows.Forms.CheckBox Friend WithEvents chkDesRec As System.Windows.Forms.CheckBox Friend WithEvents chkID As System.Windows.Forms.CheckBox Friend WithEvents chkInstrument As System.Windows.Forms.CheckBox Friend WithEvents chkFigLegal As System.Windows.Forms.CheckBox Friend WithEvents chkTipoPer As System.Windows.Forms.CheckBox Friend WithEvents chkEstrucCorp As System.Windows.Forms.CheckBox Friend WithEvents chkTipoDom As System.Windows.Forms.CheckBox Friend WithEvents chkTipoCuenta As System.Windows.Forms.CheckBox Friend WithEvents chkProcRec As System.Windows.Forms.CheckBox Friend WithEvents chkParents As System.Windows.Forms.CheckBox Friend WithEvents chkTransfer As System.Windows.Forms.CheckBox Friend WithEvents chkFuentIng As System.Windows.Forms.CheckBox Friend WithEvents chkSucs As System.Windows.Forms.CheckBox Private WithEvents LineShape30 As PowerPacks.LineShape Private WithEvents LineShape29 As PowerPacks.LineShape Private WithEvents LineShape11 As PowerPacks.LineShape Private WithEvents LineShape10 As PowerPacks.LineShape Private WithEvents LineShape9 As PowerPacks.LineShape Private WithEvents LineShape7 As PowerPacks.LineShape Private WithEvents LineShape38 As PowerPacks.LineShape Private WithEvents LineShape37 As PowerPacks.LineShape Private WithEvents LineShape36 As PowerPacks.LineShape Private WithEvents LineShape35 As PowerPacks.LineShape Private WithEvents LineShape34 As PowerPacks.LineShape Private WithEvents LineShape33 As PowerPacks.LineShape Private WithEvents LineShape32 As PowerPacks.LineShape Private WithEvents LineShape31 As PowerPacks.LineShape Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox Friend WithEvents chkAcumuladoMenS As System.Windows.Forms.CheckBox Friend WithEvents ChkRiesgo As System.Windows.Forms.CheckBox Friend WithEvents chkTransFondos As System.Windows.Forms.CheckBox Friend WithEvents chkDllsEfec As System.Windows.Forms.CheckBox Friend WithEvents chkPatMizuho As System.Windows.Forms.CheckBox Friend WithEvents chkKYCEditReg As System.Windows.Forms.CheckBox Friend WithEvents cmbKYCESTATUS2 As System.Windows.Forms.ComboBox Friend WithEvents cmbKYCESTATUS1 As System.Windows.Forms.ComboBox Friend WithEvents btnAdd2 As System.Windows.Forms.Button Friend WithEvents btnAdd1 As System.Windows.Forms.Button Friend WithEvents btnQuitar2 As System.Windows.Forms.Button Friend WithEvents btnQuitar1 As System.Windows.Forms.Button Friend WithEvents chkGrupoRiesgo As System.Windows.Forms.CheckBox Private WithEvents LineShape39 As PowerPacks.LineShape Friend WithEvents chkInterInfo As System.Windows.Forms.CheckBox Friend WithEvents chkAvisos As System.Windows.Forms.CheckBox Friend WithEvents chkChequesServer As System.Windows.Forms.CheckBox Friend WithEvents chkComp As System.Windows.Forms.CheckBox Friend WithEvents chkReviewer As System.Windows.Forms.CheckBox Friend WithEvents chkInusuales As System.Windows.Forms.CheckBox Friend WithEvents chkDormant As System.Windows.Forms.CheckBox Friend WithEvents chkRelevantes As System.Windows.Forms.CheckBox Friend WithEvents chkTransacciones As System.Windows.Forms.CheckBox Friend WithEvents chkOperInusualesF As System.Windows.Forms.CheckBox Friend WithEvents chkOperPreocupantes As System.Windows.Forms.CheckBox Friend WithEvents chkFormatoCNBV As System.Windows.Forms.CheckBox Friend WithEvents chkTodosProductos As System.Windows.Forms.CheckBox Friend WithEvents chkOperInusuales As System.Windows.Forms.CheckBox Friend WithEvents chkNueva As System.Windows.Forms.CheckBox Friend WithEvents chkRepAnom As System.Windows.Forms.CheckBox Friend WithEvents chkPerfTran As System.Windows.Forms.CheckBox Friend WithEvents chkReportes As System.Windows.Forms.CheckBox Private WithEvents LineShape28 As PowerPacks.LineShape Friend WithEvents chkAsigGrpo As System.Windows.Forms.CheckBox Friend WithEvents ParametrosDeGrupoMenu As System.Windows.Forms.CheckBox Friend WithEvents chkTipoCambio As System.Windows.Forms.CheckBox Friend WithEvents chkActual As System.Windows.Forms.CheckBox Friend WithEvents chkCatalogos As System.Windows.Forms.CheckBox Friend WithEvents chkCanales As System.Windows.Forms.CheckBox Friend WithEvents chkSubproductos As System.Windows.Forms.CheckBox Friend WithEvents chkIntitucional As System.Windows.Forms.CheckBox Friend WithEvents chkProductos As System.Windows.Forms.CheckBox Friend WithEvents ChkInsFin As System.Windows.Forms.CheckBox Friend WithEvents chkActEco As System.Windows.Forms.CheckBox Friend WithEvents chkMoneda As System.Windows.Forms.CheckBox Friend WithEvents chkOficiales As System.Windows.Forms.CheckBox Friend WithEvents chkInstrumMon As System.Windows.Forms.CheckBox Friend WithEvents chkTipOp As System.Windows.Forms.CheckBox Friend WithEvents chkFuncionarios2 As System.Windows.Forms.CheckBox Friend WithEvents chkEstado As System.Windows.Forms.CheckBox Friend WithEvents chkConf As System.Windows.Forms.CheckBox Friend WithEvents chkPais As System.Windows.Forms.CheckBox Friend WithEvents chkOrgInter As System.Windows.Forms.CheckBox Friend WithEvents ChkMant As System.Windows.Forms.CheckBox Friend WithEvents chkSeguridad As System.Windows.Forms.CheckBox Friend WithEvents chkConfigClaves As System.Windows.Forms.CheckBox Friend WithEvents chkPerfil As System.Windows.Forms.CheckBox Friend WithEvents chkAuditoria As System.Windows.Forms.CheckBox Friend WithEvents chkUsuario As System.Windows.Forms.CheckBox Friend WithEvents ChkPersonas As System.Windows.Forms.CheckBox Friend WithEvents chkClientes As System.Windows.Forms.CheckBox Friend WithEvents chkListasrest As System.Windows.Forms.CheckBox Friend WithEvents chkProcesoHIT As System.Windows.Forms.CheckBox Friend WithEvents chkserver As System.Windows.Forms.CheckBox Friend WithEvents chkPatronesCat As System.Windows.Forms.CheckBox Friend WithEvents chkKYCNuevoCliente As System.Windows.Forms.CheckBox Friend WithEvents chkCalificacionOC As System.Windows.Forms.CheckBox Friend WithEvents SIARA As System.Windows.Forms.TabPage Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox Friend WithEvents chkImportarXML As System.Windows.Forms.CheckBox Friend WithEvents chkbusquedaconclt As System.Windows.Forms.CheckBox Friend WithEvents chkGenResp As System.Windows.Forms.CheckBox Friend WithEvents chkCapturaManual As System.Windows.Forms.CheckBox Friend WithEvents chkLogCarga As System.Windows.Forms.CheckBox Friend WithEvents chkLogOperResp As System.Windows.Forms.CheckBox Friend WithEvents chkCASFIM As System.Windows.Forms.CheckBox Private WithEvents LineShape40 As PowerPacks.LineShape Friend WithEvents chkLocalidad As System.Windows.Forms.CheckBox Friend WithEvents chkSectorEco As System.Windows.Forms.CheckBox Friend WithEvents chkInuSnT As System.Windows.Forms.CheckBox Private WithEvents LineShape41 As PowerPacks.LineShape Friend WithEvents chkPreoCnT As System.Windows.Forms.CheckBox Friend WithEvents chkPreoSnT As System.Windows.Forms.CheckBox Private WithEvents LineShape44 As PowerPacks.LineShape Private WithEvents LineShape43 As PowerPacks.LineShape Private WithEvents LineShape42 As PowerPacks.LineShape Friend WithEvents BtnImprimir As System.Windows.Forms.Button Friend WithEvents chkCalifRiesgoABC As System.Windows.Forms.CheckBox Friend WithEvents chkControlAcceso As System.Windows.Forms.CheckBox Friend WithEvents chkCuentasUSD As System.Windows.Forms.CheckBox Friend WithEvents chkPropositoCuenta As System.Windows.Forms.CheckBox Friend WithEvents chkRelacion As System.Windows.Forms.CheckBox Friend WithEvents chkRazonUSD As System.Windows.Forms.CheckBox Friend WithEvents chkRazonMX As System.Windows.Forms.CheckBox Friend WithEvents chkListaSPID As System.Windows.Forms.CheckBox Friend WithEvents chkRCuentaRel As System.Windows.Forms.CheckBox Friend WithEvents chkRPerfilTran As System.Windows.Forms.CheckBox Private WithEvents panel2 As Panel Private WithEvents Img_logoCabecera As PictureBox Friend WithEvents DesHeader As Label Private WithEvents panel3 As Panel Friend WithEvents Label11 As Label Friend WithEvents lblFooter As Label Private WithEvents LineShape27 As PowerPacks.LineShape Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Permiso)) Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.txtNombrePerfil = New System.Windows.Forms.TextBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.TabControl3 = New System.Windows.Forms.TabControl() Me.Modulos = New System.Windows.Forms.TabPage() Me.ChkModulos = New System.Windows.Forms.CheckBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.ChkModuloServer = New System.Windows.Forms.CheckBox() Me.ChkModuloKYC = New System.Windows.Forms.CheckBox() Me.ChkModuloClientes = New System.Windows.Forms.CheckBox() Me.Reportes = New System.Windows.Forms.TabPage() Me.ChkTodosReporte = New System.Windows.Forms.CheckBox() Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.chkReporteJ14 = New System.Windows.Forms.CheckBox() Me.chkReporteJ13 = New System.Windows.Forms.CheckBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.chkVigenciaAlertas = New System.Windows.Forms.CheckBox() Me.chkAsesoria = New System.Windows.Forms.CheckBox() Me.chkPreoSnT = New System.Windows.Forms.CheckBox() Me.chkPreoCnT = New System.Windows.Forms.CheckBox() Me.chkInuSnT = New System.Windows.Forms.CheckBox() Me.chkReportes = New System.Windows.Forms.CheckBox() Me.chkPerfTran = New System.Windows.Forms.CheckBox() Me.chkDormant = New System.Windows.Forms.CheckBox() Me.chkRelevantes = New System.Windows.Forms.CheckBox() Me.chkTransacciones = New System.Windows.Forms.CheckBox() Me.chkOperInusualesF = New System.Windows.Forms.CheckBox() Me.chkOperPreocupantes = New System.Windows.Forms.CheckBox() Me.chkFormatoCNBV = New System.Windows.Forms.CheckBox() Me.chkTodosProductos = New System.Windows.Forms.CheckBox() Me.chkOperInusuales = New System.Windows.Forms.CheckBox() Me.chkNueva = New System.Windows.Forms.CheckBox() Me.chkRepAnom = New System.Windows.Forms.CheckBox() Me.chkInusuales = New System.Windows.Forms.CheckBox() Me.chkInterInfo = New System.Windows.Forms.CheckBox() Me.chkAvisos = New System.Windows.Forms.CheckBox() Me.chkCheques = New System.Windows.Forms.CheckBox() Me.chkreportdlls = New System.Windows.Forms.CheckBox() Me.chkTIF = New System.Windows.Forms.CheckBox() Me.chkAcumuladoMen = New System.Windows.Forms.CheckBox() Me.chkIngrDep = New System.Windows.Forms.CheckBox() Me.Label1 = New System.Windows.Forms.Label() Me.ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer() Me.LineShape44 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape43 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape42 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape41 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape28 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape8 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape4 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape3 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape2 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape1 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.Actualizadores = New System.Windows.Forms.TabPage() Me.ChkActualizadores = New System.Windows.Forms.CheckBox() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.chkparamsgen = New System.Windows.Forms.CheckBox() Me.chkActual = New System.Windows.Forms.CheckBox() Me.chkAsigGrpo = New System.Windows.Forms.CheckBox() Me.ParametrosDeGrupoMenu = New System.Windows.Forms.CheckBox() Me.chkTipoCambio = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.Catalogos = New System.Windows.Forms.TabPage() Me.ChkTodosCatalogos = New System.Windows.Forms.CheckBox() Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.chkEstatusCta = New System.Windows.Forms.CheckBox() Me.chkCatsEBR = New System.Windows.Forms.CheckBox() Me.chkRazonMX = New System.Windows.Forms.CheckBox() Me.chkBoxParamMR = New System.Windows.Forms.CheckBox() Me.chkRiesgoPPE = New System.Windows.Forms.CheckBox() Me.chkCdOperacion = New System.Windows.Forms.CheckBox() Me.chkNacionalidad = New System.Windows.Forms.CheckBox() Me.chkObjCta = New System.Windows.Forms.CheckBox() Me.chkRelacion = New System.Windows.Forms.CheckBox() Me.chkPropositoCuenta = New System.Windows.Forms.CheckBox() Me.chkCASFIM = New System.Windows.Forms.CheckBox() Me.chkRazonUSD = New System.Windows.Forms.CheckBox() Me.chkLocalidad = New System.Windows.Forms.CheckBox() Me.chkPatronesCat = New System.Windows.Forms.CheckBox() Me.ChkMant = New System.Windows.Forms.CheckBox() Me.chkEstado = New System.Windows.Forms.CheckBox() Me.chkConf = New System.Windows.Forms.CheckBox() Me.chkCuentasUSD = New System.Windows.Forms.CheckBox() Me.chkConcepto = New System.Windows.Forms.CheckBox() Me.chkPais = New System.Windows.Forms.CheckBox() Me.chkOrgInter = New System.Windows.Forms.CheckBox() Me.chkSectorEco = New System.Windows.Forms.CheckBox() Me.ChkInsFin = New System.Windows.Forms.CheckBox() Me.chkActEco = New System.Windows.Forms.CheckBox() Me.chkMoneda = New System.Windows.Forms.CheckBox() Me.chkOficiales = New System.Windows.Forms.CheckBox() Me.chkInstrumMon = New System.Windows.Forms.CheckBox() Me.chkTipOp = New System.Windows.Forms.CheckBox() Me.chkCanales = New System.Windows.Forms.CheckBox() Me.chkFuncionarios2 = New System.Windows.Forms.CheckBox() Me.chkSubproductos = New System.Windows.Forms.CheckBox() Me.chkIntitucional = New System.Windows.Forms.CheckBox() Me.chkProductos = New System.Windows.Forms.CheckBox() Me.chkCatalogos = New System.Windows.Forms.CheckBox() Me.chkGrupoRiesgo = New System.Windows.Forms.CheckBox() Me.chkFuentIng = New System.Windows.Forms.CheckBox() Me.chkSucs = New System.Windows.Forms.CheckBox() Me.chkFigLegal = New System.Windows.Forms.CheckBox() Me.chkTipoPer = New System.Windows.Forms.CheckBox() Me.chkEstrucCorp = New System.Windows.Forms.CheckBox() Me.chkTipoDom = New System.Windows.Forms.CheckBox() Me.chkTipoCuenta = New System.Windows.Forms.CheckBox() Me.chkProcRec = New System.Windows.Forms.CheckBox() Me.chkParents = New System.Windows.Forms.CheckBox() Me.chkTransfer = New System.Windows.Forms.CheckBox() Me.chkInstrument = New System.Windows.Forms.CheckBox() Me.chkID = New System.Windows.Forms.CheckBox() Me.chkDesRec = New System.Windows.Forms.CheckBox() Me.chkActVul = New System.Windows.Forms.CheckBox() Me.Label2 = New System.Windows.Forms.Label() Me.ShapeContainer2 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer() Me.LineShape40 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape39 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape38 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape37 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape36 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape35 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape34 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape33 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape32 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape31 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape30 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape29 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape11 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape10 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape9 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape7 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape6 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape5 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape27 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape26 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape25 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape24 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape23 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape22 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape21 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape20 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape19 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape17 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape16 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape15 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape14 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape13 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.LineShape12 = New Microsoft.VisualBasic.PowerPacks.LineShape() Me.seguridad = New System.Windows.Forms.TabPage() Me.chkTodosSeguridad = New System.Windows.Forms.CheckBox() Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.chkControlAcceso = New System.Windows.Forms.CheckBox() Me.chkConfigClaves = New System.Windows.Forms.CheckBox() Me.chkPerfil = New System.Windows.Forms.CheckBox() Me.chkAuditoria = New System.Windows.Forms.CheckBox() Me.chkUsuario = New System.Windows.Forms.CheckBox() Me.chkSeguridad = New System.Windows.Forms.CheckBox() Me.Label5 = New System.Windows.Forms.Label() Me.ListaRestringuida = New System.Windows.Forms.TabPage() Me.ChkListaRestringidas = New System.Windows.Forms.CheckBox() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.chkListaSPID = New System.Windows.Forms.CheckBox() Me.ChkPersonas = New System.Windows.Forms.CheckBox() Me.chkClientes = New System.Windows.Forms.CheckBox() Me.chkListasrest = New System.Windows.Forms.CheckBox() Me.Label6 = New System.Windows.Forms.Label() Me.tabProcesoHit = New System.Windows.Forms.TabPage() Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.chkProcesoHIT = New System.Windows.Forms.CheckBox() Me.chkComp = New System.Windows.Forms.CheckBox() Me.chkReviewer = New System.Windows.Forms.CheckBox() Me.TABServer = New System.Windows.Forms.TabPage() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.chkserver = New System.Windows.Forms.CheckBox() Me.Label7 = New System.Windows.Forms.Label() Me.gbxLogs = New System.Windows.Forms.GroupBox() Me.chkRCuentaRel = New System.Windows.Forms.CheckBox() Me.chkAuditS = New System.Windows.Forms.CheckBox() Me.chkRPerfilTran = New System.Windows.Forms.CheckBox() Me.chkLogs = New System.Windows.Forms.CheckBox() Me.chkAcumuladoMenS = New System.Windows.Forms.CheckBox() Me.chkChequesServer = New System.Windows.Forms.CheckBox() Me.chkTransFondos = New System.Windows.Forms.CheckBox() Me.chkDllsEfec = New System.Windows.Forms.CheckBox() Me.gbxProcs = New System.Windows.Forms.GroupBox() Me.chkVigDoctos = New System.Windows.Forms.CheckBox() Me.chkRevExpediente = New System.Windows.Forms.CheckBox() Me.chkConfigCarga = New System.Windows.Forms.CheckBox() Me.ChkRiesgo = New System.Windows.Forms.CheckBox() Me.ChkListasS = New System.Windows.Forms.CheckBox() Me.chkPerfilTranServer = New System.Windows.Forms.CheckBox() Me.gbxAlarmas = New System.Windows.Forms.GroupBox() Me.chkPatMizuho = New System.Windows.Forms.CheckBox() Me.chkReproceso = New System.Windows.Forms.CheckBox() Me.ChkInuS = New System.Windows.Forms.CheckBox() Me.ChkrelevantesS = New System.Windows.Forms.CheckBox() Me.ChkFraccS = New System.Windows.Forms.CheckBox() Me.gbxContCargas = New System.Windows.Forms.GroupBox() Me.chkListas = New System.Windows.Forms.CheckBox() Me.chkTCambio = New System.Windows.Forms.CheckBox() Me.chktran = New System.Windows.Forms.CheckBox() Me.KYC = New System.Windows.Forms.TabPage() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.Label3 = New System.Windows.Forms.Label() Me.chkKYC = New System.Windows.Forms.CheckBox() Me.chkCteSinKYC = New System.Windows.Forms.CheckBox() Me.chkAlarmaKYC = New System.Windows.Forms.CheckBox() Me.KYCControles = New System.Windows.Forms.TabPage() Me.GroupBox6 = New System.Windows.Forms.GroupBox() Me.chkRevExp = New System.Windows.Forms.CheckBox() Me.chkAVigDoctos = New System.Windows.Forms.CheckBox() Me.chkCalifRiesgoABC = New System.Windows.Forms.CheckBox() Me.chkCalificacionOC = New System.Windows.Forms.CheckBox() Me.chkKYCNuevoCliente = New System.Windows.Forms.CheckBox() Me.chkKYCEditReg = New System.Windows.Forms.CheckBox() Me.pnlPermisosKYCEstatus = New System.Windows.Forms.Panel() Me.btnQuitar2 = New System.Windows.Forms.Button() Me.btnQuitar1 = New System.Windows.Forms.Button() Me.btnAdd2 = New System.Windows.Forms.Button() Me.btnAdd1 = New System.Windows.Forms.Button() Me.cmbKYCESTATUS2 = New System.Windows.Forms.ComboBox() Me.cmbKYCESTATUS1 = New System.Windows.Forms.ComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.lstAutorizados = New System.Windows.Forms.ListBox() Me.Label10 = New System.Windows.Forms.Label() Me.lstDisponibles = New System.Windows.Forms.ListBox() Me.chkKYCEstatus = New System.Windows.Forms.CheckBox() Me.btnBorraUno = New System.Windows.Forms.Button() Me.btnPasaUno = New System.Windows.Forms.Button() Me.btnPasaTodos = New System.Windows.Forms.Button() Me.btnBorraTodos = New System.Windows.Forms.Button() Me.SIARA = New System.Windows.Forms.TabPage() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.chkImportarXML = New System.Windows.Forms.CheckBox() Me.chkbusquedaconclt = New System.Windows.Forms.CheckBox() Me.chkGenResp = New System.Windows.Forms.CheckBox() Me.chkCapturaManual = New System.Windows.Forms.CheckBox() Me.chkLogCarga = New System.Windows.Forms.CheckBox() Me.chkLogOperResp = New System.Windows.Forms.CheckBox() Me.tlbPermiso = New System.Windows.Forms.ToolBar() Me.btnGuardar = New System.Windows.Forms.ToolBarButton() Me.btnSalir = New System.Windows.Forms.ToolBarButton() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.lblIdPerfil = New System.Windows.Forms.Label() Me.BntSalie = New System.Windows.Forms.Button() Me.BtnAlta = New System.Windows.Forms.Button() Me.BtnImprimir = New System.Windows.Forms.Button() Me.panel2 = New System.Windows.Forms.Panel() Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() Me.DesHeader = New System.Windows.Forms.Label() Me.panel3 = New System.Windows.Forms.Panel() Me.Label11 = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.TabControl3.SuspendLayout() Me.Modulos.SuspendLayout() Me.GroupBox5.SuspendLayout() Me.Reportes.SuspendLayout() Me.GroupBox13.SuspendLayout() Me.Actualizadores.SuspendLayout() Me.GroupBox8.SuspendLayout() Me.Catalogos.SuspendLayout() Me.GroupBox10.SuspendLayout() Me.seguridad.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.ListaRestringuida.SuspendLayout() Me.GroupBox11.SuspendLayout() Me.tabProcesoHit.SuspendLayout() Me.GroupBox7.SuspendLayout() Me.TABServer.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.gbxLogs.SuspendLayout() Me.gbxProcs.SuspendLayout() Me.gbxAlarmas.SuspendLayout() Me.gbxContCargas.SuspendLayout() Me.KYC.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.KYCControles.SuspendLayout() Me.GroupBox6.SuspendLayout() Me.pnlPermisosKYCEstatus.SuspendLayout() Me.SIARA.SuspendLayout() Me.GroupBox12.SuspendLayout() Me.panel2.SuspendLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() Me.panel3.SuspendLayout() Me.SuspendLayout() ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.txtNombrePerfil) Me.GroupBox1.Location = New System.Drawing.Point(176, 56) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(248, 48) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Nombre del perfil" ' 'txtNombrePerfil ' Me.txtNombrePerfil.Location = New System.Drawing.Point(8, 16) Me.txtNombrePerfil.Name = "txtNombrePerfil" Me.txtNombrePerfil.Size = New System.Drawing.Size(232, 20) Me.txtNombrePerfil.TabIndex = 0 ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.TabControl3) Me.GroupBox2.Location = New System.Drawing.Point(8, 104) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(681, 440) Me.GroupBox2.TabIndex = 1 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Permisos del perfil" ' 'TabControl3 ' Me.TabControl3.Controls.Add(Me.Modulos) Me.TabControl3.Controls.Add(Me.Reportes) Me.TabControl3.Controls.Add(Me.Actualizadores) Me.TabControl3.Controls.Add(Me.Catalogos) Me.TabControl3.Controls.Add(Me.seguridad) Me.TabControl3.Controls.Add(Me.ListaRestringuida) Me.TabControl3.Controls.Add(Me.tabProcesoHit) Me.TabControl3.Controls.Add(Me.TABServer) Me.TabControl3.Controls.Add(Me.KYC) Me.TabControl3.Controls.Add(Me.KYCControles) Me.TabControl3.Controls.Add(Me.SIARA) Me.TabControl3.ItemSize = New System.Drawing.Size(55, 18) Me.TabControl3.Location = New System.Drawing.Point(10, 26) Me.TabControl3.Name = "TabControl3" Me.TabControl3.SelectedIndex = 0 Me.TabControl3.Size = New System.Drawing.Size(665, 411) Me.TabControl3.TabIndex = 1 Me.TabControl3.Tag = "55" ' 'Modulos ' Me.Modulos.BackColor = System.Drawing.Color.White Me.Modulos.Controls.Add(Me.ChkModulos) Me.Modulos.Controls.Add(Me.GroupBox5) Me.Modulos.Location = New System.Drawing.Point(4, 22) Me.Modulos.Name = "Modulos" Me.Modulos.Size = New System.Drawing.Size(657, 385) Me.Modulos.TabIndex = 12 Me.Modulos.Text = "Módulos" ' 'ChkModulos ' Me.ChkModulos.AutoSize = True Me.ChkModulos.Location = New System.Drawing.Point(16, 18) Me.ChkModulos.Name = "ChkModulos" Me.ChkModulos.Size = New System.Drawing.Size(56, 17) Me.ChkModulos.TabIndex = 75 Me.ChkModulos.Text = "Todos" Me.ChkModulos.UseVisualStyleBackColor = True ' 'GroupBox5 ' Me.GroupBox5.BackColor = System.Drawing.Color.White Me.GroupBox5.Controls.Add(Me.ChkModuloServer) Me.GroupBox5.Controls.Add(Me.ChkModuloKYC) Me.GroupBox5.Controls.Add(Me.ChkModuloClientes) Me.GroupBox5.Location = New System.Drawing.Point(16, 41) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(614, 313) Me.GroupBox5.TabIndex = 11 Me.GroupBox5.TabStop = False ' 'ChkModuloServer ' Me.ChkModuloServer.AutoSize = True Me.ChkModuloServer.ForeColor = System.Drawing.Color.MidnightBlue Me.ChkModuloServer.Location = New System.Drawing.Point(12, 88) Me.ChkModuloServer.Name = "ChkModuloServer" Me.ChkModuloServer.Size = New System.Drawing.Size(95, 17) Me.ChkModuloServer.TabIndex = 73 Me.ChkModuloServer.Tag = "99" Me.ChkModuloServer.Text = "Módulo Server" Me.ChkModuloServer.UseVisualStyleBackColor = True ' 'ChkModuloKYC ' Me.ChkModuloKYC.AutoSize = True Me.ChkModuloKYC.ForeColor = System.Drawing.Color.MidnightBlue Me.ChkModuloKYC.Location = New System.Drawing.Point(12, 36) Me.ChkModuloKYC.Name = "ChkModuloKYC" Me.ChkModuloKYC.Size = New System.Drawing.Size(85, 17) Me.ChkModuloKYC.TabIndex = 71 Me.ChkModuloKYC.Tag = "108" Me.ChkModuloKYC.Text = "Módulo KYC" ' 'ChkModuloClientes ' Me.ChkModuloClientes.AutoSize = True Me.ChkModuloClientes.ForeColor = System.Drawing.Color.MidnightBlue Me.ChkModuloClientes.Location = New System.Drawing.Point(12, 62) Me.ChkModuloClientes.Name = "ChkModuloClientes" Me.ChkModuloClientes.Size = New System.Drawing.Size(101, 17) Me.ChkModuloClientes.TabIndex = 72 Me.ChkModuloClientes.Tag = "74" Me.ChkModuloClientes.Text = "Módulo Clientes" ' 'Reportes ' Me.Reportes.BackColor = System.Drawing.Color.White Me.Reportes.Controls.Add(Me.ChkTodosReporte) Me.Reportes.Controls.Add(Me.GroupBox13) Me.Reportes.Location = New System.Drawing.Point(4, 22) Me.Reportes.Name = "Reportes" Me.Reportes.Size = New System.Drawing.Size(657, 385) Me.Reportes.TabIndex = 0 Me.Reportes.Text = "Reportes" ' 'ChkTodosReporte ' Me.ChkTodosReporte.AutoSize = True Me.ChkTodosReporte.Location = New System.Drawing.Point(25, 13) Me.ChkTodosReporte.Name = "ChkTodosReporte" Me.ChkTodosReporte.Size = New System.Drawing.Size(56, 17) Me.ChkTodosReporte.TabIndex = 64 Me.ChkTodosReporte.Text = "Todos" Me.ChkTodosReporte.UseVisualStyleBackColor = True ' 'GroupBox13 ' Me.GroupBox13.BackColor = System.Drawing.Color.White Me.GroupBox13.Controls.Add(Me.chkReporteJ14) Me.GroupBox13.Controls.Add(Me.chkReporteJ13) Me.GroupBox13.Controls.Add(Me.CheckBox1) Me.GroupBox13.Controls.Add(Me.chkVigenciaAlertas) Me.GroupBox13.Controls.Add(Me.chkAsesoria) Me.GroupBox13.Controls.Add(Me.chkPreoSnT) Me.GroupBox13.Controls.Add(Me.chkPreoCnT) Me.GroupBox13.Controls.Add(Me.chkInuSnT) Me.GroupBox13.Controls.Add(Me.chkReportes) Me.GroupBox13.Controls.Add(Me.chkPerfTran) Me.GroupBox13.Controls.Add(Me.chkDormant) Me.GroupBox13.Controls.Add(Me.chkRelevantes) Me.GroupBox13.Controls.Add(Me.chkTransacciones) Me.GroupBox13.Controls.Add(Me.chkOperInusualesF) Me.GroupBox13.Controls.Add(Me.chkOperPreocupantes) Me.GroupBox13.Controls.Add(Me.chkFormatoCNBV) Me.GroupBox13.Controls.Add(Me.chkTodosProductos) Me.GroupBox13.Controls.Add(Me.chkOperInusuales) Me.GroupBox13.Controls.Add(Me.chkNueva) Me.GroupBox13.Controls.Add(Me.chkRepAnom) Me.GroupBox13.Controls.Add(Me.chkInusuales) Me.GroupBox13.Controls.Add(Me.chkInterInfo) Me.GroupBox13.Controls.Add(Me.chkAvisos) Me.GroupBox13.Controls.Add(Me.chkCheques) Me.GroupBox13.Controls.Add(Me.chkreportdlls) Me.GroupBox13.Controls.Add(Me.chkTIF) Me.GroupBox13.Controls.Add(Me.chkAcumuladoMen) Me.GroupBox13.Controls.Add(Me.chkIngrDep) Me.GroupBox13.Controls.Add(Me.Label1) Me.GroupBox13.Controls.Add(Me.ShapeContainer1) Me.GroupBox13.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox13.Location = New System.Drawing.Point(25, 36) Me.GroupBox13.Name = "GroupBox13" Me.GroupBox13.Size = New System.Drawing.Size(614, 346) Me.GroupBox13.TabIndex = 18 Me.GroupBox13.TabStop = False ' 'chkReporteJ14 ' Me.chkReporteJ14.AutoSize = True Me.chkReporteJ14.Location = New System.Drawing.Point(247, 176) Me.chkReporteJ14.Name = "chkReporteJ14" Me.chkReporteJ14.Size = New System.Drawing.Size(84, 17) Me.chkReporteJ14.TabIndex = 195 Me.chkReporteJ14.Tag = "1207" Me.chkReporteJ14.Text = "Reporte J14" ' 'chkReporteJ13 ' Me.chkReporteJ13.AutoSize = True Me.chkReporteJ13.Location = New System.Drawing.Point(247, 153) Me.chkReporteJ13.Name = "chkReporteJ13" Me.chkReporteJ13.Size = New System.Drawing.Size(84, 17) Me.chkReporteJ13.TabIndex = 194 Me.chkReporteJ13.Tag = "1206" Me.chkReporteJ13.Text = "Reporte J13" ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True Me.CheckBox1.Location = New System.Drawing.Point(247, 130) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(48, 17) Me.CheckBox1.TabIndex = 193 Me.CheckBox1.Tag = "200" Me.CheckBox1.Text = "EBR" ' 'chkVigenciaAlertas ' Me.chkVigenciaAlertas.AutoSize = True Me.chkVigenciaAlertas.Location = New System.Drawing.Point(247, 104) Me.chkVigenciaAlertas.Name = "chkVigenciaAlertas" Me.chkVigenciaAlertas.Size = New System.Drawing.Size(117, 17) Me.chkVigenciaAlertas.TabIndex = 192 Me.chkVigenciaAlertas.Tag = "192" Me.chkVigenciaAlertas.Text = "Vigencia de Alertas" ' 'chkAsesoria ' Me.chkAsesoria.AutoSize = True Me.chkAsesoria.Location = New System.Drawing.Point(247, 78) Me.chkAsesoria.Name = "chkAsesoria" Me.chkAsesoria.Size = New System.Drawing.Size(113, 17) Me.chkAsesoria.TabIndex = 64 Me.chkAsesoria.Tag = "191" Me.chkAsesoria.Text = "Alarmas Asesorías" ' 'chkPreoSnT ' Me.chkPreoSnT.AutoSize = True Me.chkPreoSnT.Location = New System.Drawing.Point(38, 302) Me.chkPreoSnT.Name = "chkPreoSnT" Me.chkPreoSnT.Size = New System.Drawing.Size(172, 17) Me.chkPreoSnT.TabIndex = 63 Me.chkPreoSnT.Tag = "179" Me.chkPreoSnT.Text = "Preocupantes Sin Transacción" ' 'chkPreoCnT ' Me.chkPreoCnT.AutoSize = True Me.chkPreoCnT.Location = New System.Drawing.Point(38, 281) Me.chkPreoCnT.Name = "chkPreoCnT" Me.chkPreoCnT.Size = New System.Drawing.Size(176, 17) Me.chkPreoCnT.TabIndex = 62 Me.chkPreoCnT.Tag = "180" Me.chkPreoCnT.Text = "Preocupantes Con Transacción" ' 'chkInuSnT ' Me.chkInuSnT.AutoSize = True Me.chkInuSnT.Location = New System.Drawing.Point(38, 78) Me.chkInuSnT.Name = "chkInuSnT" Me.chkInuSnT.Size = New System.Drawing.Size(139, 17) Me.chkInuSnT.TabIndex = 61 Me.chkInuSnT.Tag = "178" Me.chkInuSnT.Text = "Inusuales Conductuales" ' 'chkReportes ' Me.chkReportes.AutoSize = True Me.chkReportes.Location = New System.Drawing.Point(0, 0) Me.chkReportes.Name = "chkReportes" Me.chkReportes.Size = New System.Drawing.Size(69, 17) Me.chkReportes.TabIndex = 60 Me.chkReportes.Tag = "75" Me.chkReportes.Text = "Reportes" ' 'chkPerfTran ' Me.chkPerfTran.Location = New System.Drawing.Point(247, 25) Me.chkPerfTran.Name = "chkPerfTran" Me.chkPerfTran.Size = New System.Drawing.Size(184, 20) Me.chkPerfTran.TabIndex = 59 Me.chkPerfTran.Tag = "71" Me.chkPerfTran.Text = "Alarmas Perfil Transaccional" ' 'chkDormant ' Me.chkDormant.Location = New System.Drawing.Point(458, 295) Me.chkDormant.Name = "chkDormant" Me.chkDormant.Size = New System.Drawing.Size(112, 20) Me.chkDormant.TabIndex = 58 Me.chkDormant.Tag = "8" Me.chkDormant.Text = "Cuentas Dormidas" Me.chkDormant.Visible = False ' 'chkRelevantes ' Me.chkRelevantes.Location = New System.Drawing.Point(17, 209) Me.chkRelevantes.Name = "chkRelevantes" Me.chkRelevantes.Size = New System.Drawing.Size(93, 20) Me.chkRelevantes.TabIndex = 56 Me.chkRelevantes.Tag = "69" Me.chkRelevantes.Text = "Relevantes" ' 'chkTransacciones ' Me.chkTransacciones.Location = New System.Drawing.Point(17, 185) Me.chkTransacciones.Name = "chkTransacciones" Me.chkTransacciones.Size = New System.Drawing.Size(99, 20) Me.chkTransacciones.TabIndex = 53 Me.chkTransacciones.Tag = "61" Me.chkTransacciones.Text = "Transacciones" ' 'chkOperInusualesF ' Me.chkOperInusualesF.Location = New System.Drawing.Point(17, 233) Me.chkOperInusualesF.Name = "chkOperInusualesF" Me.chkOperInusualesF.Size = New System.Drawing.Size(139, 20) Me.chkOperInusualesF.TabIndex = 54 Me.chkOperInusualesF.Tag = "63" Me.chkOperInusualesF.Text = "Inusuales Fraccionadas" ' 'chkOperPreocupantes ' Me.chkOperPreocupantes.Location = New System.Drawing.Point(18, 257) Me.chkOperPreocupantes.Name = "chkOperPreocupantes" Me.chkOperPreocupantes.Size = New System.Drawing.Size(93, 20) Me.chkOperPreocupantes.TabIndex = 55 Me.chkOperPreocupantes.Tag = "64" Me.chkOperPreocupantes.Text = "Preocupantes" ' 'chkFormatoCNBV ' Me.chkFormatoCNBV.Location = New System.Drawing.Point(17, 161) Me.chkFormatoCNBV.Name = "chkFormatoCNBV" Me.chkFormatoCNBV.Size = New System.Drawing.Size(59, 20) Me.chkFormatoCNBV.TabIndex = 52 Me.chkFormatoCNBV.Tag = "9" Me.chkFormatoCNBV.Text = "CNBV" ' 'chkTodosProductos ' Me.chkTodosProductos.AutoSize = True Me.chkTodosProductos.Location = New System.Drawing.Point(321, 236) Me.chkTodosProductos.Name = "chkTodosProductos" Me.chkTodosProductos.Size = New System.Drawing.Size(123, 17) Me.chkTodosProductos.TabIndex = 50 Me.chkTodosProductos.Tag = "68" Me.chkTodosProductos.Text = "Todos los Productos" Me.chkTodosProductos.Visible = False ' 'chkOperInusuales ' Me.chkOperInusuales.Location = New System.Drawing.Point(38, 101) Me.chkOperInusuales.Name = "chkOperInusuales" Me.chkOperInusuales.Size = New System.Drawing.Size(191, 20) Me.chkOperInusuales.TabIndex = 51 Me.chkOperInusuales.Tag = "6" Me.chkOperInusuales.Text = "Inusuales Transaccionales" ' 'chkNueva ' Me.chkNueva.Location = New System.Drawing.Point(38, 49) Me.chkNueva.Name = "chkNueva" Me.chkNueva.Size = New System.Drawing.Size(98, 20) Me.chkNueva.TabIndex = 49 Me.chkNueva.Tag = "60" Me.chkNueva.Text = "Nueva Inusual" ' 'chkRepAnom ' Me.chkRepAnom.AutoSize = True Me.chkRepAnom.Location = New System.Drawing.Point(247, 52) Me.chkRepAnom.Name = "chkRepAnom" Me.chkRepAnom.Size = New System.Drawing.Size(118, 17) Me.chkRepAnom.TabIndex = 48 Me.chkRepAnom.Tag = "122" Me.chkRepAnom.Text = "Reportes Anónimos" ' 'chkInusuales ' Me.chkInusuales.Location = New System.Drawing.Point(17, 25) Me.chkInusuales.Name = "chkInusuales" Me.chkInusuales.Size = New System.Drawing.Size(74, 20) Me.chkInusuales.TabIndex = 47 Me.chkInusuales.Tag = "1" Me.chkInusuales.Text = "Inusuales" ' 'chkInterInfo ' Me.chkInterInfo.AutoSize = True Me.chkInterInfo.Location = New System.Drawing.Point(478, 199) Me.chkInterInfo.Name = "chkInterInfo" Me.chkInterInfo.Size = New System.Drawing.Size(153, 17) Me.chkInterInfo.TabIndex = 46 Me.chkInterInfo.Tag = "159" Me.chkInterInfo.Text = "Intercambio de información" Me.chkInterInfo.UseVisualStyleBackColor = True Me.chkInterInfo.Visible = False ' 'chkAvisos ' Me.chkAvisos.AutoSize = True Me.chkAvisos.Location = New System.Drawing.Point(478, 176) Me.chkAvisos.Name = "chkAvisos" Me.chkAvisos.Size = New System.Drawing.Size(57, 17) Me.chkAvisos.TabIndex = 44 Me.chkAvisos.Tag = "157" Me.chkAvisos.Text = "Avisos" Me.chkAvisos.UseVisualStyleBackColor = True Me.chkAvisos.Visible = False ' 'chkCheques ' Me.chkCheques.AutoSize = True Me.chkCheques.Location = New System.Drawing.Point(478, 151) Me.chkCheques.Name = "chkCheques" Me.chkCheques.Size = New System.Drawing.Size(107, 17) Me.chkCheques.TabIndex = 41 Me.chkCheques.Tag = "118" Me.chkCheques.Text = "Cheques de Caja" Me.chkCheques.Visible = False ' 'chkreportdlls ' Me.chkreportdlls.AutoSize = True Me.chkreportdlls.Location = New System.Drawing.Point(478, 126) Me.chkreportdlls.Name = "chkreportdlls" Me.chkreportdlls.Size = New System.Drawing.Size(119, 17) Me.chkreportdlls.TabIndex = 38 Me.chkreportdlls.Tag = "115" Me.chkreportdlls.Text = "Dólares en Efectivo" Me.chkreportdlls.Visible = False ' 'chkTIF ' Me.chkTIF.AutoSize = True Me.chkTIF.Location = New System.Drawing.Point(478, 101) Me.chkTIF.Name = "chkTIF" Me.chkTIF.Size = New System.Drawing.Size(208, 17) Me.chkTIF.TabIndex = 37 Me.chkTIF.Tag = "114" Me.chkTIF.Text = "Transferencia Internacional de Fondos" Me.chkTIF.Visible = False ' 'chkAcumuladoMen ' Me.chkAcumuladoMen.AutoSize = True Me.chkAcumuladoMen.Location = New System.Drawing.Point(475, 321) Me.chkAcumuladoMen.Name = "chkAcumuladoMen" Me.chkAcumuladoMen.Size = New System.Drawing.Size(122, 17) Me.chkAcumuladoMen.TabIndex = 36 Me.chkAcumuladoMen.Tag = "121" Me.chkAcumuladoMen.Text = "Acumulado Mensual" Me.chkAcumuladoMen.Visible = False ' 'chkIngrDep ' Me.chkIngrDep.Location = New System.Drawing.Point(478, 75) Me.chkIngrDep.Name = "chkIngrDep" Me.chkIngrDep.Size = New System.Drawing.Size(181, 20) Me.chkIngrDep.TabIndex = 30 Me.chkIngrDep.Tag = "81" Me.chkIngrDep.Text = "Ingresos/Depósitos" Me.chkIngrDep.Visible = False ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(9, 325) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(460, 13) Me.Label1.TabIndex = 29 Me.Label1.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'ShapeContainer1 ' Me.ShapeContainer1.Location = New System.Drawing.Point(3, 16) Me.ShapeContainer1.Margin = New System.Windows.Forms.Padding(0) Me.ShapeContainer1.Name = "ShapeContainer1" Me.ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {Me.LineShape44, Me.LineShape43, Me.LineShape42, Me.LineShape41, Me.LineShape28, Me.LineShape8, Me.LineShape4, Me.LineShape3, Me.LineShape2, Me.LineShape1}) Me.ShapeContainer1.Size = New System.Drawing.Size(608, 327) Me.ShapeContainer1.TabIndex = 28 Me.ShapeContainer1.TabStop = False ' 'LineShape44 ' Me.LineShape44.Name = "" Me.LineShape44.X1 = 0 Me.LineShape44.X2 = 0 Me.LineShape44.Y1 = 0 Me.LineShape44.Y2 = 0 ' 'LineShape43 ' Me.LineShape43.Name = "" Me.LineShape43.X1 = 0 Me.LineShape43.X2 = 0 Me.LineShape43.Y1 = 0 Me.LineShape43.Y2 = 0 ' 'LineShape42 ' Me.LineShape42.Name = "" Me.LineShape42.X1 = 0 Me.LineShape42.X2 = 0 Me.LineShape42.Y1 = 0 Me.LineShape42.Y2 = 0 ' 'LineShape41 ' Me.LineShape41.Name = "" Me.LineShape41.X1 = 0 Me.LineShape41.X2 = 0 Me.LineShape41.Y1 = 0 Me.LineShape41.Y2 = 0 ' 'LineShape28 ' Me.LineShape28.Name = "" Me.LineShape28.X1 = 0 Me.LineShape28.X2 = 0 Me.LineShape28.Y1 = 0 Me.LineShape28.Y2 = 0 ' 'LineShape8 ' Me.LineShape8.Name = "" Me.LineShape8.X1 = 0 Me.LineShape8.X2 = 0 Me.LineShape8.Y1 = 0 Me.LineShape8.Y2 = 0 ' 'LineShape4 ' Me.LineShape4.Name = "" Me.LineShape4.X1 = 0 Me.LineShape4.X2 = 0 Me.LineShape4.Y1 = 0 Me.LineShape4.Y2 = 0 ' 'LineShape3 ' Me.LineShape3.Name = "" Me.LineShape3.X1 = 0 Me.LineShape3.X2 = 0 Me.LineShape3.Y1 = 0 Me.LineShape3.Y2 = 0 ' 'LineShape2 ' Me.LineShape2.Name = "" Me.LineShape2.X1 = 0 Me.LineShape2.X2 = 0 Me.LineShape2.Y1 = 0 Me.LineShape2.Y2 = 0 ' 'LineShape1 ' Me.LineShape1.Name = "" Me.LineShape1.X1 = 0 Me.LineShape1.X2 = 0 Me.LineShape1.Y1 = 0 Me.LineShape1.Y2 = 0 ' 'Actualizadores ' Me.Actualizadores.Controls.Add(Me.ChkActualizadores) Me.Actualizadores.Controls.Add(Me.GroupBox8) Me.Actualizadores.Location = New System.Drawing.Point(4, 22) Me.Actualizadores.Name = "Actualizadores" Me.Actualizadores.Size = New System.Drawing.Size(657, 385) Me.Actualizadores.TabIndex = 7 Me.Actualizadores.Text = "Actualizadores" Me.Actualizadores.UseVisualStyleBackColor = True ' 'ChkActualizadores ' Me.ChkActualizadores.AutoSize = True Me.ChkActualizadores.Location = New System.Drawing.Point(16, 9) Me.ChkActualizadores.Name = "ChkActualizadores" Me.ChkActualizadores.Size = New System.Drawing.Size(56, 17) Me.ChkActualizadores.TabIndex = 76 Me.ChkActualizadores.Text = "Todos" Me.ChkActualizadores.UseVisualStyleBackColor = True ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.chkparamsgen) Me.GroupBox8.Controls.Add(Me.chkActual) Me.GroupBox8.Controls.Add(Me.chkAsigGrpo) Me.GroupBox8.Controls.Add(Me.ParametrosDeGrupoMenu) Me.GroupBox8.Controls.Add(Me.chkTipoCambio) Me.GroupBox8.Controls.Add(Me.Label4) Me.GroupBox8.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox8.Location = New System.Drawing.Point(16, 32) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(614, 322) Me.GroupBox8.TabIndex = 5 Me.GroupBox8.TabStop = False ' 'chkparamsgen ' Me.chkparamsgen.Location = New System.Drawing.Point(21, 118) Me.chkparamsgen.Name = "chkparamsgen" Me.chkparamsgen.Size = New System.Drawing.Size(174, 20) Me.chkparamsgen.TabIndex = 60 Me.chkparamsgen.Tag = "197" Me.chkparamsgen.Text = "Parámetros Generales" ' 'chkActual ' Me.chkActual.AutoSize = True Me.chkActual.BackColor = System.Drawing.Color.White Me.chkActual.Location = New System.Drawing.Point(0, 0) Me.chkActual.Name = "chkActual" Me.chkActual.Size = New System.Drawing.Size(95, 17) Me.chkActual.TabIndex = 58 Me.chkActual.Tag = "22" Me.chkActual.Text = "Actualizadores" Me.chkActual.UseVisualStyleBackColor = False ' 'chkAsigGrpo ' Me.chkAsigGrpo.Location = New System.Drawing.Point(21, 92) Me.chkAsigGrpo.Name = "chkAsigGrpo" Me.chkAsigGrpo.Size = New System.Drawing.Size(174, 20) Me.chkAsigGrpo.TabIndex = 57 Me.chkAsigGrpo.Tag = "27" Me.chkAsigGrpo.Text = "Asignación de Grupos" ' 'ParametrosDeGrupoMenu ' Me.ParametrosDeGrupoMenu.Location = New System.Drawing.Point(21, 40) Me.ParametrosDeGrupoMenu.Name = "ParametrosDeGrupoMenu" Me.ParametrosDeGrupoMenu.Size = New System.Drawing.Size(136, 20) Me.ParametrosDeGrupoMenu.TabIndex = 55 Me.ParametrosDeGrupoMenu.Tag = "23" Me.ParametrosDeGrupoMenu.Text = "Parámetros de Grupo" ' 'chkTipoCambio ' Me.chkTipoCambio.Location = New System.Drawing.Point(21, 66) Me.chkTipoCambio.Name = "chkTipoCambio" Me.chkTipoCambio.Size = New System.Drawing.Size(128, 20) Me.chkTipoCambio.TabIndex = 56 Me.chkTipoCambio.Tag = "25" Me.chkTipoCambio.Text = "Tipo de Cambio" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Location = New System.Drawing.Point(6, 301) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(460, 13) Me.Label4.TabIndex = 53 Me.Label4.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'Catalogos ' Me.Catalogos.Controls.Add(Me.ChkTodosCatalogos) Me.Catalogos.Controls.Add(Me.GroupBox10) Me.Catalogos.Location = New System.Drawing.Point(4, 22) Me.Catalogos.Name = "Catalogos" Me.Catalogos.Size = New System.Drawing.Size(657, 385) Me.Catalogos.TabIndex = 2 Me.Catalogos.Text = "Catálogos" Me.Catalogos.UseVisualStyleBackColor = True ' 'ChkTodosCatalogos ' Me.ChkTodosCatalogos.AutoSize = True Me.ChkTodosCatalogos.Location = New System.Drawing.Point(13, 11) Me.ChkTodosCatalogos.Name = "ChkTodosCatalogos" Me.ChkTodosCatalogos.Size = New System.Drawing.Size(56, 17) Me.ChkTodosCatalogos.TabIndex = 65 Me.ChkTodosCatalogos.Text = "Todos" Me.ChkTodosCatalogos.UseVisualStyleBackColor = True ' 'GroupBox10 ' Me.GroupBox10.Controls.Add(Me.chkEstatusCta) Me.GroupBox10.Controls.Add(Me.chkCatsEBR) Me.GroupBox10.Controls.Add(Me.chkRazonMX) Me.GroupBox10.Controls.Add(Me.chkBoxParamMR) Me.GroupBox10.Controls.Add(Me.chkRiesgoPPE) Me.GroupBox10.Controls.Add(Me.chkCdOperacion) Me.GroupBox10.Controls.Add(Me.chkNacionalidad) Me.GroupBox10.Controls.Add(Me.chkObjCta) Me.GroupBox10.Controls.Add(Me.chkRelacion) Me.GroupBox10.Controls.Add(Me.chkPropositoCuenta) Me.GroupBox10.Controls.Add(Me.chkCASFIM) Me.GroupBox10.Controls.Add(Me.chkRazonUSD) Me.GroupBox10.Controls.Add(Me.chkLocalidad) Me.GroupBox10.Controls.Add(Me.chkPatronesCat) Me.GroupBox10.Controls.Add(Me.ChkMant) Me.GroupBox10.Controls.Add(Me.chkEstado) Me.GroupBox10.Controls.Add(Me.chkConf) Me.GroupBox10.Controls.Add(Me.chkCuentasUSD) Me.GroupBox10.Controls.Add(Me.chkConcepto) Me.GroupBox10.Controls.Add(Me.chkPais) Me.GroupBox10.Controls.Add(Me.chkOrgInter) Me.GroupBox10.Controls.Add(Me.chkSectorEco) Me.GroupBox10.Controls.Add(Me.ChkInsFin) Me.GroupBox10.Controls.Add(Me.chkActEco) Me.GroupBox10.Controls.Add(Me.chkMoneda) Me.GroupBox10.Controls.Add(Me.chkOficiales) Me.GroupBox10.Controls.Add(Me.chkInstrumMon) Me.GroupBox10.Controls.Add(Me.chkTipOp) Me.GroupBox10.Controls.Add(Me.chkCanales) Me.GroupBox10.Controls.Add(Me.chkFuncionarios2) Me.GroupBox10.Controls.Add(Me.chkSubproductos) Me.GroupBox10.Controls.Add(Me.chkIntitucional) Me.GroupBox10.Controls.Add(Me.chkProductos) Me.GroupBox10.Controls.Add(Me.chkCatalogos) Me.GroupBox10.Controls.Add(Me.chkGrupoRiesgo) Me.GroupBox10.Controls.Add(Me.chkFuentIng) Me.GroupBox10.Controls.Add(Me.chkSucs) Me.GroupBox10.Controls.Add(Me.chkFigLegal) Me.GroupBox10.Controls.Add(Me.chkTipoPer) Me.GroupBox10.Controls.Add(Me.chkEstrucCorp) Me.GroupBox10.Controls.Add(Me.chkTipoDom) Me.GroupBox10.Controls.Add(Me.chkTipoCuenta) Me.GroupBox10.Controls.Add(Me.chkProcRec) Me.GroupBox10.Controls.Add(Me.chkParents) Me.GroupBox10.Controls.Add(Me.chkTransfer) Me.GroupBox10.Controls.Add(Me.chkInstrument) Me.GroupBox10.Controls.Add(Me.chkID) Me.GroupBox10.Controls.Add(Me.chkDesRec) Me.GroupBox10.Controls.Add(Me.chkActVul) Me.GroupBox10.Controls.Add(Me.Label2) Me.GroupBox10.Controls.Add(Me.ShapeContainer2) Me.GroupBox10.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox10.Location = New System.Drawing.Point(16, 34) Me.GroupBox10.Name = "GroupBox10" Me.GroupBox10.Size = New System.Drawing.Size(627, 346) Me.GroupBox10.TabIndex = 16 Me.GroupBox10.TabStop = False ' 'chkEstatusCta ' Me.chkEstatusCta.AutoSize = True Me.chkEstatusCta.Location = New System.Drawing.Point(504, 171) Me.chkEstatusCta.Name = "chkEstatusCta" Me.chkEstatusCta.Size = New System.Drawing.Size(124, 17) Me.chkEstatusCta.TabIndex = 150 Me.chkEstatusCta.Tag = "205" Me.chkEstatusCta.Text = "Estatus de la Cuenta" ' 'chkCatsEBR ' Me.chkCatsEBR.AutoSize = True Me.chkCatsEBR.Location = New System.Drawing.Point(504, 150) Me.chkCatsEBR.Name = "chkCatsEBR" Me.chkCatsEBR.Size = New System.Drawing.Size(98, 17) Me.chkCatsEBR.TabIndex = 149 Me.chkCatsEBR.Tag = "204" Me.chkCatsEBR.Text = "Catalogos EBR" ' 'chkRazonMX ' Me.chkRazonMX.Location = New System.Drawing.Point(17, 283) Me.chkRazonMX.Name = "chkRazonMX" Me.chkRazonMX.Size = New System.Drawing.Size(91, 39) Me.chkRazonMX.TabIndex = 147 Me.chkRazonMX.Tag = "187" Me.chkRazonMX.Text = "Razones Uso USD México" Me.chkRazonMX.Visible = False ' 'chkBoxParamMR ' Me.chkBoxParamMR.Location = New System.Drawing.Point(504, 52) Me.chkBoxParamMR.Name = "chkBoxParamMR" Me.chkBoxParamMR.Size = New System.Drawing.Size(120, 35) Me.chkBoxParamMR.TabIndex = 145 Me.chkBoxParamMR.Tag = "199" Me.chkBoxParamMR.Text = "Parametros Modelo Riesgo" ' 'chkRiesgoPPE ' Me.chkRiesgoPPE.AutoSize = True Me.chkRiesgoPPE.Location = New System.Drawing.Point(504, 131) Me.chkRiesgoPPE.Name = "chkRiesgoPPE" Me.chkRiesgoPPE.Size = New System.Drawing.Size(83, 17) Me.chkRiesgoPPE.TabIndex = 145 Me.chkRiesgoPPE.Tag = "203" Me.chkRiesgoPPE.Text = "Riesgo PPE" ' 'chkCdOperacion ' Me.chkCdOperacion.AutoSize = True Me.chkCdOperacion.Location = New System.Drawing.Point(504, 112) Me.chkCdOperacion.Name = "chkCdOperacion" Me.chkCdOperacion.Size = New System.Drawing.Size(126, 17) Me.chkCdOperacion.TabIndex = 145 Me.chkCdOperacion.Tag = "202" Me.chkCdOperacion.Text = "Ciudad de Operación" ' 'chkNacionalidad ' Me.chkNacionalidad.AutoSize = True Me.chkNacionalidad.Location = New System.Drawing.Point(504, 93) Me.chkNacionalidad.Name = "chkNacionalidad" Me.chkNacionalidad.Size = New System.Drawing.Size(88, 17) Me.chkNacionalidad.TabIndex = 145 Me.chkNacionalidad.Tag = "201" Me.chkNacionalidad.Text = "Nacionalidad" ' 'chkObjCta ' Me.chkObjCta.AutoSize = True Me.chkObjCta.Location = New System.Drawing.Point(504, 34) Me.chkObjCta.Name = "chkObjCta" Me.chkObjCta.Size = New System.Drawing.Size(120, 17) Me.chkObjCta.TabIndex = 145 Me.chkObjCta.Tag = "198" Me.chkObjCta.Text = "Objeto de la Cuenta" ' 'chkRelacion ' Me.chkRelacion.Location = New System.Drawing.Point(362, 298) Me.chkRelacion.Name = "chkRelacion" Me.chkRelacion.Size = New System.Drawing.Size(136, 21) Me.chkRelacion.TabIndex = 145 Me.chkRelacion.Tag = "185" Me.chkRelacion.Text = "Relación Cuenta" ' 'chkPropositoCuenta ' Me.chkPropositoCuenta.Location = New System.Drawing.Point(362, 278) Me.chkPropositoCuenta.Name = "chkPropositoCuenta" Me.chkPropositoCuenta.Size = New System.Drawing.Size(136, 21) Me.chkPropositoCuenta.TabIndex = 144 Me.chkPropositoCuenta.Tag = "184" Me.chkPropositoCuenta.Text = "Tipo de Servicio" ' 'chkCASFIM ' Me.chkCASFIM.AutoSize = True Me.chkCASFIM.Location = New System.Drawing.Point(17, 291) Me.chkCASFIM.Name = "chkCASFIM" Me.chkCASFIM.Size = New System.Drawing.Size(65, 17) Me.chkCASFIM.TabIndex = 140 Me.chkCASFIM.Tag = "165" Me.chkCASFIM.Text = "CASFIM" Me.chkCASFIM.Visible = False ' 'chkRazonUSD ' Me.chkRazonUSD.Location = New System.Drawing.Point(17, 285) Me.chkRazonUSD.Name = "chkRazonUSD" Me.chkRazonUSD.Size = New System.Drawing.Size(91, 39) Me.chkRazonUSD.TabIndex = 146 Me.chkRazonUSD.Tag = "186" Me.chkRazonUSD.Text = "Razones Cuenta USD" Me.chkRazonUSD.Visible = False ' 'chkLocalidad ' Me.chkLocalidad.AutoSize = True Me.chkLocalidad.Location = New System.Drawing.Point(32, 156) Me.chkLocalidad.Name = "chkLocalidad" Me.chkLocalidad.Size = New System.Drawing.Size(72, 17) Me.chkLocalidad.TabIndex = 141 Me.chkLocalidad.Tag = "166" Me.chkLocalidad.Text = "Localidad" ' 'chkPatronesCat ' Me.chkPatronesCat.Location = New System.Drawing.Point(205, 182) Me.chkPatronesCat.Name = "chkPatronesCat" Me.chkPatronesCat.Size = New System.Drawing.Size(112, 26) Me.chkPatronesCat.TabIndex = 139 Me.chkPatronesCat.Tag = "126" Me.chkPatronesCat.Text = "Patrones" ' 'ChkMant ' Me.ChkMant.AutoSize = True Me.ChkMant.Location = New System.Drawing.Point(346, 19) Me.ChkMant.Name = "ChkMant" Me.ChkMant.Size = New System.Drawing.Size(95, 17) Me.ChkMant.TabIndex = 138 Me.ChkMant.Tag = "80" Me.ChkMant.Text = "Mantenimiento" ' 'chkEstado ' Me.chkEstado.Location = New System.Drawing.Point(32, 234) Me.chkEstado.Name = "chkEstado" Me.chkEstado.Size = New System.Drawing.Size(80, 16) Me.chkEstado.TabIndex = 136 Me.chkEstado.Tag = "40" Me.chkEstado.Text = "Estado" ' 'chkConf ' Me.chkConf.Location = New System.Drawing.Point(12, 187) Me.chkConf.Name = "chkConf" Me.chkConf.Size = New System.Drawing.Size(96, 24) Me.chkConf.TabIndex = 134 Me.chkConf.Tag = "44" Me.chkConf.Text = "Configuración" ' 'chkCuentasUSD ' Me.chkCuentasUSD.AutoSize = True Me.chkCuentasUSD.Location = New System.Drawing.Point(18, 296) Me.chkCuentasUSD.Name = "chkCuentasUSD" Me.chkCuentasUSD.Size = New System.Drawing.Size(91, 17) Me.chkCuentasUSD.TabIndex = 143 Me.chkCuentasUSD.Tag = "183" Me.chkCuentasUSD.Text = "Cuentas USD" Me.chkCuentasUSD.Visible = False ' 'chkConcepto ' Me.chkConcepto.AutoSize = True Me.chkConcepto.Location = New System.Drawing.Point(17, 291) Me.chkConcepto.Name = "chkConcepto" Me.chkConcepto.Size = New System.Drawing.Size(72, 17) Me.chkConcepto.TabIndex = 106 Me.chkConcepto.Tag = "128" Me.chkConcepto.Text = "Concepto" Me.chkConcepto.Visible = False ' 'chkPais ' Me.chkPais.Location = New System.Drawing.Point(32, 214) Me.chkPais.Name = "chkPais" Me.chkPais.Size = New System.Drawing.Size(108, 16) Me.chkPais.TabIndex = 135 Me.chkPais.Tag = "35" Me.chkPais.Text = "País" ' 'chkOrgInter ' Me.chkOrgInter.Location = New System.Drawing.Point(32, 254) Me.chkOrgInter.Name = "chkOrgInter" Me.chkOrgInter.Size = New System.Drawing.Size(172, 20) Me.chkOrgInter.TabIndex = 137 Me.chkOrgInter.Tag = "38" Me.chkOrgInter.Text = "Organismos Internacionales" ' 'chkSectorEco ' Me.chkSectorEco.Location = New System.Drawing.Point(18, 286) Me.chkSectorEco.Name = "chkSectorEco" Me.chkSectorEco.Size = New System.Drawing.Size(86, 36) Me.chkSectorEco.TabIndex = 142 Me.chkSectorEco.Tag = "167" Me.chkSectorEco.Text = "Sectores Económicos" Me.chkSectorEco.Visible = False ' 'ChkInsFin ' Me.ChkInsFin.Location = New System.Drawing.Point(32, 74) Me.ChkInsFin.Name = "ChkInsFin" Me.ChkInsFin.Size = New System.Drawing.Size(132, 20) Me.ChkInsFin.TabIndex = 129 Me.ChkInsFin.Tag = "42" Me.ChkInsFin.Text = "Institución Financiera" ' 'chkActEco ' Me.chkActEco.Location = New System.Drawing.Point(32, 54) Me.chkActEco.Name = "chkActEco" Me.chkActEco.Size = New System.Drawing.Size(132, 20) Me.chkActEco.TabIndex = 128 Me.chkActEco.Tag = "41" Me.chkActEco.Text = "Actividad Económica" ' 'chkMoneda ' Me.chkMoneda.Location = New System.Drawing.Point(32, 134) Me.chkMoneda.Name = "chkMoneda" Me.chkMoneda.Size = New System.Drawing.Size(104, 20) Me.chkMoneda.TabIndex = 132 Me.chkMoneda.Tag = "47" Me.chkMoneda.Text = "Moneda" ' 'chkOficiales ' Me.chkOficiales.Location = New System.Drawing.Point(12, 35) Me.chkOficiales.Name = "chkOficiales" Me.chkOficiales.Size = New System.Drawing.Size(68, 20) Me.chkOficiales.TabIndex = 127 Me.chkOficiales.Tag = "34" Me.chkOficiales.Text = "Oficiales" ' 'chkInstrumMon ' Me.chkInstrumMon.Location = New System.Drawing.Point(32, 114) Me.chkInstrumMon.Name = "chkInstrumMon" Me.chkInstrumMon.Size = New System.Drawing.Size(136, 20) Me.chkInstrumMon.TabIndex = 131 Me.chkInstrumMon.Tag = "37" Me.chkInstrumMon.Text = "Instrumento Monetario" ' 'chkTipOp ' Me.chkTipOp.Location = New System.Drawing.Point(32, 94) Me.chkTipOp.Name = "chkTipOp" Me.chkTipOp.Size = New System.Drawing.Size(128, 20) Me.chkTipOp.TabIndex = 130 Me.chkTipOp.Tag = "36" Me.chkTipOp.Text = "Tipo Operación" ' 'chkCanales ' Me.chkCanales.Location = New System.Drawing.Point(18, 291) Me.chkCanales.Name = "chkCanales" Me.chkCanales.Size = New System.Drawing.Size(112, 26) Me.chkCanales.TabIndex = 126 Me.chkCanales.Tag = "83" Me.chkCanales.Text = "Canales" Me.chkCanales.Visible = False ' 'chkFuncionarios2 ' Me.chkFuncionarios2.Location = New System.Drawing.Point(221, 91) Me.chkFuncionarios2.Name = "chkFuncionarios2" Me.chkFuncionarios2.Size = New System.Drawing.Size(112, 26) Me.chkFuncionarios2.TabIndex = 125 Me.chkFuncionarios2.Tag = "82" Me.chkFuncionarios2.Text = "Funcionarios" ' 'chkSubproductos ' Me.chkSubproductos.Location = New System.Drawing.Point(221, 76) Me.chkSubproductos.Name = "chkSubproductos" Me.chkSubproductos.Size = New System.Drawing.Size(112, 16) Me.chkSubproductos.TabIndex = 124 Me.chkSubproductos.Tag = "46" Me.chkSubproductos.Text = "SubProductos" ' 'chkIntitucional ' Me.chkIntitucional.Location = New System.Drawing.Point(205, 32) Me.chkIntitucional.Name = "chkIntitucional" Me.chkIntitucional.Size = New System.Drawing.Size(96, 20) Me.chkIntitucional.TabIndex = 122 Me.chkIntitucional.Tag = "48" Me.chkIntitucional.Text = "Institucionales" ' 'chkProductos ' Me.chkProductos.Location = New System.Drawing.Point(221, 56) Me.chkProductos.Name = "chkProductos" Me.chkProductos.Size = New System.Drawing.Size(80, 16) Me.chkProductos.TabIndex = 123 Me.chkProductos.Tag = "45" Me.chkProductos.Text = "Productos" ' 'chkCatalogos ' Me.chkCatalogos.AutoSize = True Me.chkCatalogos.BackColor = System.Drawing.Color.White Me.chkCatalogos.Location = New System.Drawing.Point(0, 0) Me.chkCatalogos.Name = "chkCatalogos" Me.chkCatalogos.Size = New System.Drawing.Size(73, 17) Me.chkCatalogos.TabIndex = 121 Me.chkCatalogos.Tag = "33" Me.chkCatalogos.Text = "Catalogos" Me.chkCatalogos.UseVisualStyleBackColor = False ' 'chkGrupoRiesgo ' Me.chkGrupoRiesgo.AutoSize = True Me.chkGrupoRiesgo.Location = New System.Drawing.Point(362, 261) Me.chkGrupoRiesgo.Name = "chkGrupoRiesgo" Me.chkGrupoRiesgo.Size = New System.Drawing.Size(120, 17) Me.chkGrupoRiesgo.TabIndex = 120 Me.chkGrupoRiesgo.Tag = "156" Me.chkGrupoRiesgo.Text = "Grupo de Monitoreo" ' 'chkFuentIng ' Me.chkFuentIng.AutoSize = True Me.chkFuentIng.Location = New System.Drawing.Point(362, 244) Me.chkFuentIng.Name = "chkFuentIng" Me.chkFuentIng.Size = New System.Drawing.Size(97, 17) Me.chkFuentIng.TabIndex = 119 Me.chkFuentIng.Tag = "141" Me.chkFuentIng.Text = "Fuente Ingreso" ' 'chkSucs ' Me.chkSucs.AutoSize = True Me.chkSucs.Location = New System.Drawing.Point(362, 227) Me.chkSucs.Name = "chkSucs" Me.chkSucs.Size = New System.Drawing.Size(78, 17) Me.chkSucs.TabIndex = 118 Me.chkSucs.Tag = "140" Me.chkSucs.Text = "Sucursales" ' 'chkFigLegal ' Me.chkFigLegal.AutoSize = True Me.chkFigLegal.Location = New System.Drawing.Point(362, 210) Me.chkFigLegal.Name = "chkFigLegal" Me.chkFigLegal.Size = New System.Drawing.Size(84, 17) Me.chkFigLegal.TabIndex = 117 Me.chkFigLegal.Tag = "139" Me.chkFigLegal.Text = "Figura Legal" ' 'chkTipoPer ' Me.chkTipoPer.AutoSize = True Me.chkTipoPer.Location = New System.Drawing.Point(362, 193) Me.chkTipoPer.Name = "chkTipoPer" Me.chkTipoPer.Size = New System.Drawing.Size(89, 17) Me.chkTipoPer.TabIndex = 116 Me.chkTipoPer.Tag = "138" Me.chkTipoPer.Text = "Tipo Persona" ' 'chkEstrucCorp ' Me.chkEstrucCorp.AutoSize = True Me.chkEstrucCorp.Location = New System.Drawing.Point(362, 176) Me.chkEstrucCorp.Name = "chkEstrucCorp" Me.chkEstrucCorp.Size = New System.Drawing.Size(99, 17) Me.chkEstrucCorp.TabIndex = 115 Me.chkEstrucCorp.Tag = "137" Me.chkEstrucCorp.Text = "Estructura Corp" ' 'chkTipoDom ' Me.chkTipoDom.AutoSize = True Me.chkTipoDom.Location = New System.Drawing.Point(362, 159) Me.chkTipoDom.Name = "chkTipoDom" Me.chkTipoDom.Size = New System.Drawing.Size(92, 17) Me.chkTipoDom.TabIndex = 114 Me.chkTipoDom.Tag = "136" Me.chkTipoDom.Text = "Tipo Domicilio" ' 'chkTipoCuenta ' Me.chkTipoCuenta.AutoSize = True Me.chkTipoCuenta.Location = New System.Drawing.Point(362, 142) Me.chkTipoCuenta.Name = "chkTipoCuenta" Me.chkTipoCuenta.Size = New System.Drawing.Size(84, 17) Me.chkTipoCuenta.TabIndex = 113 Me.chkTipoCuenta.Tag = "135" Me.chkTipoCuenta.Text = "Tipo Cuenta" ' 'chkProcRec ' Me.chkProcRec.AutoSize = True Me.chkProcRec.Location = New System.Drawing.Point(362, 125) Me.chkProcRec.Name = "chkProcRec" Me.chkProcRec.Size = New System.Drawing.Size(100, 17) Me.chkProcRec.TabIndex = 112 Me.chkProcRec.Tag = "134" Me.chkProcRec.Text = "Origen Recurso" ' 'chkParents ' Me.chkParents.AutoSize = True Me.chkParents.Location = New System.Drawing.Point(362, 108) Me.chkParents.Name = "chkParents" Me.chkParents.Size = New System.Drawing.Size(80, 17) Me.chkParents.TabIndex = 111 Me.chkParents.Tag = "133" Me.chkParents.Text = "Parentesco" ' 'chkTransfer ' Me.chkTransfer.AutoSize = True Me.chkTransfer.Location = New System.Drawing.Point(362, 91) Me.chkTransfer.Name = "chkTransfer" Me.chkTransfer.Size = New System.Drawing.Size(115, 17) Me.chkTransfer.TabIndex = 110 Me.chkTransfer.Tag = "132" Me.chkTransfer.Text = "Tipo Transferencia" ' 'chkInstrument ' Me.chkInstrument.AutoSize = True Me.chkInstrument.Location = New System.Drawing.Point(517, 319) Me.chkInstrument.Name = "chkInstrument" Me.chkInstrument.Size = New System.Drawing.Size(81, 17) Me.chkInstrument.TabIndex = 109 Me.chkInstrument.Tag = "131" Me.chkInstrument.Text = "Instrumento" Me.chkInstrument.Visible = False ' 'chkID ' Me.chkID.AutoSize = True Me.chkID.Location = New System.Drawing.Point(362, 72) Me.chkID.Name = "chkID" Me.chkID.Size = New System.Drawing.Size(89, 17) Me.chkID.TabIndex = 108 Me.chkID.Tag = "130" Me.chkID.Text = "Identificación" ' 'chkDesRec ' Me.chkDesRec.AutoSize = True Me.chkDesRec.Location = New System.Drawing.Point(362, 54) Me.chkDesRec.Name = "chkDesRec" Me.chkDesRec.Size = New System.Drawing.Size(105, 17) Me.chkDesRec.TabIndex = 107 Me.chkDesRec.Tag = "129" Me.chkDesRec.Text = "Destino Recurso" ' 'chkActVul ' Me.chkActVul.AutoSize = True Me.chkActVul.Location = New System.Drawing.Point(362, 36) Me.chkActVul.Name = "chkActVul" Me.chkActVul.Size = New System.Drawing.Size(123, 17) Me.chkActVul.TabIndex = 105 Me.chkActVul.Tag = "127" Me.chkActVul.Text = "Actividad Vulnerable" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(9, 325) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(460, 13) Me.Label2.TabIndex = 52 Me.Label2.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'ShapeContainer2 ' Me.ShapeContainer2.Location = New System.Drawing.Point(3, 16) Me.ShapeContainer2.Margin = New System.Windows.Forms.Padding(0) Me.ShapeContainer2.Name = "ShapeContainer2" Me.ShapeContainer2.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {Me.LineShape40, Me.LineShape39, Me.LineShape38, Me.LineShape37, Me.LineShape36, Me.LineShape35, Me.LineShape34, Me.LineShape33, Me.LineShape32, Me.LineShape31, Me.LineShape30, Me.LineShape29, Me.LineShape11, Me.LineShape10, Me.LineShape9, Me.LineShape7, Me.LineShape6, Me.LineShape5, Me.LineShape27, Me.LineShape26, Me.LineShape25, Me.LineShape24, Me.LineShape23, Me.LineShape22, Me.LineShape21, Me.LineShape20, Me.LineShape19, Me.LineShape17, Me.LineShape16, Me.LineShape15, Me.LineShape14, Me.LineShape13, Me.LineShape12}) Me.ShapeContainer2.Size = New System.Drawing.Size(621, 327) Me.ShapeContainer2.TabIndex = 51 Me.ShapeContainer2.TabStop = False ' 'LineShape40 ' Me.LineShape40.Name = "" Me.LineShape40.X1 = 0 Me.LineShape40.X2 = 0 Me.LineShape40.Y1 = 0 Me.LineShape40.Y2 = 0 ' 'LineShape39 ' Me.LineShape39.Name = "" Me.LineShape39.X1 = 0 Me.LineShape39.X2 = 0 Me.LineShape39.Y1 = 0 Me.LineShape39.Y2 = 0 ' 'LineShape38 ' Me.LineShape38.Name = "" Me.LineShape38.X1 = 0 Me.LineShape38.X2 = 0 Me.LineShape38.Y1 = 0 Me.LineShape38.Y2 = 0 ' 'LineShape37 ' Me.LineShape37.Name = "" Me.LineShape37.X1 = 0 Me.LineShape37.X2 = 0 Me.LineShape37.Y1 = 0 Me.LineShape37.Y2 = 0 ' 'LineShape36 ' Me.LineShape36.Name = "" Me.LineShape36.X1 = 0 Me.LineShape36.X2 = 0 Me.LineShape36.Y1 = 0 Me.LineShape36.Y2 = 0 ' 'LineShape35 ' Me.LineShape35.Name = "" Me.LineShape35.X1 = 0 Me.LineShape35.X2 = 0 Me.LineShape35.Y1 = 0 Me.LineShape35.Y2 = 0 ' 'LineShape34 ' Me.LineShape34.Name = "" Me.LineShape34.X1 = 0 Me.LineShape34.X2 = 0 Me.LineShape34.Y1 = 0 Me.LineShape34.Y2 = 0 ' 'LineShape33 ' Me.LineShape33.Name = "" Me.LineShape33.X1 = 0 Me.LineShape33.X2 = 0 Me.LineShape33.Y1 = 0 Me.LineShape33.Y2 = 0 ' 'LineShape32 ' Me.LineShape32.Name = "" Me.LineShape32.X1 = 0 Me.LineShape32.X2 = 0 Me.LineShape32.Y1 = 0 Me.LineShape32.Y2 = 0 ' 'LineShape31 ' Me.LineShape31.Name = "" Me.LineShape31.X1 = 0 Me.LineShape31.X2 = 0 Me.LineShape31.Y1 = 0 Me.LineShape31.Y2 = 0 ' 'LineShape30 ' Me.LineShape30.Name = "" Me.LineShape30.X1 = 0 Me.LineShape30.X2 = 0 Me.LineShape30.Y1 = 0 Me.LineShape30.Y2 = 0 ' 'LineShape29 ' Me.LineShape29.Name = "" Me.LineShape29.X1 = 0 Me.LineShape29.X2 = 0 Me.LineShape29.Y1 = 0 Me.LineShape29.Y2 = 0 ' 'LineShape11 ' Me.LineShape11.Name = "" Me.LineShape11.X1 = 0 Me.LineShape11.X2 = 0 Me.LineShape11.Y1 = 0 Me.LineShape11.Y2 = 0 ' 'LineShape10 ' Me.LineShape10.Name = "" Me.LineShape10.X1 = 0 Me.LineShape10.X2 = 0 Me.LineShape10.Y1 = 0 Me.LineShape10.Y2 = 0 ' 'LineShape9 ' Me.LineShape9.Name = "" Me.LineShape9.X1 = 0 Me.LineShape9.X2 = 0 Me.LineShape9.Y1 = 0 Me.LineShape9.Y2 = 0 ' 'LineShape7 ' Me.LineShape7.Name = "" Me.LineShape7.X1 = 0 Me.LineShape7.X2 = 0 Me.LineShape7.Y1 = 0 Me.LineShape7.Y2 = 0 ' 'LineShape6 ' Me.LineShape6.Name = "" Me.LineShape6.X1 = 0 Me.LineShape6.X2 = 0 Me.LineShape6.Y1 = 0 Me.LineShape6.Y2 = 0 ' 'LineShape5 ' Me.LineShape5.Name = "" Me.LineShape5.X1 = 0 Me.LineShape5.X2 = 0 Me.LineShape5.Y1 = 0 Me.LineShape5.Y2 = 0 ' 'LineShape27 ' Me.LineShape27.Name = "" Me.LineShape27.X1 = 0 Me.LineShape27.X2 = 0 Me.LineShape27.Y1 = 0 Me.LineShape27.Y2 = 0 ' 'LineShape26 ' Me.LineShape26.Name = "" Me.LineShape26.X1 = 0 Me.LineShape26.X2 = 0 Me.LineShape26.Y1 = 0 Me.LineShape26.Y2 = 0 ' 'LineShape25 ' Me.LineShape25.Name = "" Me.LineShape25.X1 = 0 Me.LineShape25.X2 = 0 Me.LineShape25.Y1 = 0 Me.LineShape25.Y2 = 0 ' 'LineShape24 ' Me.LineShape24.Name = "" Me.LineShape24.X1 = 0 Me.LineShape24.X2 = 0 Me.LineShape24.Y1 = 0 Me.LineShape24.Y2 = 0 ' 'LineShape23 ' Me.LineShape23.Name = "" Me.LineShape23.X1 = 0 Me.LineShape23.X2 = 0 Me.LineShape23.Y1 = 0 Me.LineShape23.Y2 = 0 ' 'LineShape22 ' Me.LineShape22.Name = "" Me.LineShape22.X1 = 0 Me.LineShape22.X2 = 0 Me.LineShape22.Y1 = 0 Me.LineShape22.Y2 = 0 ' 'LineShape21 ' Me.LineShape21.Name = "" Me.LineShape21.X1 = 0 Me.LineShape21.X2 = 0 Me.LineShape21.Y1 = 0 Me.LineShape21.Y2 = 0 ' 'LineShape20 ' Me.LineShape20.Name = "" Me.LineShape20.X1 = 0 Me.LineShape20.X2 = 0 Me.LineShape20.Y1 = 0 Me.LineShape20.Y2 = 0 ' 'LineShape19 ' Me.LineShape19.Name = "" Me.LineShape19.X1 = 0 Me.LineShape19.X2 = 0 Me.LineShape19.Y1 = 0 Me.LineShape19.Y2 = 0 ' 'LineShape17 ' Me.LineShape17.Name = "" Me.LineShape17.X1 = 0 Me.LineShape17.X2 = 0 Me.LineShape17.Y1 = 0 Me.LineShape17.Y2 = 0 ' 'LineShape16 ' Me.LineShape16.Name = "" Me.LineShape16.X1 = 0 Me.LineShape16.X2 = 0 Me.LineShape16.Y1 = 0 Me.LineShape16.Y2 = 0 ' 'LineShape15 ' Me.LineShape15.Name = "" Me.LineShape15.X1 = 0 Me.LineShape15.X2 = 0 Me.LineShape15.Y1 = 0 Me.LineShape15.Y2 = 0 ' 'LineShape14 ' Me.LineShape14.Name = "" Me.LineShape14.X1 = 0 Me.LineShape14.X2 = 0 Me.LineShape14.Y1 = 0 Me.LineShape14.Y2 = 0 ' 'LineShape13 ' Me.LineShape13.Name = "" Me.LineShape13.X1 = 0 Me.LineShape13.X2 = 0 Me.LineShape13.Y1 = 0 Me.LineShape13.Y2 = 0 ' 'LineShape12 ' Me.LineShape12.Name = "" Me.LineShape12.X1 = 0 Me.LineShape12.X2 = 0 Me.LineShape12.Y1 = 0 Me.LineShape12.Y2 = 0 ' 'seguridad ' Me.seguridad.Controls.Add(Me.chkTodosSeguridad) Me.seguridad.Controls.Add(Me.GroupBox9) Me.seguridad.Location = New System.Drawing.Point(4, 22) Me.seguridad.Name = "seguridad" Me.seguridad.Size = New System.Drawing.Size(657, 385) Me.seguridad.TabIndex = 8 Me.seguridad.Text = "Seguridad" Me.seguridad.UseVisualStyleBackColor = True ' 'chkTodosSeguridad ' Me.chkTodosSeguridad.AutoSize = True Me.chkTodosSeguridad.Location = New System.Drawing.Point(16, 7) Me.chkTodosSeguridad.Name = "chkTodosSeguridad" Me.chkTodosSeguridad.Size = New System.Drawing.Size(56, 17) Me.chkTodosSeguridad.TabIndex = 77 Me.chkTodosSeguridad.Text = "Todos" Me.chkTodosSeguridad.UseVisualStyleBackColor = True ' 'GroupBox9 ' Me.GroupBox9.Controls.Add(Me.chkControlAcceso) Me.GroupBox9.Controls.Add(Me.chkConfigClaves) Me.GroupBox9.Controls.Add(Me.chkPerfil) Me.GroupBox9.Controls.Add(Me.chkAuditoria) Me.GroupBox9.Controls.Add(Me.chkUsuario) Me.GroupBox9.Controls.Add(Me.chkSeguridad) Me.GroupBox9.Controls.Add(Me.Label5) Me.GroupBox9.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox9.Location = New System.Drawing.Point(16, 30) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(614, 324) Me.GroupBox9.TabIndex = 4 Me.GroupBox9.TabStop = False ' 'chkControlAcceso ' Me.chkControlAcceso.Location = New System.Drawing.Point(28, 123) Me.chkControlAcceso.Name = "chkControlAcceso" Me.chkControlAcceso.Size = New System.Drawing.Size(118, 20) Me.chkControlAcceso.TabIndex = 59 Me.chkControlAcceso.Tag = "182" Me.chkControlAcceso.Text = "Control de Accesos" ' 'chkConfigClaves ' Me.chkConfigClaves.Location = New System.Drawing.Point(473, 302) Me.chkConfigClaves.Name = "chkConfigClaves" Me.chkConfigClaves.Size = New System.Drawing.Size(135, 20) Me.chkConfigClaves.TabIndex = 58 Me.chkConfigClaves.Tag = "73" Me.chkConfigClaves.Text = "Configuración Claves" Me.chkConfigClaves.Visible = False ' 'chkPerfil ' Me.chkPerfil.Location = New System.Drawing.Point(28, 71) Me.chkPerfil.Name = "chkPerfil" Me.chkPerfil.Size = New System.Drawing.Size(104, 20) Me.chkPerfil.TabIndex = 56 Me.chkPerfil.Tag = "31" Me.chkPerfil.Text = "Perfiles" ' 'chkAuditoria ' Me.chkAuditoria.Location = New System.Drawing.Point(28, 97) Me.chkAuditoria.Name = "chkAuditoria" Me.chkAuditoria.Size = New System.Drawing.Size(104, 20) Me.chkAuditoria.TabIndex = 57 Me.chkAuditoria.Tag = "32" Me.chkAuditoria.Text = "Auditoría" ' 'chkUsuario ' Me.chkUsuario.Location = New System.Drawing.Point(28, 45) Me.chkUsuario.Name = "chkUsuario" Me.chkUsuario.Size = New System.Drawing.Size(104, 20) Me.chkUsuario.TabIndex = 55 Me.chkUsuario.Tag = "30" Me.chkUsuario.Text = "Usuarios" ' 'chkSeguridad ' Me.chkSeguridad.AutoSize = True Me.chkSeguridad.BackColor = System.Drawing.Color.White Me.chkSeguridad.Location = New System.Drawing.Point(0, 0) Me.chkSeguridad.Name = "chkSeguridad" Me.chkSeguridad.Size = New System.Drawing.Size(74, 17) Me.chkSeguridad.TabIndex = 54 Me.chkSeguridad.Tag = "29" Me.chkSeguridad.Text = "Seguridad" Me.chkSeguridad.UseVisualStyleBackColor = False ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Location = New System.Drawing.Point(7, 298) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(460, 13) Me.Label5.TabIndex = 53 Me.Label5.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'ListaRestringuida ' Me.ListaRestringuida.Controls.Add(Me.ChkListaRestringidas) Me.ListaRestringuida.Controls.Add(Me.GroupBox11) Me.ListaRestringuida.Location = New System.Drawing.Point(4, 22) Me.ListaRestringuida.Name = "ListaRestringuida" Me.ListaRestringuida.Size = New System.Drawing.Size(657, 385) Me.ListaRestringuida.TabIndex = 6 Me.ListaRestringuida.Text = "Listas Restringidas" Me.ListaRestringuida.UseVisualStyleBackColor = True ' 'ChkListaRestringidas ' Me.ChkListaRestringidas.AutoSize = True Me.ChkListaRestringidas.Location = New System.Drawing.Point(16, 15) Me.ChkListaRestringidas.Name = "ChkListaRestringidas" Me.ChkListaRestringidas.Size = New System.Drawing.Size(56, 17) Me.ChkListaRestringidas.TabIndex = 78 Me.ChkListaRestringidas.Text = "Todos" Me.ChkListaRestringidas.UseVisualStyleBackColor = True ' 'GroupBox11 ' Me.GroupBox11.Controls.Add(Me.chkListaSPID) Me.GroupBox11.Controls.Add(Me.ChkPersonas) Me.GroupBox11.Controls.Add(Me.chkClientes) Me.GroupBox11.Controls.Add(Me.chkListasrest) Me.GroupBox11.Controls.Add(Me.Label6) Me.GroupBox11.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox11.Location = New System.Drawing.Point(16, 38) Me.GroupBox11.Name = "GroupBox11" Me.GroupBox11.Size = New System.Drawing.Size(614, 316) Me.GroupBox11.TabIndex = 10 Me.GroupBox11.TabStop = False ' 'chkListaSPID ' Me.chkListaSPID.Location = New System.Drawing.Point(489, 296) Me.chkListaSPID.Name = "chkListaSPID" Me.chkListaSPID.Size = New System.Drawing.Size(104, 20) Me.chkListaSPID.TabIndex = 61 Me.chkListaSPID.Tag = "188" Me.chkListaSPID.Text = "SPID" Me.chkListaSPID.Visible = False ' 'ChkPersonas ' Me.ChkPersonas.Location = New System.Drawing.Point(28, 39) Me.ChkPersonas.Name = "ChkPersonas" Me.ChkPersonas.Size = New System.Drawing.Size(104, 20) Me.ChkPersonas.TabIndex = 55 Me.ChkPersonas.Tag = "56" Me.ChkPersonas.Text = "Personas" ' 'chkClientes ' Me.chkClientes.Location = New System.Drawing.Point(28, 65) Me.chkClientes.Name = "chkClientes" Me.chkClientes.Size = New System.Drawing.Size(104, 20) Me.chkClientes.TabIndex = 56 Me.chkClientes.Tag = "57" Me.chkClientes.Text = "Clientes" ' 'chkListasrest ' Me.chkListasrest.AutoSize = True Me.chkListasrest.BackColor = System.Drawing.Color.White Me.chkListasrest.Location = New System.Drawing.Point(0, 0) Me.chkListasrest.Name = "chkListasrest" Me.chkListasrest.Size = New System.Drawing.Size(114, 17) Me.chkListasrest.TabIndex = 54 Me.chkListasrest.Tag = "55" Me.chkListasrest.Text = "Listas Restringidas" Me.chkListasrest.UseVisualStyleBackColor = False ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Location = New System.Drawing.Point(6, 288) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(460, 13) Me.Label6.TabIndex = 53 Me.Label6.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'tabProcesoHit ' Me.tabProcesoHit.BackColor = System.Drawing.Color.White Me.tabProcesoHit.Controls.Add(Me.GroupBox7) Me.tabProcesoHit.Location = New System.Drawing.Point(4, 22) Me.tabProcesoHit.Name = "tabProcesoHit" Me.tabProcesoHit.Size = New System.Drawing.Size(657, 385) Me.tabProcesoHit.TabIndex = 14 Me.tabProcesoHit.Text = "ProcesoHIT" ' 'GroupBox7 ' Me.GroupBox7.Controls.Add(Me.chkProcesoHIT) Me.GroupBox7.Controls.Add(Me.chkComp) Me.GroupBox7.Controls.Add(Me.chkReviewer) Me.GroupBox7.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox7.Location = New System.Drawing.Point(17, 12) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(610, 340) Me.GroupBox7.TabIndex = 0 Me.GroupBox7.TabStop = False ' 'chkProcesoHIT ' Me.chkProcesoHIT.AutoSize = True Me.chkProcesoHIT.Location = New System.Drawing.Point(0, 0) Me.chkProcesoHIT.Name = "chkProcesoHIT" Me.chkProcesoHIT.Size = New System.Drawing.Size(83, 17) Me.chkProcesoHIT.TabIndex = 3 Me.chkProcesoHIT.Tag = "125" Me.chkProcesoHIT.Text = "ProcesoHIT" Me.chkProcesoHIT.UseVisualStyleBackColor = True Me.chkProcesoHIT.Visible = False ' 'chkComp ' Me.chkComp.AutoSize = True Me.chkComp.Location = New System.Drawing.Point(23, 85) Me.chkComp.Name = "chkComp" Me.chkComp.Size = New System.Drawing.Size(81, 17) Me.chkComp.TabIndex = 2 Me.chkComp.Tag = "162" Me.chkComp.Text = "Compliance" Me.chkComp.UseVisualStyleBackColor = True Me.chkComp.Visible = False ' 'chkReviewer ' Me.chkReviewer.AutoSize = True Me.chkReviewer.Location = New System.Drawing.Point(23, 52) Me.chkReviewer.Name = "chkReviewer" Me.chkReviewer.Size = New System.Drawing.Size(71, 17) Me.chkReviewer.TabIndex = 1 Me.chkReviewer.Tag = "161" Me.chkReviewer.Text = "Reviewer" Me.chkReviewer.UseVisualStyleBackColor = True Me.chkReviewer.Visible = False ' 'TABServer ' Me.TABServer.Controls.Add(Me.CheckBox2) Me.TABServer.Controls.Add(Me.GroupBox3) Me.TABServer.Location = New System.Drawing.Point(4, 22) Me.TABServer.Name = "TABServer" Me.TABServer.Padding = New System.Windows.Forms.Padding(3) Me.TABServer.Size = New System.Drawing.Size(657, 385) Me.TABServer.TabIndex = 10 Me.TABServer.Text = "Server" Me.TABServer.UseVisualStyleBackColor = True ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True Me.CheckBox2.Location = New System.Drawing.Point(16, 8) Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Size = New System.Drawing.Size(56, 17) Me.CheckBox2.TabIndex = 74 Me.CheckBox2.Text = "Todos" Me.CheckBox2.UseVisualStyleBackColor = True ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.chkserver) Me.GroupBox3.Controls.Add(Me.Label7) Me.GroupBox3.Controls.Add(Me.gbxLogs) Me.GroupBox3.Controls.Add(Me.gbxProcs) Me.GroupBox3.Controls.Add(Me.gbxAlarmas) Me.GroupBox3.Controls.Add(Me.gbxContCargas) Me.GroupBox3.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox3.Location = New System.Drawing.Point(16, 31) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(614, 348) Me.GroupBox3.TabIndex = 4 Me.GroupBox3.TabStop = False ' 'chkserver ' Me.chkserver.AutoSize = True Me.chkserver.BackColor = System.Drawing.Color.White Me.chkserver.Location = New System.Drawing.Point(0, 0) Me.chkserver.Name = "chkserver" Me.chkserver.Size = New System.Drawing.Size(88, 17) Me.chkserver.TabIndex = 73 Me.chkserver.Tag = "84" Me.chkserver.Text = "Minds Server" Me.chkserver.UseVisualStyleBackColor = False Me.chkserver.Visible = False ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.Location = New System.Drawing.Point(10, 331) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(460, 13) Me.Label7.TabIndex = 72 Me.Label7.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'gbxLogs ' Me.gbxLogs.Controls.Add(Me.chkRCuentaRel) Me.gbxLogs.Controls.Add(Me.chkAuditS) Me.gbxLogs.Controls.Add(Me.chkRPerfilTran) Me.gbxLogs.Controls.Add(Me.chkLogs) Me.gbxLogs.Controls.Add(Me.chkAcumuladoMenS) Me.gbxLogs.Controls.Add(Me.chkChequesServer) Me.gbxLogs.Controls.Add(Me.chkTransFondos) Me.gbxLogs.Controls.Add(Me.chkDllsEfec) Me.gbxLogs.Location = New System.Drawing.Point(415, 34) Me.gbxLogs.Name = "gbxLogs" Me.gbxLogs.Size = New System.Drawing.Size(170, 288) Me.gbxLogs.TabIndex = 71 Me.gbxLogs.TabStop = False Me.gbxLogs.Text = "Logs" ' 'chkRCuentaRel ' Me.chkRCuentaRel.Location = New System.Drawing.Point(10, 213) Me.chkRCuentaRel.Name = "chkRCuentaRel" Me.chkRCuentaRel.Size = New System.Drawing.Size(131, 30) Me.chkRCuentaRel.TabIndex = 73 Me.chkRCuentaRel.Tag = "190" Me.chkRCuentaRel.Text = "Recalcular Cuentas Relacionadas" Me.chkRCuentaRel.Visible = False ' 'chkAuditS ' Me.chkAuditS.Location = New System.Drawing.Point(10, 44) Me.chkAuditS.Name = "chkAuditS" Me.chkAuditS.Size = New System.Drawing.Size(128, 20) Me.chkAuditS.TabIndex = 67 Me.chkAuditS.Tag = "94" Me.chkAuditS.Text = "Auditoría" ' 'chkRPerfilTran ' Me.chkRPerfilTran.Location = New System.Drawing.Point(10, 183) Me.chkRPerfilTran.Name = "chkRPerfilTran" Me.chkRPerfilTran.Size = New System.Drawing.Size(115, 31) Me.chkRPerfilTran.TabIndex = 72 Me.chkRPerfilTran.Tag = "189" Me.chkRPerfilTran.Text = "Recalcular Perfil Transaccional" Me.chkRPerfilTran.Visible = False ' 'chkLogs ' Me.chkLogs.Location = New System.Drawing.Point(10, 19) Me.chkLogs.Name = "chkLogs" Me.chkLogs.Size = New System.Drawing.Size(128, 20) Me.chkLogs.TabIndex = 66 Me.chkLogs.Tag = "93" Me.chkLogs.Text = "Log de transacciones" ' 'chkAcumuladoMenS ' Me.chkAcumuladoMenS.Location = New System.Drawing.Point(10, 93) Me.chkAcumuladoMenS.Name = "chkAcumuladoMenS" Me.chkAcumuladoMenS.Size = New System.Drawing.Size(145, 20) Me.chkAcumuladoMenS.TabIndex = 67 Me.chkAcumuladoMenS.Tag = "151" Me.chkAcumuladoMenS.Text = "Acumulado Mensual" Me.chkAcumuladoMenS.Visible = False ' 'chkChequesServer ' Me.chkChequesServer.AutoSize = True Me.chkChequesServer.Location = New System.Drawing.Point(10, 165) Me.chkChequesServer.Name = "chkChequesServer" Me.chkChequesServer.Size = New System.Drawing.Size(107, 17) Me.chkChequesServer.TabIndex = 53 Me.chkChequesServer.Tag = "160" Me.chkChequesServer.Text = "Cheques de Caja" Me.chkChequesServer.UseVisualStyleBackColor = True Me.chkChequesServer.Visible = False ' 'chkTransFondos ' Me.chkTransFondos.Location = New System.Drawing.Point(10, 107) Me.chkTransFondos.Name = "chkTransFondos" Me.chkTransFondos.Size = New System.Drawing.Size(145, 40) Me.chkTransFondos.TabIndex = 68 Me.chkTransFondos.Tag = "152" Me.chkTransFondos.Text = "Transferencia Internacional de Fondos" Me.chkTransFondos.Visible = False ' 'chkDllsEfec ' Me.chkDllsEfec.Location = New System.Drawing.Point(10, 143) Me.chkDllsEfec.Name = "chkDllsEfec" Me.chkDllsEfec.Size = New System.Drawing.Size(145, 20) Me.chkDllsEfec.TabIndex = 69 Me.chkDllsEfec.Tag = "153" Me.chkDllsEfec.Text = "Dólares en Efectivo" Me.chkDllsEfec.Visible = False ' 'gbxProcs ' Me.gbxProcs.Controls.Add(Me.chkVigDoctos) Me.gbxProcs.Controls.Add(Me.chkRevExpediente) Me.gbxProcs.Controls.Add(Me.chkConfigCarga) Me.gbxProcs.Controls.Add(Me.ChkRiesgo) Me.gbxProcs.Controls.Add(Me.ChkListasS) Me.gbxProcs.Controls.Add(Me.chkPerfilTranServer) Me.gbxProcs.Location = New System.Drawing.Point(216, 34) Me.gbxProcs.Name = "gbxProcs" Me.gbxProcs.Size = New System.Drawing.Size(170, 288) Me.gbxProcs.TabIndex = 70 Me.gbxProcs.TabStop = False Me.gbxProcs.Text = "Procesos Especiales" ' 'chkVigDoctos ' Me.chkVigDoctos.AutoSize = True Me.chkVigDoctos.Location = New System.Drawing.Point(9, 128) Me.chkVigDoctos.Name = "chkVigDoctos" Me.chkVigDoctos.Size = New System.Drawing.Size(145, 17) Me.chkVigDoctos.TabIndex = 68 Me.chkVigDoctos.Tag = "194" Me.chkVigDoctos.Text = "Vigencia de Documentos" ' 'chkRevExpediente ' Me.chkRevExpediente.AutoSize = True Me.chkRevExpediente.Location = New System.Drawing.Point(9, 109) Me.chkRevExpediente.Name = "chkRevExpediente" Me.chkRevExpediente.Size = New System.Drawing.Size(138, 17) Me.chkRevExpediente.TabIndex = 67 Me.chkRevExpediente.Tag = "193" Me.chkRevExpediente.Text = "Revisión de Expediente" ' 'chkConfigCarga ' Me.chkConfigCarga.Location = New System.Drawing.Point(9, 147) Me.chkConfigCarga.Name = "chkConfigCarga" Me.chkConfigCarga.Size = New System.Drawing.Size(148, 34) Me.chkConfigCarga.TabIndex = 61 Me.chkConfigCarga.Tag = "101" Me.chkConfigCarga.Text = "Configuración Proceso Automático" ' 'ChkRiesgo ' Me.ChkRiesgo.Location = New System.Drawing.Point(9, 51) Me.ChkRiesgo.Name = "ChkRiesgo" Me.ChkRiesgo.Size = New System.Drawing.Size(145, 34) Me.ChkRiesgo.TabIndex = 66 Me.ChkRiesgo.Tag = "92" Me.ChkRiesgo.Text = "Calificación automática de riesgo" ' 'ChkListasS ' Me.ChkListasS.Location = New System.Drawing.Point(9, 14) Me.ChkListasS.Name = "ChkListasS" Me.ChkListasS.Size = New System.Drawing.Size(146, 35) Me.ChkListasS.TabIndex = 60 Me.ChkListasS.Tag = "90" Me.ChkListasS.Text = "Verificación Clientes vs Listas" ' 'chkPerfilTranServer ' Me.chkPerfilTranServer.Location = New System.Drawing.Point(9, 87) Me.chkPerfilTranServer.Name = "chkPerfilTranServer" Me.chkPerfilTranServer.Size = New System.Drawing.Size(145, 20) Me.chkPerfilTranServer.TabIndex = 63 Me.chkPerfilTranServer.Tag = "103" Me.chkPerfilTranServer.Text = "Perfíl Transaccional" ' 'gbxAlarmas ' Me.gbxAlarmas.Controls.Add(Me.chkPatMizuho) Me.gbxAlarmas.Controls.Add(Me.chkReproceso) Me.gbxAlarmas.Controls.Add(Me.ChkInuS) Me.gbxAlarmas.Controls.Add(Me.ChkrelevantesS) Me.gbxAlarmas.Controls.Add(Me.ChkFraccS) Me.gbxAlarmas.Location = New System.Drawing.Point(13, 153) Me.gbxAlarmas.Name = "gbxAlarmas" Me.gbxAlarmas.Size = New System.Drawing.Size(170, 169) Me.gbxAlarmas.TabIndex = 69 Me.gbxAlarmas.TabStop = False Me.gbxAlarmas.Text = "Alarmas y Patrones" ' 'chkPatMizuho ' Me.chkPatMizuho.Location = New System.Drawing.Point(6, 131) Me.chkPatMizuho.Name = "chkPatMizuho" Me.chkPatMizuho.Size = New System.Drawing.Size(145, 20) Me.chkPatMizuho.TabIndex = 60 Me.chkPatMizuho.Tag = "150" Me.chkPatMizuho.Text = "Patrones Mizuho" Me.chkPatMizuho.Visible = False ' 'chkReproceso ' Me.chkReproceso.Location = New System.Drawing.Point(6, 88) Me.chkReproceso.Name = "chkReproceso" Me.chkReproceso.Size = New System.Drawing.Size(145, 20) Me.chkReproceso.TabIndex = 59 Me.chkReproceso.Tag = "89" Me.chkReproceso.Text = "Proceso por Periodo" ' 'ChkInuS ' Me.ChkInuS.Location = New System.Drawing.Point(6, 20) Me.ChkInuS.Name = "ChkInuS" Me.ChkInuS.Size = New System.Drawing.Size(145, 20) Me.ChkInuS.TabIndex = 58 Me.ChkInuS.Tag = "88" Me.ChkInuS.Text = "Operaciones Inusuales" ' 'ChkrelevantesS ' Me.ChkrelevantesS.Location = New System.Drawing.Point(6, 64) Me.ChkrelevantesS.Name = "ChkrelevantesS" Me.ChkrelevantesS.Size = New System.Drawing.Size(148, 20) Me.ChkrelevantesS.TabIndex = 56 Me.ChkrelevantesS.Tag = "95" Me.ChkrelevantesS.Text = "Operaciones Relevantes" ' 'ChkFraccS ' Me.ChkFraccS.Location = New System.Drawing.Point(6, 42) Me.ChkFraccS.Name = "ChkFraccS" Me.ChkFraccS.Size = New System.Drawing.Size(153, 20) Me.ChkFraccS.TabIndex = 57 Me.ChkFraccS.Tag = "96" Me.ChkFraccS.Text = "Inusuales Fraccionadas" ' 'gbxContCargas ' Me.gbxContCargas.Controls.Add(Me.chkListas) Me.gbxContCargas.Controls.Add(Me.chkTCambio) Me.gbxContCargas.Controls.Add(Me.chktran) Me.gbxContCargas.Location = New System.Drawing.Point(13, 34) Me.gbxContCargas.Name = "gbxContCargas" Me.gbxContCargas.Size = New System.Drawing.Size(170, 113) Me.gbxContCargas.TabIndex = 68 Me.gbxContCargas.TabStop = False Me.gbxContCargas.Text = " Cargas de Información " ' 'chkListas ' Me.chkListas.Location = New System.Drawing.Point(6, 52) Me.chkListas.Name = "chkListas" Me.chkListas.Size = New System.Drawing.Size(145, 20) Me.chkListas.TabIndex = 54 Me.chkListas.Tag = "100" Me.chkListas.Text = "Listas Restringidas" ' 'chkTCambio ' Me.chkTCambio.Location = New System.Drawing.Point(6, 80) Me.chkTCambio.Name = "chkTCambio" Me.chkTCambio.Size = New System.Drawing.Size(122, 20) Me.chkTCambio.TabIndex = 55 Me.chkTCambio.Tag = "85" Me.chkTCambio.Text = "Tipos de Cambio" Me.chkTCambio.Visible = False ' 'chktran ' Me.chktran.Location = New System.Drawing.Point(6, 24) Me.chktran.Name = "chktran" Me.chktran.Size = New System.Drawing.Size(153, 20) Me.chktran.TabIndex = 53 Me.chktran.Tag = "86" Me.chktran.Text = "Transacciones Diarias" ' 'KYC ' Me.KYC.Controls.Add(Me.GroupBox4) Me.KYC.Location = New System.Drawing.Point(4, 22) Me.KYC.Name = "KYC" Me.KYC.Size = New System.Drawing.Size(657, 385) Me.KYC.TabIndex = 11 Me.KYC.Text = "KYC" Me.KYC.UseVisualStyleBackColor = True ' 'GroupBox4 ' Me.GroupBox4.Controls.Add(Me.Label3) Me.GroupBox4.Controls.Add(Me.chkKYC) Me.GroupBox4.Controls.Add(Me.chkCteSinKYC) Me.GroupBox4.Controls.Add(Me.chkAlarmaKYC) Me.GroupBox4.ForeColor = System.Drawing.Color.MidnightBlue Me.GroupBox4.Location = New System.Drawing.Point(16, 16) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(520, 347) Me.GroupBox4.TabIndex = 6 Me.GroupBox4.TabStop = False ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Location = New System.Drawing.Point(9, 325) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(460, 13) Me.Label3.TabIndex = 53 Me.Label3.Text = "Nota: Al desmarcar los Checks agrupadores sus checks agrupados se apagarán" ' 'chkKYC ' Me.chkKYC.Location = New System.Drawing.Point(16, -1) Me.chkKYC.Name = "chkKYC" Me.chkKYC.Size = New System.Drawing.Size(48, 15) Me.chkKYC.TabIndex = 20 Me.chkKYC.Tag = "" Me.chkKYC.Text = "KYC" ' 'chkCteSinKYC ' Me.chkCteSinKYC.Location = New System.Drawing.Point(12, 36) Me.chkCteSinKYC.Name = "chkCteSinKYC" Me.chkCteSinKYC.Size = New System.Drawing.Size(136, 20) Me.chkCteSinKYC.TabIndex = 21 Me.chkCteSinKYC.Tag = "" Me.chkCteSinKYC.Text = "Clientes sin KYC" ' 'chkAlarmaKYC ' Me.chkAlarmaKYC.Location = New System.Drawing.Point(12, 56) Me.chkAlarmaKYC.Name = "chkAlarmaKYC" Me.chkAlarmaKYC.Size = New System.Drawing.Size(128, 20) Me.chkAlarmaKYC.TabIndex = 22 Me.chkAlarmaKYC.Tag = "" Me.chkAlarmaKYC.Text = "Alarmas KYC" ' 'KYCControles ' Me.KYCControles.BackColor = System.Drawing.Color.White Me.KYCControles.Controls.Add(Me.GroupBox6) Me.KYCControles.Location = New System.Drawing.Point(4, 22) Me.KYCControles.Name = "KYCControles" Me.KYCControles.Size = New System.Drawing.Size(657, 385) Me.KYCControles.TabIndex = 13 Me.KYCControles.Text = "KYC Controles" ' 'GroupBox6 ' Me.GroupBox6.Controls.Add(Me.chkRevExp) Me.GroupBox6.Controls.Add(Me.chkAVigDoctos) Me.GroupBox6.Controls.Add(Me.chkCalifRiesgoABC) Me.GroupBox6.Controls.Add(Me.chkCalificacionOC) Me.GroupBox6.Controls.Add(Me.chkKYCNuevoCliente) Me.GroupBox6.Controls.Add(Me.chkKYCEditReg) Me.GroupBox6.Controls.Add(Me.pnlPermisosKYCEstatus) Me.GroupBox6.Controls.Add(Me.chkKYCEstatus) Me.GroupBox6.Controls.Add(Me.btnBorraUno) Me.GroupBox6.Controls.Add(Me.btnPasaUno) Me.GroupBox6.Controls.Add(Me.btnPasaTodos) Me.GroupBox6.Controls.Add(Me.btnBorraTodos) Me.GroupBox6.Location = New System.Drawing.Point(16, 16) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(614, 338) Me.GroupBox6.TabIndex = 7 Me.GroupBox6.TabStop = False ' 'chkRevExp ' Me.chkRevExp.AutoSize = True Me.chkRevExp.ForeColor = System.Drawing.Color.MidnightBlue Me.chkRevExp.Location = New System.Drawing.Point(314, 294) Me.chkRevExp.Name = "chkRevExp" Me.chkRevExp.Size = New System.Drawing.Size(179, 17) Me.chkRevExp.TabIndex = 68 Me.chkRevExp.Tag = "196" Me.chkRevExp.Text = "Reporte Revisión de Expediente" Me.chkRevExp.UseVisualStyleBackColor = True ' 'chkAVigDoctos ' Me.chkAVigDoctos.AutoSize = True Me.chkAVigDoctos.ForeColor = System.Drawing.Color.MidnightBlue Me.chkAVigDoctos.Location = New System.Drawing.Point(314, 271) Me.chkAVigDoctos.Name = "chkAVigDoctos" Me.chkAVigDoctos.Size = New System.Drawing.Size(190, 17) Me.chkAVigDoctos.TabIndex = 67 Me.chkAVigDoctos.Tag = "195" Me.chkAVigDoctos.Text = "Alerta de Vigencia de Documentos" Me.chkAVigDoctos.UseVisualStyleBackColor = True ' 'chkCalifRiesgoABC ' Me.chkCalifRiesgoABC.AutoSize = True Me.chkCalifRiesgoABC.ForeColor = System.Drawing.Color.MidnightBlue Me.chkCalifRiesgoABC.Location = New System.Drawing.Point(161, 270) Me.chkCalifRiesgoABC.Name = "chkCalifRiesgoABC" Me.chkCalifRiesgoABC.Size = New System.Drawing.Size(130, 17) Me.chkCalifRiesgoABC.TabIndex = 66 Me.chkCalifRiesgoABC.Tag = "181" Me.chkCalifRiesgoABC.Text = "Evaluación de Riesgo" Me.chkCalifRiesgoABC.UseVisualStyleBackColor = True ' 'chkCalificacionOC ' Me.chkCalificacionOC.AutoSize = True Me.chkCalificacionOC.ForeColor = System.Drawing.Color.MidnightBlue Me.chkCalificacionOC.Location = New System.Drawing.Point(6, 314) Me.chkCalificacionOC.Name = "chkCalificacionOC" Me.chkCalificacionOC.Size = New System.Drawing.Size(137, 17) Me.chkCalificacionOC.TabIndex = 65 Me.chkCalificacionOC.Tag = "164" Me.chkCalificacionOC.Text = "Calificación Riesgo O.C" Me.chkCalificacionOC.UseVisualStyleBackColor = True ' 'chkKYCNuevoCliente ' Me.chkKYCNuevoCliente.AutoSize = True Me.chkKYCNuevoCliente.ForeColor = System.Drawing.Color.MidnightBlue Me.chkKYCNuevoCliente.Location = New System.Drawing.Point(6, 291) Me.chkKYCNuevoCliente.Name = "chkKYCNuevoCliente" Me.chkKYCNuevoCliente.Size = New System.Drawing.Size(131, 17) Me.chkKYCNuevoCliente.TabIndex = 64 Me.chkKYCNuevoCliente.Tag = "163" Me.chkKYCNuevoCliente.Text = "Permite Nuevo Cliente" Me.chkKYCNuevoCliente.UseVisualStyleBackColor = True ' 'chkKYCEditReg ' Me.chkKYCEditReg.AutoSize = True Me.chkKYCEditReg.ForeColor = System.Drawing.Color.MidnightBlue Me.chkKYCEditReg.Location = New System.Drawing.Point(6, 270) Me.chkKYCEditReg.Name = "chkKYCEditReg" Me.chkKYCEditReg.Size = New System.Drawing.Size(115, 17) Me.chkKYCEditReg.TabIndex = 63 Me.chkKYCEditReg.Text = "Permite Editar KYC" Me.chkKYCEditReg.UseVisualStyleBackColor = True ' 'pnlPermisosKYCEstatus ' Me.pnlPermisosKYCEstatus.Controls.Add(Me.btnQuitar2) Me.pnlPermisosKYCEstatus.Controls.Add(Me.btnQuitar1) Me.pnlPermisosKYCEstatus.Controls.Add(Me.btnAdd2) Me.pnlPermisosKYCEstatus.Controls.Add(Me.btnAdd1) Me.pnlPermisosKYCEstatus.Controls.Add(Me.cmbKYCESTATUS2) Me.pnlPermisosKYCEstatus.Controls.Add(Me.cmbKYCESTATUS1) Me.pnlPermisosKYCEstatus.Controls.Add(Me.Label9) Me.pnlPermisosKYCEstatus.Controls.Add(Me.lstAutorizados) Me.pnlPermisosKYCEstatus.Controls.Add(Me.Label10) Me.pnlPermisosKYCEstatus.Controls.Add(Me.lstDisponibles) Me.pnlPermisosKYCEstatus.Location = New System.Drawing.Point(58, 45) Me.pnlPermisosKYCEstatus.Name = "pnlPermisosKYCEstatus" Me.pnlPermisosKYCEstatus.Size = New System.Drawing.Size(506, 220) Me.pnlPermisosKYCEstatus.TabIndex = 59 ' 'btnQuitar2 ' Me.btnQuitar2.Location = New System.Drawing.Point(170, 62) Me.btnQuitar2.Name = "btnQuitar2" Me.btnQuitar2.Size = New System.Drawing.Size(75, 23) Me.btnQuitar2.TabIndex = 67 Me.btnQuitar2.Text = "Eliminar" Me.btnQuitar2.UseVisualStyleBackColor = True ' 'btnQuitar1 ' Me.btnQuitar1.Location = New System.Drawing.Point(411, 63) Me.btnQuitar1.Name = "btnQuitar1" Me.btnQuitar1.Size = New System.Drawing.Size(75, 23) Me.btnQuitar1.TabIndex = 66 Me.btnQuitar1.Text = "Eliminar" Me.btnQuitar1.UseVisualStyleBackColor = True ' 'btnAdd2 ' Me.btnAdd2.Location = New System.Drawing.Point(10, 63) Me.btnAdd2.Name = "btnAdd2" Me.btnAdd2.Size = New System.Drawing.Size(75, 23) Me.btnAdd2.TabIndex = 65 Me.btnAdd2.Text = "Agregar" Me.btnAdd2.UseVisualStyleBackColor = True ' 'btnAdd1 ' Me.btnAdd1.Location = New System.Drawing.Point(256, 62) Me.btnAdd1.Name = "btnAdd1" Me.btnAdd1.Size = New System.Drawing.Size(75, 23) Me.btnAdd1.TabIndex = 64 Me.btnAdd1.Text = "Agregar" Me.btnAdd1.UseVisualStyleBackColor = True ' 'cmbKYCESTATUS2 ' Me.cmbKYCESTATUS2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbKYCESTATUS2.FormattingEnabled = True Me.cmbKYCESTATUS2.Location = New System.Drawing.Point(10, 36) Me.cmbKYCESTATUS2.Name = "cmbKYCESTATUS2" Me.cmbKYCESTATUS2.Size = New System.Drawing.Size(229, 21) Me.cmbKYCESTATUS2.TabIndex = 63 ' 'cmbKYCESTATUS1 ' Me.cmbKYCESTATUS1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbKYCESTATUS1.FormattingEnabled = True Me.cmbKYCESTATUS1.Location = New System.Drawing.Point(256, 36) Me.cmbKYCESTATUS1.Name = "cmbKYCESTATUS1" Me.cmbKYCESTATUS1.Size = New System.Drawing.Size(229, 21) Me.cmbKYCESTATUS1.TabIndex = 62 ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue Me.Label9.Location = New System.Drawing.Point(7, 11) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(99, 13) Me.Label9.TabIndex = 54 Me.Label9.Text = "Estatus Disponibles" ' 'lstAutorizados ' Me.lstAutorizados.FormattingEnabled = True Me.lstAutorizados.Location = New System.Drawing.Point(10, 97) Me.lstAutorizados.Name = "lstAutorizados" Me.lstAutorizados.Size = New System.Drawing.Size(240, 108) Me.lstAutorizados.TabIndex = 57 ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue Me.Label10.Location = New System.Drawing.Point(253, 11) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(170, 13) Me.Label10.TabIndex = 56 Me.Label10.Text = "Estatus Autorizados para Modificar" ' 'lstDisponibles ' Me.lstDisponibles.FormattingEnabled = True Me.lstDisponibles.Location = New System.Drawing.Point(256, 96) Me.lstDisponibles.Name = "lstDisponibles" Me.lstDisponibles.Size = New System.Drawing.Size(240, 108) Me.lstDisponibles.TabIndex = 55 ' 'chkKYCEstatus ' Me.chkKYCEstatus.BackColor = System.Drawing.Color.White Me.chkKYCEstatus.ForeColor = System.Drawing.Color.MidnightBlue Me.chkKYCEstatus.Location = New System.Drawing.Point(6, 19) Me.chkKYCEstatus.Name = "chkKYCEstatus" Me.chkKYCEstatus.Size = New System.Drawing.Size(90, 20) Me.chkKYCEstatus.TabIndex = 20 Me.chkKYCEstatus.Tag = "109" Me.chkKYCEstatus.Text = "KYC Estatus" Me.chkKYCEstatus.UseVisualStyleBackColor = False ' 'btnBorraUno ' Me.btnBorraUno.Location = New System.Drawing.Point(474, 185) Me.btnBorraUno.Name = "btnBorraUno" Me.btnBorraUno.Size = New System.Drawing.Size(75, 23) Me.btnBorraUno.TabIndex = 61 Me.btnBorraUno.Text = "<" Me.btnBorraUno.UseVisualStyleBackColor = True Me.btnBorraUno.Visible = False ' 'btnPasaUno ' Me.btnPasaUno.Location = New System.Drawing.Point(474, 156) Me.btnPasaUno.Name = "btnPasaUno" Me.btnPasaUno.Size = New System.Drawing.Size(75, 23) Me.btnPasaUno.TabIndex = 60 Me.btnPasaUno.Text = ">" Me.btnPasaUno.UseVisualStyleBackColor = True Me.btnPasaUno.Visible = False ' 'btnPasaTodos ' Me.btnPasaTodos.Location = New System.Drawing.Point(474, 127) Me.btnPasaTodos.Name = "btnPasaTodos" Me.btnPasaTodos.Size = New System.Drawing.Size(75, 23) Me.btnPasaTodos.TabIndex = 58 Me.btnPasaTodos.Text = ">>" Me.btnPasaTodos.UseVisualStyleBackColor = True Me.btnPasaTodos.Visible = False ' 'btnBorraTodos ' Me.btnBorraTodos.Location = New System.Drawing.Point(474, 213) Me.btnBorraTodos.Name = "btnBorraTodos" Me.btnBorraTodos.Size = New System.Drawing.Size(75, 23) Me.btnBorraTodos.TabIndex = 59 Me.btnBorraTodos.Text = "<<" Me.btnBorraTodos.UseVisualStyleBackColor = True Me.btnBorraTodos.Visible = False ' 'SIARA ' Me.SIARA.Controls.Add(Me.GroupBox12) Me.SIARA.Location = New System.Drawing.Point(4, 22) Me.SIARA.Name = "SIARA" Me.SIARA.Size = New System.Drawing.Size(657, 385) Me.SIARA.TabIndex = 15 Me.SIARA.Text = "Contestador de Oficios" Me.SIARA.UseVisualStyleBackColor = True ' 'GroupBox12 ' Me.GroupBox12.Controls.Add(Me.chkImportarXML) Me.GroupBox12.Controls.Add(Me.chkbusquedaconclt) Me.GroupBox12.Controls.Add(Me.chkGenResp) Me.GroupBox12.Controls.Add(Me.chkCapturaManual) Me.GroupBox12.Controls.Add(Me.chkLogCarga) Me.GroupBox12.Controls.Add(Me.chkLogOperResp) Me.GroupBox12.Location = New System.Drawing.Point(21, 22) Me.GroupBox12.Name = "GroupBox12" Me.GroupBox12.Size = New System.Drawing.Size(600, 323) Me.GroupBox12.TabIndex = 0 Me.GroupBox12.TabStop = False ' 'chkImportarXML ' Me.chkImportarXML.AutoSize = True Me.chkImportarXML.ForeColor = System.Drawing.Color.MidnightBlue Me.chkImportarXML.Location = New System.Drawing.Point(74, 97) Me.chkImportarXML.Name = "chkImportarXML" Me.chkImportarXML.Size = New System.Drawing.Size(89, 17) Me.chkImportarXML.TabIndex = 7 Me.chkImportarXML.Tag = "142" Me.chkImportarXML.Text = "Importar XML" Me.chkImportarXML.UseVisualStyleBackColor = True ' 'chkbusquedaconclt ' Me.chkbusquedaconclt.AutoSize = True Me.chkbusquedaconclt.ForeColor = System.Drawing.Color.MidnightBlue Me.chkbusquedaconclt.Location = New System.Drawing.Point(313, 97) Me.chkbusquedaconclt.Name = "chkbusquedaconclt" Me.chkbusquedaconclt.Size = New System.Drawing.Size(216, 17) Me.chkbusquedaconclt.TabIndex = 10 Me.chkbusquedaconclt.Tag = "146" Me.chkbusquedaconclt.Text = " Búsqueda de Coincidencias en Clientes" Me.chkbusquedaconclt.UseVisualStyleBackColor = True ' 'chkGenResp ' Me.chkGenResp.ForeColor = System.Drawing.Color.MidnightBlue Me.chkGenResp.Location = New System.Drawing.Point(313, 202) Me.chkGenResp.Name = "chkGenResp" Me.chkGenResp.Size = New System.Drawing.Size(158, 24) Me.chkGenResp.TabIndex = 12 Me.chkGenResp.Tag = "149" Me.chkGenResp.Text = "Generar Respuesta" ' 'chkCapturaManual ' Me.chkCapturaManual.AutoSize = True Me.chkCapturaManual.ForeColor = System.Drawing.Color.MidnightBlue Me.chkCapturaManual.Location = New System.Drawing.Point(74, 206) Me.chkCapturaManual.Name = "chkCapturaManual" Me.chkCapturaManual.Size = New System.Drawing.Size(101, 17) Me.chkCapturaManual.TabIndex = 9 Me.chkCapturaManual.Tag = "145" Me.chkCapturaManual.Text = "Captura Manual" Me.chkCapturaManual.UseVisualStyleBackColor = True ' 'chkLogCarga ' Me.chkLogCarga.AutoSize = True Me.chkLogCarga.ForeColor = System.Drawing.Color.MidnightBlue Me.chkLogCarga.Location = New System.Drawing.Point(74, 154) Me.chkLogCarga.Name = "chkLogCarga" Me.chkLogCarga.Size = New System.Drawing.Size(90, 17) Me.chkLogCarga.TabIndex = 8 Me.chkLogCarga.Tag = "144" Me.chkLogCarga.Text = "Log de Carga" Me.chkLogCarga.UseVisualStyleBackColor = True ' 'chkLogOperResp ' Me.chkLogOperResp.AutoSize = True Me.chkLogOperResp.ForeColor = System.Drawing.Color.MidnightBlue Me.chkLogOperResp.Location = New System.Drawing.Point(313, 154) Me.chkLogOperResp.Name = "chkLogOperResp" Me.chkLogOperResp.Size = New System.Drawing.Size(165, 17) Me.chkLogOperResp.TabIndex = 11 Me.chkLogOperResp.Tag = "147" Me.chkLogOperResp.Text = "Log de Operación Respuesta" Me.chkLogOperResp.UseVisualStyleBackColor = True ' 'tlbPermiso ' Me.tlbPermiso.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnGuardar, Me.btnSalir}) Me.tlbPermiso.ButtonSize = New System.Drawing.Size(75, 40) Me.tlbPermiso.DropDownArrows = True Me.tlbPermiso.ImageList = Me.ImageList1 Me.tlbPermiso.Location = New System.Drawing.Point(0, 0) Me.tlbPermiso.Name = "tlbPermiso" Me.tlbPermiso.ShowToolTips = True Me.tlbPermiso.Size = New System.Drawing.Size(806, 42) Me.tlbPermiso.TabIndex = 2 Me.tlbPermiso.Visible = False ' 'btnGuardar ' Me.btnGuardar.ImageIndex = 7 Me.btnGuardar.Name = "btnGuardar" Me.btnGuardar.Text = "Guardar" ' 'btnSalir ' Me.btnSalir.ImageIndex = 4 Me.btnSalir.Name = "btnSalir" Me.btnSalir.Text = "Salir" ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise Me.ImageList1.Images.SetKeyName(0, "") Me.ImageList1.Images.SetKeyName(1, "") Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(3, "") Me.ImageList1.Images.SetKeyName(4, "") Me.ImageList1.Images.SetKeyName(5, "") Me.ImageList1.Images.SetKeyName(6, "") Me.ImageList1.Images.SetKeyName(7, "") ' 'lblIdPerfil ' Me.lblIdPerfil.ForeColor = System.Drawing.SystemColors.Control Me.lblIdPerfil.Location = New System.Drawing.Point(16, 56) Me.lblIdPerfil.Name = "lblIdPerfil" Me.lblIdPerfil.Size = New System.Drawing.Size(40, 23) Me.lblIdPerfil.TabIndex = 3 Me.lblIdPerfil.Text = "Label1" Me.lblIdPerfil.Visible = False ' 'BntSalie ' Me.BntSalie.BackColor = System.Drawing.Color.Black Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BntSalie.ForeColor = System.Drawing.Color.White Me.BntSalie.Location = New System.Drawing.Point(697, 495) Me.BntSalie.Name = "BntSalie" Me.BntSalie.Size = New System.Drawing.Size(106, 33) Me.BntSalie.TabIndex = 102 Me.BntSalie.Text = "Cerrar" Me.BntSalie.UseVisualStyleBackColor = False ' 'BtnAlta ' Me.BtnAlta.BackColor = System.Drawing.Color.Black Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnAlta.ForeColor = System.Drawing.Color.White Me.BtnAlta.Location = New System.Drawing.Point(697, 417) Me.BtnAlta.Name = "BtnAlta" Me.BtnAlta.Size = New System.Drawing.Size(106, 33) Me.BtnAlta.TabIndex = 101 Me.BtnAlta.Text = "Guardar" Me.BtnAlta.UseVisualStyleBackColor = False ' 'BtnImprimir ' Me.BtnImprimir.BackColor = System.Drawing.Color.Black Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnImprimir.ForeColor = System.Drawing.Color.White Me.BtnImprimir.Location = New System.Drawing.Point(697, 456) Me.BtnImprimir.Name = "BtnImprimir" Me.BtnImprimir.Size = New System.Drawing.Size(106, 33) Me.BtnImprimir.TabIndex = 109 Me.BtnImprimir.Text = "Exportar" Me.BtnImprimir.UseVisualStyleBackColor = False ' 'panel2 ' Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panel2.BackColor = System.Drawing.Color.Black Me.panel2.Controls.Add(Me.Img_logoCabecera) Me.panel2.Controls.Add(Me.DesHeader) Me.panel2.ForeColor = System.Drawing.Color.Navy Me.panel2.Location = New System.Drawing.Point(0, 0) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(808, 42) Me.panel2.TabIndex = 161 ' 'Img_logoCabecera ' Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo Me.Img_logoCabecera.Location = New System.Drawing.Point(674, -8) Me.Img_logoCabecera.Name = "Img_logoCabecera" Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50) Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.Img_logoCabecera.TabIndex = 360 Me.Img_logoCabecera.TabStop = False ' 'DesHeader ' Me.DesHeader.AutoSize = True Me.DesHeader.BackColor = System.Drawing.Color.Transparent Me.DesHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DesHeader.ForeColor = System.Drawing.SystemColors.Window Me.DesHeader.Location = New System.Drawing.Point(21, 8) Me.DesHeader.Name = "DesHeader" Me.DesHeader.Size = New System.Drawing.Size(71, 24) Me.DesHeader.TabIndex = 2 Me.DesHeader.Text = "Perfiles" ' 'panel3 ' Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panel3.BackColor = System.Drawing.Color.Black Me.panel3.Controls.Add(Me.Label11) Me.panel3.Controls.Add(Me.lblFooter) Me.panel3.ForeColor = System.Drawing.Color.Navy Me.panel3.Location = New System.Drawing.Point(0, 547) Me.panel3.Name = "panel3" Me.panel3.Size = New System.Drawing.Size(808, 32) Me.panel3.TabIndex = 362 ' 'Label11 ' Me.Label11.AutoSize = True Me.Label11.BackColor = System.Drawing.Color.Transparent Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label11.ForeColor = System.Drawing.SystemColors.Window Me.Label11.Location = New System.Drawing.Point(731, 8) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(41, 15) Me.Label11.TabIndex = 3 Me.Label11.Text = "Minds" ' 'lblFooter ' Me.lblFooter.AutoSize = True Me.lblFooter.BackColor = System.Drawing.Color.Transparent Me.lblFooter.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window Me.lblFooter.Location = New System.Drawing.Point(1019, 7) Me.lblFooter.Name = "lblFooter" Me.lblFooter.Size = New System.Drawing.Size(41, 15) Me.lblFooter.TabIndex = 2 Me.lblFooter.Text = "Minds" ' 'Permiso ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(806, 579) Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.BtnImprimir) Me.Controls.Add(Me.BntSalie) Me.Controls.Add(Me.BtnAlta) Me.Controls.Add(Me.lblIdPerfil) Me.Controls.Add(Me.tlbPermiso) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Permiso" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Permisos" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.TabControl3.ResumeLayout(False) Me.Modulos.ResumeLayout(False) Me.Modulos.PerformLayout() Me.GroupBox5.ResumeLayout(False) Me.GroupBox5.PerformLayout() Me.Reportes.ResumeLayout(False) Me.Reportes.PerformLayout() Me.GroupBox13.ResumeLayout(False) Me.GroupBox13.PerformLayout() Me.Actualizadores.ResumeLayout(False) Me.Actualizadores.PerformLayout() Me.GroupBox8.ResumeLayout(False) Me.GroupBox8.PerformLayout() Me.Catalogos.ResumeLayout(False) Me.Catalogos.PerformLayout() Me.GroupBox10.ResumeLayout(False) Me.GroupBox10.PerformLayout() Me.seguridad.ResumeLayout(False) Me.seguridad.PerformLayout() Me.GroupBox9.ResumeLayout(False) Me.GroupBox9.PerformLayout() Me.ListaRestringuida.ResumeLayout(False) Me.ListaRestringuida.PerformLayout() Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() Me.tabProcesoHit.ResumeLayout(False) Me.GroupBox7.ResumeLayout(False) Me.GroupBox7.PerformLayout() Me.TABServer.ResumeLayout(False) Me.TABServer.PerformLayout() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() Me.gbxLogs.ResumeLayout(False) Me.gbxLogs.PerformLayout() Me.gbxProcs.ResumeLayout(False) Me.gbxProcs.PerformLayout() Me.gbxAlarmas.ResumeLayout(False) Me.gbxContCargas.ResumeLayout(False) Me.KYC.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.PerformLayout() Me.KYCControles.ResumeLayout(False) Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() Me.pnlPermisosKYCEstatus.ResumeLayout(False) Me.pnlPermisosKYCEstatus.PerformLayout() Me.SIARA.ResumeLayout(False) Me.GroupBox12.ResumeLayout(False) Me.GroupBox12.PerformLayout() Me.panel2.ResumeLayout(False) Me.panel2.PerformLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit() Me.panel3.ResumeLayout(False) Me.panel3.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region 'decalracion de varibales globales para la conexion Dim dap As SqlDataAdapter = New SqlDataAdapter() Dim cmd As SqlCommand Dim das As DataSet Dim cnn As SqlConnection ' Dim Vector(100) As Integer 'el tamaño del vector es el numero de permisos q existen en la tabla permisos Dim i As Integer Dim cadSQLPerfil As String Dim lsnombre As String Dim inicio As Boolean Sub New(ByVal perfil As Integer, ByVal nombre As String) InitializeComponent() liperfil = perfil lsnombre = nombre End Sub Private Sub Permiso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sql As String Dim classcom As New clsComplejo Dim classcom2 As New clsComplejo Dim FILA1 As DataRow If clsVaribles.lbDemo = True Then Exit Sub 'cuando se carga el formulario lblIdPerfil.Text = liperfil txtNombrePerfil.Text = lsnombre ' guardaPermisos() Perfil.NuevoPerfil = False inicio = True Enlazar() limpiarPermisos() inicio = False DesHeader.Text = Me.Text If liperfil = 0 Then Perfil.NuevoPerfil = True 'BtnAlta.Text = "Modificar" 'sql = "spConPerfil 6," & liperfil 'classcom = New clsComplejo 'classcom.fdtDataSet(Sql) 'If classcom.ds.Tables(0).Rows.Count <> 0 Then ' Fila1 = classcom.ds.Tables(0).Rows(0) ' For Each Fila1 In classcom.ds.Tables(0).Rows ' lblIdPerfil.Text = FILA1("Perfil") ' liperfil = FILA1("Perfil") ' Next 'End If 'enlaza permisos server ' Me.TabControl3.TabPages.Remove(Busqueda) End If '-- oculta la pestaña de KYC, de momento, '-- hasta que esten listops los reportes classcom.sbLlenaCombo("select IDKYCESTATUS clave, KYCESTATUS nombre from dbo.CAT_KYCESTATUS where ACTIVO = 1", cmbKYCESTATUS1) cmbKYCESTATUS1.SelectedIndex = -1 classcom2.sbLlenaCombo("select IDKYCESTATUS clave, KYCESTATUS nombre from dbo.CAT_KYCESTATUS where ACTIVO = 1", cmbKYCESTATUS2) cmbKYCESTATUS2.SelectedIndex = -1 KYC.Parent = Nothing Me.TabControl3.TabPages.Remove(tabProcesoHit) Me.TabControl3.TabPages.Remove(SIARA) End Sub Private Sub Enlazar() 'enlazo los ocntroles con el valor del form 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 esCarga = True Try If clsVaribles.lbDemo = True Then Exit Sub sql = "spConPerfil 3," & liperfil 'server classcom = New clsComplejo classcom.fdtDataSet(sql) If classcom.ds.Tables(0).Rows.Count <> 0 Then Fila = classcom.ds.Tables(0).Rows(0) For Each Fila In classcom.ds.Tables(0).Rows For Each ctrl As Control In TabControl3.Controls If TypeOf ctrl Is TabPage Then If ctrl.Name.ToUpper = "TABSERVER" Then For Each ctrltab As Control In ctrl.Controls If TypeOf ctrltab Is GroupBox Then For Each ctrltab1 As Control In ctrltab.Controls If TypeOf ctrltab1 Is GroupBox Then ''CheckBox Then For Each ctrltab2 As Control In ctrltab1.Controls If TypeOf ctrltab2 Is CheckBox Then If UCase(ctrltab2.Name) = UCase(Fila("control")) Then 'If UCase(ctrltab1.Text) = UCase(Fila("etiqueta")) Then DirectCast(ctrltab2, CheckBox).Checked = Fila("activo") End If End If Next End If Next End If Next End If End If Next Next End If 'cliente sql = "spConPerfil 4," & liperfil classcom = New clsComplejo classcom.fdtDataSet(sql) If classcom.ds.Tables(0).Rows.Count <> 0 Then fila1 = classcom.ds.Tables(0).Rows(0) For Each fila1 In classcom.ds.Tables(0).Rows For Each ctrl As Control In TabControl3.Controls If TypeOf ctrl Is TabPage Then For Each ctrltab As Control In ctrl.Controls If TypeOf ctrltab Is GroupBox Then For Each ctrltab1 As Control In ctrltab.Controls If TypeOf ctrltab1 Is CheckBox Then If UCase(ctrltab1.Name) = UCase(fila1("control")) Then If ctrl.Name = "ChkMant" Then MessageBox.Show("") End If DirectCast(ctrltab1, CheckBox).Checked = fila1("activo") If ctrltab1.Text = "Inusuales" Then chkInuSnT.Checked = False chkTodosProductos.Checked = False chkOperInusuales.Checked = False chkNueva.Checked = False End If End If End If Next End If Next ' Referenciamos el control de texto End If Next Next End If '- Pestaña de modulos a los que tiene acceso el perfil sql = "spConPerfil 7," & liperfil classcom = New clsComplejo classcom.fdtDataSet(sql) If classcom.ds.Tables(0).Rows.Count <> 0 Then fila1 = classcom.ds.Tables(0).Rows(0) For Each fila1 In classcom.ds.Tables(0).Rows For Each ctrl As Control In TabControl3.Controls If TypeOf ctrl Is TabPage Then For Each ctrltab As Control In ctrl.Controls If TypeOf ctrltab Is GroupBox Then For Each ctrltab1 As Control In ctrltab.Controls If TypeOf ctrltab1 Is CheckBox Then If UCase(ctrltab1.Text) = UCase(fila1("etiqueta")) Then DirectCast(ctrltab1, CheckBox).Checked = fila1("activo") End If End If Next End If Next ' Referenciamos el control de texto End If Next Next End If '- Pestaña de KYC ESTATUS sql = "spConPerfil 8," & liperfil classcom = New clsComplejo classcom.fdtDataSet(sql) If classcom.ds.Tables(0).Rows.Count <> 0 Then For Each fila1 In classcom.ds.Tables(0).Rows Select Case fila1("Control") Case "chkKYCEstatus" chkKYCEstatus.Checked = fila1("activo") Case "chkKYCNuevoCliente" chkKYCNuevoCliente.Checked = fila1("activo") Case "chkCalificacionOC" chkCalificacionOC.Checked = fila1("activo") Case "chkCalifRiesgoABC" chkCalifRiesgoABC.Checked = fila1("activo") Case "chkAVigDoctos" chkAVigDoctos.Checked = fila1("activo") Case "chkRevExp" chkRevExp.Checked = fila1("activo") End Select Next End If sql = "spPerfilPermisoOficio 1," & liperfil classcom = New clsComplejo classcom.fdtDataSet(sql) If classcom.ds.Tables(0).Rows.Count <> 0 Then For Each fila1 In classcom.ds.Tables(0).Rows Select Case fila1("Control") Case "btnImportarXML" chkImportarXML.Checked = fila1("Expr1") Case "btnLog" chkLogCarga.Checked = fila1("Expr1") Case "btnCapturaManual" chkCapturaManual.Checked = fila1("Expr1") Case "btnBuscarCoincidencias" chkbusquedaconclt.Checked = fila1("Expr1") Case "btnLogOperacionRespuesta" chkLogOperResp.Checked = fila1("Expr1") Case "btnRespuesta" chkGenResp.Checked = fila1("Expr1") End Select Next End If sql = "select PuedeEditar from dbo.PERFIL_KYC_EDITAR_REGISTRO where IdPerfil = " & liperfil classcom = New clsComplejo classcom.fdtDataSet(sql) If classcom.ds.Tables(0).Rows.Count <> 0 Then chkKYCEditReg.Checked = classcom.ds.Tables(0).Rows(0).Item(0) Else chkKYCEditReg.Checked = False End If Catch er As Exception MsgBox("Error en la funcion 'Enlazar' en el formulario 'permiso': " & er.Message) End Try esCarga = False End Sub Private Sub guardaModificacion() 'declaracion de variables Dim classcom As clsComplejo, classcomKYCEstatusAutorizados As clsComplejo Dim _IdPerfil As Integer Dim _Activo As Integer Dim _IdListaPermiso As Integer Dim sql As String, sqlKYCEstatusAutorizados As String Dim fila As DataRow Dim fila1 As DataRow Dim ClassAud As New ClassMyUtils Dim lsValAct As String Dim name As String Dim check As String If clsVaribles.lbDemo = True Then Exit Sub Try Cursor = Cursors.WaitCursor 'sql = "spConPerfil 3" 'server 'classcom = New clsComplejo If Len(txtNombrePerfil.Text.Trim) = 0 Then MessageBox.Show("El Nombre del Perfil no puede ser un valor nulo, Favor de validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If 'classcom.fdtDataSet(sql) classcom = New clsComplejo sql = "spConPerfil 6," & liperfil & ",'" & txtNombrePerfil.Text & "'" classcom.fdtDataSet(sql) If Perfil.NuevoPerfil = True Then 'sql = "spConPerfil 6" 'classcom = New clsComplejo If classcom.ds.Tables(0).Rows.Count <> 0 Then fila1 = classcom.ds.Tables(0).Rows(0) For Each fila1 In classcom.ds.Tables(0).Rows lblIdPerfil.Text = fila1("Perfil") liperfil = fila1("Perfil") Next End If ClassAud.RT_Auditoria(clsVaribles.varUsuario, 45, 1, "Nuevo perfil: " & txtNombrePerfil.Text) Else ClassAud.RT_Auditoria(clsVaribles.varUsuario, 47, 1, "Modificación de perfil: " & txtNombrePerfil.Text) End If clsVaribles.lsValAnt = "" clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConPermisosCad " & liperfil) For Each ctrl As Control In TabControl3.Controls If TypeOf ctrl Is TabPage Then If ctrl.Name = "TABServer" Then For Each ctrltab As Control In ctrl.Controls If TypeOf ctrltab Is GroupBox Then For Each ctrltab1 As Control In ctrltab.Controls If TypeOf ctrltab1 Is GroupBox Then ''CheckBox Then For Each ctrltab2 As Control In ctrltab1.Controls If TypeOf ctrltab2 Is CheckBox Then If DirectCast(ctrltab2, CheckBox).Checked = True Then 'activo sql = "spGrabaPermiso " & liperfil & ",2, " & ctrltab2.Tag & ", 1" Else 'desactivo sql = "spGrabaPermiso " & liperfil & ",2, " & ctrltab2.Tag & ", 0" End If classcom = New clsComplejo classcom.sbInserta(sql) End If Next End If Next End If Next End If ' Referenciamos el control de texto End If Next 'Next 'End If 'cliente For Each ctrl As Control In TabControl3.Controls If TypeOf ctrl Is TabPage Then If ctrl.Name <> "TABServer" Then For Each ctrltab As Control In ctrl.Controls If TypeOf ctrltab Is GroupBox Then For Each ctrltab1 As Control In ctrltab.Controls If TypeOf ctrltab1 Is CheckBox Then 'If UCase(ctrltab1.Name) = UCase("control") Then 'If ctrltab1.Tag = 80 Then ' MsgBox("aqui") 'End If If DirectCast(ctrltab1, CheckBox).Checked = True Then 'activo ''If ctrltab1.Text = "Listas Restringidas" Then '' MsgBox("aqui") ''End If name = ctrl.Name check = ctrltab1.Name If ctrl.Name = "Modulos" Then If ctrltab1.Text = "Módulo Clientes" Then sql = "spGrabaPermiso " & liperfil & ",1, " & ctrltab1.Tag & ", 1" If ctrltab1.Text = "Módulo Server" Then sql = "spGrabaPermiso " & liperfil & ",2, " & ctrltab1.Tag & ", 1" If ctrltab1.Text = "Módulo KYC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" If ctrltab1.Text = "Módulo KYE" Then sql = "spGrabaPermiso " & liperfil & ",4, " & ctrltab1.Tag & ", 1" ElseIf ctrl.Name = "KYCControles" Then If ctrltab1.Name = "chkKYCEstatus" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" If ctrltab1.Name = "chkAVigDoctos" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" If ctrltab1.Name = "chkRevExp" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" classcomKYCEstatusAutorizados = New clsComplejo If ctrltab1.Name = "chkKYCEditReg" Then sqlKYCEstatusAutorizados = "spIU_PERFIL_KYC_EDITAR_REGISTRO " & liperfil & ", 1" classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) End If sqlKYCEstatusAutorizados = "spD_KYCEstatus_Perfil " & liperfil classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) For Each lst As String In lstDisponibles.Items sqlKYCEstatusAutorizados = "INSERT INTO PERFIL_KYCEstatus_Permitidos (IdPerfil,IdKYCEstatus)" sqlKYCEstatusAutorizados += "VALUES (" & liperfil & "," & dicDesde.Item(lst) & ")" classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) Next If ctrltab1.Name = "chkKYCNuevoCliente" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" End If If ctrltab1.Name = "chkCalificacionOC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" End If If ctrltab1.Name = "chkCalifRiesgoABC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" End If For Each lst As String In lstAutorizados.Items sqlKYCEstatusAutorizados = "INSERT INTO tblPermiso_KYCEstatus_Perfil (IdPerfil,IdKYCEstatus)" sqlKYCEstatusAutorizados += "VALUES (" & liperfil & "," & dicHacia.Item(lst) & ")" classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) Next 'For i = 0 To lstAutorizados.Items.Count - 1 ' sqlKYCEstatusAutorizados = "spGrabaKYCEstatusAutorizado " & liperfil & ", " & CType(lstAutorizados.Items(i), LBItem).Valor ' classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) 'Next 'If ctrltab1.Name = "chkKYC_MRCambioPreguntas" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" 'If ctrltab1.Name = "chkKYC_MRCambioOficialCump" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" 'If ctrltab1.Name = "chk_modEstatusKYC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" ElseIf ctrl.Name = "SIARA" Then sql = "spGrabaPermiso " & liperfil & ",5, " & ctrltab1.Tag & ", 1" Else sql = "spGrabaPermiso " & liperfil & ",1, " & ctrltab1.Tag & ", 1" End If Else 'desactivo If ctrl.Name = "Modulos" Then If ctrltab1.Text = "Módulo Clientes" Then sql = "spGrabaPermiso " & liperfil & ",1, " & ctrltab1.Tag & ", 0" If ctrltab1.Text = "Módulo Server" Then sql = "spGrabaPermiso " & liperfil & ",2, " & ctrltab1.Tag & ", 0" If ctrltab1.Text = "Módulo KYC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" If ctrltab1.Text = "Módulo KYE" Then sql = "spGrabaPermiso " & liperfil & ",4, " & ctrltab1.Tag & ", 0" ElseIf ctrl.Name = "KYCControles" Then If ctrltab1.Text = "KYC Estatus" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" If ctrltab1.Name = "chkAVigDoctos" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" If ctrltab1.Name = "chkRevExp" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" classcomKYCEstatusAutorizados = New clsComplejo If ctrltab1.Name = "chkKYCEditReg" Then sqlKYCEstatusAutorizados = "spIU_PERFIL_KYC_EDITAR_REGISTRO " & liperfil & ", 0" classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) End If If ctrltab1.Name = "chkKYCNuevoCliente" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" End If If ctrltab1.Name = "chkCalificacionOC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" End If If ctrltab1.Name = "chkCalifRiesgoABC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" End If sqlKYCEstatusAutorizados = "spD_KYCEstatus_Perfil " & liperfil classcomKYCEstatusAutorizados.sbInserta(sqlKYCEstatusAutorizados) 'If ctrltab1.Name = "chkKYC_MRCambioPreguntas" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" 'If ctrltab1.Name = "chkKYC_MRCambioOficialCump" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" 'If ctrltab1.Name = "chk_modEstatusKYC" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" ElseIf ctrl.Name = "SIARA" Then sql = "spGrabaPermiso " & liperfil & ",5, " & ctrltab1.Tag & ", 0" Else sql = "spGrabaPermiso " & liperfil & ",1, " & ctrltab1.Tag & ", 0" End If End If classcom = New clsComplejo classcom.sbInserta(sql) 'End If End If Next End If Next End If ' Referenciamos el control de texto End If Next lsValAct = ClassAud.FnObtenValAnterior("SpConPermisosCad " & liperfil) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 53, 1, "Valores Anteriores: " & clsVaribles.lsValAnt & " | Valores Nuevos: " & lsValAct) Cursor = Cursors.Default MessageBox.Show("Permisos Registrados Correctamente. Los cambios efectuados surtiran efecto cuando vuelva a iniciar MINDS CLIENTE.", "MInds", MessageBoxButtons.OK, MessageBoxIcon.Information) Catch er As Exception Cursor = Cursors.Default MessageBox.Show("Error al grabar Permisos " & er.Message, "MInds", MessageBoxButtons.OK, MessageBoxIcon.Information) Finally 'cnn.Close() End Try End Sub Private Sub BtnAlta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAlta.Click If clsVaribles.lbDemo = True Then Exit Sub guardaModificacion() Perfil.NuevoPerfil = False End Sub Private Sub BntSalie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntSalie.Click Me.Close() End Sub Private Sub chkInusuales_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkInusuales.CheckedChanged If chkInusuales.Checked = True Then 'chkReportes.Checked = True chkNueva.Checked = True chkTodosProductos.Checked = True chkOperInusuales.Checked = True chkInuSnT.Checked = True chkInusuales.Checked = True Else 'If chkInusuales.Checked = False And chkReportes.Checked = False Then 'If MsgBox("Apagar este marcador apagará todos los marcadores dependientes. ¿Desea continuar?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS - Perfiles") = MsgBoxResult.Yes Then chkNueva.Checked = False chkTodosProductos.Checked = False chkOperInusuales.Checked = False chkInuSnT.Checked = False 'End If End If End Sub Private Sub chkNueva_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkNueva.Checked = True Then chkReportes.Checked = True chkInusuales.Checked = True End If End Sub Private Sub chkTodosProductos_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkTodosProductos.Checked = True Then chkReportes.Checked = True chkInusuales.Checked = True Else 'If chkTodosProductos.Checked = False And chkInusuales.Checked = False And chkReportes.Checked = False Then 'If MsgBox("Apagar este marcador apagará todos los marcadores dependientes. ¿Desea continuar?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS - Perfiles") = MsgBoxResult.Yes Then chkOperInusuales.Checked = False 'End If End If End Sub Private Sub chkOperInusuales_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkOperInusuales.Checked = True Then chkReportes.Checked = True chkInusuales.Checked = True chkTodosProductos.Checked = True End If End Sub Private Sub chkFormatoCNBV_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkFormatoCNBV.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkTransacciones_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkTransacciones.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkOperInusualesF_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkOperInusualesF.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkOperPreocupantes_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkOperPreocupantes.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkRelevantes_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkRelevantes.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkDormant_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkDormant.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkPerfTran_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkPerfTran.Checked = True Then chkReportes.Checked = True End If End Sub Private Sub chkKYC_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkKYC.CheckedChanged If chkKYC.Checked = False Then chkCteSinKYC.Checked = False chkAlarmaKYC.Checked = False End If End Sub Private Sub chkCteSinKYC_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCteSinKYC.CheckedChanged If chkCteSinKYC.Checked = True Then chkKYC.Checked = True End If End Sub Private Sub chkAlarmaKYC_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAlarmaKYC.CheckedChanged If chkAlarmaKYC.Checked = True Then chkKYC.Checked = True End If End Sub 'Private Sub chkActual_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkActual.CheckedChanged ' Try ' If inicio Then Exit Sub ' For Each chk As CheckBox In GroupBox8.Controls ' chk.Checked = chkActual.Checked ' Next ' Catch ex As Exception ' End Try 'End Sub Private Sub ParametrosDeGrupoMenu_CheckedChanged(sender As System.Object, e As System.EventArgs) If ParametrosDeGrupoMenu.Checked = True Then chkActual.Checked = True End If End Sub Private Sub chkTipoCambio_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkTipoCambio.Checked = True Then chkActual.Checked = True End If End Sub Private Sub chkAsigGrpo_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkAsigGrpo.Checked = True Then chkActual.Checked = True End If End Sub Private Sub chkSeguridad_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkSeguridad.CheckedChanged 'Try ' If inicio Then Exit Sub ' For Each chk As CheckBox In GroupBox9.Controls ' chk.Checked = chkSeguridad.Checked ' Next 'Catch ex As Exception 'End Try End Sub Private Sub chkCatalogos_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCatalogos.CheckedChanged 'Try ' If inicio Then Exit Sub ' For Each chk As CheckBox In GroupBox10.Controls ' chk.Checked = chkCatalogos.Checked ' Next 'Catch ex As Exception 'End Try End Sub Private Sub chkOficiales_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkOficiales.Checked = True Then chkCatalogos.Checked = True Else chkActEco.Checked = False ChkInsFin.Checked = False chkTipOp.Checked = False chkInstrumMon.Checked = False chkMoneda.Checked = False End If End Sub Private Sub chkConf_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkConf.Checked = True Then chkCatalogos.Checked = True Else chkPais.Checked = False chkEstado.Checked = False chkOrgInter.Checked = False End If End Sub Private Sub chkIntitucional_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkIntitucional.Checked = True Then chkCatalogos.Checked = True Else chkProductos.Checked = False chkSubproductos.Checked = False End If End Sub Private Sub chkUsuario_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkUsuario.Checked = True Then chkSeguridad.Checked = True End If End Sub Private Sub chkActEco_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkActEco.Checked = True Then chkOficiales.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub ChkInsFin_CheckedChanged(sender As System.Object, e As System.EventArgs) If ChkInsFin.Checked = True Then chkOficiales.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkTipOp_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkTipOp.Checked = True Then chkOficiales.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkInstrumMon_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkInstrumMon.Checked = True Then chkOficiales.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkMoneda_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkMoneda.Checked = True Then chkOficiales.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkPais_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkPais.Checked = True Then chkConf.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkEstado_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkEstado.Checked = True Then chkConf.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkOrgInter_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkOrgInter.Checked = True Then chkConf.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkProductos_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkProductos.Checked = True Then chkIntitucional.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub chkSubproductos_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkSubproductos.Checked = True Then chkIntitucional.Checked = True chkCatalogos.Checked = True End If End Sub Private Sub ChkMant_CheckedChanged(sender As System.Object, e As System.EventArgs) If ChkMant.Checked = True Then chkCatalogos.Checked = True End If End Sub Private Sub chkPerfil_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkPerfil.Checked = True Then chkSeguridad.Checked = True End If End Sub Private Sub chkAuditoria_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkAuditoria.Checked = True Then chkSeguridad.Checked = True End If End Sub Private Sub chkConfigClaves_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkConfigClaves.Checked = True Then chkSeguridad.Checked = True End If End Sub Private Sub chkListasrest_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkListasrest.CheckedChanged End Sub Private Sub ChkPersonas_CheckedChanged(sender As System.Object, e As System.EventArgs) If ChkPersonas.Checked = True Then chkListasrest.Checked = True End If End Sub Private Sub chkClientes_CheckedChanged(sender As System.Object, e As System.EventArgs) If chkClientes.Checked = True Then chkListasrest.Checked = True End If End Sub Private Sub chkserver_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkserver.CheckedChanged 'Try ' If inicio Then Exit Sub ' For Each gp As Control In GroupBox3.Controls ' If TypeOf gp Is GroupBox Then ' For Each Chk As CheckBox In gp.Controls ' Chk.Checked = chkserver.Checked ' Next ' End If ' Next 'Catch ex As Exception 'End Try End Sub Private Sub chkTCambio_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkTCambio.CheckedChanged If chkTCambio.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chktran_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chktran.CheckedChanged If chktran.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chkListas_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkListas.CheckedChanged If chkListas.Checked = True Then chkserver.Checked = True End If End Sub Private Sub ChkrelevantesS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkrelevantesS.CheckedChanged If ChkrelevantesS.Checked = True Then chkserver.Checked = True End If End Sub Private Sub ChkFraccS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkFraccS.CheckedChanged If ChkFraccS.Checked = True Then chkserver.Checked = True End If End Sub Private Sub ChkInuS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkInuS.CheckedChanged If ChkInuS.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chkReproceso_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkReproceso.CheckedChanged If chkReproceso.Checked = True Then chkserver.Checked = True End If End Sub Private Sub ChkListasS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkListasS.CheckedChanged If ChkListasS.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chkConfigCarga_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkConfigCarga.CheckedChanged If chkConfigCarga.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chkPerfilTranServer_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkPerfilTranServer.CheckedChanged If chkPerfilTranServer.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chkLogs_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkLogs.CheckedChanged If chkLogs.Checked = True Then chkserver.Checked = True End If End Sub Private Sub chkAuditS_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAuditS.CheckedChanged If chkAuditS.Checked = True Then chkserver.Checked = True End If End Sub Private Sub ChkRiesgo_CheckedChanged(sender As System.Object, e As System.EventArgs) If ChkRiesgo.Checked = True Then chkserver.Checked = True End If End Sub Private Sub btnPasaUno_Click(sender As System.Object, e As System.EventArgs) Handles btnPasaUno.Click If lstDisponibles.SelectedIndex >= 0 Then If Not lstAutorizados.Items.Contains(lstDisponibles.SelectedItem) Then lstAutorizados.Items.Add(lstDisponibles.SelectedItem) lstDisponibles.Items.Remove(lstDisponibles.SelectedItem) End If Else MessageBox.Show("Debe seleccionar al menos un elemento de los disponibles", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub Private Sub btnPasaTodos_Click(sender As System.Object, e As System.EventArgs) Handles btnPasaTodos.Click Dim x As Integer For x = 0 To lstDisponibles.Items.Count - 1 lstAutorizados.Items.Add(lstDisponibles.Items(x)) Next lstDisponibles.Items.Clear() End Sub Private Sub btnBorraUno_Click(sender As System.Object, e As System.EventArgs) Handles btnBorraUno.Click If lstAutorizados.SelectedIndex >= 0 Then If Not lstDisponibles.Items.Contains(lstAutorizados.SelectedItem) Then lstDisponibles.Items.Add(lstAutorizados.SelectedItem) lstAutorizados.Items.Remove(lstAutorizados.SelectedItem) End If Else MessageBox.Show("Debe seleccionar al menos un elemento de los autorizados", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub Private Sub btnBorraTodos_Click(sender As System.Object, e As System.EventArgs) Handles btnBorraTodos.Click Dim x As Integer For x = 0 To lstAutorizados.Items.Count - 1 lstDisponibles.Items.Add(lstAutorizados.Items(x)) Next lstAutorizados.Items.Clear() End Sub Dim dicDesde As New Generic.Dictionary(Of String, Integer) Dim dicHacia As New Generic.Dictionary(Of String, Integer) Private Sub chkKYCEstatus_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkKYCEstatus.CheckedChanged limpiarPermisos() End Sub Private Sub limpiarPermisos() Dim sql As String Dim classcom As New clsComplejo Dim ds As DataSet Try If chkKYCEstatus.Checked Then pnlPermisosKYCEstatus.Enabled = True ' '--ajuste para los permisos de estatus kyc classcom.ds.Tables.Clear() lstDisponibles.Items.Clear() dicDesde.Clear() sql = "spS_PERFIL_KYCEstatus_Permitidos " & liperfil ds = classcom.fdtDataSet(sql) If Not ds.Tables(0) Is Nothing Then For Each dr As DataRow In ds.Tables(0).Rows dicDesde.Add(dr(1), dr(0)) lstDisponibles.Items.Add(dr(1)) Next End If ds.Tables.Clear() dicHacia.Clear() lstAutorizados.Items.Clear() sql = "spS_tblPermiso_KYCEstatus_Perfil " & liperfil ds = classcom.fdtDataSet(sql) If Not ds.Tables(0) Is Nothing Then For Each dr As DataRow In ds.Tables(0).Rows dicHacia.Add(dr(1), dr(0)) lstAutorizados.Items.Add(dr(1)) Next End If Else lstDisponibles.Items.Clear() lstAutorizados.Items.Clear() pnlPermisosKYCEstatus.Enabled = False End If Catch ex As Exception MessageBox.Show(ex.Message, "limpiarPermisos", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub btnAdd1_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd1.Click AgregarDesde() End Sub Private Function AgregarDesde() As Boolean AgregarDesde = False If cmbKYCESTATUS1.SelectedIndex = -1 Then Exit Function Try If lstDisponibles.Items.Count > 0 Then For Each lst As String In lstDisponibles.Items If lst.Trim = cmbKYCESTATUS1.Text.Trim Then Exit Function End If Next dicDesde.Add(cmbKYCESTATUS1.Text, cmbKYCESTATUS1.SelectedValue) lstDisponibles.Items.Add(cmbKYCESTATUS1.Text) Else dicDesde.Add(cmbKYCESTATUS1.Text, cmbKYCESTATUS1.SelectedValue) lstDisponibles.Items.Add(cmbKYCESTATUS1.Text) End If Catch ex As Exception MessageBox.Show(ex.Message) End Try AgregarDesde = True End Function Private Function AgregarHacia() As Boolean AgregarHacia = False If cmbKYCESTATUS2.SelectedIndex = -1 Then Exit Function Try If lstAutorizados.Items.Count > 0 Then For Each lst As String In lstAutorizados.Items If lst.Trim = cmbKYCESTATUS2.Text.Trim Then Exit Function End If Next dicHacia.Add(cmbKYCESTATUS2.Text, cmbKYCESTATUS2.SelectedValue) lstAutorizados.Items.Add(cmbKYCESTATUS2.Text) Else dicHacia.Add(cmbKYCESTATUS2.Text, cmbKYCESTATUS2.SelectedValue) lstAutorizados.Items.Add(cmbKYCESTATUS2.Text) End If Catch ex As Exception MessageBox.Show(ex.Message) End Try AgregarHacia = True End Function Private Sub btnAdd2_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd2.Click AgregarHacia() End Sub Private Sub btnQuitar1_Click(sender As System.Object, e As System.EventArgs) Handles btnQuitar1.Click QuitarDesde() End Sub Private Function QuitarDesde() As Boolean QuitarDesde = False Try dicDesde.Remove(lstDisponibles.SelectedItem) lstDisponibles.Items.Remove(lstDisponibles.SelectedItem) Catch ex As Exception MessageBox.Show(ex.Message) End Try QuitarDesde = True End Function Private Function QuitarHacia() As Boolean QuitarHacia = False Try dicHacia.Remove(lstAutorizados.SelectedItem) lstAutorizados.Items.Remove(lstAutorizados.SelectedItem) Catch ex As Exception MessageBox.Show(ex.Message) End Try QuitarHacia = True End Function Private Sub btnQuitar2_Click(sender As System.Object, e As System.EventArgs) Handles btnQuitar2.Click QuitarHacia() End Sub Private Sub chkProcesoHIT_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkProcesoHIT.CheckedChanged Try Catch ex As Exception End Try End Sub Private Sub chkReviewer_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkReviewer.CheckedChanged If chkReviewer.Checked Then chkComp.Checked = Not (chkReviewer.Checked) End If End Sub Private Sub chkComp_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkComp.CheckedChanged If chkComp.Checked Then chkReviewer.Checked = Not (chkComp.Checked) End If End Sub Private Sub chkOperPreocupantes_CheckedChanged_1(sender As System.Object, e As System.EventArgs) Handles chkOperPreocupantes.CheckedChanged If chkOperPreocupantes.Checked Then 'chkReportes.Checked = True chkPreoCnT.Checked = True chkPreoSnT.Checked = True Else chkPreoCnT.Checked = False chkPreoSnT.Checked = False End If End Sub Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs) Handles BtnImprimir.Click Exportar() End Sub Private Sub Exportar() Dim ds As DataSet Try Dim clsExcel As aExcel = New aExcel Dim cls As New clsComplejo ds = cls.fdtDataSet("spS_PerfilPermisos " & liperfil) 'Obtenemos el nombre o el titulo del form clsExcel.Titulo = "Permisos: " + txtNombrePerfil.Text 'Utilizo la funcion ExportDataset de la clase aExcel clsExcel.ExportDataset(ds) 'Asigno el dataset a exportar Catch ex As Exception End Try End Sub Private Sub txtNombrePerfil_TextChanged(sender As Object, e As EventArgs) Handles txtNombrePerfil.TextChanged End Sub Private Sub chkNueva_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkNueva.CheckedChanged If chkNueva.Checked = True Then ' chkInusuales.Checked = True 'chkReportes.Checked = True End If End Sub Private Sub chkInuSnT_CheckedChanged(sender As Object, e As EventArgs) Handles chkInuSnT.CheckedChanged If chkInuSnT.Checked = True Then 'chkInusuales.Checked = True 'chkReportes.Checked = True chkInuSnT.Checked = True End If End Sub Private Sub chkTodosProductos_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkTodosProductos.CheckedChanged 'If chkTodosProductos.Checked = True Then ' chkOperInusuales.Checked = True ' 'chkInusuales.Checked = True ' 'chkReportes.Checked = True 'Else ' chkOperInusuales.Checked = False 'End If End Sub Private Sub chkOperInusuales_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkOperInusuales.CheckedChanged If chkOperInusuales.Checked = True Then chkTodosProductos.Checked = True 'chkInusuales.Checked = True 'chkReportes.Checked = True End If End Sub Private Sub chkPreoCnT_CheckedChanged(sender As Object, e As EventArgs) Handles chkPreoCnT.CheckedChanged If chkPreoCnT.Checked = True Then ' chkOperPreocupantes.Checked = True chkPreoCnT.Checked = True End If End Sub Private Sub chkPreoSnT_CheckedChanged(sender As Object, e As EventArgs) Handles chkPreoSnT.CheckedChanged Dim todos As Boolean = False If chkPreoSnT.Checked = True Then 'chkOperPreocupantes.Checked = True todos = True chkPreoSnT.Checked = True Else todos = False End If If chkPreoCnT.Checked = True Then todos = True Else todos = False End If If todos Then chkOperPreocupantes.Checked = True End If End Sub Private Sub chkOficiales_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkOficiales.CheckedChanged If esCarga = False Then If chkOficiales.Checked = True Then ActivaOficiales(True) Else ActivaOficiales(False) End If End If End Sub Private Sub ActivaConfig(status) chkPais.Checked = status chkEstado.Checked = status chkOrgInter.Checked = status End Sub Private Sub ActivaInstituciones(status) chkProductos.Checked = status chkSubproductos.Checked = status chkFuncionarios2.Checked = status End Sub Private Sub ActivaOficiales(status) chkActEco.Checked = status ChkInsFin.Checked = status chkTipOp.Checked = status chkInstrumMon.Checked = status chkMoneda.Checked = status chkLocalidad.Checked = status End Sub Private Sub ActivaMantenimiento(status) chkActVul.Checked = status chkDesRec.Checked = status chkID.Checked = status chkInstrument.Checked = status chkTransfer.Checked = status chkParents.Checked = status chkProcRec.Checked = status chkTipoCuenta.Checked = status chkTipoDom.Checked = status chkEstrucCorp.Checked = status chkTipoPer.Checked = status chkFigLegal.Checked = status chkSucs.Checked = status chkFuentIng.Checked = status chkGrupoRiesgo.Checked = status chkCASFIM.Checked = status chkPropositoCuenta.Checked = status chkRelacion.Checked = status End Sub Private Sub chkConf_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkConf.CheckedChanged If esCarga = False Then If chkConf.Checked = True Then ActivaConfig(True) Else ActivaConfig(False) End If End If End Sub Private Sub chkIntitucional_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkIntitucional.CheckedChanged If esCarga = False Then If chkIntitucional.Checked = True Then ActivaInstituciones(True) Else ActivaInstituciones(False) End If End If End Sub Private Sub ChkMant_CheckedChanged_1(sender As Object, e As EventArgs) Handles ChkMant.CheckedChanged If ChkMant.Checked = True Then ActivaMantenimiento(True) Else ActivaMantenimiento(False) End If End Sub Private Sub ChkTodosReporte_Click(sender As Object, e As EventArgs) Handles ChkTodosReporte.Click ValidaTodosCampos(GroupBox13, ChkTodosReporte) End Sub Private Sub ValidaTodosCampos(ByVal _groupbox As GroupBox, ByVal _checkbox As CheckBox) For Each g As System.Windows.Forms.Control In _groupbox.Controls If TypeOf g Is CheckBox Then Dim chk As CheckBox = TryCast(g, CheckBox) chk.Checked = _checkbox.Checked End If Next End Sub Private Sub ChkTodosCatalogos_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTodosCatalogos.CheckedChanged ValidaTodosCampos(GroupBox10, ChkTodosCatalogos) End Sub Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged ValidaTodosCampos(GroupBox3, CheckBox2) ValidaTodosCampos(gbxContCargas, CheckBox2) ValidaTodosCampos(gbxAlarmas, CheckBox2) ValidaTodosCampos(gbxProcs, CheckBox2) ValidaTodosCampos(gbxLogs, CheckBox2) End Sub Private Sub ChkModulos_CheckedChanged(sender As Object, e As EventArgs) Handles ChkModulos.CheckedChanged ValidaTodosCampos(GroupBox5, ChkModulos) End Sub Private Sub ChkActualizadores_CheckedChanged(sender As Object, e As EventArgs) Handles ChkActualizadores.CheckedChanged ValidaTodosCampos(GroupBox8, ChkActualizadores) End Sub Private Sub chkTodosSeguridad_CheckedChanged(sender As Object, e As EventArgs) Handles chkTodosSeguridad.CheckedChanged ValidaTodosCampos(GroupBox9, chkTodosSeguridad) End Sub Private Sub ChkListaRestringidas_CheckedChanged(sender As Object, e As EventArgs) Handles ChkListaRestringidas.CheckedChanged ValidaTodosCampos(GroupBox11, ChkListaRestringidas) End Sub End Class Class LBItem Public Contenido As String Public Valor As Integer ' Public Sub New(ByVal c As String, ByVal v As Integer) Contenido = c Valor = v End Sub ' Public Overrides Function ToString() As String Return Contenido End Function End Class