diff --git a/.vs/Minds Cliente/v14/.suo b/.vs/Minds Cliente/v14/.suo index 443258d..c79f566 100644 Binary files a/.vs/Minds Cliente/v14/.suo and b/.vs/Minds Cliente/v14/.suo differ diff --git a/Actualizadores/ActTipoCambio.resx b/Actualizadores/ActTipoCambio.resx index d9bc903..49a6a72 100644 --- a/Actualizadores/ActTipoCambio.resx +++ b/Actualizadores/ActTipoCambio.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ - DQAAAk1TRnQBSQFMAgEBCAEAAaQBAAGkAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + DQAAAk1TRnQBSQFMAgEBCAEAAawBAAGsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -266,7 +266,7 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:InactiveBorder;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>178</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 727, 178</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 727, 178</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{BackColor:InactiveBorder;}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>178</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 727, 178</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 727, 178</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> diff --git a/Actualizadores/ActTipoCambio.vb b/Actualizadores/ActTipoCambio.vb index 8b4998c..c9f735f 100644 --- a/Actualizadores/ActTipoCambio.vb +++ b/Actualizadores/ActTipoCambio.vb @@ -99,6 +99,7 @@ Public Class ActTipoCambio Me.cmbMonedas.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbMonedas.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbMonedas.Enabled = False Me.cmbMonedas.Location = New System.Drawing.Point(179, 57) Me.cmbMonedas.Name = "cmbMonedas" Me.cmbMonedas.Size = New System.Drawing.Size(493, 21) @@ -145,6 +146,7 @@ Public Class ActTipoCambio Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtBX.BackColor = System.Drawing.Color.White Me.txtBX.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtBX.Enabled = False Me.txtBX.Location = New System.Drawing.Point(179, 91) Me.txtBX.MaxLength = 12 Me.txtBX.Name = "txtBX" @@ -252,6 +254,7 @@ Public Class ActTipoCambio Me.BtnAlta.TabIndex = 93 Me.BtnAlta.Text = "Guardar" Me.BtnAlta.UseVisualStyleBackColor = False + Me.BtnAlta.Visible = False ' 'Btnbaja ' @@ -477,7 +480,7 @@ Public Class ActTipoCambio If clsVaribles.lbDemo = True Then Exit Sub dtpfecha1.Value = Date.Now.Date - Habilita(True) + Habilita(False) Try Dim Classcom As New clsComplejo diff --git a/Catalogos/Mantenimiento/frmPerfilCta.Designer.vb b/Catalogos/Mantenimiento/frmPerfilCta.Designer.vb new file mode 100644 index 0000000..0481798 --- /dev/null +++ b/Catalogos/Mantenimiento/frmPerfilCta.Designer.vb @@ -0,0 +1,257 @@ + _ +Partial Class frmPerfilCta + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPerfilCta)) + Me.panel2 = New System.Windows.Forms.Panel() + Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() + Me.DesHeader = New System.Windows.Forms.Label() + Me.btnAgregar = New System.Windows.Forms.Button() + Me.btnGuardar = New System.Windows.Forms.Button() + Me.btnCerrar = New System.Windows.Forms.Button() + Me.btnEditar = New System.Windows.Forms.Button() + Me.chkActivo = New System.Windows.Forms.CheckBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() + Me.panel3 = New System.Windows.Forms.Panel() + Me.txtPerfilCta = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.panel2.SuspendLayout() + CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panel3.SuspendLayout() + Me.SuspendLayout() + ' + '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(-3, -4) + Me.panel2.Name = "panel2" + Me.panel2.Size = New System.Drawing.Size(664, 49) + Me.panel2.TabIndex = 396 + ' + 'Img_logoCabecera + ' + Me.Img_logoCabecera.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo + Me.Img_logoCabecera.Location = New System.Drawing.Point(542, 0) + 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("Century Gothic", 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, 9) + Me.DesHeader.Name = "DesHeader" + Me.DesHeader.Size = New System.Drawing.Size(178, 22) + Me.DesHeader.TabIndex = 2 + Me.DesHeader.Text = "Perfil de la Cuenta" + ' + 'btnAgregar + ' + Me.btnAgregar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnAgregar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnAgregar.BackColor = System.Drawing.Color.Black + Me.btnAgregar.ForeColor = System.Drawing.Color.White + Me.btnAgregar.Location = New System.Drawing.Point(548, 245) + Me.btnAgregar.Name = "btnAgregar" + Me.btnAgregar.Size = New System.Drawing.Size(106, 31) + Me.btnAgregar.TabIndex = 395 + Me.btnAgregar.Text = "Agregar" + Me.btnAgregar.UseVisualStyleBackColor = False + ' + 'btnGuardar + ' + Me.btnGuardar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnGuardar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnGuardar.BackColor = System.Drawing.Color.Black + Me.btnGuardar.ForeColor = System.Drawing.Color.White + Me.btnGuardar.Location = New System.Drawing.Point(548, 323) + Me.btnGuardar.Name = "btnGuardar" + Me.btnGuardar.Size = New System.Drawing.Size(106, 31) + Me.btnGuardar.TabIndex = 394 + Me.btnGuardar.Text = "Guardar" + Me.btnGuardar.UseVisualStyleBackColor = False + ' + 'btnCerrar + ' + Me.btnCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnCerrar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnCerrar.BackColor = System.Drawing.Color.Black + Me.btnCerrar.ForeColor = System.Drawing.Color.White + Me.btnCerrar.Location = New System.Drawing.Point(548, 363) + Me.btnCerrar.Name = "btnCerrar" + Me.btnCerrar.Size = New System.Drawing.Size(106, 31) + Me.btnCerrar.TabIndex = 393 + Me.btnCerrar.Text = "Cerrar" + Me.btnCerrar.UseVisualStyleBackColor = False + ' + 'btnEditar + ' + Me.btnEditar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnEditar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnEditar.BackColor = System.Drawing.Color.Black + Me.btnEditar.ForeColor = System.Drawing.Color.White + Me.btnEditar.Location = New System.Drawing.Point(548, 284) + Me.btnEditar.Name = "btnEditar" + Me.btnEditar.Size = New System.Drawing.Size(106, 31) + Me.btnEditar.TabIndex = 392 + Me.btnEditar.Text = "Editar" + Me.btnEditar.UseVisualStyleBackColor = False + ' + 'chkActivo + ' + Me.chkActivo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chkActivo.Enabled = False + Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkActivo.ForeColor = System.Drawing.Color.Red + Me.chkActivo.Location = New System.Drawing.Point(22, 363) + Me.chkActivo.Name = "chkActivo" + Me.chkActivo.Size = New System.Drawing.Size(72, 21) + Me.chkActivo.TabIndex = 391 + Me.chkActivo.Text = "Activo" + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.SystemColors.Window + Me.Label1.Location = New System.Drawing.Point(590, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(42, 17) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "Minds" + ' + 'GridMaster + ' + Me.GridMaster.AllowUpdate = False + Me.GridMaster.AllowUpdateOnBlur = False + Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GridMaster.BackColor = System.Drawing.Color.White + Me.GridMaster.EditDropDown = False + Me.GridMaster.FilterBar = True + Me.GridMaster.GroupByCaption = "AGRUPAR" + Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image)) + Me.GridMaster.Location = New System.Drawing.Point(12, 65) + Me.GridMaster.Name = "GridMaster" + Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0) + Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0) + Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R + Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) + Me.GridMaster.Size = New System.Drawing.Size(530, 211) + Me.GridMaster.TabIndex = 388 + Me.GridMaster.Text = "C1TrueDBGrid1" + Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag") + ' + 'panel3 + ' + Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom 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.Label1) + Me.panel3.ForeColor = System.Drawing.Color.Navy + Me.panel3.Location = New System.Drawing.Point(-10, 415) + Me.panel3.Name = "panel3" + Me.panel3.Size = New System.Drawing.Size(678, 27) + Me.panel3.TabIndex = 397 + ' + 'txtPerfilCta + ' + Me.txtPerfilCta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.txtPerfilCta.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtPerfilCta.Location = New System.Drawing.Point(22, 325) + Me.txtPerfilCta.MaxLength = 80 + Me.txtPerfilCta.Name = "txtPerfilCta" + Me.txtPerfilCta.Size = New System.Drawing.Size(428, 20) + Me.txtPerfilCta.TabIndex = 389 + ' + 'Label2 + ' + Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label2.Location = New System.Drawing.Point(19, 300) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(93, 13) + Me.Label2.TabIndex = 390 + Me.Label2.Text = "Perfil de la Cuenta" + ' + 'frmPerfilCta + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(658, 439) + Me.Controls.Add(Me.panel2) + Me.Controls.Add(Me.btnAgregar) + Me.Controls.Add(Me.btnGuardar) + Me.Controls.Add(Me.btnCerrar) + Me.Controls.Add(Me.btnEditar) + Me.Controls.Add(Me.chkActivo) + Me.Controls.Add(Me.GridMaster) + Me.Controls.Add(Me.panel3) + Me.Controls.Add(Me.txtPerfilCta) + Me.Controls.Add(Me.Label2) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmPerfilCta" + Me.Text = "Perfil de la Cuenta" + Me.panel2.ResumeLayout(False) + Me.panel2.PerformLayout() + CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit() + Me.panel3.ResumeLayout(False) + Me.panel3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Private WithEvents panel2 As Panel + Private WithEvents Img_logoCabecera As PictureBox + Friend WithEvents DesHeader As Label + Friend WithEvents btnAgregar As Button + Friend WithEvents btnGuardar As Button + Friend WithEvents btnCerrar As Button + Friend WithEvents btnEditar As Button + Friend WithEvents chkActivo As CheckBox + Friend WithEvents Label1 As Label + Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid + Private WithEvents panel3 As Panel + Friend WithEvents txtPerfilCta As TextBox + Friend WithEvents Label2 As Label +End Class diff --git a/Catalogos/Mantenimiento/frmPerfilCta.resx b/Catalogos/Mantenimiento/frmPerfilCta.resx new file mode 100644 index 0000000..683d111 --- /dev/null +++ b/Catalogos/Mantenimiento/frmPerfilCta.resx @@ -0,0 +1,219 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 + vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0 + dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh + d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp + emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5 + c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp + bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz + dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n + LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf + U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh + d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA + AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk + cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi + eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv + bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE + ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4 + AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp + bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n + ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu + RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF + 9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA + AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w + BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA + AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ + QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA + ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs= + + + + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>207</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 526, 207</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 526, 207</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> + + + + AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////8AAAAAAAD///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////8AAAAAAAD///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76 + /f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A + AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7///////////////////////// + ///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+ + //75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+//////////// + //////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7///// + /////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD///////// + ///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8 + /fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6 + ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A + AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv + ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/ + z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl + hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7 + ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD///////// + ///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9 + ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5 + 8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A + AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9 + //32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f// + +///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9 + /f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7///// + //7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD///////// + ///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2 + r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu + mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A + AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38 + /v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2 + bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9 + /vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31 + ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD///////// + ///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy + ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2 + bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A + AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1 + ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD///////////////////////// + /v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7///////// + //////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8 + /f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD///////// + ///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6 + /fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8 + +/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A + AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+ + //71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/Catalogos/Mantenimiento/frmPerfilCta.vb b/Catalogos/Mantenimiento/frmPerfilCta.vb new file mode 100644 index 0000000..696ba96 --- /dev/null +++ b/Catalogos/Mantenimiento/frmPerfilCta.vb @@ -0,0 +1,190 @@ +Public Class frmPerfilCta + Private opcion As Boolean + Private id As Integer + + + Private Sub frmObjCuenta_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + Try + Iniciar() + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End Sub + + Private Function Iniciar() As Boolean + Iniciar = False + Try + Limpiar() + llenarGrid() + DesHeader.Text = Me.Text + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + Iniciar = True + End Function + + Private Function Limpiar() As Boolean + Try + txtPerfilCta.Enabled = False + txtPerfilCta.Text = "" + chkActivo.Enabled = False + chkActivo.Checked = False + btnGuardar.Enabled = False + btnEditar.Enabled = False + + id = 0 + opcion = False + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End Function + + Private Function llenarGrid() As Boolean + llenarGrid = False + Try + Dim ClassCatalogos As New ClassCatalogos + + GridMaster.AllowUpdate = False + ClassCatalogos.LlenaGrid("SP_PerfilCuenta NULL", Me.GridMaster) + GridMaster.Splits(0).DisplayColumns(0).AutoSize() + GridMaster.Splits(0).DisplayColumns(0).Visible = False + GridMaster.Splits(0).DisplayColumns(1).AutoSize() + GridMaster.Splits(0).DisplayColumns(2).AutoSize() + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + llenarGrid = True + End Function + + Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click + Me.Close() + End Sub + + Private Sub BtnAgregar_Click(sender As System.Object, e As System.EventArgs) Handles btnAgregar.Click + Limpiar() + habilitar() + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + opcion = True + + txtPerfilCta.Focus() + + End Sub + + Private Function habilitar() As Boolean + habilitar = False + Try + txtPerfilCta.Enabled = True + chkActivo.Enabled = True + btnGuardar.Enabled = True + 'txtRiesgo.Enabled = True + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + habilitar = True + End Function + + Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick + llenarDatos() + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + End Sub + + Private Function llenarDatos() As Boolean + llenarDatos = False + Try + id = GridMaster.Columns(0).Value + txtPerfilCta.Text = GridMaster.Columns(1).Value + chkActivo.Checked = GridMaster.Columns(2).Value + + + btnEditar.Enabled = True + + txtPerfilCta.Enabled = False + chkActivo.Enabled = False + btnGuardar.Enabled = False + + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + + llenarDatos = True + End Function + + Private Sub BtnEditar_Click(sender As System.Object, e As System.EventArgs) Handles btnEditar.Click + clsVaribles.lsValAnt = "Valores Anteriores: Perfil de la Cuenta: " & txtPerfilCta.Text & "| Activo:" & chkActivo.CheckState + + opcion = False + habilitar() + + btnAgregar.Enabled = True + btnEditar.Enabled = False + + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + + txtPerfilCta.Focus() + + End Sub + + Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click + Guardar() + End Sub + + Private Function Guardar() As Boolean + Guardar = False + Dim cls As New clsComplejo + Dim ssql As String + Dim nombre As String + Dim chk As Integer + Dim riesgo As Single + Dim ClassAud As New ClassMyUtils + Try + If ValidarDatos() Then + nombre = txtPerfilCta.Text.Trim() + chk = chkActivo.CheckState + + If opcion Then + 'ADD + ssql = "SP_INSERTUPDATE_PERFILCTA " & id & ",'" & nombre & "'," & chk + cls.sbGuardaModifica(ssql) + ClassAud.RT_Auditoria(clsVaribles.varUsuario, 137, 31, "Valores Nuevos: Perfil de la Cuenta: " & txtPerfilCta.Text & ", Activo:" & chkActivo.CheckState) + Else + ssql = "SP_INSERTUPDATE_PERFILCTA " & id & ",'" & nombre & "'," & chk + cls.sbGuardaModifica(ssql) + ClassAud.RT_Auditoria(clsVaribles.varUsuario, 138, 31, clsVaribles.lsValAnt & ", " & "Valores Nuevos: Perfil de la Cuenta: " & txtPerfilCta.Text & ", Activo:" & chkActivo.CheckState) + End If + + MessageBox.Show("Operación Realizada Correctamente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) + Limpiar() + llenarGrid() + + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + End If + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + Guardar = True + End Function + + Private Function ValidarDatos() As Boolean + ValidarDatos = False + Try + If txtPerfilCta.Text.Trim = "" Then + MessageBox.Show("Es necesario introducir el Perfil de la Cuenta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) + txtPerfilCta.Focus() + Exit Function + End If + + ValidarDatos = True + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + + End Function + +End Class \ No newline at end of file diff --git a/ClasesModulos/ClassMyUtils.vb b/ClasesModulos/ClassMyUtils.vb index 1900c98..4da63f8 100644 --- a/ClasesModulos/ClassMyUtils.vb +++ b/ClasesModulos/ClassMyUtils.vb @@ -119,7 +119,7 @@ Public Class ClassMyUtils Dim ClassCom As New clsComplejo Dim Classc As New ClassMyUtils Try - strSQL = "spCRU_AccesoControl '" & idUsuario & "',1,3" + strSQL = "spCRU_AccesoControl " & idUsuario & ",1,3" ClassCom.sbInserta(strSQL) Catch er As Exception MessageBox.Show("Error en ActualizaAccesoControlDesactivar: " & er.Message & " sql: " & strSQL, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) diff --git a/MainForm.designer.vb b/MainForm.designer.vb index e8a253e..44679e6 100644 --- a/MainForm.designer.vb +++ b/MainForm.designer.vb @@ -54,6 +54,7 @@ Partial Class mdiForm Me.mnuVigenciaAlertas = New System.Windows.Forms.ToolStripMenuItem() Me.mnuEBR = New System.Windows.Forms.ToolStripMenuItem() Me.mnuReporteJ13 = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuReporteJ14 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ParametrosDeGrupoMenu = New System.Windows.Forms.ToolStripMenuItem() Me.TipoCambioMenu = New System.Windows.Forms.ToolStripMenuItem() @@ -61,6 +62,7 @@ Partial Class mdiForm Me.RazonesMenu = New System.Windows.Forms.ToolStripMenuItem() Me.PatronesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.mnuParamsgen = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuParamsPerfilCta = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() Me.OficialesMenuI = New System.Windows.Forms.ToolStripMenuItem() Me.ActividadEconomicaMenu = New System.Windows.Forms.ToolStripMenuItem() @@ -112,6 +114,7 @@ Partial Class mdiForm Me.mnuRiesgoPPE = New System.Windows.Forms.ToolStripMenuItem() Me.mnuCatsEBR = New System.Windows.Forms.ToolStripMenuItem() Me.mnuEstatusCta = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPerfilCta = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPatrones = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.UsuarioMenu = New System.Windows.Forms.ToolStripMenuItem() @@ -139,7 +142,6 @@ Partial Class mdiForm Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolStripStatusLabel3 = New System.Windows.Forms.ToolStripStatusLabel() Me.ACMensualToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuReporteJ14 = New System.Windows.Forms.ToolStripMenuItem() Me.MenuStrip1.SuspendLayout() Me.StatusStripMain.SuspendLayout() Me.SuspendLayout() @@ -352,10 +354,16 @@ Partial Class mdiForm Me.mnuReporteJ13.Size = New System.Drawing.Size(286, 22) Me.mnuReporteJ13.Text = "Reporte J13" ' + 'mnuReporteJ14 + ' + Me.mnuReporteJ14.Name = "mnuReporteJ14" + Me.mnuReporteJ14.Size = New System.Drawing.Size(286, 22) + Me.mnuReporteJ14.Text = "Reporte J14" + ' 'ToolStripMenuItem2 ' Me.ToolStripMenuItem2.BackColor = System.Drawing.SystemColors.ButtonFace - Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ParametrosDeGrupoMenu, Me.TipoCambioMenu, Me.AsignacionDeGruposMenu, Me.RazonesMenu, Me.PatronesToolStripMenuItem, Me.mnuParamsgen}) + Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ParametrosDeGrupoMenu, Me.TipoCambioMenu, Me.AsignacionDeGruposMenu, Me.RazonesMenu, Me.PatronesToolStripMenuItem, Me.mnuParamsgen, Me.mnuParamsPerfilCta}) Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" Me.ToolStripMenuItem2.Size = New System.Drawing.Size(99, 20) @@ -365,28 +373,28 @@ Partial Class mdiForm 'ParametrosDeGrupoMenu ' Me.ParametrosDeGrupoMenu.Name = "ParametrosDeGrupoMenu" - Me.ParametrosDeGrupoMenu.Size = New System.Drawing.Size(200, 22) + Me.ParametrosDeGrupoMenu.Size = New System.Drawing.Size(290, 22) Me.ParametrosDeGrupoMenu.Tag = "13" Me.ParametrosDeGrupoMenu.Text = "Parámetros de Grupo" ' 'TipoCambioMenu ' Me.TipoCambioMenu.Name = "TipoCambioMenu" - Me.TipoCambioMenu.Size = New System.Drawing.Size(200, 22) + Me.TipoCambioMenu.Size = New System.Drawing.Size(290, 22) Me.TipoCambioMenu.Tag = "14" Me.TipoCambioMenu.Text = "Tipo Cambio" ' 'AsignacionDeGruposMenu ' Me.AsignacionDeGruposMenu.Name = "AsignacionDeGruposMenu" - Me.AsignacionDeGruposMenu.Size = New System.Drawing.Size(200, 22) + Me.AsignacionDeGruposMenu.Size = New System.Drawing.Size(290, 22) Me.AsignacionDeGruposMenu.Tag = "15" Me.AsignacionDeGruposMenu.Text = "Asignación de Grupos" ' 'RazonesMenu ' Me.RazonesMenu.Name = "RazonesMenu" - Me.RazonesMenu.Size = New System.Drawing.Size(200, 22) + Me.RazonesMenu.Size = New System.Drawing.Size(290, 22) Me.RazonesMenu.Tag = "16" Me.RazonesMenu.Text = "Razones" Me.RazonesMenu.Visible = False @@ -394,15 +402,21 @@ Partial Class mdiForm 'PatronesToolStripMenuItem ' Me.PatronesToolStripMenuItem.Name = "PatronesToolStripMenuItem" - Me.PatronesToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.PatronesToolStripMenuItem.Size = New System.Drawing.Size(290, 22) Me.PatronesToolStripMenuItem.Text = "Patrones" ' 'mnuParamsgen ' Me.mnuParamsgen.Name = "mnuParamsgen" - Me.mnuParamsgen.Size = New System.Drawing.Size(200, 22) + Me.mnuParamsgen.Size = New System.Drawing.Size(290, 22) Me.mnuParamsgen.Text = "Parámetros Generales" ' + 'mnuParamsPerfilCta + ' + Me.mnuParamsPerfilCta.Name = "mnuParamsPerfilCta" + Me.mnuParamsPerfilCta.Size = New System.Drawing.Size(290, 22) + Me.mnuParamsPerfilCta.Text = "Parámetros Reporte Perfil de la Cuenta" + ' 'ToolStripMenuItem4 ' Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OficialesMenuI, Me.ConfiguracionMenu, Me.InstitucionalesMenu, Me.MantenimientoToolStripMenuItem, Me.mnuPatrones}) @@ -542,7 +556,7 @@ Partial Class mdiForm ' 'MantenimientoToolStripMenuItem ' - Me.MantenimientoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuActividadVulnerable, Me.mnuConcepto, Me.mnuDestinoRecurso, Me.mnuFuenteIngreso, Me.mnuIdentificacion, Me.mnuInstrumento, Me.mnuTipoTransferencia, Me.mnuParentesco, Me.mnuProcedenciaRecurso, Me.mnuTipoCuenta, Me.mnuTipoDomicilio, Me.mnuEstructuraCorp, Me.mnuTipoPersona, Me.mnuFiguraLegal, Me.mnuSucursales, Me.mnuGrupoRiesgo, Me.mnuCASFIM, Me.mnuLocalidad2, Me.mnuSectoresEco, Me.mnuCuentasUSD, Me.mnuPropositoCuenta, Me.mnuRelacion, Me.mnuRazonesCuentaUSD, Me.mnuRazonesUsoUSDMexico, Me.mnuObjCta, Me.mnuParamsMR, Me.mnuNacionalidad, Me.mnuCiudadOperacion, Me.mnuRiesgoPPE, Me.mnuCatsEBR, Me.mnuEstatusCta}) + Me.MantenimientoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuActividadVulnerable, Me.mnuConcepto, Me.mnuDestinoRecurso, Me.mnuFuenteIngreso, Me.mnuIdentificacion, Me.mnuInstrumento, Me.mnuTipoTransferencia, Me.mnuParentesco, Me.mnuProcedenciaRecurso, Me.mnuTipoCuenta, Me.mnuTipoDomicilio, Me.mnuEstructuraCorp, Me.mnuTipoPersona, Me.mnuFiguraLegal, Me.mnuSucursales, Me.mnuGrupoRiesgo, Me.mnuCASFIM, Me.mnuLocalidad2, Me.mnuSectoresEco, Me.mnuCuentasUSD, Me.mnuPropositoCuenta, Me.mnuRelacion, Me.mnuRazonesCuentaUSD, Me.mnuRazonesUsoUSDMexico, Me.mnuObjCta, Me.mnuParamsMR, Me.mnuNacionalidad, Me.mnuCiudadOperacion, Me.mnuRiesgoPPE, Me.mnuCatsEBR, Me.mnuEstatusCta, Me.mnuPerfilCta}) Me.MantenimientoToolStripMenuItem.Name = "MantenimientoToolStripMenuItem" Me.MantenimientoToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.MantenimientoToolStripMenuItem.Text = "Mantenimiento" @@ -741,6 +755,12 @@ Partial Class mdiForm Me.mnuEstatusCta.Size = New System.Drawing.Size(225, 22) Me.mnuEstatusCta.Text = "Estatus de la Cuenta" ' + 'mnuPerfilCta + ' + Me.mnuPerfilCta.Name = "mnuPerfilCta" + Me.mnuPerfilCta.Size = New System.Drawing.Size(225, 22) + Me.mnuPerfilCta.Text = "Perfil de la Cuenta" + ' 'mnuPatrones ' Me.mnuPatrones.Name = "mnuPatrones" @@ -824,28 +844,28 @@ Partial Class mdiForm Me.ToolStripMenuItem5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PersonaslMenu, Me.ClientesToolStripMenuItem, Me.PaisesToolStripMenuItem, Me.mnuListaSPID}) Me.ToolStripMenuItem5.ForeColor = System.Drawing.Color.White Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(127, 20) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(97, 20) Me.ToolStripMenuItem5.Tag = "39" - Me.ToolStripMenuItem5.Text = "Listas Restringidas" + Me.ToolStripMenuItem5.Text = "Listas Negras" ' 'PersonaslMenu ' Me.PersonaslMenu.Name = "PersonaslMenu" - Me.PersonaslMenu.Size = New System.Drawing.Size(128, 22) + Me.PersonaslMenu.Size = New System.Drawing.Size(219, 22) Me.PersonaslMenu.Tag = "40" - Me.PersonaslMenu.Text = "Personas" + Me.PersonaslMenu.Text = "Búsqueda" ' 'ClientesToolStripMenuItem ' Me.ClientesToolStripMenuItem.Name = "ClientesToolStripMenuItem" - Me.ClientesToolStripMenuItem.Size = New System.Drawing.Size(128, 22) + Me.ClientesToolStripMenuItem.Size = New System.Drawing.Size(219, 22) Me.ClientesToolStripMenuItem.Tag = "41" - Me.ClientesToolStripMenuItem.Text = "Clientes" + Me.ClientesToolStripMenuItem.Text = "Coincidencias Detectadas" ' 'PaisesToolStripMenuItem ' Me.PaisesToolStripMenuItem.Name = "PaisesToolStripMenuItem" - Me.PaisesToolStripMenuItem.Size = New System.Drawing.Size(128, 22) + Me.PaisesToolStripMenuItem.Size = New System.Drawing.Size(219, 22) Me.PaisesToolStripMenuItem.Tag = "42" Me.PaisesToolStripMenuItem.Text = "Paises" Me.PaisesToolStripMenuItem.Visible = False @@ -853,7 +873,7 @@ Partial Class mdiForm 'mnuListaSPID ' Me.mnuListaSPID.Name = "mnuListaSPID" - Me.mnuListaSPID.Size = New System.Drawing.Size(128, 22) + Me.mnuListaSPID.Size = New System.Drawing.Size(219, 22) Me.mnuListaSPID.Text = "SPID" Me.mnuListaSPID.Visible = False ' @@ -943,12 +963,6 @@ Partial Class mdiForm Me.ACMensualToolStripMenuItem.Size = New System.Drawing.Size(207, 22) Me.ACMensualToolStripMenuItem.Text = "Acumulado Mensaul" ' - 'mnuReporteJ14 - ' - Me.mnuReporteJ14.Name = "mnuReporteJ14" - Me.mnuReporteJ14.Size = New System.Drawing.Size(286, 22) - Me.mnuReporteJ14.Text = "Reporte J14" - ' 'mdiForm ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -1095,4 +1109,6 @@ Partial Class mdiForm Friend WithEvents mnuEstatusCta As ToolStripMenuItem Friend WithEvents mnuReporteJ13 As ToolStripMenuItem Friend WithEvents mnuReporteJ14 As ToolStripMenuItem + Friend WithEvents mnuPerfilCta As ToolStripMenuItem + Friend WithEvents mnuParamsPerfilCta As ToolStripMenuItem End Class diff --git a/MainForm.vb b/MainForm.vb index 2307646..33188d9 100644 --- a/MainForm.vb +++ b/MainForm.vb @@ -28,6 +28,7 @@ Public Class mdiForm Private Sub mdiForm_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Dim ClassAud As New ClassMyUtils + ClassAud.DesactivarControlAcceso(clsVaribles.varUsuario) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 6, 1, "Salida de Minds Cliente") SalirdeMinds() @@ -235,10 +236,6 @@ Public Class mdiForm Next - 'mnuNacionalidad.Enabled = True - 'mnuCiudadOperacion.Enabled = True - 'mnuRiesgoPPE.Enabled = True - 'mnuEstatusCta.Enabled = True End Sub @@ -1850,6 +1847,22 @@ Public Class mdiForm frm.MdiParent = Me frm.Show() End Sub + + Private Sub mnuPerfilCta_Click(sender As Object, e As EventArgs) Handles mnuPerfilCta.Click + If estaAbieta("frmPerfilCta") Then Exit Sub + Dim frm As New frmPerfilCta + frm.MdiParent = Me + frm.Show() + + End Sub + + Private Sub mnuParamsPerfilCta_Click(sender As Object, e As EventArgs) Handles mnuParamsPerfilCta.Click + + If estaAbieta("frmParamsPerfilCta") Then Exit Sub + Dim frm As New frmParamsPerfilCta + frm.MdiParent = Me + frm.Show() + End Sub End Class diff --git a/Minds Cliente.vbproj b/Minds Cliente.vbproj index 5d5513e..36f06c6 100644 --- a/Minds Cliente.vbproj +++ b/Minds Cliente.vbproj @@ -142,6 +142,10 @@ AxInterop.MSFlexGridLib obj\AxInterop.MSFlexGridLib.dll + + False + bin\BouncyCastle.Crypto.dll + False bin\C1.Common.dll @@ -171,6 +175,10 @@ False ..\..\..\..\dlls Office\Interop.Microsoft.Office.Interop.Excel.dll + + False + bin\itextsharp.dll + ..\Minds Cliente.fcc\bin\Debug\Minds Cliente.fcc.dll @@ -396,6 +404,12 @@ Form + + frmPerfilCta.vb + + + Form + frmRazonesUSDMX.vb @@ -644,6 +658,12 @@ Form + + frmParamsPerfilCta.vb + + + Form + frmRiesgoPPE.vb @@ -1391,6 +1411,9 @@ FrmEmailFTP.vb + + frmPerfilCta.vb + frmRazonesUSDMX.vb @@ -1484,6 +1507,9 @@ frmEstatusCuenta.vb + + frmParamsPerfilCta.vb + frmRiesgoPPE.vb diff --git a/Reportes/ReporteOperPreo.vb b/Reportes/ReporteOperPreo.vb index 77a4c00..184ba46 100644 --- a/Reportes/ReporteOperPreo.vb +++ b/Reportes/ReporteOperPreo.vb @@ -782,8 +782,8 @@ Public Class ReporteOperPreo listaParametros.Add("NULL") End If - listaParametros.Add("'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "'") - listaParametros.Add("'" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "'") + listaParametros.Add("'" & dtpFechaInicial.Value.ToString("yyyy-MM-dd") & "'") + listaParametros.Add("'" & dtpFechaFinal.Value.ToString("yyyy-MM-dd") & "'") listaParametros.Add("3") diff --git a/Reportes/frmEBR.Designer.vb b/Reportes/frmEBR.Designer.vb index 29547bc..1c7be89 100644 --- a/Reportes/frmEBR.Designer.vb +++ b/Reportes/frmEBR.Designer.vb @@ -22,31 +22,31 @@ Partial Class frmEBR 'Do not modify it using the code editor. Private Sub InitializeComponent() - Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim ChartArea2 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend2 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series2 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim ChartArea3 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend3 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series3 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim ChartArea4 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend4 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim ChartArea5 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend5 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series5 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim ChartArea6 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend6 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series6 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim ChartArea7 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend7 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series7 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea25 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend25 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series25 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea26 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend26 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series26 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea27 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend27 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series27 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea28 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend28 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series28 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea29 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend29 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series29 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea30 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend30 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series30 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea31 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend31 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series31 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEBR)) - Dim ChartArea8 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim Legend8 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() - Dim Series8 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() + Dim ChartArea32 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() + Dim Legend32 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() + Dim Series32 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() Me.BtnConsul = New System.Windows.Forms.Button() Me.gbCalificaciones = New System.Windows.Forms.GroupBox() Me.Label82 = New System.Windows.Forms.Label() @@ -205,16 +205,18 @@ Partial Class frmEBR Me.Label84 = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.Label99 = New System.Windows.Forms.Label() - Me.Label98 = New System.Windows.Forms.Label() - Me.Label94 = New System.Windows.Forms.Label() + Me.GroupBox69 = New System.Windows.Forms.GroupBox() Me.Label95 = New System.Windows.Forms.Label() + Me.Label94 = New System.Windows.Forms.Label() + Me.Label99 = New System.Windows.Forms.Label() + Me.GroupBox68 = New System.Windows.Forms.GroupBox() + Me.Label58 = New System.Windows.Forms.Label() + Me.Label57 = New System.Windows.Forms.Label() + Me.Label98 = New System.Windows.Forms.Label() Me.GroupBox15 = New System.Windows.Forms.GroupBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.TextBox7 = New System.Windows.Forms.TextBox() Me.Label62 = New System.Windows.Forms.Label() - Me.Label57 = New System.Windows.Forms.Label() - Me.Label58 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.ComboBox6 = New System.Windows.Forms.ComboBox() @@ -309,7 +311,10 @@ Partial Class frmEBR Me.Chart7 = New System.Windows.Forms.DataVisualization.Charting.Chart() Me.Label53 = New System.Windows.Forms.Label() Me.gbCalificaciones.SuspendLayout() + Me.GroupBox20.SuspendLayout() + Me.GroupBox17.SuspendLayout() Me.GroupBox18.SuspendLayout() + Me.GroupBox19.SuspendLayout() Me.GroupBox21.SuspendLayout() Me.GroupBox22.SuspendLayout() Me.GroupBox16.SuspendLayout() @@ -372,6 +377,8 @@ Partial Class frmEBR CType(Me.Chart8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() + Me.GroupBox69.SuspendLayout() + Me.GroupBox68.SuspendLayout() Me.GroupBox15.SuspendLayout() Me.GroupBox13.SuspendLayout() Me.GroupBox12.SuspendLayout() @@ -431,9 +438,6 @@ Partial Class frmEBR Me.gbCalificaciones.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.gbCalificaciones.BackColor = System.Drawing.Color.White - Me.gbCalificaciones.Controls.Add(Me.Label82) - Me.gbCalificaciones.Controls.Add(Me.Label4) - Me.gbCalificaciones.Controls.Add(Me.Label2) Me.gbCalificaciones.Controls.Add(Me.Button2) Me.gbCalificaciones.Controls.Add(Me.BtnConsul) Me.gbCalificaciones.Controls.Add(Me.Riesgo2) @@ -489,7 +493,7 @@ Partial Class frmEBR Me.gbCalificaciones.Controls.Add(Me.GroupBox63) Me.gbCalificaciones.Location = New System.Drawing.Point(6, 278) Me.gbCalificaciones.Name = "gbCalificaciones" - Me.gbCalificaciones.Size = New System.Drawing.Size(637, 429) + Me.gbCalificaciones.Size = New System.Drawing.Size(603, 429) Me.gbCalificaciones.TabIndex = 1 Me.gbCalificaciones.TabStop = False ' @@ -498,7 +502,7 @@ Partial Class frmEBR Me.Label82.AutoSize = True Me.Label82.Font = New System.Drawing.Font("Century Gothic", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label82.ForeColor = System.Drawing.Color.Black - Me.Label82.Location = New System.Drawing.Point(429, 114) + Me.Label82.Location = New System.Drawing.Point(26, 12) Me.Label82.Name = "Label82" Me.Label82.Size = New System.Drawing.Size(43, 16) Me.Label82.TabIndex = 418 @@ -509,7 +513,7 @@ Partial Class frmEBR Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Century Gothic", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.ForeColor = System.Drawing.Color.Black - Me.Label4.Location = New System.Drawing.Point(304, 114) + Me.Label4.Location = New System.Drawing.Point(22, 12) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(90, 16) Me.Label4.TabIndex = 415 @@ -520,7 +524,7 @@ Partial Class frmEBR Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Century Gothic", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.ForeColor = System.Drawing.Color.Black - Me.Label2.Location = New System.Drawing.Point(5, 114) + Me.Label2.Location = New System.Drawing.Point(2, 12) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(30, 16) Me.Label2.TabIndex = 413 @@ -551,10 +555,11 @@ Partial Class frmEBR ' 'GroupBox20 ' + Me.GroupBox20.Controls.Add(Me.Label82) Me.GroupBox20.ForeColor = System.Drawing.Color.Black - Me.GroupBox20.Location = New System.Drawing.Point(405, 102) + Me.GroupBox20.Location = New System.Drawing.Point(409, 102) Me.GroupBox20.Name = "GroupBox20" - Me.GroupBox20.Size = New System.Drawing.Size(97, 35) + Me.GroupBox20.Size = New System.Drawing.Size(93, 35) Me.GroupBox20.TabIndex = 410 Me.GroupBox20.TabStop = False ' @@ -582,8 +587,9 @@ Partial Class frmEBR ' 'GroupBox17 ' + Me.GroupBox17.Controls.Add(Me.Label2) Me.GroupBox17.ForeColor = System.Drawing.Color.Black - Me.GroupBox17.Location = New System.Drawing.Point(4, 102) + Me.GroupBox17.Location = New System.Drawing.Point(5, 102) Me.GroupBox17.Name = "GroupBox17" Me.GroupBox17.Size = New System.Drawing.Size(33, 35) Me.GroupBox17.TabIndex = 407 @@ -611,6 +617,7 @@ Partial Class frmEBR ' 'GroupBox19 ' + Me.GroupBox19.Controls.Add(Me.Label4) Me.GroupBox19.ForeColor = System.Drawing.Color.Black Me.GroupBox19.Location = New System.Drawing.Point(287, 102) Me.GroupBox19.Name = "GroupBox19" @@ -801,7 +808,7 @@ Partial Class frmEBR ' Me.GroupBox29.Controls.Add(Me.Label7) Me.GroupBox29.ForeColor = System.Drawing.Color.Black - Me.GroupBox29.Location = New System.Drawing.Point(4, 130) + Me.GroupBox29.Location = New System.Drawing.Point(5, 130) Me.GroupBox29.Name = "GroupBox29" Me.GroupBox29.Size = New System.Drawing.Size(33, 35) Me.GroupBox29.TabIndex = 426 @@ -821,7 +828,7 @@ Partial Class frmEBR ' Me.GroupBox30.Controls.Add(Me.Label11) Me.GroupBox30.ForeColor = System.Drawing.Color.Black - Me.GroupBox30.Location = New System.Drawing.Point(4, 158) + Me.GroupBox30.Location = New System.Drawing.Point(5, 158) Me.GroupBox30.Name = "GroupBox30" Me.GroupBox30.Size = New System.Drawing.Size(33, 35) Me.GroupBox30.TabIndex = 427 @@ -841,7 +848,7 @@ Partial Class frmEBR ' Me.GroupBox31.Controls.Add(Me.Label8) Me.GroupBox31.ForeColor = System.Drawing.Color.Black - Me.GroupBox31.Location = New System.Drawing.Point(4, 185) + Me.GroupBox31.Location = New System.Drawing.Point(5, 185) Me.GroupBox31.Name = "GroupBox31" Me.GroupBox31.Size = New System.Drawing.Size(33, 35) Me.GroupBox31.TabIndex = 428 @@ -861,7 +868,7 @@ Partial Class frmEBR ' Me.GroupBox32.Controls.Add(Me.Label83) Me.GroupBox32.ForeColor = System.Drawing.Color.Black - Me.GroupBox32.Location = New System.Drawing.Point(4, 211) + Me.GroupBox32.Location = New System.Drawing.Point(5, 211) Me.GroupBox32.Name = "GroupBox32" Me.GroupBox32.Size = New System.Drawing.Size(33, 61) Me.GroupBox32.TabIndex = 429 @@ -881,7 +888,7 @@ Partial Class frmEBR ' Me.GroupBox35.Controls.Add(Me.Label10) Me.GroupBox35.ForeColor = System.Drawing.Color.Black - Me.GroupBox35.Location = New System.Drawing.Point(4, 264) + Me.GroupBox35.Location = New System.Drawing.Point(5, 264) Me.GroupBox35.Name = "GroupBox35" Me.GroupBox35.Size = New System.Drawing.Size(33, 35) Me.GroupBox35.TabIndex = 430 @@ -901,7 +908,7 @@ Partial Class frmEBR ' Me.GroupBox34.Controls.Add(Me.Label19) Me.GroupBox34.ForeColor = System.Drawing.Color.Black - Me.GroupBox34.Location = New System.Drawing.Point(4, 292) + Me.GroupBox34.Location = New System.Drawing.Point(5, 292) Me.GroupBox34.Name = "GroupBox34" Me.GroupBox34.Size = New System.Drawing.Size(33, 35) Me.GroupBox34.TabIndex = 431 @@ -921,7 +928,7 @@ Partial Class frmEBR ' Me.GroupBox33.Controls.Add(Me.Label20) Me.GroupBox33.ForeColor = System.Drawing.Color.Black - Me.GroupBox33.Location = New System.Drawing.Point(4, 320) + Me.GroupBox33.Location = New System.Drawing.Point(5, 320) Me.GroupBox33.Name = "GroupBox33" Me.GroupBox33.Size = New System.Drawing.Size(33, 35) Me.GroupBox33.TabIndex = 432 @@ -941,7 +948,7 @@ Partial Class frmEBR ' Me.GroupBox36.Controls.Add(Me.Label21) Me.GroupBox36.ForeColor = System.Drawing.Color.Black - Me.GroupBox36.Location = New System.Drawing.Point(283, 130) + Me.GroupBox36.Location = New System.Drawing.Point(287, 130) Me.GroupBox36.Name = "GroupBox36" Me.GroupBox36.Size = New System.Drawing.Size(123, 35) Me.GroupBox36.TabIndex = 433 @@ -962,7 +969,7 @@ Partial Class frmEBR ' Me.GroupBox37.Controls.Add(Me.Label22) Me.GroupBox37.ForeColor = System.Drawing.Color.Black - Me.GroupBox37.Location = New System.Drawing.Point(283, 158) + Me.GroupBox37.Location = New System.Drawing.Point(287, 158) Me.GroupBox37.Name = "GroupBox37" Me.GroupBox37.Size = New System.Drawing.Size(123, 35) Me.GroupBox37.TabIndex = 434 @@ -983,7 +990,7 @@ Partial Class frmEBR ' Me.GroupBox38.Controls.Add(Me.Label23) Me.GroupBox38.ForeColor = System.Drawing.Color.Black - Me.GroupBox38.Location = New System.Drawing.Point(283, 185) + Me.GroupBox38.Location = New System.Drawing.Point(287, 185) Me.GroupBox38.Name = "GroupBox38" Me.GroupBox38.Size = New System.Drawing.Size(123, 35) Me.GroupBox38.TabIndex = 435 @@ -1004,7 +1011,7 @@ Partial Class frmEBR ' Me.GroupBox39.Controls.Add(Me.Label24) Me.GroupBox39.ForeColor = System.Drawing.Color.Black - Me.GroupBox39.Location = New System.Drawing.Point(283, 212) + Me.GroupBox39.Location = New System.Drawing.Point(287, 212) Me.GroupBox39.Name = "GroupBox39" Me.GroupBox39.Size = New System.Drawing.Size(123, 60) Me.GroupBox39.TabIndex = 436 @@ -1025,7 +1032,7 @@ Partial Class frmEBR ' Me.GroupBox41.Controls.Add(Me.Label25) Me.GroupBox41.ForeColor = System.Drawing.Color.Black - Me.GroupBox41.Location = New System.Drawing.Point(283, 264) + Me.GroupBox41.Location = New System.Drawing.Point(287, 264) Me.GroupBox41.Name = "GroupBox41" Me.GroupBox41.Size = New System.Drawing.Size(123, 35) Me.GroupBox41.TabIndex = 438 @@ -1046,7 +1053,7 @@ Partial Class frmEBR ' Me.GroupBox42.Controls.Add(Me.Label26) Me.GroupBox42.ForeColor = System.Drawing.Color.Black - Me.GroupBox42.Location = New System.Drawing.Point(283, 292) + Me.GroupBox42.Location = New System.Drawing.Point(287, 292) Me.GroupBox42.Name = "GroupBox42" Me.GroupBox42.Size = New System.Drawing.Size(123, 35) Me.GroupBox42.TabIndex = 439 @@ -1067,9 +1074,9 @@ Partial Class frmEBR ' Me.GroupBox43.Controls.Add(Me.Label27) Me.GroupBox43.ForeColor = System.Drawing.Color.Black - Me.GroupBox43.Location = New System.Drawing.Point(283, 319) + Me.GroupBox43.Location = New System.Drawing.Point(287, 319) Me.GroupBox43.Name = "GroupBox43" - Me.GroupBox43.Size = New System.Drawing.Size(123, 35) + Me.GroupBox43.Size = New System.Drawing.Size(123, 36) Me.GroupBox43.TabIndex = 440 Me.GroupBox43.TabStop = False ' @@ -1103,6 +1110,7 @@ Partial Class frmEBR Me.v1.Size = New System.Drawing.Size(15, 17) Me.v1.TabIndex = 392 Me.v1.Text = "_" + Me.v1.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox44 ' @@ -1123,6 +1131,7 @@ Partial Class frmEBR Me.v2.Size = New System.Drawing.Size(15, 17) Me.v2.TabIndex = 392 Me.v2.Text = "_" + Me.v2.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox45 ' @@ -1143,6 +1152,7 @@ Partial Class frmEBR Me.v3.Size = New System.Drawing.Size(15, 17) Me.v3.TabIndex = 392 Me.v3.Text = "_" + Me.v3.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox46 ' @@ -1163,6 +1173,7 @@ Partial Class frmEBR Me.v4.Size = New System.Drawing.Size(15, 17) Me.v4.TabIndex = 392 Me.v4.Text = "_" + Me.v4.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox47 ' @@ -1183,6 +1194,7 @@ Partial Class frmEBR Me.v5.Size = New System.Drawing.Size(15, 17) Me.v5.TabIndex = 392 Me.v5.Text = "_" + Me.v5.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox48 ' @@ -1203,6 +1215,7 @@ Partial Class frmEBR Me.v6.Size = New System.Drawing.Size(15, 17) Me.v6.TabIndex = 392 Me.v6.Text = "_" + Me.v6.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox49 ' @@ -1223,6 +1236,7 @@ Partial Class frmEBR Me.v7.Size = New System.Drawing.Size(15, 17) Me.v7.TabIndex = 392 Me.v7.Text = "1" + Me.v7.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'GroupBox50 ' @@ -1360,9 +1374,9 @@ Partial Class frmEBR Me.p7.Font = New System.Drawing.Font("Century Gothic", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.p7.Location = New System.Drawing.Point(29, 9) Me.p7.Name = "p7" - Me.p7.Size = New System.Drawing.Size(19, 17) + Me.p7.Size = New System.Drawing.Size(26, 17) Me.p7.TabIndex = 397 - Me.p7.Text = ".1" + Me.p7.Text = "0.1" ' 'GroupBox57 ' @@ -1525,7 +1539,7 @@ Partial Class frmEBR Me.GroupBox1.Controls.Add(Me.Label29) Me.GroupBox1.Location = New System.Drawing.Point(6, 714) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(637, 250) + Me.GroupBox1.Size = New System.Drawing.Size(603, 250) Me.GroupBox1.TabIndex = 390 Me.GroupBox1.TabStop = False ' @@ -1534,7 +1548,7 @@ Partial Class frmEBR Me.Label96.AutoSize = True Me.Label96.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label96.ForeColor = System.Drawing.Color.Black - Me.Label96.Location = New System.Drawing.Point(18, 109) + Me.Label96.Location = New System.Drawing.Point(12, 126) Me.Label96.Name = "Label96" Me.Label96.Size = New System.Drawing.Size(54, 17) Me.Label96.TabIndex = 394 @@ -1545,7 +1559,7 @@ Partial Class frmEBR Me.Label35.AutoSize = True Me.Label35.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label35.ForeColor = System.Drawing.Color.Black - Me.Label35.Location = New System.Drawing.Point(17, 92) + Me.Label35.Location = New System.Drawing.Point(12, 109) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(54, 17) Me.Label35.TabIndex = 393 @@ -1556,7 +1570,7 @@ Partial Class frmEBR Me.Label34.AutoSize = True Me.Label34.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label34.ForeColor = System.Drawing.Color.Black - Me.Label34.Location = New System.Drawing.Point(17, 75) + Me.Label34.Location = New System.Drawing.Point(12, 92) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(54, 17) Me.Label34.TabIndex = 392 @@ -1567,7 +1581,7 @@ Partial Class frmEBR Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label28.ForeColor = System.Drawing.Color.Black - Me.Label28.Location = New System.Drawing.Point(17, 58) + Me.Label28.Location = New System.Drawing.Point(12, 75) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(54, 17) Me.Label28.TabIndex = 391 @@ -1577,7 +1591,7 @@ Partial Class frmEBR ' Me.rg1.AutoSize = True Me.rg1.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.rg1.Location = New System.Drawing.Point(498, 193) + Me.rg1.Location = New System.Drawing.Point(738, 190) Me.rg1.Name = "rg1" Me.rg1.Size = New System.Drawing.Size(109, 32) Me.rg1.TabIndex = 390 @@ -1585,18 +1599,18 @@ Partial Class frmEBR ' 'Chart1 ' - ChartArea1.Name = "ChartArea1" - Me.Chart1.ChartAreas.Add(ChartArea1) - Legend1.Name = "Legend1" - Me.Chart1.Legends.Add(Legend1) - Me.Chart1.Location = New System.Drawing.Point(21, 57) + ChartArea25.Name = "ChartArea1" + Me.Chart1.ChartAreas.Add(ChartArea25) + Legend25.Name = "Legend1" + Me.Chart1.Legends.Add(Legend25) + Me.Chart1.Location = New System.Drawing.Point(198, 57) Me.Chart1.Name = "Chart1" - Series1.ChartArea = "ChartArea1" - Series1.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut - Series1.Legend = "Legend1" - Series1.Name = "Series1" - Me.Chart1.Series.Add(Series1) - Me.Chart1.Size = New System.Drawing.Size(646, 187) + Series25.ChartArea = "ChartArea1" + Series25.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series25.Legend = "Legend1" + Series25.Name = "Series1" + Me.Chart1.Series.Add(Series25) + Me.Chart1.Size = New System.Drawing.Size(520, 187) Me.Chart1.TabIndex = 364 Me.Chart1.Text = "Chart1" ' @@ -1605,7 +1619,7 @@ Partial Class frmEBR Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Century Gothic", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label29.ForeColor = System.Drawing.Color.Black - Me.Label29.Location = New System.Drawing.Point(14, 16) + Me.Label29.Location = New System.Drawing.Point(11, 16) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(304, 38) Me.Label29.TabIndex = 363 @@ -1625,7 +1639,7 @@ Partial Class frmEBR Me.GroupBox2.Controls.Add(Me.Label30) Me.GroupBox2.Location = New System.Drawing.Point(6, 974) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(637, 250) + Me.GroupBox2.Size = New System.Drawing.Size(603, 250) Me.GroupBox2.TabIndex = 391 Me.GroupBox2.TabStop = False ' @@ -1634,7 +1648,7 @@ Partial Class frmEBR Me.Label97.AutoSize = True Me.Label97.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label97.ForeColor = System.Drawing.Color.Black - Me.Label97.Location = New System.Drawing.Point(18, 108) + Me.Label97.Location = New System.Drawing.Point(18, 127) Me.Label97.Name = "Label97" Me.Label97.Size = New System.Drawing.Size(54, 17) Me.Label97.TabIndex = 395 @@ -1645,7 +1659,7 @@ Partial Class frmEBR Me.Label38.AutoSize = True Me.Label38.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label38.ForeColor = System.Drawing.Color.Black - Me.Label38.Location = New System.Drawing.Point(17, 91) + Me.Label38.Location = New System.Drawing.Point(17, 110) Me.Label38.Name = "Label38" Me.Label38.Size = New System.Drawing.Size(54, 17) Me.Label38.TabIndex = 394 @@ -1656,7 +1670,7 @@ Partial Class frmEBR Me.Label37.AutoSize = True Me.Label37.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label37.ForeColor = System.Drawing.Color.Black - Me.Label37.Location = New System.Drawing.Point(17, 74) + Me.Label37.Location = New System.Drawing.Point(17, 93) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(54, 17) Me.Label37.TabIndex = 393 @@ -1667,7 +1681,7 @@ Partial Class frmEBR Me.Label31.AutoSize = True Me.Label31.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label31.ForeColor = System.Drawing.Color.Black - Me.Label31.Location = New System.Drawing.Point(17, 57) + Me.Label31.Location = New System.Drawing.Point(17, 76) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(54, 17) Me.Label31.TabIndex = 392 @@ -1678,7 +1692,7 @@ Partial Class frmEBR Me.rg2.AutoSize = True Me.rg2.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rg2.ForeColor = System.Drawing.Color.Black - Me.rg2.Location = New System.Drawing.Point(498, 179) + Me.rg2.Location = New System.Drawing.Point(746, 185) Me.rg2.Name = "rg2" Me.rg2.Size = New System.Drawing.Size(109, 32) Me.rg2.TabIndex = 391 @@ -1686,18 +1700,19 @@ Partial Class frmEBR ' 'Chart2 ' - ChartArea2.Name = "ChartArea1" - Me.Chart2.ChartAreas.Add(ChartArea2) - Legend2.Name = "Legend1" - Me.Chart2.Legends.Add(Legend2) - Me.Chart2.Location = New System.Drawing.Point(21, 57) + ChartArea26.Name = "ChartArea1" + Me.Chart2.ChartAreas.Add(ChartArea26) + Legend26.Name = "Legend1" + Me.Chart2.Legends.Add(Legend26) + Me.Chart2.Location = New System.Drawing.Point(198, 57) Me.Chart2.Name = "Chart2" Me.Chart2.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Berry - Series2.ChartArea = "ChartArea1" - Series2.Legend = "Legend1" - Series2.Name = "Series1" - Me.Chart2.Series.Add(Series2) - Me.Chart2.Size = New System.Drawing.Size(646, 187) + Series26.ChartArea = "ChartArea1" + Series26.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series26.Legend = "Legend1" + Series26.Name = "Series1" + Me.Chart2.Series.Add(Series26) + Me.Chart2.Size = New System.Drawing.Size(542, 187) Me.Chart2.TabIndex = 364 Me.Chart2.Text = "Chart2" ' @@ -1724,7 +1739,7 @@ Partial Class frmEBR Me.GroupBox3.Controls.Add(Me.Label39) Me.GroupBox3.Location = New System.Drawing.Point(6, 1230) Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(637, 250) + Me.GroupBox3.Size = New System.Drawing.Size(603, 250) Me.GroupBox3.TabIndex = 392 Me.GroupBox3.TabStop = False ' @@ -1733,7 +1748,7 @@ Partial Class frmEBR Me.Label100.AutoSize = True Me.Label100.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label100.ForeColor = System.Drawing.Color.Black - Me.Label100.Location = New System.Drawing.Point(18, 74) + Me.Label100.Location = New System.Drawing.Point(19, 97) Me.Label100.Name = "Label100" Me.Label100.Size = New System.Drawing.Size(54, 17) Me.Label100.TabIndex = 395 @@ -1744,7 +1759,7 @@ Partial Class frmEBR Me.Label40.AutoSize = True Me.Label40.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label40.ForeColor = System.Drawing.Color.Black - Me.Label40.Location = New System.Drawing.Point(17, 57) + Me.Label40.Location = New System.Drawing.Point(19, 80) Me.Label40.Name = "Label40" Me.Label40.Size = New System.Drawing.Size(54, 17) Me.Label40.TabIndex = 394 @@ -1755,7 +1770,7 @@ Partial Class frmEBR Me.rg3.AutoSize = True Me.rg3.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rg3.ForeColor = System.Drawing.Color.Black - Me.rg3.Location = New System.Drawing.Point(498, 194) + Me.rg3.Location = New System.Drawing.Point(744, 172) Me.rg3.Name = "rg3" Me.rg3.Size = New System.Drawing.Size(109, 32) Me.rg3.TabIndex = 391 @@ -1763,19 +1778,19 @@ Partial Class frmEBR ' 'Chart3 ' - ChartArea3.Name = "ChartArea1" - Me.Chart3.ChartAreas.Add(ChartArea3) - Legend3.Name = "Legend1" - Me.Chart3.Legends.Add(Legend3) - Me.Chart3.Location = New System.Drawing.Point(21, 57) + ChartArea27.Name = "ChartArea1" + Me.Chart3.ChartAreas.Add(ChartArea27) + Legend27.Name = "Legend1" + Me.Chart3.Legends.Add(Legend27) + Me.Chart3.Location = New System.Drawing.Point(198, 33) Me.Chart3.Name = "Chart3" Me.Chart3.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.SeaGreen - Series3.ChartArea = "ChartArea1" - Series3.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut - Series3.Legend = "Legend1" - Series3.Name = "Series1" - Me.Chart3.Series.Add(Series3) - Me.Chart3.Size = New System.Drawing.Size(646, 187) + Series27.ChartArea = "ChartArea1" + Series27.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series27.Legend = "Legend1" + Series27.Name = "Series1" + Me.Chart3.Series.Add(Series27) + Me.Chart3.Size = New System.Drawing.Size(546, 187) Me.Chart3.TabIndex = 364 Me.Chart3.Text = "Chart3" ' @@ -1805,7 +1820,7 @@ Partial Class frmEBR Me.GroupBox4.Controls.Add(Me.Label42) Me.GroupBox4.Location = New System.Drawing.Point(6, 1486) Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(637, 250) + Me.GroupBox4.Size = New System.Drawing.Size(603, 250) Me.GroupBox4.TabIndex = 393 Me.GroupBox4.TabStop = False ' @@ -1869,7 +1884,7 @@ Partial Class frmEBR Me.rg4.AutoSize = True Me.rg4.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rg4.ForeColor = System.Drawing.Color.Black - Me.rg4.Location = New System.Drawing.Point(498, 194) + Me.rg4.Location = New System.Drawing.Point(746, 189) Me.rg4.Name = "rg4" Me.rg4.Size = New System.Drawing.Size(109, 32) Me.rg4.TabIndex = 391 @@ -1877,19 +1892,19 @@ Partial Class frmEBR ' 'Chart4 ' - ChartArea4.Name = "ChartArea1" - Me.Chart4.ChartAreas.Add(ChartArea4) - Legend4.Name = "Legend1" - Me.Chart4.Legends.Add(Legend4) - Me.Chart4.Location = New System.Drawing.Point(21, 57) + ChartArea28.Name = "ChartArea1" + Me.Chart4.ChartAreas.Add(ChartArea28) + Legend28.Name = "Legend1" + Me.Chart4.Legends.Add(Legend28) + Me.Chart4.Location = New System.Drawing.Point(198, 57) Me.Chart4.Name = "Chart4" Me.Chart4.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Excel - Series4.ChartArea = "ChartArea1" - Series4.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut - Series4.Legend = "Legend1" - Series4.Name = "Series1" - Me.Chart4.Series.Add(Series4) - Me.Chart4.Size = New System.Drawing.Size(646, 187) + Series28.ChartArea = "ChartArea1" + Series28.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series28.Legend = "Legend1" + Series28.Name = "Series1" + Me.Chart4.Series.Add(Series28) + Me.Chart4.Size = New System.Drawing.Size(542, 187) Me.Chart4.TabIndex = 364 Me.Chart4.Text = "Chart4" ' @@ -1919,7 +1934,7 @@ Partial Class frmEBR Me.GroupBox5.Controls.Add(Me.Label46) Me.GroupBox5.Location = New System.Drawing.Point(6, 1742) Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.Size = New System.Drawing.Size(637, 250) + Me.GroupBox5.Size = New System.Drawing.Size(603, 250) Me.GroupBox5.TabIndex = 394 Me.GroupBox5.TabStop = False ' @@ -1987,7 +2002,7 @@ Partial Class frmEBR Me.rg5.AutoSize = True Me.rg5.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rg5.ForeColor = System.Drawing.Color.Black - Me.rg5.Location = New System.Drawing.Point(498, 191) + Me.rg5.Location = New System.Drawing.Point(738, 191) Me.rg5.Name = "rg5" Me.rg5.Size = New System.Drawing.Size(109, 32) Me.rg5.TabIndex = 392 @@ -1995,19 +2010,19 @@ Partial Class frmEBR ' 'Chart5 ' - ChartArea5.Name = "ChartArea1" - Me.Chart5.ChartAreas.Add(ChartArea5) - Legend5.Name = "Legend1" - Me.Chart5.Legends.Add(Legend5) - Me.Chart5.Location = New System.Drawing.Point(21, 57) + ChartArea29.Name = "ChartArea1" + Me.Chart5.ChartAreas.Add(ChartArea29) + Legend29.Name = "Legend1" + Me.Chart5.Legends.Add(Legend29) + Me.Chart5.Location = New System.Drawing.Point(211, 57) Me.Chart5.Name = "Chart5" Me.Chart5.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Fire - Series5.ChartArea = "ChartArea1" - Series5.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut - Series5.Legend = "Legend1" - Series5.Name = "Series1" - Me.Chart5.Series.Add(Series5) - Me.Chart5.Size = New System.Drawing.Size(646, 187) + Series29.ChartArea = "ChartArea1" + Series29.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series29.Legend = "Legend1" + Series29.Name = "Series1" + Me.Chart5.Series.Add(Series29) + Me.Chart5.Size = New System.Drawing.Size(531, 187) Me.Chart5.TabIndex = 364 Me.Chart5.Text = "Chart5" ' @@ -2034,7 +2049,7 @@ Partial Class frmEBR Me.GroupBox6.Controls.Add(Me.Label50) Me.GroupBox6.Location = New System.Drawing.Point(6, 1998) Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Size = New System.Drawing.Size(637, 261) + Me.GroupBox6.Size = New System.Drawing.Size(603, 261) Me.GroupBox6.TabIndex = 395 Me.GroupBox6.TabStop = False ' @@ -2067,7 +2082,7 @@ Partial Class frmEBR Me.rg6.AutoSize = True Me.rg6.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.rg6.ForeColor = System.Drawing.Color.Black - Me.rg6.Location = New System.Drawing.Point(498, 193) + Me.rg6.Location = New System.Drawing.Point(754, 179) Me.rg6.Name = "rg6" Me.rg6.Size = New System.Drawing.Size(109, 32) Me.rg6.TabIndex = 392 @@ -2075,19 +2090,19 @@ Partial Class frmEBR ' 'Chart6 ' - ChartArea6.Name = "ChartArea1" - Me.Chart6.ChartAreas.Add(ChartArea6) - Legend6.Name = "Legend1" - Me.Chart6.Legends.Add(Legend6) - Me.Chart6.Location = New System.Drawing.Point(21, 57) + ChartArea30.Name = "ChartArea1" + Me.Chart6.ChartAreas.Add(ChartArea30) + Legend30.Name = "Legend1" + Me.Chart6.Legends.Add(Legend30) + Me.Chart6.Location = New System.Drawing.Point(198, 57) Me.Chart6.Name = "Chart6" Me.Chart6.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Bright - Series6.ChartArea = "ChartArea1" - Series6.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut - Series6.Legend = "Legend1" - Series6.Name = "Series1" - Me.Chart6.Series.Add(Series6) - Me.Chart6.Size = New System.Drawing.Size(646, 187) + Series30.ChartArea = "ChartArea1" + Series30.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series30.Legend = "Legend1" + Series30.Name = "Series1" + Me.Chart6.Series.Add(Series30) + Me.Chart6.Size = New System.Drawing.Size(558, 187) Me.Chart6.TabIndex = 364 Me.Chart6.Text = "Chart6" ' @@ -2163,7 +2178,7 @@ Partial Class frmEBR Me.GroupBox64.Controls.Add(Me.Label84) Me.GroupBox64.Location = New System.Drawing.Point(6, 2265) Me.GroupBox64.Name = "GroupBox64" - Me.GroupBox64.Size = New System.Drawing.Size(637, 261) + Me.GroupBox64.Size = New System.Drawing.Size(603, 261) Me.GroupBox64.TabIndex = 399 Me.GroupBox64.TabStop = False ' @@ -2183,7 +2198,7 @@ Partial Class frmEBR Me.Label77.AutoSize = True Me.Label77.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label77.ForeColor = System.Drawing.Color.Black - Me.Label77.Location = New System.Drawing.Point(498, 193) + Me.Label77.Location = New System.Drawing.Point(754, 180) Me.Label77.Name = "Label77" Me.Label77.Size = New System.Drawing.Size(167, 32) Me.Label77.TabIndex = 392 @@ -2191,19 +2206,19 @@ Partial Class frmEBR ' 'Chart8 ' - ChartArea7.Name = "ChartArea1" - Me.Chart8.ChartAreas.Add(ChartArea7) - Legend7.Name = "Legend1" - Me.Chart8.Legends.Add(Legend7) - Me.Chart8.Location = New System.Drawing.Point(21, 57) + ChartArea31.Name = "ChartArea1" + Me.Chart8.ChartAreas.Add(ChartArea31) + Legend31.Name = "Legend1" + Me.Chart8.Legends.Add(Legend31) + Me.Chart8.Location = New System.Drawing.Point(203, 57) Me.Chart8.Name = "Chart8" Me.Chart8.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Grayscale - Series7.ChartArea = "ChartArea1" - Series7.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut - Series7.Legend = "Legend1" - Series7.Name = "Series1" - Me.Chart8.Series.Add(Series7) - Me.Chart8.Size = New System.Drawing.Size(646, 187) + Series31.ChartArea = "ChartArea1" + Series31.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series31.Legend = "Legend1" + Series31.Name = "Series1" + Me.Chart8.Series.Add(Series31) + Me.Chart8.Size = New System.Drawing.Size(558, 187) Me.Chart8.TabIndex = 364 Me.Chart8.Text = "Chart8" ' @@ -2232,13 +2247,9 @@ Partial Class frmEBR 'TabPage3 ' Me.TabPage3.AutoScroll = True - Me.TabPage3.Controls.Add(Me.Label99) - Me.TabPage3.Controls.Add(Me.Label98) - Me.TabPage3.Controls.Add(Me.Label94) - Me.TabPage3.Controls.Add(Me.Label95) + Me.TabPage3.Controls.Add(Me.GroupBox69) + Me.TabPage3.Controls.Add(Me.GroupBox68) Me.TabPage3.Controls.Add(Me.GroupBox15) - Me.TabPage3.Controls.Add(Me.Label57) - Me.TabPage3.Controls.Add(Me.Label58) Me.TabPage3.Controls.Add(Me.Button3) Me.TabPage3.Controls.Add(Me.GroupBox13) Me.TabPage3.Controls.Add(Me.GroupBox12) @@ -2254,50 +2265,98 @@ Partial Class frmEBR Me.TabPage3.Text = "Efectividad de los Controles" Me.TabPage3.UseVisualStyleBackColor = True ' - 'Label99 + 'GroupBox69 ' - Me.Label99.AutoSize = True - Me.Label99.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label99.ForeColor = System.Drawing.Color.Black - Me.Label99.Location = New System.Drawing.Point(19, 836) - Me.Label99.Name = "Label99" - Me.Label99.Size = New System.Drawing.Size(92, 32) - Me.Label99.TabIndex = 411 - Me.Label99.Text = "TOTAL" - ' - 'Label98 - ' - Me.Label98.AutoSize = True - Me.Label98.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label98.ForeColor = System.Drawing.Color.Black - Me.Label98.Location = New System.Drawing.Point(19, 744) - Me.Label98.Name = "Label98" - Me.Label98.Size = New System.Drawing.Size(140, 32) - Me.Label98.TabIndex = 410 - Me.Label98.Text = "SUBTOTAL" - ' - 'Label94 - ' - Me.Label94.AutoSize = True - Me.Label94.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label94.ForeColor = System.Drawing.Color.Black - Me.Label94.Location = New System.Drawing.Point(289, 836) - Me.Label94.Name = "Label94" - Me.Label94.Size = New System.Drawing.Size(113, 32) - Me.Label94.TabIndex = 409 - Me.Label94.Text = "RIESGO" + Me.GroupBox69.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox69.Controls.Add(Me.Label95) + Me.GroupBox69.Controls.Add(Me.Label94) + Me.GroupBox69.Controls.Add(Me.Label99) + Me.GroupBox69.Location = New System.Drawing.Point(13, 856) + Me.GroupBox69.Name = "GroupBox69" + Me.GroupBox69.Size = New System.Drawing.Size(610, 52) + Me.GroupBox69.TabIndex = 413 + Me.GroupBox69.TabStop = False ' 'Label95 ' Me.Label95.AutoSize = True Me.Label95.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label95.ForeColor = System.Drawing.Color.Black - Me.Label95.Location = New System.Drawing.Point(165, 836) + Me.Label95.Location = New System.Drawing.Point(154, 12) Me.Label95.Name = "Label95" Me.Label95.Size = New System.Drawing.Size(113, 32) Me.Label95.TabIndex = 408 Me.Label95.Text = "RIESGO" ' + 'Label94 + ' + Me.Label94.AutoSize = True + Me.Label94.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label94.ForeColor = System.Drawing.Color.Black + Me.Label94.Location = New System.Drawing.Point(278, 12) + Me.Label94.Name = "Label94" + Me.Label94.Size = New System.Drawing.Size(113, 32) + Me.Label94.TabIndex = 409 + Me.Label94.Text = "RIESGO" + ' + 'Label99 + ' + Me.Label99.AutoSize = True + Me.Label99.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label99.ForeColor = System.Drawing.Color.Black + Me.Label99.Location = New System.Drawing.Point(8, 12) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(92, 32) + Me.Label99.TabIndex = 411 + Me.Label99.Text = "TOTAL" + ' + 'GroupBox68 + ' + Me.GroupBox68.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox68.Controls.Add(Me.Label58) + Me.GroupBox68.Controls.Add(Me.Label57) + Me.GroupBox68.Controls.Add(Me.Label98) + Me.GroupBox68.Location = New System.Drawing.Point(13, 738) + Me.GroupBox68.Name = "GroupBox68" + Me.GroupBox68.Size = New System.Drawing.Size(610, 57) + Me.GroupBox68.TabIndex = 412 + Me.GroupBox68.TabStop = False + ' + 'Label58 + ' + Me.Label58.AutoSize = True + Me.Label58.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label58.ForeColor = System.Drawing.Color.Black + Me.Label58.Location = New System.Drawing.Point(152, 15) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(113, 32) + Me.Label58.TabIndex = 405 + Me.Label58.Text = "RIESGO" + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label57.ForeColor = System.Drawing.Color.Black + Me.Label57.Location = New System.Drawing.Point(271, 15) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(113, 32) + Me.Label57.TabIndex = 406 + Me.Label57.Text = "RIESGO" + ' + 'Label98 + ' + Me.Label98.AutoSize = True + Me.Label98.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label98.ForeColor = System.Drawing.Color.Black + Me.Label98.Location = New System.Drawing.Point(6, 15) + Me.Label98.Name = "Label98" + Me.Label98.Size = New System.Drawing.Size(140, 32) + Me.Label98.TabIndex = 410 + Me.Label98.Text = "SUBTOTAL" + ' 'GroupBox15 ' Me.GroupBox15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -2305,9 +2364,9 @@ Partial Class frmEBR Me.GroupBox15.Controls.Add(Me.CheckBox1) Me.GroupBox15.Controls.Add(Me.TextBox7) Me.GroupBox15.Controls.Add(Me.Label62) - Me.GroupBox15.Location = New System.Drawing.Point(13, 772) + Me.GroupBox15.Location = New System.Drawing.Point(13, 796) Me.GroupBox15.Name = "GroupBox15" - Me.GroupBox15.Size = New System.Drawing.Size(644, 58) + Me.GroupBox15.Size = New System.Drawing.Size(610, 58) Me.GroupBox15.TabIndex = 407 Me.GroupBox15.TabStop = False ' @@ -2328,7 +2387,7 @@ Partial Class frmEBR Me.TextBox7.Location = New System.Drawing.Point(12, 60) Me.TextBox7.Multiline = True Me.TextBox7.Name = "TextBox7" - Me.TextBox7.Size = New System.Drawing.Size(626, 67) + Me.TextBox7.Size = New System.Drawing.Size(592, 67) Me.TextBox7.TabIndex = 365 ' 'Label62 @@ -2342,28 +2401,6 @@ Partial Class frmEBR Me.Label62.TabIndex = 364 Me.Label62.Text = "Ajustes " ' - 'Label57 - ' - Me.Label57.AutoSize = True - Me.Label57.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label57.ForeColor = System.Drawing.Color.Black - Me.Label57.Location = New System.Drawing.Point(284, 744) - Me.Label57.Name = "Label57" - Me.Label57.Size = New System.Drawing.Size(113, 32) - Me.Label57.TabIndex = 406 - Me.Label57.Text = "RIESGO" - ' - 'Label58 - ' - Me.Label58.AutoSize = True - Me.Label58.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label58.ForeColor = System.Drawing.Color.Black - Me.Label58.Location = New System.Drawing.Point(165, 744) - Me.Label58.Name = "Label58" - Me.Label58.Size = New System.Drawing.Size(113, 32) - Me.Label58.TabIndex = 405 - Me.Label58.Text = "RIESGO" - ' 'Button3 ' Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -2371,7 +2408,7 @@ Partial Class frmEBR Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button3.ForeColor = System.Drawing.Color.White - Me.Button3.Location = New System.Drawing.Point(549, 874) + Me.Button3.Location = New System.Drawing.Point(515, 917) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(108, 33) Me.Button3.TabIndex = 397 @@ -2387,7 +2424,7 @@ Partial Class frmEBR Me.GroupBox13.Controls.Add(Me.Label56) Me.GroupBox13.Location = New System.Drawing.Point(13, 530) Me.GroupBox13.Name = "GroupBox13" - Me.GroupBox13.Size = New System.Drawing.Size(644, 103) + Me.GroupBox13.Size = New System.Drawing.Size(610, 103) Me.GroupBox13.TabIndex = 6 Me.GroupBox13.TabStop = False ' @@ -2407,7 +2444,7 @@ Partial Class frmEBR Me.TextBox6.Location = New System.Drawing.Point(12, 111) Me.TextBox6.Multiline = True Me.TextBox6.Name = "TextBox6" - Me.TextBox6.Size = New System.Drawing.Size(626, 67) + Me.TextBox6.Size = New System.Drawing.Size(592, 67) Me.TextBox6.TabIndex = 365 ' 'Label56 @@ -2430,7 +2467,7 @@ Partial Class frmEBR Me.GroupBox12.Controls.Add(Me.Label55) Me.GroupBox12.Location = New System.Drawing.Point(13, 427) Me.GroupBox12.Name = "GroupBox12" - Me.GroupBox12.Size = New System.Drawing.Size(644, 103) + Me.GroupBox12.Size = New System.Drawing.Size(610, 103) Me.GroupBox12.TabIndex = 5 Me.GroupBox12.TabStop = False ' @@ -2450,7 +2487,7 @@ Partial Class frmEBR Me.TextBox5.Location = New System.Drawing.Point(12, 111) Me.TextBox5.Multiline = True Me.TextBox5.Name = "TextBox5" - Me.TextBox5.Size = New System.Drawing.Size(626, 67) + Me.TextBox5.Size = New System.Drawing.Size(592, 67) Me.TextBox5.TabIndex = 365 ' 'Label55 @@ -2473,7 +2510,7 @@ Partial Class frmEBR Me.GroupBox11.Controls.Add(Me.Label54) Me.GroupBox11.Location = New System.Drawing.Point(13, 633) Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(644, 103) + Me.GroupBox11.Size = New System.Drawing.Size(610, 103) Me.GroupBox11.TabIndex = 4 Me.GroupBox11.TabStop = False ' @@ -2493,7 +2530,7 @@ Partial Class frmEBR Me.TextBox4.Location = New System.Drawing.Point(12, 111) Me.TextBox4.Multiline = True Me.TextBox4.Name = "TextBox4" - Me.TextBox4.Size = New System.Drawing.Size(626, 67) + Me.TextBox4.Size = New System.Drawing.Size(592, 67) Me.TextBox4.TabIndex = 365 ' 'Label54 @@ -2516,7 +2553,7 @@ Partial Class frmEBR Me.GroupBox10.Controls.Add(Me.Label52) Me.GroupBox10.Location = New System.Drawing.Point(13, 324) Me.GroupBox10.Name = "GroupBox10" - Me.GroupBox10.Size = New System.Drawing.Size(644, 103) + Me.GroupBox10.Size = New System.Drawing.Size(610, 103) Me.GroupBox10.TabIndex = 3 Me.GroupBox10.TabStop = False ' @@ -2536,7 +2573,7 @@ Partial Class frmEBR Me.TextBox3.Location = New System.Drawing.Point(12, 111) Me.TextBox3.Multiline = True Me.TextBox3.Name = "TextBox3" - Me.TextBox3.Size = New System.Drawing.Size(626, 67) + Me.TextBox3.Size = New System.Drawing.Size(592, 67) Me.TextBox3.TabIndex = 365 ' 'Label52 @@ -2559,7 +2596,7 @@ Partial Class frmEBR Me.GroupBox9.Controls.Add(Me.Label51) Me.GroupBox9.Location = New System.Drawing.Point(13, 221) Me.GroupBox9.Name = "GroupBox9" - Me.GroupBox9.Size = New System.Drawing.Size(644, 103) + Me.GroupBox9.Size = New System.Drawing.Size(610, 103) Me.GroupBox9.TabIndex = 2 Me.GroupBox9.TabStop = False ' @@ -2579,7 +2616,7 @@ Partial Class frmEBR Me.TextBox2.Location = New System.Drawing.Point(12, 111) Me.TextBox2.Multiline = True Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(626, 67) + Me.TextBox2.Size = New System.Drawing.Size(592, 67) Me.TextBox2.TabIndex = 365 ' 'Label51 @@ -2602,7 +2639,7 @@ Partial Class frmEBR Me.GroupBox8.Controls.Add(Me.Label36) Me.GroupBox8.Location = New System.Drawing.Point(13, 118) Me.GroupBox8.Name = "GroupBox8" - Me.GroupBox8.Size = New System.Drawing.Size(644, 103) + Me.GroupBox8.Size = New System.Drawing.Size(610, 103) Me.GroupBox8.TabIndex = 1 Me.GroupBox8.TabStop = False ' @@ -2623,7 +2660,7 @@ Partial Class frmEBR Me.TextBox1.Location = New System.Drawing.Point(12, 111) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(626, 67) + Me.TextBox1.Size = New System.Drawing.Size(592, 67) Me.TextBox1.TabIndex = 365 ' 'Label36 @@ -2646,7 +2683,7 @@ Partial Class frmEBR Me.gbAML.Controls.Add(Me.lblAML) Me.gbAML.Location = New System.Drawing.Point(13, 15) Me.gbAML.Name = "gbAML" - Me.gbAML.Size = New System.Drawing.Size(644, 103) + Me.gbAML.Size = New System.Drawing.Size(610, 103) Me.gbAML.TabIndex = 0 Me.gbAML.TabStop = False ' @@ -2667,7 +2704,7 @@ Partial Class frmEBR Me.txtAML.Location = New System.Drawing.Point(12, 111) Me.txtAML.Multiline = True Me.txtAML.Name = "txtAML" - Me.txtAML.Size = New System.Drawing.Size(626, 67) + Me.txtAML.Size = New System.Drawing.Size(592, 67) Me.txtAML.TabIndex = 365 ' 'lblAML @@ -2726,7 +2763,7 @@ Partial Class frmEBR Me.GroupBox14.Controls.Add(Me.Panel4) Me.GroupBox14.Location = New System.Drawing.Point(3, 5) Me.GroupBox14.Name = "GroupBox14" - Me.GroupBox14.Size = New System.Drawing.Size(665, 483) + Me.GroupBox14.Size = New System.Drawing.Size(639, 483) Me.GroupBox14.TabIndex = 0 Me.GroupBox14.TabStop = False ' @@ -2734,7 +2771,7 @@ Partial Class frmEBR ' Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image) Me.Button4.InitialImage = CType(resources.GetObject("Button4.InitialImage"), System.Drawing.Image) - Me.Button4.Location = New System.Drawing.Point(645, 185) + Me.Button4.Location = New System.Drawing.Point(659, 185) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(54, 54) Me.Button4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage @@ -3366,17 +3403,17 @@ Partial Class frmEBR ' 'Chart7 ' - ChartArea8.Name = "ChartArea1" - Me.Chart7.ChartAreas.Add(ChartArea8) - Legend8.Name = "Legend1" - Me.Chart7.Legends.Add(Legend8) + ChartArea32.Name = "ChartArea1" + Me.Chart7.ChartAreas.Add(ChartArea32) + Legend32.Name = "Legend1" + Me.Chart7.Legends.Add(Legend32) Me.Chart7.Location = New System.Drawing.Point(21, 57) Me.Chart7.Name = "Chart7" - Series8.ChartArea = "ChartArea1" - Series8.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Area - Series8.Legend = "Legend1" - Series8.Name = "Series1" - Me.Chart7.Series.Add(Series8) + Series32.ChartArea = "ChartArea1" + Series32.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Area + Series32.Legend = "Legend1" + Series32.Name = "Series1" + Me.Chart7.Series.Add(Series32) Me.Chart7.Size = New System.Drawing.Size(727, 257) Me.Chart7.TabIndex = 364 Me.Chart7.Text = "Chart7" @@ -3407,8 +3444,14 @@ Partial Class frmEBR Me.Text = "EBR" Me.gbCalificaciones.ResumeLayout(False) Me.gbCalificaciones.PerformLayout() + Me.GroupBox20.ResumeLayout(False) + Me.GroupBox20.PerformLayout() + Me.GroupBox17.ResumeLayout(False) + Me.GroupBox17.PerformLayout() Me.GroupBox18.ResumeLayout(False) Me.GroupBox18.PerformLayout() + Me.GroupBox19.ResumeLayout(False) + Me.GroupBox19.PerformLayout() Me.GroupBox21.ResumeLayout(False) Me.GroupBox21.PerformLayout() Me.GroupBox22.ResumeLayout(False) @@ -3521,7 +3564,10 @@ Partial Class frmEBR CType(Me.Chart8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() + Me.GroupBox69.ResumeLayout(False) + Me.GroupBox69.PerformLayout() + Me.GroupBox68.ResumeLayout(False) + Me.GroupBox68.PerformLayout() Me.GroupBox15.ResumeLayout(False) Me.GroupBox15.PerformLayout() Me.GroupBox13.ResumeLayout(False) @@ -3854,4 +3900,6 @@ Partial Class frmEBR Friend WithEvents Label98 As Label Friend WithEvents Label100 As Label Friend WithEvents Label101 As Label + Friend WithEvents GroupBox69 As GroupBox + Friend WithEvents GroupBox68 As GroupBox End Class diff --git a/Reportes/frmEBR.resx b/Reportes/frmEBR.resx index 8646174..f039b55 100644 --- a/Reportes/frmEBR.resx +++ b/Reportes/frmEBR.resx @@ -1031,7 +1031,7 @@ - <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>60</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 769, 60</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 769, 60</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>60</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 769, 60</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 769, 60</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> diff --git a/Reportes/frmEBR.vb b/Reportes/frmEBR.vb index 51731cc..ebad682 100644 --- a/Reportes/frmEBR.vb +++ b/Reportes/frmEBR.vb @@ -4,6 +4,10 @@ Imports System.Configuration Imports System.Windows.Forms.DataVisualization.Charting Imports System.ComponentModel Imports System.Drawing.Imaging +Imports System.IO +Imports iTextSharp.text +Imports iTextSharp.text.pdf +Imports System.Collections.Generic Public Class frmEBR Private dtN As DataTable @@ -13,6 +17,11 @@ Public Class frmEBR GenerarEBR("0") CargaCombos() CargarEBR() + + Me.Width = Screen.PrimaryScreen.Bounds.Width + Me.Height = Screen.PrimaryScreen.Bounds.Height + Me.WindowState = FormWindowState.Maximized + Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, 1, "Entrando EBR") End Sub @@ -131,9 +140,11 @@ Public Class frmEBR Chart7.Series.Clear() Chart7.Series.Add("Historico") Chart7.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Area + Chart7.ChartAreas(0).AxisY.Maximum = 3 For Each dr As DataRow In dsGral.Tables(3).Rows Chart7.Series(0).Points.AddXY(dr("MES-AÑO").ToString, Convert.ToInt16(dr("IDRISK"))) + Next Chart8.Series.Clear() @@ -360,22 +371,388 @@ Public Class frmEBR End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - 'Dim bmpScreenshot As Bitmap = New Bitmap(Width, Height, PixelFormat.Format32bppArgb) - TabPage1.Height = 1000 - Dim bmp As Bitmap = New Bitmap(TabPage1.Width, TabPage1.Height) - TabPage1.DrawToBitmap(bmp, TabPage1.ClientRectangle) - bmp.Save("C:\albert\Form1.jpg", ImageFormat.Jpeg) - ' Create a graphics object from the bitmap - 'Dim gfxScreenshot As Graphics = Graphics.FromImage(bmpScreenshot) - ' Take a screenshot of the entire Form1 - 'gfxScreenshot.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Me.Size, CopyPixelOperation.SourceCopy) - ' Save the screenshot - 'bmpScreenshot.Save("C:\albert\Form1.jpg", ImageFormat.Jpeg) + Try + guardarExpEbr() + Catch ex As Exception + End Try + End Sub + + Private Function saveImgGbx(tpg As TabPage, gbx As GroupBox) As String + + Dim ruta As String = Path.GetTempPath ' Application.StartupPath & "\" + Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond + + + Dim bmp As Bitmap = New Bitmap(tpg.Width, tpg.Height) + bmp = New Bitmap(gbx.Width, gbx.Height) + gbx.DrawToBitmap(bmp, gbx.ClientRectangle) + bmp.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg) + + Return ruta & nameImg & ".jpg" + End Function + + Private Function saveImgPBox(tpg As TabPage, pbx As PictureBox) + Dim ruta As String = Path.GetTempPath + Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond + + + Dim bmp As Bitmap = New Bitmap(tpg.Width, tpg.Height) + bmp = New Bitmap(pbx.Width, pbx.Height) + pbx.DrawToBitmap(bmp, pbx.ClientRectangle) + bmp.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg) + + Return ruta & nameImg & ".jpg" + + End Function + + Private Function saveImageRiesgoResidual() + + TabControl1.SelectedIndex = 2 + 'Dim ruta As String = Path.GetTempPath + 'Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond + 'TabControl1.Refresh() + 'Threading.Thread.Sleep(500) + 'Dim screenSize As Size = New Size(GroupBox14.Width, GroupBox14.Height) + 'Dim screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height) + 'Dim g As Graphics = Graphics.FromImage(screenGrab) + + 'g.CopyFromScreen(New Point(17, 98), New Point(0, 0), screenSize) + 'screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg) + + 'Return ruta & nameImg & ".jpg" + + Dim ruta As String = Path.GetTempPath + Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond + TabControl1.Refresh() + Threading.Thread.Sleep(500) + Dim screenSize As Size = New Size(GroupBox14.Width, GroupBox14.Height) + Dim screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height) + Dim g As Graphics = Graphics.FromImage(screenGrab) + g.CopyFromScreen(Me.PointToScreen(New Point(22, 40)), Point.Empty, GroupBox14.ClientSize) + screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg) + + Return ruta & nameImg & ".jpg" + End Function + + Private Sub guardarExpEbr() + Dim listaImg As New List(Of String) + + Me.WindowState = FormWindowState.Maximized + + Dim doc As New Document(PageSize.A4, 30, 30, 30, 30) + Dim root As String = Path.GetTempPath & "EBR_" & DateTime.Now.ToString("HHmmss") & ".pdf" + + Dim file As New FileStream(root, FileMode.Create, FileAccess.Write, FileShare.ReadWrite) + + PdfWriter.GetInstance(doc, file) + doc.Open() + + + Dim fnt As Font = FontFactory.GetFont("Arial", 18, BaseColor.BLACK) + + Dim chk = New Chunk("Modelo de Enfoque Basado en Riesgo", fnt) + + Dim frase As New Phrase() + frase.Add(chk) + + Dim title As New Paragraph(frase) + title.Alignment = 1 + doc.Add(title) + doc.Add(New Paragraph(" ")) + + fnt = FontFactory.GetFont("Arial", 14, BaseColor.BLACK) + chk = New Chunk("Calificación de Riesgo Inherente", fnt) + + frase = New Phrase() + frase.Add(chk) + title = New Paragraph(frase) + + title.Alignment = 1 + doc.Add(title) + doc.Add(New Paragraph(" ")) + doc.Add(New Paragraph(" ")) + + Dim fileImg As String = saveImgPBox(TabPage1, PictureBox1) + Dim img As Image = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + 'img.ScalePercent((150 / img.Width) * 100) + img.ScalePercent(50) + doc.Add(img) + listaImg.Add(fileImg) + + Label1.Visible = False + BtnConsul.Visible = False + Button2.Visible = False + + fileImg = saveImgGbx(TabPage1, gbCalificaciones) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + 'img.ScalePercent(50) + img.ScaleAbsolute(450, 150) + doc.Add(img) + listaImg.Add(fileImg) + + Label1.Visible = True + BtnConsul.Visible = True + Button2.Visible = True + + '1 + fileImg = saveImgGbx(TabPage1, GroupBox1) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(200) + + 'Dim x As Single = InputBox("Valor", "", 100) + + + img.ScaleAbsolute(450, 115) + + 'Dim cel As New PdfPCell(img, True) + 'doc.Add(cel) + + doc.Add(img) + + 'doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage1, GroupBox2) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 115) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage1, GroupBox3) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 115) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage1, GroupBox4) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 115) + doc.Add(img) + listaImg.Add(fileImg) + + Button5.Visible = False + Button6.Visible = False + fileImg = saveImgGbx(TabPage1, GroupBox5) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 115) + doc.Add(img) + listaImg.Add(fileImg) + Button5.Visible = True + Button6.Visible = True + + Button7.Visible = False + fileImg = saveImgGbx(TabPage1, GroupBox6) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 115) + doc.Add(img) + listaImg.Add(fileImg) + Button7.Visible = True + + fileImg = saveImgGbx(TabPage1, GroupBox64) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 115) + doc.Add(img) + listaImg.Add(fileImg) + + + ' + doc.Add(New Paragraph(" ")) + doc.Add(New Paragraph(" ")) + + fnt = FontFactory.GetFont("Arial", 14, BaseColor.BLACK) + chk = New Chunk("Efectividad de los Controles", fnt) + + frase = New Phrase() + frase.Add(chk) + + title = New Paragraph(frase) + title.Alignment = 1 + doc.Add(title) + + doc.Add(New Paragraph(" ")) + doc.Add(New Paragraph(" ")) + + TabControl1.SelectedTab = TabControl1.TabPages.Item(1) + + ' + fileImg = saveImgGbx(TabPage3, gbAML) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox8) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + + fileImg = saveImgGbx(TabPage3, GroupBox9) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox10) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox12) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox13) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox11) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 60) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox68) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(200) + img.ScaleAbsolute(450, 50) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox15) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(200) + img.ScaleAbsolute(450, 50) + doc.Add(img) + listaImg.Add(fileImg) + + fileImg = saveImgGbx(TabPage3, GroupBox69) + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(200) + img.ScaleAbsolute(450, 50) + doc.Add(img) + listaImg.Add(fileImg) + + + ' + TabControl1.SelectedTab = TabControl1.TabPages.Item(2) + Threading.Thread.Sleep(500) + + 'doc.Add(New Paragraph(" ")) + 'doc.Add(New Paragraph(" ")) + doc.NewPage() + + fnt = FontFactory.GetFont("Arial", 14, BaseColor.BLACK) + chk = New Chunk("Riesgo Residual", fnt) + + frase = New Phrase() + frase.Add(chk) + + title = New Paragraph(frase) + title.Alignment = 1 + doc.Add(title) + doc.Add(New Paragraph(" ")) + + fileImg = saveImageRiesgoResidual() + img = Image.GetInstance(fileImg) + img.Alignment = 1 + img.BorderWidth = 100 + img.ScalePercent(50) + img.ScaleAbsolute(450, 350) + doc.Add(img) + listaImg.Add(fileImg) + + doc.Close() + + TabControl1.SelectedTab = TabControl1.TabPages.Item(0) + + deleImg(listaImg) + + If (MessageBox.Show("¿Desa abrir el archivo? " & Environment.NewLine & " (Se requiere tener instalado un visor pdf para abrir el archivo). ", "Exportación EBR", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then + Try + + Process.Start(root) + + Catch ex As Exception + MsgBox("No cuenta con visor pdf." & Environment.NewLine & ex.Message) + End Try + + End If End Sub + + Private Sub deleImg(listaImg As List(Of String)) + + For Each i As String In listaImg + + If File.Exists(i) Then + File.Delete(i) + End If + Next + + End Sub + + End Class \ No newline at end of file diff --git a/Reportes/frmReporteJ13.vb b/Reportes/frmReporteJ13.vb index 74d57c2..8145a6c 100644 --- a/Reportes/frmReporteJ13.vb +++ b/Reportes/frmReporteJ13.vb @@ -111,7 +111,7 @@ Public Class frmReporteJ13 MessageBox.Show("Reporte generado correctamente") Catch ex As Exception MessageBox.Show(ex.Message) - + Exit Sub End Try Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Generando Reporte J13") diff --git a/Seguridad/Permiso.resx b/Seguridad/Permiso.resx index cc321bb..cbd7f7a 100644 --- a/Seguridad/Permiso.resx +++ b/Seguridad/Permiso.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ - DQAAAk1TRnQBSQFMAgEBCAEAAXwBBQF8AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + DQAAAk1TRnQBSQFMAgEBCAEAAZwBBQGcAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/Seguridad/Permiso.vb b/Seguridad/Permiso.vb index 61db629..0d65786 100644 --- a/Seguridad/Permiso.vb +++ b/Seguridad/Permiso.vb @@ -38,6 +38,10 @@ Public Class Permiso Friend WithEvents chkEstatusCta As CheckBox Friend WithEvents chkReporteJ13 As CheckBox Friend WithEvents chkReporteJ14 As CheckBox + Friend WithEvents chkPerfilCta As CheckBox + Friend WithEvents chkRevisionPerilCta As CheckBox + Friend WithEvents chkRepPerfilCtas As CheckBox + Friend WithEvents chkParamPerfilCta As CheckBox #Region " Código generado por el Diseñador de Windows Forms " Dim esCarga As Boolean Public Sub New() @@ -366,6 +370,7 @@ Public Class Permiso Me.Catalogos = New System.Windows.Forms.TabPage() Me.ChkTodosCatalogos = New System.Windows.Forms.CheckBox() Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.chkPerfilCta = New System.Windows.Forms.CheckBox() Me.chkEstatusCta = New System.Windows.Forms.CheckBox() Me.chkCatsEBR = New System.Windows.Forms.CheckBox() Me.chkRazonMX = New System.Windows.Forms.CheckBox() @@ -490,6 +495,7 @@ Public Class Permiso Me.gbxProcs = New System.Windows.Forms.GroupBox() Me.chkVigDoctos = New System.Windows.Forms.CheckBox() Me.chkRevExpediente = New System.Windows.Forms.CheckBox() + Me.chkRevisionPerilCta = 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() @@ -512,6 +518,7 @@ Public Class Permiso Me.chkAlarmaKYC = New System.Windows.Forms.CheckBox() Me.KYCControles = New System.Windows.Forms.TabPage() Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.chkRepPerfilCtas = New System.Windows.Forms.CheckBox() Me.chkRevExp = New System.Windows.Forms.CheckBox() Me.chkAVigDoctos = New System.Windows.Forms.CheckBox() Me.chkCalifRiesgoABC = New System.Windows.Forms.CheckBox() @@ -556,6 +563,7 @@ Public Class Permiso Me.panel3 = New System.Windows.Forms.Panel() Me.Label11 = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label() + Me.chkParamPerfilCta = New System.Windows.Forms.CheckBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.TabControl3.SuspendLayout() @@ -774,7 +782,7 @@ Public Class Permiso Me.chkReporteJ14.Name = "chkReporteJ14" Me.chkReporteJ14.Size = New System.Drawing.Size(84, 17) Me.chkReporteJ14.TabIndex = 195 - Me.chkReporteJ14.Tag = "1207" + Me.chkReporteJ14.Tag = "207" Me.chkReporteJ14.Text = "Reporte J14" ' 'chkReporteJ13 @@ -784,7 +792,7 @@ Public Class Permiso Me.chkReporteJ13.Name = "chkReporteJ13" Me.chkReporteJ13.Size = New System.Drawing.Size(84, 17) Me.chkReporteJ13.TabIndex = 194 - Me.chkReporteJ13.Tag = "1206" + Me.chkReporteJ13.Tag = "206" Me.chkReporteJ13.Text = "Reporte J13" ' 'CheckBox1 @@ -1170,6 +1178,7 @@ Public Class Permiso ' 'GroupBox8 ' + Me.GroupBox8.Controls.Add(Me.chkParamPerfilCta) Me.GroupBox8.Controls.Add(Me.chkparamsgen) Me.GroupBox8.Controls.Add(Me.chkActual) Me.GroupBox8.Controls.Add(Me.chkAsigGrpo) @@ -1264,6 +1273,7 @@ Public Class Permiso ' 'GroupBox10 ' + Me.GroupBox10.Controls.Add(Me.chkPerfilCta) Me.GroupBox10.Controls.Add(Me.chkEstatusCta) Me.GroupBox10.Controls.Add(Me.chkCatsEBR) Me.GroupBox10.Controls.Add(Me.chkRazonMX) @@ -1322,6 +1332,16 @@ Public Class Permiso Me.GroupBox10.TabIndex = 16 Me.GroupBox10.TabStop = False ' + 'chkPerfilCta + ' + Me.chkPerfilCta.AutoSize = True + Me.chkPerfilCta.Location = New System.Drawing.Point(504, 191) + Me.chkPerfilCta.Name = "chkPerfilCta" + Me.chkPerfilCta.Size = New System.Drawing.Size(112, 17) + Me.chkPerfilCta.TabIndex = 150 + Me.chkPerfilCta.Tag = "208" + Me.chkPerfilCta.Text = "Perfil de la Cuenta" + ' 'chkEstatusCta ' Me.chkEstatusCta.AutoSize = True @@ -2197,7 +2217,7 @@ Public Class Permiso Me.ListaRestringuida.Name = "ListaRestringuida" Me.ListaRestringuida.Size = New System.Drawing.Size(657, 385) Me.ListaRestringuida.TabIndex = 6 - Me.ListaRestringuida.Text = "Listas Restringidas" + Me.ListaRestringuida.Text = "Listas Negras" Me.ListaRestringuida.UseVisualStyleBackColor = True ' 'ChkListaRestringidas @@ -2241,16 +2261,16 @@ Public Class Permiso Me.ChkPersonas.Size = New System.Drawing.Size(104, 20) Me.ChkPersonas.TabIndex = 55 Me.ChkPersonas.Tag = "56" - Me.ChkPersonas.Text = "Personas" + Me.ChkPersonas.Text = "Búsqueda" ' '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.Size = New System.Drawing.Size(191, 20) Me.chkClientes.TabIndex = 56 Me.chkClientes.Tag = "57" - Me.chkClientes.Text = "Clientes" + Me.chkClientes.Text = "Coincidencias Detectadas" ' 'chkListasrest ' @@ -2258,10 +2278,10 @@ Public Class Permiso 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.Size = New System.Drawing.Size(90, 17) Me.chkListasrest.TabIndex = 54 Me.chkListasrest.Tag = "55" - Me.chkListasrest.Text = "Listas Restringidas" + Me.chkListasrest.Text = "Listas Negras" Me.chkListasrest.UseVisualStyleBackColor = False ' 'Label6 @@ -2493,6 +2513,7 @@ Public Class Permiso ' Me.gbxProcs.Controls.Add(Me.chkVigDoctos) Me.gbxProcs.Controls.Add(Me.chkRevExpediente) + Me.gbxProcs.Controls.Add(Me.chkRevisionPerilCta) Me.gbxProcs.Controls.Add(Me.chkConfigCarga) Me.gbxProcs.Controls.Add(Me.ChkRiesgo) Me.gbxProcs.Controls.Add(Me.ChkListasS) @@ -2524,6 +2545,15 @@ Public Class Permiso Me.chkRevExpediente.Tag = "193" Me.chkRevExpediente.Text = "Revisión de Expediente" ' + 'chkRevisionPerilCta + ' + Me.chkRevisionPerilCta.Location = New System.Drawing.Point(6, 184) + Me.chkRevisionPerilCta.Name = "chkRevisionPerilCta" + Me.chkRevisionPerilCta.Size = New System.Drawing.Size(148, 34) + Me.chkRevisionPerilCta.TabIndex = 61 + Me.chkRevisionPerilCta.Tag = "209" + Me.chkRevisionPerilCta.Text = "Revisión Perfil de la Cuenta" + ' 'chkConfigCarga ' Me.chkConfigCarga.Location = New System.Drawing.Point(9, 147) @@ -2732,6 +2762,7 @@ Public Class Permiso ' 'GroupBox6 ' + Me.GroupBox6.Controls.Add(Me.chkRepPerfilCtas) Me.GroupBox6.Controls.Add(Me.chkRevExp) Me.GroupBox6.Controls.Add(Me.chkAVigDoctos) Me.GroupBox6.Controls.Add(Me.chkCalifRiesgoABC) @@ -2750,6 +2781,18 @@ Public Class Permiso Me.GroupBox6.TabIndex = 7 Me.GroupBox6.TabStop = False ' + 'chkRepPerfilCtas + ' + Me.chkRepPerfilCtas.AutoSize = True + Me.chkRepPerfilCtas.ForeColor = System.Drawing.Color.MidnightBlue + Me.chkRepPerfilCtas.Location = New System.Drawing.Point(314, 317) + Me.chkRepPerfilCtas.Name = "chkRepPerfilCtas" + Me.chkRepPerfilCtas.Size = New System.Drawing.Size(178, 17) + Me.chkRepPerfilCtas.TabIndex = 68 + Me.chkRepPerfilCtas.Tag = "210" + Me.chkRepPerfilCtas.Text = "Reporte de Perfil de las Cuentas" + Me.chkRepPerfilCtas.UseVisualStyleBackColor = True + ' 'chkRevExp ' Me.chkRevExp.AutoSize = True @@ -3233,6 +3276,15 @@ Public Class Permiso Me.lblFooter.TabIndex = 2 Me.lblFooter.Text = "Minds" ' + 'chkParamPerfilCta + ' + Me.chkParamPerfilCta.Location = New System.Drawing.Point(21, 144) + Me.chkParamPerfilCta.Name = "chkParamPerfilCta" + Me.chkParamPerfilCta.Size = New System.Drawing.Size(227, 20) + Me.chkParamPerfilCta.TabIndex = 60 + Me.chkParamPerfilCta.Tag = "211" + Me.chkParamPerfilCta.Text = "Parámetros Reporte Perfil de la Cuenta" + ' 'Permiso ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -3515,6 +3567,8 @@ Public Class Permiso chkAVigDoctos.Checked = fila1("activo") Case "chkRevExp" chkRevExp.Checked = fila1("activo") + Case "chkRepPerfilCtas" + chkRepPerfilCtas.Checked = fila1("activo") End Select Next End If @@ -3668,6 +3722,7 @@ Public Class Permiso 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" + If ctrltab1.Name = "chkRepPerfilCtas" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 1" classcomKYCEstatusAutorizados = New clsComplejo If ctrltab1.Name = "chkKYCEditReg" Then @@ -3724,6 +3779,8 @@ Public Class Permiso 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" + If ctrltab1.Name = "chkRepPerfilCtas" Then sql = "spGrabaPermiso " & liperfil & ",3, " & ctrltab1.Tag & ", 0" + classcomKYCEstatusAutorizados = New clsComplejo If ctrltab1.Name = "chkKYCEditReg" Then sqlKYCEstatusAutorizados = "spIU_PERFIL_KYC_EDITAR_REGISTRO " & liperfil & ", 0" @@ -4166,7 +4223,7 @@ Public Class Permiso End If End Sub - Private Sub chkConfigCarga_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkConfigCarga.CheckedChanged + Private Sub chkConfigCarga_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkConfigCarga.CheckedChanged, chkRevisionPerilCta.CheckedChanged If chkConfigCarga.Checked = True Then chkserver.Checked = True End If diff --git a/bin/BouncyCastle.Crypto.dll b/bin/BouncyCastle.Crypto.dll new file mode 100644 index 0000000..0f324ca Binary files /dev/null and b/bin/BouncyCastle.Crypto.dll differ diff --git a/bin/Conexion_MindsOP.ini b/bin/Conexion_MindsOP.ini deleted file mode 100644 index 2e5009a..0000000 --- a/bin/Conexion_MindsOP.ini +++ /dev/null @@ -1,5 +0,0 @@ -TIPOSERVIDORMD=SQL Server -SERVIDOR=149.28.214.102,14337 -BASEDATOS=Minds_BlackRock_Dev -USUARIO=usrBlackRock -PASSWORD=244214150226146068038196002134181036246054191 \ No newline at end of file diff --git a/bin/Conexion_MindsOPV.ini b/bin/Conexion_MindsOPV.ini deleted file mode 100644 index 07eaef0..0000000 --- a/bin/Conexion_MindsOPV.ini +++ /dev/null @@ -1,5 +0,0 @@ -TIPOSERVIDORMD=SQL Server -SERVIDOR=DESKTOP-L4VT5F1\SQLEXPRESS2014 -BASEDATOS=Minds_BlackRock_OF_28112019 -USUARIO=sa -PASSWORD=244054246230070247035035003019079 diff --git a/bin/Conexion_MindsOP_R.ini b/bin/Conexion_MindsOP_R.ini deleted file mode 100644 index 6e3ad9d..0000000 --- a/bin/Conexion_MindsOP_R.ini +++ /dev/null @@ -1,5 +0,0 @@ -TIPOSERVIDORMD=SQL Server -SERVIDOR=67.225.136.32,3314 -BASEDATOS=Minds_BlackRock_OF -USUARIO=usrBlackRock -PASSWORD=244214150226146068038196002134181036246054191 diff --git a/bin/MINDS CLIENTEOF.application b/bin/MINDS CLIENTEOF.application index 4028b2e..7634bef 100644 --- a/bin/MINDS CLIENTEOF.application +++ b/bin/MINDS CLIENTEOF.application @@ -7,14 +7,14 @@ - + - cOaJB0l9sCxMAdeCEBDKjp2/rrM= + 2M0s4ts8B5pE1R3uEIgWdjtvdyU= diff --git a/bin/MINDS CLIENTEOF.exe b/bin/MINDS CLIENTEOF.exe index 8de0d9f..05307c2 100644 Binary files a/bin/MINDS CLIENTEOF.exe and b/bin/MINDS CLIENTEOF.exe differ diff --git a/bin/MINDS CLIENTEOF.exe.manifest b/bin/MINDS CLIENTEOF.exe.manifest index a4d8cc9..28a6665 100644 --- a/bin/MINDS CLIENTEOF.exe.manifest +++ b/bin/MINDS CLIENTEOF.exe.manifest @@ -78,6 +78,18 @@ + + + + + + + + + 3mf7T51Y20qGCnA8jR9U/wD/mx8= + + + @@ -186,6 +198,18 @@ + + + + + + + + + dhLbFsTBUdCzlS9u6pfABXLDsZc= + + + @@ -247,14 +271,14 @@ - + - CmEn4AYxicleViWqK6UCXGGB+VU= + 7tL0Qf3itWOaPzlGzHaZzmYk5nA= @@ -271,14 +295,14 @@ - + - N2aqvprE9C5PdtVvFRG+vRpQ/8E= + DEMNeVVaj0AXJ5RbDj3Dzpuhu+o= diff --git a/bin/MINDS CLIENTEOF.pdb b/bin/MINDS CLIENTEOF.pdb index 0defb41..cb672bf 100644 Binary files a/bin/MINDS CLIENTEOF.pdb and b/bin/MINDS CLIENTEOF.pdb differ diff --git a/bin/MINDS CLIENTEOF.rar b/bin/MINDS CLIENTEOF.rar deleted file mode 100644 index 9c80062..0000000 Binary files a/bin/MINDS CLIENTEOF.rar and /dev/null differ diff --git a/bin/MINDS CLIENTEOF.vshost.application b/bin/MINDS CLIENTEOF.vshost.application index b5f148b..7634bef 100644 --- a/bin/MINDS CLIENTEOF.vshost.application +++ b/bin/MINDS CLIENTEOF.vshost.application @@ -7,14 +7,14 @@ - + - RQY4vdQEQiry0SAYcTe8FmZxNPA= + 2M0s4ts8B5pE1R3uEIgWdjtvdyU= diff --git a/bin/MINDS CLIENTEOF.vshost.exe.manifest b/bin/MINDS CLIENTEOF.vshost.exe.manifest index 712e3e4..28a6665 100644 --- a/bin/MINDS CLIENTEOF.vshost.exe.manifest +++ b/bin/MINDS CLIENTEOF.vshost.exe.manifest @@ -4,7 +4,7 @@ - + @@ -78,6 +78,18 @@ + + + + + + + + + 3mf7T51Y20qGCnA8jR9U/wD/mx8= + + + @@ -186,6 +198,18 @@ + + + + + + + + + dhLbFsTBUdCzlS9u6pfABXLDsZc= + + + @@ -247,14 +271,14 @@ - - + + - B/br4mzrlAbYttjcg4U/S6X5m88= + 7tL0Qf3itWOaPzlGzHaZzmYk5nA= @@ -271,14 +295,14 @@ - + - N2aqvprE9C5PdtVvFRG+vRpQ/8E= + DEMNeVVaj0AXJ5RbDj3Dzpuhu+o= diff --git a/bin/MINDS CLIENTEOF.zip b/bin/MINDS CLIENTEOF.zip deleted file mode 100644 index 7e282e0..0000000 Binary files a/bin/MINDS CLIENTEOF.zip and /dev/null differ diff --git a/bin/MINDS CLIENTEOF_20200428.zip b/bin/MINDS CLIENTEOF_20200428.zip deleted file mode 100644 index 453d02e..0000000 Binary files a/bin/MINDS CLIENTEOF_20200428.zip and /dev/null differ diff --git a/bin/app.publish/MINDS CLIENTEOF.exe b/bin/app.publish/MINDS CLIENTEOF.exe index 8de0d9f..05307c2 100644 Binary files a/bin/app.publish/MINDS CLIENTEOF.exe and b/bin/app.publish/MINDS CLIENTEOF.exe differ diff --git a/bin/itextsharp.dll b/bin/itextsharp.dll new file mode 100644 index 0000000..9f22b37 Binary files /dev/null and b/bin/itextsharp.dll differ diff --git a/bin/stdole.dll b/bin/stdole.dll index e470cd8..9673c81 100644 Binary files a/bin/stdole.dll and b/bin/stdole.dll differ diff --git a/frmParamsPerfilCta.Designer.vb b/frmParamsPerfilCta.Designer.vb new file mode 100644 index 0000000..c1b0d15 --- /dev/null +++ b/frmParamsPerfilCta.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class frmParamsPerfilCta + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmParamsPerfilCta)) + Me.panel2 = New System.Windows.Forms.Panel() + Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() + Me.DesHeader = New System.Windows.Forms.Label() + Me.btnAgregar = New System.Windows.Forms.Button() + Me.btnGuardar = New System.Windows.Forms.Button() + Me.btnCerrar = New System.Windows.Forms.Button() + Me.btnEditar = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() + Me.panel3 = New System.Windows.Forms.Panel() + Me.txtPerfilCta = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtValor = New System.Windows.Forms.ComboBox() + Me.panel2.SuspendLayout() + CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panel3.SuspendLayout() + Me.SuspendLayout() + ' + '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(-3, -4) + Me.panel2.Name = "panel2" + Me.panel2.Size = New System.Drawing.Size(664, 49) + Me.panel2.TabIndex = 406 + ' + 'Img_logoCabecera + ' + Me.Img_logoCabecera.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo + Me.Img_logoCabecera.Location = New System.Drawing.Point(542, 0) + 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("Century Gothic", 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, 9) + Me.DesHeader.Name = "DesHeader" + Me.DesHeader.Size = New System.Drawing.Size(178, 22) + Me.DesHeader.TabIndex = 2 + Me.DesHeader.Text = "Perfil de la Cuenta" + ' + 'btnAgregar + ' + Me.btnAgregar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnAgregar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnAgregar.BackColor = System.Drawing.Color.Black + Me.btnAgregar.ForeColor = System.Drawing.Color.White + Me.btnAgregar.Location = New System.Drawing.Point(548, 245) + Me.btnAgregar.Name = "btnAgregar" + Me.btnAgregar.Size = New System.Drawing.Size(106, 31) + Me.btnAgregar.TabIndex = 405 + Me.btnAgregar.Text = "Agregar" + Me.btnAgregar.UseVisualStyleBackColor = False + Me.btnAgregar.Visible = False + ' + 'btnGuardar + ' + Me.btnGuardar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnGuardar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnGuardar.BackColor = System.Drawing.Color.Black + Me.btnGuardar.ForeColor = System.Drawing.Color.White + Me.btnGuardar.Location = New System.Drawing.Point(548, 323) + Me.btnGuardar.Name = "btnGuardar" + Me.btnGuardar.Size = New System.Drawing.Size(106, 31) + Me.btnGuardar.TabIndex = 404 + Me.btnGuardar.Text = "Guardar" + Me.btnGuardar.UseVisualStyleBackColor = False + ' + 'btnCerrar + ' + Me.btnCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnCerrar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.btnCerrar.BackColor = System.Drawing.Color.Black + Me.btnCerrar.ForeColor = System.Drawing.Color.White + Me.btnCerrar.Location = New System.Drawing.Point(548, 363) + Me.btnCerrar.Name = "btnCerrar" + Me.btnCerrar.Size = New System.Drawing.Size(106, 31) + Me.btnCerrar.TabIndex = 403 + Me.btnCerrar.Text = "Cerrar" + Me.btnCerrar.UseVisualStyleBackColor = False + ' + 'btnEditar + ' + Me.btnEditar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnEditar.BackColor = System.Drawing.Color.Black + Me.btnEditar.ForeColor = System.Drawing.Color.White + Me.btnEditar.Location = New System.Drawing.Point(548, 284) + Me.btnEditar.Name = "btnEditar" + Me.btnEditar.Size = New System.Drawing.Size(106, 31) + Me.btnEditar.TabIndex = 402 + Me.btnEditar.Text = "Editar" + Me.btnEditar.UseVisualStyleBackColor = False + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.SystemColors.Window + Me.Label1.Location = New System.Drawing.Point(590, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(42, 17) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "Minds" + ' + 'GridMaster + ' + Me.GridMaster.AllowUpdate = False + Me.GridMaster.AllowUpdateOnBlur = False + Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GridMaster.BackColor = System.Drawing.Color.White + Me.GridMaster.EditDropDown = False + Me.GridMaster.FilterBar = True + Me.GridMaster.GroupByCaption = "AGRUPAR" + Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image)) + Me.GridMaster.Location = New System.Drawing.Point(12, 65) + Me.GridMaster.Name = "GridMaster" + Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0) + Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0) + Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R + Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) + Me.GridMaster.Size = New System.Drawing.Size(530, 211) + Me.GridMaster.TabIndex = 398 + Me.GridMaster.Text = "C1TrueDBGrid1" + Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag") + ' + 'panel3 + ' + Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom 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.Label1) + Me.panel3.ForeColor = System.Drawing.Color.Navy + Me.panel3.Location = New System.Drawing.Point(-10, 415) + Me.panel3.Name = "panel3" + Me.panel3.Size = New System.Drawing.Size(678, 27) + Me.panel3.TabIndex = 407 + ' + 'txtPerfilCta + ' + Me.txtPerfilCta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.txtPerfilCta.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtPerfilCta.Location = New System.Drawing.Point(22, 322) + Me.txtPerfilCta.MaxLength = 80 + Me.txtPerfilCta.Name = "txtPerfilCta" + Me.txtPerfilCta.Size = New System.Drawing.Size(428, 20) + Me.txtPerfilCta.TabIndex = 399 + ' + 'Label2 + ' + Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label2.Location = New System.Drawing.Point(19, 300) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(63, 13) + Me.Label2.TabIndex = 400 + Me.Label2.Text = "Descripción" + ' + 'Label3 + ' + Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label3.Location = New System.Drawing.Point(19, 359) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(31, 13) + Me.Label3.TabIndex = 400 + Me.Label3.Text = "Valor" + ' + 'txtValor + ' + Me.txtValor.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.txtValor.Items.AddRange(New Object() {"DIARIO", "MENSUAL"}) + Me.txtValor.Location = New System.Drawing.Point(22, 375) + Me.txtValor.Name = "txtValor" + Me.txtValor.Size = New System.Drawing.Size(143, 20) + Me.txtValor.TabIndex = 409 + ' + 'frmParamsPerfilCta + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(658, 439) + Me.Controls.Add(Me.txtValor) + Me.Controls.Add(Me.panel2) + Me.Controls.Add(Me.btnAgregar) + Me.Controls.Add(Me.btnGuardar) + Me.Controls.Add(Me.btnCerrar) + Me.Controls.Add(Me.btnEditar) + Me.Controls.Add(Me.GridMaster) + Me.Controls.Add(Me.panel3) + Me.Controls.Add(Me.txtPerfilCta) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmParamsPerfilCta" + Me.Text = "Parámetros reporte perfil de la Cuenta" + Me.panel2.ResumeLayout(False) + Me.panel2.PerformLayout() + CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit() + Me.panel3.ResumeLayout(False) + Me.panel3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Private WithEvents panel2 As Panel + Private WithEvents Img_logoCabecera As PictureBox + Friend WithEvents DesHeader As Label + Friend WithEvents btnAgregar As Button + Friend WithEvents btnGuardar As Button + Friend WithEvents btnCerrar As Button + Friend WithEvents btnEditar As Button + Friend WithEvents Label1 As Label + Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid + Private WithEvents panel3 As Panel + Friend WithEvents txtPerfilCta As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents txtValor As ComboBox +End Class diff --git a/frmParamsPerfilCta.resx b/frmParamsPerfilCta.resx new file mode 100644 index 0000000..1964c3a --- /dev/null +++ b/frmParamsPerfilCta.resx @@ -0,0 +1,219 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88 + vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0 + dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh + d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp + emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5 + c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp + bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz + dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n + LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf + U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh + d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA + AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk + cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi + eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv + bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE + ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4 + AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp + bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n + ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu + RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF + 9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA + AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w + BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA + AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ + QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA + ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs= + + + + <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>207</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 526, 207</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 526, 207</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> + + + + AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////8AAAAAAAD///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////8AAAAAAAD///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76 + /f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A + AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7///////////////////////// + ///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+ + //75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+//////////// + //////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7///// + /////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD///////// + ///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8 + /fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6 + ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A + AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv + ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/ + z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl + hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7 + ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD///////// + ///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9 + ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5 + 8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A + AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9 + //32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f// + +///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9 + /f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7///// + //7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD///////// + ///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2 + r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu + mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A + AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38 + /v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2 + bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9 + /vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31 + ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD///////// + ///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy + ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2 + bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A + AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1 + ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD///////////////////////// + /v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7///////// + //////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8 + /f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD///////// + ///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6 + /fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8 + +/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A + AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+ + //71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/frmParamsPerfilCta.vb b/frmParamsPerfilCta.vb new file mode 100644 index 0000000..3101582 --- /dev/null +++ b/frmParamsPerfilCta.vb @@ -0,0 +1,214 @@ +Public Class frmParamsPerfilCta + Private opcion As Boolean + Private id As Integer + + + Private Sub frmObjCuenta_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + Try + Iniciar() + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End Sub + + Private Function Iniciar() As Boolean + Iniciar = False + Try + Limpiar() + llenarGrid() + DesHeader.Text = Me.Text + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + Iniciar = True + End Function + + Private Function Limpiar() As Boolean + Try + txtValor.DropDownStyle = ComboBoxStyle.Simple + + txtPerfilCta.Enabled = False + txtPerfilCta.Text = "" + 'chkActivo.Enabled = False + 'chkActivo.Checked = False + + txtValor.Enabled = False + txtValor.Text = "" + + btnGuardar.Enabled = False + btnEditar.Enabled = False + + id = 0 + opcion = False + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End Function + + Private Function llenarGrid() As Boolean + llenarGrid = False + Try + Dim ClassCatalogos As New ClassCatalogos + + GridMaster.AllowUpdate = False + ClassCatalogos.LlenaGrid("SP_ConsultarConfiguracionGralParam NULL", Me.GridMaster) + GridMaster.Splits(0).DisplayColumns(0).AutoSize() + GridMaster.Splits(0).DisplayColumns(0).Visible = False + GridMaster.Splits(0).DisplayColumns(1).AutoSize() + GridMaster.Splits(0).DisplayColumns(2).AutoSize() + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + llenarGrid = True + End Function + + Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click + Me.Close() + End Sub + + Private Sub BtnAgregar_Click(sender As System.Object, e As System.EventArgs) Handles btnAgregar.Click + Limpiar() + habilitar() + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + opcion = True + + txtPerfilCta.Focus() + + End Sub + + Private Function habilitar() As Boolean + habilitar = False + Try + 'txtPerfilCta.Enabled = True + 'chkActivo.Enabled = True + btnGuardar.Enabled = True + 'txtRiesgo.Enabled = True + + txtValor.Enabled = True + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + habilitar = True + End Function + + Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick + Limpiar() + llenarDatos() + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + End Sub + + Private Function llenarDatos() As Boolean + llenarDatos = False + Try + + If GridMaster.RowCount > 0 Then + + + id = GridMaster.Columns(0).Value + txtPerfilCta.Text = GridMaster.Columns(1).Value + 'chkActivo.Checked = GridMaster.Columns(2).Value + txtValor.Text = GridMaster.Columns(2).Value + + btnEditar.Enabled = True + + txtPerfilCta.Enabled = False + 'chkActivo.Enabled = False + btnGuardar.Enabled = False + + Else + + MsgBox("No hay datos para editar") + + End If + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + + llenarDatos = True + End Function + + Private Sub BtnEditar_Click(sender As System.Object, e As System.EventArgs) Handles btnEditar.Click + clsVaribles.lsValAnt = "Valores Anteriores: idConfiguracion: " & id & " Valor:" & txtValor.Text + + opcion = False + habilitar() + + btnAgregar.Enabled = True + btnEditar.Enabled = False + + If id = 3 Then + txtValor.DropDownStyle = ComboBoxStyle.DropDownList + Else + txtValor.DropDownStyle = ComboBoxStyle.Simple + + End If + + + + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + + txtPerfilCta.Focus() + + End Sub + + Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click + Guardar() + End Sub + + Private Function Guardar() As Boolean + Guardar = False + Dim cls As New clsComplejo + Dim ssql As String + Dim nombre As String + Dim chk As Integer + Dim riesgo As Single + Dim ClassAud As New ClassMyUtils + Try + If ValidarDatos() Then + nombre = txtValor.Text + 'chk = chkActivo.CheckState + + If opcion = False Then + + ssql = "sp_UpdateConfiguracionGralParam " & id & ",'" & nombre & "'" + cls.sbGuardaModifica(ssql) + ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 138, 31, clsVaribles.lsValAnt & ", " & "Valores Nuevos: idConfiguracion: " & txtValor.Text) '& chkActivo.CheckState + End If + + MessageBox.Show("Operación Realizada Correctamente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) + Limpiar() + llenarGrid() + + ClassCatalogos.CambiaColorbloque2(btnAgregar, btnEditar, btnGuardar, btnCerrar) + End If + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + Guardar = True + End Function + + Private Function ValidarDatos() As Boolean + ValidarDatos = False + Try + If txtPerfilCta.Text.Trim = "" Then + MessageBox.Show("Es necesario introducir el Perfil de la Cuenta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) + txtPerfilCta.Focus() + Exit Function + End If + + ValidarDatos = True + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + + End Function + +End Class \ No newline at end of file diff --git a/obj/Debug/CLIENTE.ActTipoCambio.resources b/obj/Debug/CLIENTE.ActTipoCambio.resources index f9f0955..1cd13fa 100644 Binary files a/obj/Debug/CLIENTE.ActTipoCambio.resources and b/obj/Debug/CLIENTE.ActTipoCambio.resources differ diff --git a/obj/Debug/CLIENTE.Permiso.resources b/obj/Debug/CLIENTE.Permiso.resources index d419004..9b66b41 100644 Binary files a/obj/Debug/CLIENTE.Permiso.resources and b/obj/Debug/CLIENTE.Permiso.resources differ diff --git a/obj/Debug/CLIENTE.frmEBR.resources b/obj/Debug/CLIENTE.frmEBR.resources index 4169739..9784af3 100644 Binary files a/obj/Debug/CLIENTE.frmEBR.resources and b/obj/Debug/CLIENTE.frmEBR.resources differ diff --git a/obj/Debug/CLIENTE.frmParamsPerfilCta.resources b/obj/Debug/CLIENTE.frmParamsPerfilCta.resources new file mode 100644 index 0000000..69c81a3 Binary files /dev/null and b/obj/Debug/CLIENTE.frmParamsPerfilCta.resources differ diff --git a/obj/Debug/CLIENTE.frmPerfilCta.resources b/obj/Debug/CLIENTE.frmPerfilCta.resources new file mode 100644 index 0000000..23dbe19 Binary files /dev/null and b/obj/Debug/CLIENTE.frmPerfilCta.resources differ diff --git a/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/obj/Debug/DesignTimeResolveAssemblyReferences.cache index 43a12a8..12127de 100644 Binary files a/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index 8a1b13a..05256c4 100644 Binary files a/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/obj/Debug/MINDS CLIENTEOF.application b/obj/Debug/MINDS CLIENTEOF.application index 4028b2e..7634bef 100644 --- a/obj/Debug/MINDS CLIENTEOF.application +++ b/obj/Debug/MINDS CLIENTEOF.application @@ -7,14 +7,14 @@ - + - cOaJB0l9sCxMAdeCEBDKjp2/rrM= + 2M0s4ts8B5pE1R3uEIgWdjtvdyU= diff --git a/obj/Debug/MINDS CLIENTEOF.exe b/obj/Debug/MINDS CLIENTEOF.exe index 8de0d9f..05307c2 100644 Binary files a/obj/Debug/MINDS CLIENTEOF.exe and b/obj/Debug/MINDS CLIENTEOF.exe differ diff --git a/obj/Debug/MINDS CLIENTEOF.exe.manifest b/obj/Debug/MINDS CLIENTEOF.exe.manifest index a4d8cc9..28a6665 100644 --- a/obj/Debug/MINDS CLIENTEOF.exe.manifest +++ b/obj/Debug/MINDS CLIENTEOF.exe.manifest @@ -78,6 +78,18 @@ + + + + + + + + + 3mf7T51Y20qGCnA8jR9U/wD/mx8= + + + @@ -186,6 +198,18 @@ + + + + + + + + + dhLbFsTBUdCzlS9u6pfABXLDsZc= + + + @@ -247,14 +271,14 @@ - + - CmEn4AYxicleViWqK6UCXGGB+VU= + 7tL0Qf3itWOaPzlGzHaZzmYk5nA= @@ -271,14 +295,14 @@ - + - N2aqvprE9C5PdtVvFRG+vRpQ/8E= + DEMNeVVaj0AXJ5RbDj3Dzpuhu+o= diff --git a/obj/Debug/MINDS CLIENTEOF.pdb b/obj/Debug/MINDS CLIENTEOF.pdb index 0defb41..cb672bf 100644 Binary files a/obj/Debug/MINDS CLIENTEOF.pdb and b/obj/Debug/MINDS CLIENTEOF.pdb differ diff --git a/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt b/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt index 9148303..9f3134e 100644 --- a/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt +++ b/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt @@ -9240,3 +9240,204 @@ C:\Dev\BlackRock\code\client\obj\Debug\MINDS CLIENTEOF.xml C:\Dev\BlackRock\code\client\obj\Debug\MINDS CLIENTEOF.pdb C:\Dev\BlackRock\code\client\obj\Debug\CLIENTE.frmReporteJ13.resources C:\Dev\BlackRock\code\client\obj\Debug\CLIENTE.frmReporteJ14.resources +F:\Minds\2020\Desarrollo\Black\client\bin\MINDS CLIENTEOF.exe.config +F:\Minds\2020\Desarrollo\Black\client\bin\MINDS CLIENTEOF.exe.manifest +F:\Minds\2020\Desarrollo\Black\client\bin\MINDS CLIENTEOF.application +F:\Minds\2020\Desarrollo\Black\client\bin\MINDS CLIENTEOF.exe +F:\Minds\2020\Desarrollo\Black\client\bin\MINDS CLIENTEOF.pdb +F:\Minds\2020\Desarrollo\Black\client\bin\MINDS CLIENTEOF.xml +F:\Minds\2020\Desarrollo\Black\client\bin\adodb.dll +F:\Minds\2020\Desarrollo\Black\client\bin\stdole.dll +F:\Minds\2020\Desarrollo\Black\client\bin\office.dll +F:\Minds\2020\Desarrollo\Black\client\bin\Microsoft.Vbe.Interop.dll +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\Minds Cliente.vbprojResolveAssemblyReference.cache +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ActTipoCambio.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmCatalogos.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmCanales.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRCalificacion.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmAgentes.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmDirAgencia.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmFuncionario.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmMyParametroGrupo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmOficinas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmParam.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmParamsGral.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmStatusPatrones.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.MyAsignaGrupo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.RazonAct.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ClientesBol.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmBuscaListas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmCalStatus.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMListasR.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.PaisesBol.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.PersonasBol.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.CatPais.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmMasterCatalogo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmPatrones.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyActividad.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyEstado.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyInstitucion.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyInstrumento.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyMoneda.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyOrganismo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyProducto.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMySubproducto.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMyTipoOperacion.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmCatEBR.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmEmailFTP.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmPerfilCta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmRazonesUSDMX.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmRazonesCuentaUSD.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmRelacionCuenta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmPropositoCuenta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmCuentasUSD.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmSectorEconomico.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmLocalidad.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmCASFIM.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmEmailAnonimo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmGrupoRiesgo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmSucursal.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmFiguraLegal.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmTipoPersona.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmEstructuraCorp.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmTipoDomicilio.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmTipoCuenta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmProcedenciaRecurso.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmParentesco.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmTipoTransferencia.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmInstrumento.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmIdentificacion.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmFuenteIngreso.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDestinoRecurso.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmActividadVulnerable.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmConcepto.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmCatalogosBinarios.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmConfiguracion.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmAboutBox.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmAccesoControl.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmAvisos.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmEstatusCuenta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmParamsPerfilCta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmRiesgoPPE.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmInformes.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmModificarRep6.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmModificarChequesCaja.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmModificarTransfeInfo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmModificarAcuerdoTransInfo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmModificarDolaresEfec.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.EsquemasDetectados.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmAcuerdoTransfeInfo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmAcumuladoCliente.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmAlarmas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmAlarmasExp.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMBusqueda.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmCal.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmCartas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmChekList.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmChequeCaja.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmclientes.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmConsultaAlarmas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmContestacionOF.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmDocChk.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmDoctosCh.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDolaresEfectivo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmMCapitales.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmModificarTI.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmCiudadOperacion.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmNacionalidad.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmObjCuenta.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmParametrosMR.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmPreload.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmRep6.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmRepInterExt.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmTInternacional.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmTransferenciaInfo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FechaGrafica.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmDivisaGrafica.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.GeografiaGrafica.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Monto.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.MontoGrafica.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.OperBaja.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Patron_Transacciones.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmExcedentes.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDetalleHistoricoDIV.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDetalleHistoricoBI.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDetalleHistoricoBT.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmHistoricoAlarmasDIV.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBI.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBT.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDetalleHistorico.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmHistoricoAlarmas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.logo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmListaRSPID.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.mdiForm.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Resources.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.PopUp.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmConfigHit.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDetalleHit.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmProcesoHit.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.CierreGrupal.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmChequeCaja_Detalle.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmDetalle.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmDetalleFTI.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmEBR.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmEBRDomicilios.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmIngresosDepositos.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.DetalleDormantAccount.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.DetalleOperPre.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Detalles.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.DormatAccount.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ExcProgreso.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRAlarmasKYC.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRAuditoria.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmCuentasRelacionadas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmFraccionadaDET.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FRMFraccionadas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmListaEvidenciasAlarmas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmNewInsuales.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmParamSITI.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmRepAnonimo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmRepEstadistico.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmReporteAsesorias.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmReporteJ13.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmReporteJ14.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmUmbral.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.DetallesSin.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmVigenciaAlertas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrTransaccionesXGpo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.InusualesCredito.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.InusualesDerivados.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.InusualesDivisas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.OperatividadBaja.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.OperInuSinTran.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.OperPreoAdmin.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.OperPreoAdminDetalle.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.OperPreoSinTran.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.PersonasRelacionadas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.PersonasRelacionadasDet.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.RepFraccionadas.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.RepOpInusuales.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ReporteCNBV.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ReporteMerDin.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ReporteOperComer.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ReporteOperPreo.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ReporteRelevantes.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.ReporteSITI.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.RepRelevantes.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmVigenciaCon.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.CambioPassword.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.frmLoginWindows.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.FrmPasswConfig.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Login.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Perfil.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.Permiso.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.UsuarioM.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\CLIENTE.splash.resources +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\Minds Cliente.vbproj.GenerateResource.Cache +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.exe.licenses +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.TrustInfo.xml +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.exe.manifest +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.application +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.exe +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.xml +F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.pdb diff --git a/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache b/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache index 10597e2..90cdc69 100644 Binary files a/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache and b/obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache differ diff --git a/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache b/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache index 08c87c6..378874a 100644 Binary files a/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache and b/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache differ diff --git a/obj/Debug/minds clienteof.exe.licenses b/obj/Debug/minds clienteof.exe.licenses index 4852407..73b575f 100644 Binary files a/obj/Debug/minds clienteof.exe.licenses and b/obj/Debug/minds clienteof.exe.licenses differ