diff --git a/.vs/Minds Cliente/v14/.suo b/.vs/Minds Cliente/v14/.suo index c79f566..1f3ad4d 100644 Binary files a/.vs/Minds Cliente/v14/.suo and b/.vs/Minds Cliente/v14/.suo differ diff --git a/.vs/Minds Cliente/v15/.suo b/.vs/Minds Cliente/v15/.suo index d2fff9f..c9a26d5 100644 Binary files a/.vs/Minds Cliente/v15/.suo and b/.vs/Minds Cliente/v15/.suo differ diff --git a/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide b/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide index e43f3ea..a399444 100644 Binary files a/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide and b/.vs/Minds Cliente/v15/Server/sqlite3/storage.ide differ diff --git a/Busquedas/ClienteBol.resx b/Busquedas/ClienteBol.resx index 06c2c26..589571c 100644 --- a/Busquedas/ClienteBol.resx +++ b/Busquedas/ClienteBol.resx @@ -155,7 +155,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{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}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{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>163</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, 768, 163</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, 768, 163</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{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}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{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}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" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>256</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, 860, 256</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, 860, 256</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> 17, 17 @@ -165,7 +165,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG - CgAAAk1TRnQBSQFMAgEBBAEAAbQBAAG0AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CgAAAk1TRnQBSQFMAgEBBAEAAcwBAAHMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA diff --git a/Busquedas/ClienteBol.vb b/Busquedas/ClienteBol.vb index 4f2d02c..285e9a6 100644 --- a/Busquedas/ClienteBol.vb +++ b/Busquedas/ClienteBol.vb @@ -53,13 +53,25 @@ Public Class ClientesBol Friend WithEvents label4 As Label Friend WithEvents Label1 As Label Friend WithEvents Panel1 As Panel + Friend WithEvents dtpFechaFinal As DateTimePicker + Friend WithEvents Label5 As Label + Friend WithEvents dtpFechaInicio As DateTimePicker + Friend WithEvents Label3 As Label + Friend WithEvents Label7 As Label + Friend WithEvents Label6 As Label + Friend WithEvents cboListaProveedor As ComboBox Friend WithEvents lblResultados As System.Windows.Forms.Label Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ClientesBol)) Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.dtpFechaFinal = New System.Windows.Forms.DateTimePicker() + Me.Label5 = New System.Windows.Forms.Label() + Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker() + Me.Label3 = New System.Windows.Forms.Label() Me.lblStatus = New System.Windows.Forms.Label() Me.cmbStatus = New System.Windows.Forms.ComboBox() + Me.lblfecha = New System.Windows.Forms.Label() Me.txtCliente = New System.Windows.Forms.TextBox() Me.cmbPorcentaje = New System.Windows.Forms.ComboBox() Me.lblPorcentaje = New System.Windows.Forms.Label() @@ -72,7 +84,6 @@ Public Class ClientesBol Me.dataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.lblResultados = New System.Windows.Forms.Label() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) - Me.lblfecha = New System.Windows.Forms.Label() Me.btnCerrar = New System.Windows.Forms.Button() Me.BTExportar = New System.Windows.Forms.Button() Me.BTLimpiar = New System.Windows.Forms.Button() @@ -82,6 +93,9 @@ Public Class ClientesBol Me.label4 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.cboListaProveedor = New System.Windows.Forms.ComboBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -94,26 +108,68 @@ Public Class ClientesBol ' Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox1.Controls.Add(Me.cboListaProveedor) + Me.GroupBox1.Controls.Add(Me.dtpFechaFinal) + Me.GroupBox1.Controls.Add(Me.Label5) + Me.GroupBox1.Controls.Add(Me.dtpFechaInicio) + Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.lblStatus) Me.GroupBox1.Controls.Add(Me.cmbStatus) + Me.GroupBox1.Controls.Add(Me.lblfecha) Me.GroupBox1.Controls.Add(Me.txtCliente) Me.GroupBox1.Controls.Add(Me.cmbPorcentaje) + Me.GroupBox1.Controls.Add(Me.Label7) + Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.lblPorcentaje) Me.GroupBox1.Controls.Add(Me.cmbOrganismo) Me.GroupBox1.Controls.Add(Me.lblOrganismo) Me.GroupBox1.Controls.Add(Me.lblNombreFigura) - Me.GroupBox1.Location = New System.Drawing.Point(12, 56) + Me.GroupBox1.Location = New System.Drawing.Point(12, 54) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(787, 60) + Me.GroupBox1.Size = New System.Drawing.Size(879, 100) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Parámetros de búsqueda" ' + 'dtpFechaFinal + ' + Me.dtpFechaFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpFechaFinal.Location = New System.Drawing.Point(288, 23) + Me.dtpFechaFinal.Name = "dtpFechaFinal" + Me.dtpFechaFinal.Size = New System.Drawing.Size(94, 20) + Me.dtpFechaFinal.TabIndex = 11 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(216, 26) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(62, 13) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "Fecha Final" + ' + 'dtpFechaInicio + ' + Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpFechaInicio.Location = New System.Drawing.Point(85, 23) + Me.dtpFechaInicio.Name = "dtpFechaInicio" + Me.dtpFechaInicio.Size = New System.Drawing.Size(94, 20) + Me.dtpFechaInicio.TabIndex = 11 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(13, 26) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(65, 13) + Me.Label3.TabIndex = 10 + Me.Label3.Text = "Fecha Inicio" + ' 'lblStatus ' Me.lblStatus.AutoSize = True Me.lblStatus.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblStatus.Location = New System.Drawing.Point(176, 18) + Me.lblStatus.Location = New System.Drawing.Point(188, 52) Me.lblStatus.Name = "lblStatus" Me.lblStatus.Size = New System.Drawing.Size(42, 13) Me.lblStatus.TabIndex = 9 @@ -123,48 +179,61 @@ Public Class ClientesBol ' Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbStatus.FormattingEnabled = True - Me.cmbStatus.Location = New System.Drawing.Point(179, 33) + Me.cmbStatus.Location = New System.Drawing.Point(191, 67) Me.cmbStatus.Name = "cmbStatus" Me.cmbStatus.Size = New System.Drawing.Size(191, 21) Me.cmbStatus.TabIndex = 8 ' + 'lblfecha + ' + Me.lblfecha.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblfecha.AutoSize = True + Me.lblfecha.ForeColor = System.Drawing.Color.MidnightBlue + Me.lblfecha.Location = New System.Drawing.Point(881, 76) + Me.lblfecha.Name = "lblfecha" + Me.lblfecha.Size = New System.Drawing.Size(39, 13) + Me.lblfecha.TabIndex = 16 + Me.lblfecha.Text = "Label4" + Me.lblfecha.Visible = False + ' 'txtCliente ' - Me.txtCliente.Location = New System.Drawing.Point(386, 34) + Me.txtCliente.Location = New System.Drawing.Point(443, 24) Me.txtCliente.Name = "txtCliente" - Me.txtCliente.Size = New System.Drawing.Size(395, 20) + Me.txtCliente.Size = New System.Drawing.Size(430, 20) Me.txtCliente.TabIndex = 6 ' 'cmbPorcentaje ' Me.cmbPorcentaje.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmbPorcentaje.Location = New System.Drawing.Point(13, 34) + Me.cmbPorcentaje.Location = New System.Drawing.Point(13, 68) Me.cmbPorcentaje.Name = "cmbPorcentaje" - Me.cmbPorcentaje.Size = New System.Drawing.Size(157, 21) + Me.cmbPorcentaje.Size = New System.Drawing.Size(166, 21) Me.cmbPorcentaje.TabIndex = 5 ' 'lblPorcentaje ' + Me.lblPorcentaje.AutoSize = True Me.lblPorcentaje.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblPorcentaje.Location = New System.Drawing.Point(10, 18) + Me.lblPorcentaje.Location = New System.Drawing.Point(10, 52) Me.lblPorcentaje.Name = "lblPorcentaje" - Me.lblPorcentaje.Size = New System.Drawing.Size(58, 16) + Me.lblPorcentaje.Size = New System.Drawing.Size(58, 13) Me.lblPorcentaje.TabIndex = 4 Me.lblPorcentaje.Text = "Porcentaje" ' 'cmbOrganismo ' Me.cmbOrganismo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmbOrganismo.Location = New System.Drawing.Point(148, 11) + Me.cmbOrganismo.Location = New System.Drawing.Point(395, 68) Me.cmbOrganismo.Name = "cmbOrganismo" - Me.cmbOrganismo.Size = New System.Drawing.Size(22, 21) + Me.cmbOrganismo.Size = New System.Drawing.Size(211, 21) Me.cmbOrganismo.TabIndex = 1 - Me.cmbOrganismo.Visible = False ' 'lblOrganismo ' Me.lblOrganismo.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblOrganismo.Location = New System.Drawing.Point(80, 16) + Me.lblOrganismo.Location = New System.Drawing.Point(783, 23) Me.lblOrganismo.Name = "lblOrganismo" Me.lblOrganismo.Size = New System.Drawing.Size(62, 16) Me.lblOrganismo.TabIndex = 0 @@ -173,10 +242,12 @@ Public Class ClientesBol ' 'lblNombreFigura ' + Me.lblNombreFigura.AutoSize = True + Me.lblNombreFigura.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblNombreFigura.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblNombreFigura.Location = New System.Drawing.Point(383, 16) + Me.lblNombreFigura.Location = New System.Drawing.Point(392, 26) Me.lblNombreFigura.Name = "lblNombreFigura" - Me.lblNombreFigura.Size = New System.Drawing.Size(132, 16) + Me.lblNombreFigura.Size = New System.Drawing.Size(49, 16) Me.lblNombreFigura.TabIndex = 7 Me.lblNombreFigura.Text = "Cliente" Me.lblNombreFigura.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -207,9 +278,9 @@ Public Class ClientesBol Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox2.Controls.Add(Me.dataGrid1) Me.GroupBox2.Controls.Add(Me.lblResultados) - Me.GroupBox2.Location = New System.Drawing.Point(12, 140) + Me.GroupBox2.Location = New System.Drawing.Point(12, 159) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(787, 206) + Me.GroupBox2.Size = New System.Drawing.Size(879, 288) Me.GroupBox2.TabIndex = 1 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Resultados" @@ -231,7 +302,7 @@ Public Class ClientesBol Me.dataGrid1.PreviewInfo.ZoomFactor = 75.0R Me.dataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("dataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.dataGrid1.RowHeight = 15 - Me.dataGrid1.Size = New System.Drawing.Size(772, 167) + Me.dataGrid1.Size = New System.Drawing.Size(864, 260) Me.dataGrid1.TabIndex = 61 Me.dataGrid1.Text = "C1TrueDBGrid1" Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag") @@ -239,7 +310,7 @@ Public Class ClientesBol 'lblResultados ' Me.lblResultados.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.lblResultados.Location = New System.Drawing.Point(6, 191) + Me.lblResultados.Location = New System.Drawing.Point(6, 269) Me.lblResultados.Name = "lblResultados" Me.lblResultados.Size = New System.Drawing.Size(134, 12) Me.lblResultados.TabIndex = 2 @@ -254,26 +325,13 @@ Public Class ClientesBol Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(3, "") ' - 'lblfecha - ' - Me.lblfecha.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblfecha.AutoSize = True - Me.lblfecha.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblfecha.Location = New System.Drawing.Point(12, 119) - Me.lblfecha.Name = "lblfecha" - Me.lblfecha.Size = New System.Drawing.Size(39, 13) - Me.lblfecha.TabIndex = 16 - Me.lblfecha.Text = "Label4" - Me.lblfecha.Visible = False - ' 'btnCerrar ' Me.btnCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCerrar.BackColor = System.Drawing.Color.Black Me.btnCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCerrar.ForeColor = System.Drawing.Color.White - Me.btnCerrar.Location = New System.Drawing.Point(804, 317) + Me.btnCerrar.Location = New System.Drawing.Point(896, 413) Me.btnCerrar.Name = "btnCerrar" Me.btnCerrar.Size = New System.Drawing.Size(89, 30) Me.btnCerrar.TabIndex = 20 @@ -286,7 +344,7 @@ Public Class ClientesBol Me.BTExportar.BackColor = System.Drawing.Color.Black Me.BTExportar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTExportar.ForeColor = System.Drawing.Color.White - Me.BTExportar.Location = New System.Drawing.Point(804, 279) + Me.BTExportar.Location = New System.Drawing.Point(896, 375) Me.BTExportar.Name = "BTExportar" Me.BTExportar.Size = New System.Drawing.Size(89, 32) Me.BTExportar.TabIndex = 19 @@ -299,7 +357,7 @@ Public Class ClientesBol Me.BTLimpiar.BackColor = System.Drawing.Color.Black Me.BTLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTLimpiar.ForeColor = System.Drawing.Color.White - Me.BTLimpiar.Location = New System.Drawing.Point(804, 239) + Me.BTLimpiar.Location = New System.Drawing.Point(896, 335) Me.BTLimpiar.Name = "BTLimpiar" Me.BTLimpiar.Size = New System.Drawing.Size(89, 34) Me.BTLimpiar.TabIndex = 18 @@ -312,7 +370,7 @@ Public Class ClientesBol Me.BTConsultar.BackColor = System.Drawing.Color.Black Me.BTConsultar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTConsultar.ForeColor = System.Drawing.Color.White - Me.BTConsultar.Location = New System.Drawing.Point(804, 197) + Me.BTConsultar.Location = New System.Drawing.Point(896, 293) Me.BTConsultar.Name = "BTConsultar" Me.BTConsultar.Size = New System.Drawing.Size(89, 36) Me.BTConsultar.TabIndex = 17 @@ -329,14 +387,14 @@ Public Class ClientesBol Me.panel2.ForeColor = System.Drawing.Color.Navy Me.panel2.Location = New System.Drawing.Point(-2, -1) Me.panel2.Name = "panel2" - Me.panel2.Size = New System.Drawing.Size(910, 51) + Me.panel2.Size = New System.Drawing.Size(1002, 51) Me.panel2.TabIndex = 160 ' 'Img_logoCabecera ' Me.Img_logoCabecera.Anchor = System.Windows.Forms.AnchorStyles.Right Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo - Me.Img_logoCabecera.Location = New System.Drawing.Point(790, 3) + Me.Img_logoCabecera.Location = New System.Drawing.Point(882, 3) 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 @@ -362,7 +420,7 @@ Public Class ClientesBol 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.Color.White - Me.Label1.Location = New System.Drawing.Point(853, 4) + Me.Label1.Location = New System.Drawing.Point(945, 4) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(42, 17) Me.Label1.TabIndex = 161 @@ -374,23 +432,51 @@ Public Class ClientesBol Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel1.BackColor = System.Drawing.Color.Black Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Location = New System.Drawing.Point(-2, 364) + Me.Panel1.Location = New System.Drawing.Point(-2, 453) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(909, 35) + Me.Panel1.Size = New System.Drawing.Size(1001, 35) Me.Panel1.TabIndex = 162 ' + 'Label6 + ' + Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label6.Location = New System.Drawing.Point(392, 52) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(58, 16) + Me.Label6.TabIndex = 4 + Me.Label6.Text = "Organismo" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label7.Location = New System.Drawing.Point(650, 52) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(87, 13) + Me.Label7.TabIndex = 4 + Me.Label7.Text = "Organismo QesQ" + ' + 'cboListaProveedor + ' + Me.cboListaProveedor.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboListaProveedor.Enabled = False + Me.cboListaProveedor.FormattingEnabled = True + Me.cboListaProveedor.Location = New System.Drawing.Point(649, 68) + Me.cboListaProveedor.Name = "cboListaProveedor" + Me.cboListaProveedor.Size = New System.Drawing.Size(150, 21) + Me.cboListaProveedor.TabIndex = 17 + ' 'ClientesBol ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(906, 394) + Me.ClientSize = New System.Drawing.Size(998, 483) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.btnCerrar) Me.Controls.Add(Me.BTExportar) Me.Controls.Add(Me.BTLimpiar) Me.Controls.Add(Me.BTConsultar) - Me.Controls.Add(Me.lblfecha) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.cmbPais) @@ -420,6 +506,7 @@ Public Class ClientesBol Dim clCmp2 As clsComplejo = New clsComplejo Dim clCmp3 As clsComplejo = New clsComplejo Dim clCmp4 As clsComplejo = New clsComplejo + Dim clCmp5 As clsComplejo = New clsComplejo Dim clGrid As clsComplejo = New clsComplejo Dim BanOrg, BanPais, BanPorc, BanStatus As Boolean @@ -430,6 +517,28 @@ Public Class ClientesBol BanOrg = False BanStatus = False label4.Text = Me.Text + + dtpFechaInicio.Value = Date.Now.Date + dtpFechaFinal.Value = Date.Now.Date + + + 'cboListaProveedor + + 'clCmp5.sbLlenaCombo("sp_ConsultarOrganismosInter ", Me.cmbOrganismo) + + + 'Select distinct lista From ListaRestringida order by 1 asc + + Dim dt As New DataTable + + dt = clCmp5.fdtDataTable("SP_ConsultarListaQesQ") + + For Each dr As DataRow In dt.Rows + + cboListaProveedor.Items.Add(dr(0)) + Next + + End Sub 'Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick @@ -472,6 +581,33 @@ Public Class ClientesBol End Try End Sub + Private Sub Exportar2() + 'llama a las rutinas para exportar el grid a excel + Try + If clGrid.ds.Tables(0).Rows.Count = 0 Then + MessageBox.Show("Debe Realizarse una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) + Else + If clGrid.ds.Tables(0).Rows.Count = 0 Then + MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) + Else + Dim Resul As DialogResult + Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If Resul = DialogResult.Yes Then + 'Creo una instancia de la clase aExcel + Dim clsExcel As aExcel = New aExcel + 'Utilizo la funcion ExportDataset de la clase aExcel + 'clsExcel.ExportCSV(clGrid.ds) 'Asigno el dataset a exportar + 'clsExcel.ExportExcel(clGrid.ds) 'Asigno el dataset a exportar + clsExcel.ExportToExcel(clGrid.ds) 'Asigno el dataset a exportar + + End If + End If + End If + Catch ex As Exception + MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub + Private Sub sbBuscar() Try 'Se utiliza el procedimiento almacenado "spBuscaClienteBol" para buscar @@ -484,6 +620,11 @@ Public Class ClientesBol 'JLL 27-08-2013 oculto las columnas con la funcion clocultarcolumna Dim OcultarCol As clOcultarColumna = New clOcultarColumna() + dataGrid1.DataSource = Nothing + 'dataGrid1.DataBindings.Clear() + + BTConsultar.Enabled = False + SQL = "" Where = "" intCuenta = 0 @@ -493,13 +634,21 @@ Public Class ClientesBol SQL = SQL & "," & IIf(cmbPorcentaje.Text <> "", "'" & cmbPorcentaje.Text.Replace("%", "") & "'", "NULL") SQL = SQL & "," & IIf(cmbStatus.SelectedValue <> Nothing, cmbStatus.SelectedValue, "NULL") SQL = SQL & "," & IIf(txtCliente.Text <> "", "'" & txtCliente.Text.Trim & "'", "NULL") + SQL = SQL & ",'" & dtpFechaInicio.Value.ToString("yyyy-MM-dd") & "','" & dtpFechaFinal.Value.ToString("yyyy-MM-dd") & "'" + SQL = SQL & "," & IIf(cboListaProveedor.Text <> "", "'" & cboListaProveedor.Text & "'", "NULL") + 'SQL = "Select IdOrganismoInternacional,IdPais,IdComunicado,NombreCompleto,Observaciones,Estatus,FechaActualiza,Alias,Pais,Puesto,Dependencia,FechaCarga,IdListaRestringida,Reference,Type,Address,City,State,SearchCode,NationalID,Passport,BICCode,DOB,Category,Comments,Source,RFC From ListaRestringida" + + clGrid = Nothing + clGrid = New clsComplejo clGrid.dt = New DataTable - clGrid.fdtDataTable(SQL) + 'clGrid.fdtDataTable(SQL) clGrid.fdtDataSet(SQL) - dataGrid1.DataSource = Nothing - dataGrid1.DataSource = clGrid.dt + + 'dataGrid1.DataSource = clGrid.dt + dataGrid1.DataSource = clGrid.ds.Tables(0) + If dataGrid1.RowCount > 0 Then For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In dataGrid1.Splits(0).DisplayColumns col.AutoSize() @@ -520,18 +669,18 @@ Public Class ClientesBol Dim cont As Integer 'cont = clGrid.ds.Tables(0).Rows.Count - cont = clGrid.dt.Rows.Count + cont = clGrid.ds.Tables(0).Rows.Count 'clGrid.dt.Rows.Count lblResultados.Text = "Elementos: " & cont varfecha = CLasscom.BuscaValores("dFechaRegistro", "listacliente", "") - If Not IsDBNull(varfecha) Then - lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy") - lblfecha.AutoSize = True - lblfecha.Visible = True - Else - lblfecha.Visible = False - End If + 'If Not IsDBNull(varfecha) Then + ' lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy") + ' lblfecha.AutoSize = True + ' lblfecha.Visible = True + 'Else + ' lblfecha.Visible = False + 'End If sAuditoria = "" If cmbOrganismo.Text.Trim <> "" Then sAuditoria = sAuditoria & " Organismo=" & cmbOrganismo.Text.Trim @@ -546,8 +695,11 @@ Public Class ClientesBol ClassAud.RT_Auditoria(clsVaribles.varUsuario, 113, My.Computer.Name, "Minds Cliente", sAuditoria) Catch ex As Exception + BTConsultar.Enabled = True + MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try + BTConsultar.Enabled = True End Sub @@ -746,6 +898,11 @@ Public Class ClientesBol BanOrg = False BanPorc = False BanStatus = False + + cmbOrganismo.SelectedText = -1 + cboListaProveedor.SelectedIndex = -1 + cboListaProveedor.Enabled = False + End Sub Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown @@ -875,7 +1032,9 @@ Public Class ClientesBol End Sub Private Sub BTConsultar_Click(sender As System.Object, e As System.EventArgs) Handles BTConsultar.Click + Me.Cursor = Cursors.WaitCursor sbBuscar() + Me.Cursor = Cursors.Default End Sub Private Sub dataGrid1_FetchCellStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles dataGrid1.FetchCellStyle @@ -887,12 +1046,31 @@ Public Class ClientesBol lblResultados.Text = "Elementos: " & dataGrid1.Splits(0).Rows.Count.ToString() End Sub + Private Sub cmbOrganismo_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbOrganismo.SelectionChangeCommitted + + If Not cmbOrganismo.SelectedValue Is Nothing Then + + If cmbOrganismo.SelectedValue.ToString() = "17" Then cboListaProveedor.Enabled = True Else cboListaProveedor.Enabled = False : cboListaProveedor.SelectedIndex = -1 + + Else + cboListaProveedor.Enabled = False + End If + + End Sub + Private Sub BTLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BTLimpiar.Click Refrescar() End Sub Private Sub BTExportar_Click(sender As System.Object, e As System.EventArgs) Handles BTExportar.Click - Exportar() + 'Exportar() + BTConsultar.Enabled = False + BTExportar.Enabled = False + + Exportar2() + + BTConsultar.Enabled = True + BTExportar.Enabled = True End Sub Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click diff --git a/Busquedas/FRMListasR.vb b/Busquedas/FRMListasR.vb index 9397870..d69f174 100644 --- a/Busquedas/FRMListasR.vb +++ b/Busquedas/FRMListasR.vb @@ -715,7 +715,7 @@ Salir: End Sub Private Sub CmdBusqueda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBusqueda.Click - Dim trd As Thread + 'Dim trd As Thread Try Dim sSQL As String diff --git a/ClasesModulos/aExcel.vb b/ClasesModulos/aExcel.vb index bb60328..72127c4 100644 --- a/ClasesModulos/aExcel.vb +++ b/ClasesModulos/aExcel.vb @@ -1,5 +1,7 @@ 'Enero 2006 'clase que se utiliza para la exportacion de datos a excel +Imports System.Globalization +Imports System.IO Imports Excel 'Aplicacion de excel Imports Microsoft.Office Public Class aExcel @@ -14,7 +16,7 @@ Public Class aExcel Dim ConWs As Integer = 1 Try 'instanciamos la applicacion de excel - + ''System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US") System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX") excelApp = New Interop.Excel.Application @@ -58,40 +60,40 @@ Public Class aExcel End Function - Private Function Export(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet) - 'Funcion que hace la exportacion de datos (COPIA) - Dim r As Excel.Range - Dim c As Excel.Chart - Dim row As Integer = 1 - Dim cell As Integer = 1 - 'Dim Classcom As New clsComplejo + Private Function Export(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet) + 'Funcion que hace la exportacion de datos (COPIA) + Dim r As Excel.Range + Dim c As Excel.Chart + Dim row As Integer = 1 + Dim cell As Integer = 1 + 'Dim Classcom As New clsComplejo - 'Se obtiene el numero de registros a exportar - Count = Tbl.Rows.Count + 'Se obtiene el numero de registros a exportar + Count = Tbl.Rows.Count - 'Se establen las propiedades de barra de progreso - frmBarra.pbrAvance.Maximum = Count + 'Se establen las propiedades de barra de progreso + frmBarra.pbrAvance.Maximum = Count - 'titulo de la hoja - ws.Name = "MINDS" + 'titulo de la hoja + ws.Name = "MINDS" - 'Periodo - 'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy") + 'Periodo + 'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy") - 'Se pone la fecha en la primera fila - 'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString) - ws.Cells(row, 1) = Titulo + 'Se pone la fecha en la primera fila + 'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString) + ws.Cells(row, 1) = Titulo - 'hacemos un rango para ponerlo en negrita - r = CType(ws.Cells(row, 1), Range) - r.Font.Bold = True - 'r.Font.Size = 8 - row += 2 + 'hacemos un rango para ponerlo en negrita + r = CType(ws.Cells(row, 1), Range) + r.Font.Bold = True + 'r.Font.Size = 8 + row += 2 - 'se recuperan los encabezados del dataset - Dim H As Integer - For H = 0 To Tbl.Columns.Count - 1 + 'se recuperan los encabezados del dataset + Dim H As Integer + For H = 0 To Tbl.Columns.Count - 1 ws.Cells(row, cell) = Tbl.Columns(H).Caption() ''Identifica si la columna es de tipo string. Si si es entonces formatea toda la columna a tipo String. (Esto para que las columnas de texto, no las maneje como numeros. Ejemplo: numero de cuenta) If Tbl.Columns(H).DataType.ToString.ToUpper = "SYSTEM.STRING" Then @@ -122,27 +124,160 @@ Public Class aExcel ''ws.Cells.NumberFormat = "@" End If ''Fin de identificar la columna. - 'ws.Columns(cell).autoFit() - 'ws.Cells.HorizontalAlignment = "xlCenteR" - cell += 1 - Next + 'ws.Columns(cell).autoFit() + 'ws.Cells.HorizontalAlignment = "xlCenteR" + cell += 1 + Next - For H = 1 To cell - 1 - r = CType(ws.Cells(row, H), Range) - r.Font.Bold = True - 'r.Font.Size = 8 - r.Cells.BorderAround() - 'r.HorizontalAlignment = "xlCenteR" - Next H + For H = 1 To cell - 1 + r = CType(ws.Cells(row, H), Range) + r.Font.Bold = True + 'r.Font.Size = 8 + r.Cells.BorderAround() + 'r.HorizontalAlignment = "xlCenteR" + Next H - row += 1 - cell = 1 + row += 1 + cell = 1 - 'creando las filas - Dim dc As DataColumn - Dim Dr As DataRow - Dim x As Integer = 1 'para sacar el porcentaje - 'se muestra el form de la bara de progreso + 'creando las filas + Dim dc As DataColumn + Dim Dr As DataRow + Dim x As Integer = 1 'para sacar el porcentaje + 'se muestra el form de la bara de progreso + Try + frmBarra.pbExportCancel = False + frmBarra.Show() + + 'Copiando los datos + For Each Dr In Tbl.Rows + For H = 0 To Tbl.Columns.Count - 1 + If IsDate(Dr.Item(H)) = True And Dr.Item(H).GetType().ToString.ToUpper = "SYSTEM.STRING" And (Dr.Item(H).ToString.Contains("/") = True Or Dr.Item(H).ToString.Contains("-") = True) Then + ws.Cells(row, cell) = DateTime.Parse(Dr.Item(H)) + ElseIf Dr.Item(H).GetType().ToString.ToUpper = "SYSTEM.TIMESPAN" Then + ws.Cells(row, cell) = Dr.Item(H).ToString + Else + ws.Cells(row, cell) = Dr.Item(H) + End If + + ''LA Pc esta poniendo 02/01/1900 cuando la fecha es 01/01/1900, el codigo siguiente intenta remediar lo anterior. + If Left(Dr.Item(H).ToString(), 10) = "01/01/1900" Then + ws.Cells(row, cell) = "01/01/1900" + End If + + 'ws.Columns(cell).autoFit() + 'ws.Cells.Font.Size = 8 + cell += 1 + Next + cell = 1 + row += 1 + 'se va incrementando los cuadritos de la barra + frmBarra.pbrAvance.Value += 1 + 'Se saca el porcentaje + frmBarra.Text = "Exportando a Excel: " & CInt((x * 100) / Count) & " %" + x += 1 + If (row Mod 100) = 0 Then + System.Windows.Forms.Application.DoEvents() + If frmBarra.pbExportCancel Then + If MessageBox.Show("¿Desea cancelar la exportación?", "Minds", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + Exit Function + Else + frmBarra.pbExportCancel = False '--Ç- Se le agrega para continuar sin la cancelas + End If + End If + End If + Next + ' row += 1 'la quite 3 enero 2006 + Catch ex As Exception + MessageBox.Show("Hubo un problema en la exportación " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Try + End Function + Private Function Export2(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet, name As String) + 'Funcion que hace la exportacion de datos (COPIA) + Dim r As Excel.Range + Dim c As Excel.Chart + Dim row As Integer = 1 + Dim cell As Integer = 1 + 'Dim Classcom As New clsComplejo + + 'Se obtiene el numero de registros a exportar + Count = Tbl.Rows.Count + + 'Se establen las propiedades de barra de progreso + frmBarra.pbrAvance.Maximum = Count + frmBarra.pbrAvance.Value = 0 + + 'titulo de la hoja + ws.Name = name + + 'Periodo + 'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy") + + + 'Se pone la fecha en la primera fila + 'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString) + ws.Cells(row, 1) = Titulo + + 'hacemos un rango para ponerlo en negrita + r = CType(ws.Cells(row, 1), Range) + r.Font.Bold = True + 'r.Font.Size = 8 + row += 2 + + 'se recuperan los encabezados del dataset + Dim H As Integer + For H = 0 To Tbl.Columns.Count - 1 + ws.Cells(row, cell) = Tbl.Columns(H).Caption() + ''Identifica si la columna es de tipo string. Si si es entonces formatea toda la columna a tipo String. (Esto para que las columnas de texto, no las maneje como numeros. Ejemplo: numero de cuenta) + If Tbl.Columns(H).DataType.ToString.ToUpper = "SYSTEM.STRING" Then + Dim cLetra As Char + Dim sLetra As String + ''Obtiene la letra de la columna. + Dim iColExc As Integer + iColExc = 65 + H + Select Case iColExc + Case 65 To 90 + cLetra = Chr(iColExc) + sLetra = cLetra.ToString + Case 91 To 116 + cLetra = Chr(iColExc - 26) + sLetra = "A" & cLetra.ToString + Case 117 To 142 + cLetra = Chr(iColExc - 26 * 2) + sLetra = "B" & cLetra.ToString + Case 143 To 168 + cLetra = Chr(iColExc - 26 * 3) + sLetra = "C" & cLetra.ToString + Case 169 To 194 + cLetra = Chr(iColExc - 26 * 4) + sLetra = "D" & cLetra.ToString + End Select + ws.Columns(sLetra & ":" & sLetra).Select() ''Quiere obtener F:F + ws.Columns(sLetra & ":" & sLetra).NumberFormat = "@" + ''ws.Cells.NumberFormat = "@" + End If + ''Fin de identificar la columna. + 'ws.Columns(cell).autoFit() + 'ws.Cells.HorizontalAlignment = "xlCenteR" + cell += 1 + Next + + For H = 1 To cell - 1 + r = CType(ws.Cells(row, H), Range) + r.Font.Bold = True + 'r.Font.Size = 8 + r.Cells.BorderAround() + 'r.HorizontalAlignment = "xlCenteR" + Next H + + row += 1 + cell = 1 + + 'creando las filas + Dim dc As DataColumn + Dim Dr As DataRow + Dim x As Integer = 1 'para sacar el porcentaje + 'se muestra el form de la bara de progreso Try frmBarra.pbExportCancel = False frmBarra.Show() @@ -191,192 +326,566 @@ Public Class aExcel End Try End Function - Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String) - Try - Dim m_Excel As New Microsoft.Office.Interop.Excel.Application - Dim clCmpTipo As clsComplejo - - Dim CategoryName As String ' Variable para controlar la ruptura por nombre de categoria - Dim apath As String - Dim filename As String - Dim aName As String - '' Creamos un objeto WorkBook - Dim objLibroExcel As Microsoft.Office.Interop.Excel.Workbook - - '' Creamos un objeto WorkSheet - Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet - - Dim sql As String - 'sql = "spExportaExcel " & "'" & _tipo & "','" & _Nombre & "','" & _KYC_estatus & "','" & _estatuscte & "','" & clsvariables.VarPerfil & "','" & clsvariables.varIdFuncionario & "'" - - clCmpTipo = New clsComplejo - 'clCmpTipo.fdtDataSetTabla(sql) - clCmpTipo.ds = Ds - If clCmpTipo.ds.Tables.Count = 0 Then - ' Me.GrdBusqueda.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid - - MsgBox("Se ha realizado la búsqueda y no hay registros para mostrar. Revise su perfil, posiblemente no tenga acceso a ellos", MsgBoxStyle.Information) - Exit Sub - End If - '' Iniciamos una instancia a excel - m_Excel = New Microsoft.Office.Interop.Excel.Application - m_Excel.Visible = True + Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String) + Try + Dim m_Excel As New Microsoft.Office.Interop.Excel.Application + Dim clCmpTipo As clsComplejo - '' Creamos una variable para gualdar la cultura actual - Dim OldCultureInfo As System.Globalization.CultureInfo = _ - System.Threading.Thread.CurrentThread.CurrentCulture + Dim CategoryName As String ' Variable para controlar la ruptura por nombre de categoria + Dim apath As String + Dim filename As String + Dim aName As String + '' Creamos un objeto WorkBook + Dim objLibroExcel As Microsoft.Office.Interop.Excel.Workbook - 'Crear una cultura standard (en-US) inglés estados unidos - System.Threading.Thread.CurrentThread.CurrentCulture = _ - New System.Globalization.CultureInfo("en-US") + '' Creamos un objeto WorkSheet + Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet - '' Creamos una instancia del Workbooks de excel - '' Creamos una instancia de la primera hoja de trabajo de excel - objLibroExcel = m_Excel.Workbooks.Add() - objHojaExcel = objLibroExcel.Worksheets(1) - objHojaExcel.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible + Dim sql As String + 'sql = "spExportaExcel " & "'" & _tipo & "','" & _Nombre & "','" & _KYC_estatus & "','" & _estatuscte & "','" & clsvariables.VarPerfil & "','" & clsvariables.varIdFuncionario & "'" - '' Hacemos esta hoja la visible en pantalla - '' (como seleccionamos la primera esto no es necesario - '' si seleccionamos una diferente a la primera si lo - '' necesitariamos). - objHojaExcel.Activate() + clCmpTipo = New clsComplejo + 'clCmpTipo.fdtDataSetTabla(sql) + clCmpTipo.ds = Ds + If clCmpTipo.ds.Tables.Count = 0 Then + ' Me.GrdBusqueda.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid - aName = _ - System.Reflection.Assembly.GetExecutingAssembly. _ - GetModules()(0).FullyQualifiedName - - apath = System.IO.Path.GetDirectoryName(aName) - filename = apath & "\logo1.jpg" - - 'Dim xlSheet1 As Excel.Worksheet - Dim xlRange As Microsoft.Office.Interop.Excel.Range - - Dim ms As New System.IO.MemoryStream - Dim oIMage As Image = Image.FromFile(filename) - oIMage.Save(ms, oIMage.RawFormat) - Dim arrImage() As Byte = ms.GetBuffer - Dim integralLogo As Bitmap = CType(Image.FromStream(ms), Bitmap) - 'integralLogo.Size = (100, 200) - Clipboard.SetDataObject(integralLogo) - xlRange = objHojaExcel.Range(objHojaExcel.Cells(1, 1), objHojaExcel.Cells(1, 1)) - xlRange.Select() - objHojaExcel.Paste() - - Dim nCol As Integer - Dim iI As Integer - Dim nameCol As String - - nCol = clCmpTipo.ds.Tables(0).Columns.Count - - '' Crear el encabezado de nuestro informe - objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Merge() - objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Value = lstitulo - objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Bold = True - objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Size = 15 - objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").HorizontalAlignment = -4108 - - - '' Crear el subencabezado de nuestro informe - objHojaExcel.Range("A2:g2").Merge() - objHojaExcel.Range("A2:g2").Value = "" - objHojaExcel.Range("A2:g2").Font.Italic = True - objHojaExcel.Range("A2:g2").Font.Size = 13 - - - 'contando el numero de columnas - Dim liContAlf As Integer = 65 - Dim objCelda As Microsoft.Office.Interop.Excel.Range - 'llenar el checked - For iI = 0 To nCol - 1 - 'recuperndo el nombre de la columna - nameCol = clCmpTipo.ds.Tables(0).Columns.Item(iI).Caption - objCelda = objHojaExcel.Range(Chr(liContAlf) & "4", Type.Missing) - objCelda.Value = nameCol - objCelda.EntireColumn.AutoFit() - liContAlf = liContAlf + 1 - 'LstColumnas.Items.Add(nameCol) - Next - - - Dim i As Integer = 6 - Dim j As Integer = 6 - Dim H As Integer - CategoryName = "" - - - - For H = 0 To clCmpTipo.ds.Tables(0).Rows.Count - 1 - - '' Asignar los valores de los registros a las celdas - liContAlf = 65 - For iI = 0 To nCol - 1 - If IsDBNull(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then - objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing) - objCelda.Value = "" - - Else - - objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI) - objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing) - If IsNumeric(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then - objCelda.Value = String.Format("{0:G}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) - objCelda.NumberFormat = "0" - ElseIf IsDate(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then - objCelda.Value = String.Format("{0:d}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) - Else - objCelda.Value = " " & clCmpTipo.ds.Tables(0).Rows(H).Item(iI).ToString + MsgBox("Se ha realizado la búsqueda y no hay registros para mostrar. Revise su perfil, posiblemente no tenga acceso a ellos", MsgBoxStyle.Information) + Exit Sub End If - 'Debug.Print(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) - 'objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI) - 'objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing) - 'objCelda.Value = clCmpTipo.ds.Tables(0).Rows(H).Item(iI) - End If - liContAlf = liContAlf + 1 - 'LstColumnas.Items.Add(nameCol) + + '' Iniciamos una instancia a excel + m_Excel = New Microsoft.Office.Interop.Excel.Application + m_Excel.Visible = True + + '' Creamos una variable para gualdar la cultura actual + Dim OldCultureInfo As System.Globalization.CultureInfo = + System.Threading.Thread.CurrentThread.CurrentCulture + + 'Crear una cultura standard (en-US) inglés estados unidos + System.Threading.Thread.CurrentThread.CurrentCulture = + New System.Globalization.CultureInfo("en-US") + + '' Creamos una instancia del Workbooks de excel + '' Creamos una instancia de la primera hoja de trabajo de excel + objLibroExcel = m_Excel.Workbooks.Add() + objHojaExcel = objLibroExcel.Worksheets(1) + objHojaExcel.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible + + '' Hacemos esta hoja la visible en pantalla + '' (como seleccionamos la primera esto no es necesario + '' si seleccionamos una diferente a la primera si lo + '' necesitariamos). + objHojaExcel.Activate() + + aName = + System.Reflection.Assembly.GetExecutingAssembly. + GetModules()(0).FullyQualifiedName + + apath = System.IO.Path.GetDirectoryName(aName) + filename = apath & "\logo1.jpg" + + 'Dim xlSheet1 As Excel.Worksheet + Dim xlRange As Microsoft.Office.Interop.Excel.Range + + Dim ms As New System.IO.MemoryStream + Dim oIMage As Image = Image.FromFile(filename) + oIMage.Save(ms, oIMage.RawFormat) + Dim arrImage() As Byte = ms.GetBuffer + Dim integralLogo As Bitmap = CType(Image.FromStream(ms), Bitmap) + 'integralLogo.Size = (100, 200) + Clipboard.SetDataObject(integralLogo) + xlRange = objHojaExcel.Range(objHojaExcel.Cells(1, 1), objHojaExcel.Cells(1, 1)) + xlRange.Select() + objHojaExcel.Paste() + + Dim nCol As Integer + Dim iI As Integer + Dim nameCol As String + + nCol = clCmpTipo.ds.Tables(0).Columns.Count + + '' Crear el encabezado de nuestro informe + objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Merge() + objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Value = lstitulo + objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Bold = True + objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Size = 15 + objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").HorizontalAlignment = -4108 + + + '' Crear el subencabezado de nuestro informe + objHojaExcel.Range("A2:g2").Merge() + objHojaExcel.Range("A2:g2").Value = "" + objHojaExcel.Range("A2:g2").Font.Italic = True + objHojaExcel.Range("A2:g2").Font.Size = 13 + + + 'contando el numero de columnas + Dim liContAlf As Integer = 65 + Dim objCelda As Microsoft.Office.Interop.Excel.Range + 'llenar el checked + For iI = 0 To nCol - 1 + 'recuperndo el nombre de la columna + nameCol = clCmpTipo.ds.Tables(0).Columns.Item(iI).Caption + objCelda = objHojaExcel.Range(Chr(liContAlf) & "4", Type.Missing) + objCelda.Value = nameCol + objCelda.EntireColumn.AutoFit() + liContAlf = liContAlf + 1 + 'LstColumnas.Items.Add(nameCol) + Next + + + Dim i As Integer = 6 + Dim j As Integer = 6 + Dim H As Integer + CategoryName = "" + + + + For H = 0 To clCmpTipo.ds.Tables(0).Rows.Count - 1 + + '' Asignar los valores de los registros a las celdas + liContAlf = 65 + For iI = 0 To nCol - 1 + If IsDBNull(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then + objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing) + objCelda.Value = "" + + Else + + objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI) + objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing) + If IsNumeric(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then + objCelda.Value = String.Format("{0:G}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) + objCelda.NumberFormat = "0" + ElseIf IsDate(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then + objCelda.Value = String.Format("{0:d}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) + Else + objCelda.Value = " " & clCmpTipo.ds.Tables(0).Rows(H).Item(iI).ToString + End If + 'Debug.Print(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) + 'objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI) + 'objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing) + 'objCelda.Value = clCmpTipo.ds.Tables(0).Rows(H).Item(iI) + + End If + liContAlf = liContAlf + 1 + 'LstColumnas.Items.Add(nameCol) + Next + i += 1 + Next + + + i += 1 + + '' Seleccionar todo el bloque desde A1 hasta D #de filas + Dim objRango As Microsoft.Office.Interop.Excel.Range = objHojaExcel.Range("A4:" & Chr(nCol + 65) & (i - 1).ToString) + + '' Selecionado todo el rango especificado + objRango.Select() + + '' Ajustamos el ancho de las columnas al ancho máximo del + '' contenido de sus celdas + objRango.Columns.AutoFit() + + '' Asignar filtro por columna + objRango.AutoFilter(1, , VisibleDropDown:=True) + + '' Asignar un formato automatico + objRango.AutoFormat(18, Alignment:=False) + '' Seleccionamos el total general del reporte y asignamos + '' font a negrita e italica + objRango = objHojaExcel.Range("A" & i.ToString & ":z" & i.ToString) + objRango.Select() + objRango.Font.Bold = True + objRango.Font.Italic = True + + '' Crear un total general + objHojaExcel.Cells(i, 1) = "Total de Registros " + objHojaExcel.Cells(i, 3) = "=count(A6:a" & (i - 1).ToString & ")" + + objHojaExcel = Nothing + objLibroExcel = Nothing + + Catch ex As Exception + MessageBox.Show("Problemas al exportar " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Try + End Sub + + Public Function ExportCSV(ByVal Ds As System.Data.DataSet) + + Dim fileroot As String + Dim wrFile As StreamWriter + Dim enc As String + Dim tcols As Integer = 0 + Dim trows As Integer = 0 + Dim ext As String + Dim name As String + Dim root As String + + Try + + Do + fileroot = generarNombreArchivo() + Loop While File.Exists(fileroot) + + If Ds.Tables(0).Rows.Count > 0 Then + + wrFile = New StreamWriter(fileroot) + Dim ls As String = CultureInfo.CurrentCulture.TextInfo.ListSeparator + + enc = String.Format("Registro en Lista{0}NIC{0}CLIENTE{0}Nombre Figura{0}Tipo Figura{0}Nombre Coincidencia{0}Alias Coincidencia{0}Observaciones Coincidencia{0}Porcentaje Nombre{0}Porcentaje Observaciones{0}Organismo{0}Estatus{0}Fecha Coincidencia{0}Fecha Cambio{0}Comentario{0}CLIENTE RFC{0}LISTA RFC{0}ID LISTA{0}id_status{0}Id_Organismo{0}figura{0}IDCliente{0}Id_Figura{0}ORGANISMO QUIEN ES QUIEN{0}CURP{0}ESTATUS QUIEN ES QUIEN{0}TIPO DE OFICIO{0}FECHA OFICIO", ls) + wrFile.WriteLine(enc) + + trows = Ds.Tables(0).Rows.Count + 1 + tcols = Ds.Tables(0).Columns.Count + 1 + + For Each r As DataRow In Ds.Tables(0).Rows + + For Each c As Object In r.ItemArray + wrFile.Write(c.ToString.Replace(",", "*") & ls) + 'wrFile.Write(c.ToString & ls) + Next + wrFile.WriteLine() + Next + + wrFile.Flush() + wrFile.Close() + + + Dim dataFile As New FileInfo(fileroot) + Dim fileExcel As String + + ext = dataFile.Extension + name = dataFile.Name + root = dataFile.DirectoryName + + fileExcel = root & "\" & name.Replace(ext, "") & ".xlsx" + + 'FileSystem.Rename(fileroot, fileExcel) + + 'Process.Start(fileExcel) + 'Process.Start(fileroot) + + + 'excelApp = New Interop.Excel.Application + 'excelApp.GetOpenFilename() + 'excelApp.Visible = True + + + 'Process.Start(fileroot) + + excelApp = New Interop.Excel.Application + excelApp.Workbooks.Open(fileroot) + + + excelApp.Sheets(1).Name = "MINDS" + + excelApp.Sheets(1).Range("A1:AB1").Font.Bold = True + excelApp.Sheets(1).Range("A1:AB1").BorderAround(ColorIndex:=0, Weight:=XlBorderWeight.xlThick) + + excelApp.Application.CutCopyMode = False + excelApp.Workbooks.Application.CutCopyMode = False + excelApp.Sheets(1).Application.CutCopyMode = False + + + Dim objRango As Microsoft.Office.Interop.Excel.Range = excelApp.Sheets(1).Range("A1:A" & trows) + + 'excelApp.Sheets(1).Range("B1:B" & tcols).ClearContents + + + + + + excelApp.Sheets(1).Range("A1:A" & trows).TextToColumns(Destination:=objRango, + DataType:=XlTextParsingType.xlDelimited, + Other:=True, OtherChar:="|" + ) + + excelApp.Sheets(1).Columns.AutoFit() + + + 'excelApp.Sheets(1).Range("A1:A" & tcols).ClearContents + + + 'excelApp.Sheets(1).Range("A1").TextToColumns(Destination:=objRango, + ' DataType:=XlTextParsingType.xlDelimited, + ' TextQualifier:=XlTextQualifier.xlTextQualifierDoubleQuote, + ' ConsecutiveDelimiter:=False, + ' Tab:=False, + ' Semicolon:=False, + ' Comma:=False, + ' Space:=False, + ' Other:=True, + ' OtherChar:="|", + ' FieldInfo:="Valor", + ' TrailingMinusNumbers:=True) + + + 'excelApp.Sheets(1).range("A1:" & ) + 'excelApp.Sheets(1).Range("A1") + + + 'r.Font.Bold = True + 'r.Cells.BorderAround() + 'excelApp.Sheets(1).Select() + 'excelApp.Sheets(1).Columns.AutoFit() + 'Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet + + + excelApp.Visible = True + 'excelApp.Sheets(1).Active + + + End If + + 'ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud) + Catch ex As Exception + + If excelApp IsNot Nothing Then + excelApp.Workbooks().Close() + excelApp.Quit() + excelApp = Nothing + End If + + MsgBox(ex.Message) + End Try + + End Function + + Private Function generarNombreArchivo() + Return Path.GetTempPath() & Now.Second & Now.Millisecond & ".csv" + End Function + + + Public Function ExportExcel(ByVal Ds As System.Data.DataSet) + + Dim fileroot As String + Dim wrFile As StreamWriter + Dim enc As String + Dim tcols As Integer = 0 + Dim trows As Integer = 0 + Dim contR As Integer = 1 + Dim contC As Integer = 1 + + Dim ext As String + Dim name As String + Dim root As String + + Dim excelApp As New Excel.Application + Dim workbook As Interop.Excel.Workbook + Dim sheet As Excel.Worksheet + + + Try + + Do + fileroot = generarNombreArchivo() + Loop While File.Exists(fileroot) + + If Ds.Tables(0).Rows.Count > 0 Then + + excelApp = New Interop.Excel.Application + + workbook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet) + sheet = workbook.Worksheets(1) + + For i As Integer = 1 To Ds.Tables(0).Columns.Count - 1 + sheet.Cells(contR, i).value = Ds.Tables(0).Columns.Item(i - 1).ColumnName + Next + contR = contR + 1 + contC = 1 + + For Each r As DataRow In Ds.Tables(0).Rows + For Each c As Object In r.ItemArray + 'wrFile.Write(c.ToString & ls) + 'wrFile.Write(c.ToString & ls) + sheet.Cells(contR, contC).value = c.ToString + contC = contC + 1 + Next + + contR = contR + 1 + contC = 1 + Next + + + + + excelApp.Sheets(1).Columns.AutoFit() + + + + excelApp.Visible = True + 'sheet.Activate() + 'excelApp.Sheets(1).Active + + + End If + + 'ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud) + Catch ex As Exception + + If excelApp IsNot Nothing Then + excelApp.Workbooks().Close() + excelApp.Quit() + excelApp = Nothing + End If + + MsgBox(ex.Message) + End Try + + End Function + + Public Function ExportToExcel(ByVal Ds As System.Data.DataSet) + + Dim tcols As Integer = 0 + Dim trows As Integer = 0 + Dim contR As Integer = 0 + Dim contC As Integer = 0 + Dim pbMax As Integer = 0 + + + + Dim excelApp As New Excel.Application + Dim workbook As Interop.Excel.Workbook + Dim sheet As Excel.Worksheet + + Try + + If Ds.Tables(0).Rows.Count > 0 Then + frmBarra.Text = "Exportando a Excel: 0 %" + frmBarra.Show() + + excelApp = New Interop.Excel.Application + + + workbook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet) + sheet = workbook.Worksheets(1) + sheet.Name = "MINDS" + + + trows = Ds.Tables(0).Rows.Count + 1 + pbMax = trows + (trows * 0.1) + frmBarra.pbrAvance.Maximum = pbMax + System.Windows.Forms.Application.DoEvents() + + Dim data(trows, Ds.Tables(0).Columns.Count) As String + + For i As Integer = 0 To Ds.Tables(0).Columns.Count - 1 + data(contR, i) = Ds.Tables(0).Columns.Item(i).ColumnName + Next + + frmBarra.pbrAvance.Value += 1 + + contR = contR + 1 + contC = 0 + + For Each r As DataRow In Ds.Tables(0).Rows + For Each c As Object In r.ItemArray + data(contR, contC) = c.ToString + contC = contC + 1 + Next + + contR = contR + 1 + contC = 0 + + frmBarra.Text = "Exportando a Excel: " & CInt((contR * 100) / pbMax) & " %" + frmBarra.pbrAvance.Value += 1 + Next + + System.Windows.Forms.Application.DoEvents() + + workbook.Worksheets(1).Range("A1:AB" & trows) = data + + excelApp.Sheets(1).Range("A1:AB1").Font.Bold = True + excelApp.Sheets(1).Range("A1:AB1").BorderAround(ColorIndex:=0, Weight:=XlBorderWeight.xlThin) + + excelApp.Sheets(1).Columns.AutoFit() + excelApp.Sheets(1).Activate + + excelApp.Visible = True + + frmBarra.Text = "Exportando a Excel: 100 %" + frmBarra.pbrAvance.Value = frmBarra.pbrAvance.Maximum + frmBarra.Close() + + End If + + Dim ClassUtils As New ClassMyUtils + Dim sTextoAud As String + sTextoAud = "Exporta a Excel Coincidencia Listas" + ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud) + + Catch ex As Exception + frmBarra.Close() + If excelApp IsNot Nothing Then + excelApp.Workbooks().Close() + excelApp.Quit() + excelApp = Nothing + End If + + MsgBox(ex.Message) + End Try + End Function + + Public Function ExportTo2Woook(ByVal Ds As System.Data.DataSet) + 'funcion que envia a excel una tabla de un dataset + Dim workBook As Interop.Excel.Workbook + Dim ConWs As Integer = 1 + Try + 'instanciamos la applicacion de excel + System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX") + excelApp = New Interop.Excel.Application + 'Creamos una hoja en el libro predeterminado + workBook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet) + Catch ex As Exception + 'se utiliza la version 10 de excel o XP + MessageBox.Show("aExcel; ExportTo2: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + 'Declaramos una varible tipo hoja de trabajo + Dim ws As Interop.Excel.Worksheet + ws = CType(workBook.Worksheets(ConWs), Interop.Excel.Worksheet) + + Dim Tbl As System.Data.DataTable + For Each Tbl In Ds.Tables + 'recorre todas las tablas que contega el dataset, con esto determinanos cuantas hojas en excel + If ConWs > 1 Then + ws = CType(workBook.Worksheets.Add(, ws), Interop.Excel.Worksheet) + End If + 'Llama a la funcion que exporta los datos + + If Tbl.TableName = "ReporteJ14_1" Then + Export2(Tbl, ws, "Resumen") + + ElseIf Tbl.TableName = "ReporteJ14_2" Then + Export2(Tbl, ws, "Análisis") + Else + Export2(Tbl, ws, Tbl.TableName) + End If + + ConWs += 1 Next - i += 1 - Next - - - i += 1 - - '' Seleccionar todo el bloque desde A1 hasta D #de filas - Dim objRango As Microsoft.Office.Interop.Excel.Range = objHojaExcel.Range("A4:" & Chr(nCol + 65) & (i - 1).ToString) - - '' Selecionado todo el rango especificado - objRango.Select() - - '' Ajustamos el ancho de las columnas al ancho máximo del - '' contenido de sus celdas - objRango.Columns.AutoFit() - - '' Asignar filtro por columna - objRango.AutoFilter(1, , VisibleDropDown:=True) - - '' Asignar un formato automatico - objRango.AutoFormat(18, Alignment:=False) - '' Seleccionamos el total general del reporte y asignamos - '' font a negrita e italica - objRango = objHojaExcel.Range("A" & i.ToString & ":z" & i.ToString) - objRango.Select() - objRango.Font.Bold = True - objRango.Font.Italic = True - - '' Crear un total general - objHojaExcel.Cells(i, 1) = "Total de Registros " - objHojaExcel.Cells(i, 3) = "=count(A6:a" & (i - 1).ToString & ")" - - objHojaExcel = Nothing - objLibroExcel = Nothing - - Catch ex As Exception - MessageBox.Show("Problemas al exportar " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) - End Try - End Sub + MessageBox.Show("Exportación completa", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) + frmBarra.Close() 'Cerramos el form de la barra de pregreso + 'mostramos excel con la exportacion + excelApp.Sheets(1).Select() + excelApp.Sheets(1).Columns.AutoFit() + excelApp.Visible = True + ''Selecciono la primera celda + 'ws.Cells(1, 1).select() + 'workBook.Close() 'Cierra el libro + 'excelApp.Quit() 'Sale de la aplicacion + ''System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX") + ''Auditoria + Dim ClassUtils As New ClassMyUtils + Dim sTextoAud As String + sTextoAud = "Exporta a Excel " & Titulo + ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud) + ''Fin de auditoria + End Function End Class diff --git a/ClasesModulos/clsComplejo.vb b/ClasesModulos/clsComplejo.vb index 3f7293f..adc1528 100644 --- a/ClasesModulos/clsComplejo.vb +++ b/ClasesModulos/clsComplejo.vb @@ -99,7 +99,7 @@ Public Class clsComplejo ad.Fill(ds) Return ds Catch ex As Exception - MessageBox.Show("Error en ClsComplejo; fdtDataSet: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) + MessageBox.Show("Error en ClsComplejo; fdtDataSet: " & ex.Message & "-" & SQL, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try sbCierraCn() End Function diff --git a/Reportes/OperInuSinTran.designer.vb b/Reportes/OperInuSinTran.designer.vb index 6045f96..175b933 100644 --- a/Reportes/OperInuSinTran.designer.vb +++ b/Reportes/OperInuSinTran.designer.vb @@ -38,7 +38,9 @@ Partial Class OperInuSinTran Me.cmbLocalidad = New System.Windows.Forms.ComboBox() Me.Label26 = New System.Windows.Forms.Label() Me.txtCURP = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label() + Me.cboCliente = New System.Windows.Forms.ComboBox() Me.cmbTipoPersona = New System.Windows.Forms.ComboBox() Me.Label24 = New System.Windows.Forms.Label() Me.txtCPSucursal = New System.Windows.Forms.TextBox() @@ -135,7 +137,7 @@ Partial Class OperInuSinTran Me.TabControl1.Location = New System.Drawing.Point(12, 64) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(722, 438) + Me.TabControl1.Size = New System.Drawing.Size(722, 449) Me.TabControl1.TabIndex = 0 ' 'TabPage1 @@ -144,7 +146,7 @@ Partial Class OperInuSinTran Me.TabPage1.Location = New System.Drawing.Point(4, 24) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(714, 410) + Me.TabPage1.Size = New System.Drawing.Size(714, 421) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Persona a Reportar" Me.TabPage1.UseVisualStyleBackColor = True @@ -155,7 +157,9 @@ Partial Class OperInuSinTran Me.GroupBox1.Controls.Add(Me.cmbLocalidad) Me.GroupBox1.Controls.Add(Me.Label26) Me.GroupBox1.Controls.Add(Me.txtCURP) + Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.Label25) + Me.GroupBox1.Controls.Add(Me.cboCliente) Me.GroupBox1.Controls.Add(Me.cmbTipoPersona) Me.GroupBox1.Controls.Add(Me.Label24) Me.GroupBox1.Controls.Add(Me.txtCPSucursal) @@ -183,9 +187,9 @@ Partial Class OperInuSinTran Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.lblCurp) Me.GroupBox1.Controls.Add(Me.Label4) - Me.GroupBox1.Location = New System.Drawing.Point(5, 6) + Me.GroupBox1.Location = New System.Drawing.Point(5, 2) Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(701, 397) + Me.GroupBox1.Size = New System.Drawing.Size(701, 414) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False ' @@ -197,16 +201,16 @@ Partial Class OperInuSinTran Me.GroupBox3.Controls.Add(Me.lblMaterno) Me.GroupBox3.Controls.Add(Me.lblPaterno) Me.GroupBox3.Controls.Add(Me.txtApePaterno) - Me.GroupBox3.Location = New System.Drawing.Point(6, 44) + Me.GroupBox3.Location = New System.Drawing.Point(6, 64) Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(689, 70) + Me.GroupBox3.Size = New System.Drawing.Size(689, 66) Me.GroupBox3.TabIndex = 406 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Datos Personales" ' 'txtApeMaterno ' - Me.txtApeMaterno.Location = New System.Drawing.Point(469, 45) + Me.txtApeMaterno.Location = New System.Drawing.Point(469, 40) Me.txtApeMaterno.MaxLength = 20 Me.txtApeMaterno.Name = "txtApeMaterno" Me.txtApeMaterno.Size = New System.Drawing.Size(214, 21) @@ -234,7 +238,7 @@ Partial Class OperInuSinTran ' Me.lblMaterno.AutoSize = True Me.lblMaterno.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblMaterno.Location = New System.Drawing.Point(363, 45) + Me.lblMaterno.Location = New System.Drawing.Point(363, 40) Me.lblMaterno.Name = "lblMaterno" Me.lblMaterno.Size = New System.Drawing.Size(100, 15) Me.lblMaterno.TabIndex = 4 @@ -243,7 +247,7 @@ Partial Class OperInuSinTran 'lblPaterno ' Me.lblPaterno.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblPaterno.Location = New System.Drawing.Point(6, 45) + Me.lblPaterno.Location = New System.Drawing.Point(6, 40) Me.lblPaterno.Name = "lblPaterno" Me.lblPaterno.Size = New System.Drawing.Size(103, 19) Me.lblPaterno.TabIndex = 2 @@ -251,7 +255,7 @@ Partial Class OperInuSinTran ' 'txtApePaterno ' - Me.txtApePaterno.Location = New System.Drawing.Point(112, 45) + Me.txtApePaterno.Location = New System.Drawing.Point(112, 40) Me.txtApePaterno.MaxLength = 60 Me.txtApePaterno.Name = "txtApePaterno" Me.txtApePaterno.Size = New System.Drawing.Size(245, 21) @@ -263,7 +267,7 @@ Partial Class OperInuSinTran Me.cmbLocalidad.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbLocalidad.DropDownWidth = 700 Me.cmbLocalidad.FormattingEnabled = True - Me.cmbLocalidad.Location = New System.Drawing.Point(121, 279) + Me.cmbLocalidad.Location = New System.Drawing.Point(121, 294) Me.cmbLocalidad.Name = "cmbLocalidad" Me.cmbLocalidad.Size = New System.Drawing.Size(568, 23) Me.cmbLocalidad.TabIndex = 41 @@ -272,7 +276,7 @@ Partial Class OperInuSinTran ' Me.Label26.AutoSize = True Me.Label26.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label26.Location = New System.Drawing.Point(12, 278) + Me.Label26.Location = New System.Drawing.Point(11, 293) Me.Label26.Name = "Label26" Me.Label26.Size = New System.Drawing.Size(61, 15) Me.Label26.TabIndex = 40 @@ -280,28 +284,48 @@ Partial Class OperInuSinTran ' 'txtCURP ' - Me.txtCURP.Location = New System.Drawing.Point(475, 120) + Me.txtCURP.Location = New System.Drawing.Point(475, 137) Me.txtCURP.MaxLength = 20 Me.txtCURP.Name = "txtCURP" Me.txtCURP.Size = New System.Drawing.Size(214, 21) Me.txtCURP.TabIndex = 39 ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label1.Location = New System.Drawing.Point(12, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(45, 15) + Me.Label1.TabIndex = 38 + Me.Label1.Text = "Cliente" + ' 'Label25 ' Me.Label25.AutoSize = True Me.Label25.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label25.Location = New System.Drawing.Point(11, 18) + Me.Label25.Location = New System.Drawing.Point(11, 43) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(80, 15) Me.Label25.TabIndex = 38 Me.Label25.Text = "Tipo Persona" ' + 'cboCliente + ' + Me.cboCliente.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboCliente.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboCliente.FormattingEnabled = True + Me.cboCliente.Location = New System.Drawing.Point(121, 12) + Me.cboCliente.Name = "cboCliente" + Me.cboCliente.Size = New System.Drawing.Size(568, 23) + Me.cboCliente.TabIndex = 37 + ' 'cmbTipoPersona ' Me.cmbTipoPersona.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cmbTipoPersona.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbTipoPersona.FormattingEnabled = True - Me.cmbTipoPersona.Location = New System.Drawing.Point(121, 15) + Me.cmbTipoPersona.Location = New System.Drawing.Point(121, 41) Me.cmbTipoPersona.Name = "cmbTipoPersona" Me.cmbTipoPersona.Size = New System.Drawing.Size(242, 23) Me.cmbTipoPersona.TabIndex = 37 @@ -309,7 +333,7 @@ Partial Class OperInuSinTran 'Label24 ' Me.Label24.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label24.Location = New System.Drawing.Point(388, 358) + Me.Label24.Location = New System.Drawing.Point(388, 373) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(104, 36) Me.Label24.TabIndex = 36 @@ -317,7 +341,7 @@ Partial Class OperInuSinTran ' 'txtCPSucursal ' - Me.txtCPSucursal.Location = New System.Drawing.Point(498, 368) + Me.txtCPSucursal.Location = New System.Drawing.Point(498, 383) Me.txtCPSucursal.MaxLength = 5 Me.txtCPSucursal.Name = "txtCPSucursal" Me.txtCPSucursal.Size = New System.Drawing.Size(191, 21) @@ -328,7 +352,7 @@ Partial Class OperInuSinTran Me.cboSucursal.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cboSucursal.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboSucursal.FormattingEnabled = True - Me.cboSucursal.Location = New System.Drawing.Point(121, 368) + Me.cboSucursal.Location = New System.Drawing.Point(121, 383) Me.cboSucursal.Name = "cboSucursal" Me.cboSucursal.Size = New System.Drawing.Size(247, 23) Me.cboSucursal.TabIndex = 34 @@ -336,7 +360,7 @@ Partial Class OperInuSinTran 'Label23 ' Me.Label23.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label23.Location = New System.Drawing.Point(11, 368) + Me.Label23.Location = New System.Drawing.Point(11, 383) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(84, 21) Me.Label23.TabIndex = 33 @@ -347,7 +371,7 @@ Partial Class OperInuSinTran Me.cboNacionalidad.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cboNacionalidad.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboNacionalidad.FormattingEnabled = True - Me.cboNacionalidad.Location = New System.Drawing.Point(498, 337) + Me.cboNacionalidad.Location = New System.Drawing.Point(498, 352) Me.cboNacionalidad.Name = "cboNacionalidad" Me.cboNacionalidad.Size = New System.Drawing.Size(191, 23) Me.cboNacionalidad.TabIndex = 32 @@ -355,7 +379,7 @@ Partial Class OperInuSinTran 'Label15 ' Me.Label15.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label15.Location = New System.Drawing.Point(385, 342) + Me.Label15.Location = New System.Drawing.Point(385, 357) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(84, 21) Me.Label15.TabIndex = 31 @@ -364,7 +388,7 @@ Partial Class OperInuSinTran 'dtpFechaOper ' Me.dtpFechaOper.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpFechaOper.Location = New System.Drawing.Point(121, 337) + Me.dtpFechaOper.Location = New System.Drawing.Point(121, 352) Me.dtpFechaOper.Name = "dtpFechaOper" Me.dtpFechaOper.Size = New System.Drawing.Size(247, 21) Me.dtpFechaOper.TabIndex = 30 @@ -372,7 +396,7 @@ Partial Class OperInuSinTran 'Label14 ' Me.Label14.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label14.Location = New System.Drawing.Point(11, 342) + Me.Label14.Location = New System.Drawing.Point(11, 357) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(107, 21) Me.Label14.TabIndex = 29 @@ -381,7 +405,7 @@ Partial Class OperInuSinTran 'Label13 ' Me.Label13.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label13.Location = New System.Drawing.Point(12, 173) + Me.Label13.Location = New System.Drawing.Point(11, 188) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(489, 20) Me.Label13.TabIndex = 12 @@ -394,14 +418,14 @@ Partial Class OperInuSinTran Me.cmbActEconom.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbActEconom.DropDownWidth = 700 Me.cmbActEconom.FormattingEnabled = True - Me.cmbActEconom.Location = New System.Drawing.Point(121, 308) + Me.cmbActEconom.Location = New System.Drawing.Point(121, 323) Me.cmbActEconom.Name = "cmbActEconom" Me.cmbActEconom.Size = New System.Drawing.Size(568, 23) Me.cmbActEconom.TabIndex = 24 ' 'txtTelefono ' - Me.txtTelefono.Location = New System.Drawing.Point(121, 250) + Me.txtTelefono.Location = New System.Drawing.Point(121, 265) Me.txtTelefono.MaxLength = 40 Me.txtTelefono.Name = "txtTelefono" Me.txtTelefono.Size = New System.Drawing.Size(242, 21) @@ -412,7 +436,7 @@ Partial Class OperInuSinTran Me.cmbPlaza.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cmbPlaza.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbPlaza.FormattingEnabled = True - Me.cmbPlaza.Location = New System.Drawing.Point(536, 20) + Me.cmbPlaza.Location = New System.Drawing.Point(660, 16) Me.cmbPlaza.Name = "cmbPlaza" Me.cmbPlaza.Size = New System.Drawing.Size(41, 23) Me.cmbPlaza.TabIndex = 20 @@ -423,7 +447,7 @@ Partial Class OperInuSinTran Me.cmbEstado.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cmbEstado.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbEstado.FormattingEnabled = True - Me.cmbEstado.Location = New System.Drawing.Point(449, 222) + Me.cmbEstado.Location = New System.Drawing.Point(449, 237) Me.cmbEstado.Name = "cmbEstado" Me.cmbEstado.Size = New System.Drawing.Size(240, 23) Me.cmbEstado.TabIndex = 18 @@ -432,7 +456,7 @@ Partial Class OperInuSinTran ' Me.Label12.AutoSize = True Me.Label12.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label12.Location = New System.Drawing.Point(388, 224) + Me.Label12.Location = New System.Drawing.Point(388, 239) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(45, 15) Me.Label12.TabIndex = 17 @@ -440,7 +464,7 @@ Partial Class OperInuSinTran ' 'txtColonia ' - Me.txtColonia.Location = New System.Drawing.Point(121, 222) + Me.txtColonia.Location = New System.Drawing.Point(121, 237) Me.txtColonia.MaxLength = 30 Me.txtColonia.Name = "txtColonia" Me.txtColonia.Size = New System.Drawing.Size(242, 21) @@ -448,7 +472,7 @@ Partial Class OperInuSinTran ' 'txtDomicilio ' - Me.txtDomicilio.Location = New System.Drawing.Point(122, 195) + Me.txtDomicilio.Location = New System.Drawing.Point(122, 210) Me.txtDomicilio.MaxLength = 60 Me.txtDomicilio.Name = "txtDomicilio" Me.txtDomicilio.Size = New System.Drawing.Size(567, 21) @@ -457,14 +481,14 @@ Partial Class OperInuSinTran 'dtpFechaNac ' Me.dtpFechaNac.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpFechaNac.Location = New System.Drawing.Point(118, 149) + Me.dtpFechaNac.Location = New System.Drawing.Point(118, 164) Me.dtpFechaNac.Name = "dtpFechaNac" Me.dtpFechaNac.Size = New System.Drawing.Size(129, 21) Me.dtpFechaNac.TabIndex = 11 ' 'txtRFC ' - Me.txtRFC.Location = New System.Drawing.Point(118, 119) + Me.txtRFC.Location = New System.Drawing.Point(118, 136) Me.txtRFC.MaxLength = 20 Me.txtRFC.Name = "txtRFC" Me.txtRFC.Size = New System.Drawing.Size(245, 21) @@ -473,7 +497,7 @@ Partial Class OperInuSinTran 'Label11 ' Me.Label11.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label11.Location = New System.Drawing.Point(11, 308) + Me.Label11.Location = New System.Drawing.Point(11, 323) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(93, 34) Me.Label11.TabIndex = 23 @@ -483,7 +507,7 @@ Partial Class OperInuSinTran ' Me.Label10.AutoSize = True Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label10.Location = New System.Drawing.Point(12, 250) + Me.Label10.Location = New System.Drawing.Point(11, 265) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(55, 15) Me.Label10.TabIndex = 21 @@ -493,7 +517,7 @@ Partial Class OperInuSinTran ' Me.Label9.AutoSize = True Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label9.Location = New System.Drawing.Point(426, 19) + Me.Label9.Location = New System.Drawing.Point(643, 13) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(46, 15) Me.Label9.TabIndex = 19 @@ -504,7 +528,7 @@ Partial Class OperInuSinTran ' Me.Label8.AutoSize = True Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label8.Location = New System.Drawing.Point(11, 222) + Me.Label8.Location = New System.Drawing.Point(11, 237) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(49, 15) Me.Label8.TabIndex = 15 @@ -514,7 +538,7 @@ Partial Class OperInuSinTran ' Me.Label7.AutoSize = True Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label7.Location = New System.Drawing.Point(11, 197) + Me.Label7.Location = New System.Drawing.Point(11, 212) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(59, 15) Me.Label7.TabIndex = 13 @@ -523,7 +547,7 @@ Partial Class OperInuSinTran 'Label6 ' Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label6.Location = New System.Drawing.Point(12, 151) + Me.Label6.Location = New System.Drawing.Point(11, 166) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(117, 20) Me.Label6.TabIndex = 10 @@ -533,7 +557,7 @@ Partial Class OperInuSinTran ' Me.lblCurp.AutoSize = True Me.lblCurp.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblCurp.Location = New System.Drawing.Point(369, 123) + Me.lblCurp.Location = New System.Drawing.Point(369, 140) Me.lblCurp.Name = "lblCurp" Me.lblCurp.Size = New System.Drawing.Size(41, 15) Me.lblCurp.TabIndex = 8 @@ -543,7 +567,7 @@ Partial Class OperInuSinTran ' Me.Label4.AutoSize = True Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue - Me.Label4.Location = New System.Drawing.Point(12, 123) + Me.Label4.Location = New System.Drawing.Point(11, 140) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(31, 15) Me.Label4.TabIndex = 6 @@ -555,7 +579,7 @@ Partial Class OperInuSinTran Me.TabPage2.Location = New System.Drawing.Point(4, 24) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(714, 410) + Me.TabPage2.Size = New System.Drawing.Size(714, 421) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Datos Complementarios" Me.TabPage2.UseVisualStyleBackColor = True @@ -813,14 +837,14 @@ Partial Class OperInuSinTran Me.DataGrid1.FilterBar = True Me.DataGrid1.GroupByCaption = "AGRUPAR" Me.DataGrid1.Images.Add(CType(resources.GetObject("DataGrid1.Images"), System.Drawing.Image)) - Me.DataGrid1.Location = New System.Drawing.Point(12, 508) + Me.DataGrid1.Location = New System.Drawing.Point(12, 514) Me.DataGrid1.Name = "DataGrid1" Me.DataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DataGrid1.PreviewInfo.ZoomFactor = 75.0R Me.DataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("DataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DataGrid1.RowHeight = 15 - Me.DataGrid1.Size = New System.Drawing.Size(718, 126) + Me.DataGrid1.Size = New System.Drawing.Size(718, 120) Me.DataGrid1.TabIndex = 405 Me.DataGrid1.Text = "C1TrueDBGrid1" Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag") @@ -935,4 +959,6 @@ Partial Class OperInuSinTran Friend WithEvents lblPaterno As Label Friend WithEvents txtApePaterno As TextBox Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid + Friend WithEvents Label1 As Label + Friend WithEvents cboCliente As ComboBox End Class diff --git a/Reportes/OperInuSinTran.resx b/Reportes/OperInuSinTran.resx index c4efa84..c13acb2 100644 --- a/Reportes/OperInuSinTran.resx +++ b/Reportes/OperInuSinTran.resx @@ -155,7 +155,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{Font:Microsoft Sans Serif, 9pt;}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{}Style1{}Caption{AlignHorz:Center;}Style6{}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>122</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, 714, 122</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, 714, 122</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{Font:Microsoft Sans Serif, 9pt;}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{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}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>116</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, 714, 116</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, 714, 116</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob> diff --git a/Reportes/OperInuSinTran.vb b/Reportes/OperInuSinTran.vb index 0116b5b..7327614 100644 --- a/Reportes/OperInuSinTran.vb +++ b/Reportes/OperInuSinTran.vb @@ -55,6 +55,14 @@ Public Class OperInuSinTran cargarCbo.sbLlenaCombo("select IDTIPOPERSONA clave, TIPOPERSONA nombre FROM CAT_TIPOPERSONA where activo = 1", cmbTipoPersona) cmbTipoPersona.SelectedIndex = -1 + + cargarCbo = Nothing + cargarCbo = New clsComplejo + cargarCbo.sbLlenaCombo("SP_ConsultaClientes ", cboCliente) + cboCliente.SelectedIndex = -1 + + + 'BtnLimpiar.PerformClick() ActualizaGrid() cargarSucursal() @@ -674,6 +682,10 @@ Public Class OperInuSinTran cboSucursal.SelectedValue = -1 txtCPSucursal.Text = "" + cboCliente.SelectedValue = -1 + cmbTipoPersona.SelectedValue = -1 + + DesBloqueaCtrls() btnRelacionadas.Enabled = False @@ -882,8 +894,8 @@ Public Class OperInuSinTran lblNombre.Text = "Denominación o Razon Social" End If lblCurp.Visible = False - txtCURP.Visible = False - txtApePaterno.Visible = False + txtCURP.Visible = False + txtApePaterno.Visible = False txtApeMaterno.Visible = False lblPaterno.Visible = False lblMaterno.Visible = False @@ -895,12 +907,12 @@ Public Class OperInuSinTran lblNombre.Size = New Size(165, 15) End If - If cmbTipoPersona.SelectedValue = 2 Then - 'Persona Fisica - 'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue - lblNombre.Text = "Nombre " - lblCurp.Visible = True - txtCURP.Visible = True + If cmbTipoPersona.SelectedValue = 2 Then + 'Persona Fisica + 'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue + lblNombre.Text = "Nombre " + lblCurp.Visible = True + txtCURP.Visible = True txtApePaterno.Visible = True lblPaterno.Visible = True lblMaterno.Visible = True @@ -914,6 +926,10 @@ Public Class OperInuSinTran End Sub Private Sub cmbEstado_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbEstado.SelectionChangeCommitted + cargarPlazaIdEstado() + End Sub + + Private Sub cargarPlazaIdEstado() Dim cargarCbo As New clsComplejo Dim sSQL As String cargarCbo = Nothing @@ -1076,4 +1092,66 @@ Public Class OperInuSinTran Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint End Sub + + Private Sub cboCliente_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboCliente.SelectionChangeCommitted + + + + If txtNombre.TextLength > 0 Then + + If MsgBox("¿Desea agregar la información del cliente selecccionado?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + vbDefaultButton2, "Minds") = MsgBoxResult.Yes Then + ObtenerDatosClienteDomicilio(cboCliente.SelectedValue) + Else + Exit Sub + End If + + Else + ObtenerDatosClienteDomicilio(cboCliente.SelectedValue) + End If + + + + 'SP_ConsultaClienteID + + End Sub + + Private Sub ObtenerDatosClienteDomicilio(idcliente As Integer) + Dim dt As New DataTable + + Dim consulta As New clsComplejo + dt = consulta.fdtDataTable("SP_ConsultaClienteID " & idcliente) + + If dt.Rows.Count > 0 Then + + cmbTipoPersona.SelectedValue = dt.Rows(0)("IDTIPOPERSONA") + txtNombre.Text = dt.Rows(0)("NOMBREORAZONS").ToString() + txtApePaterno.Text = dt.Rows(0)("APATERNO").ToString() + txtApeMaterno.Text = dt.Rows(0)("AMATERNO").ToString() + txtRFC.Text = dt.Rows(0)("RFC").ToString() + txtCURP.Text = dt.Rows(0)("CURP").ToString() + + + If dt.Rows(0)("FECHANACCONSTITUCION").ToString <> "" Then + dtpFechaNac.Value = Date.Parse(dt.Rows(0)("FECHANACCONSTITUCION").ToString()) + End If + + + txtDomicilio.Text = dt.Rows(0)("CALLE").ToString() & " " & dt.Rows(0)("NUMEROEXT").ToString() & " " & dt.Rows(0)("NUMEROINT").ToString() + txtColonia.Text = dt.Rows(0)("COLONIA").ToString() + cmbEstado.SelectedValue = dt.Rows(0)("IDESTADO") + + If cmbEstado.SelectedIndex >= 0 Then cargarPlazaIdEstado() + + txtTelefono.Text = dt.Rows(0)("TELEFONO").ToString() + cmbLocalidad.SelectedValue = dt.Rows(0)("IDPLAZA").ToString() + cmbActEconom.SelectedValue = dt.Rows(0)("IDACTIVIDADECONOMICA") + cboNacionalidad.SelectedValue = dt.Rows(0)("IDNACIONALIDAD") + cboSucursal.SelectedValue = dt.Rows(0)("IDSUCURSAL") + + + End If + + + End Sub + End Class \ No newline at end of file diff --git a/Reportes/frmEBR.Designer.vb b/Reportes/frmEBR.Designer.vb index 1c7be89..a5e4f39 100644 --- a/Reportes/frmEBR.Designer.vb +++ b/Reportes/frmEBR.Designer.vb @@ -22,45 +22,45 @@ Partial Class frmEBR 'Do not modify it using the code editor. Private Sub InitializeComponent() - 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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEBR)) - 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() + 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() Me.BtnConsul = New System.Windows.Forms.Button() Me.gbCalificaciones = New System.Windows.Forms.GroupBox() - Me.Label82 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Riesgo2 = New System.Windows.Forms.Label() Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.Label82 = New System.Windows.Forms.Label() Me.Riesgo = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.GroupBox17 = New System.Windows.Forms.GroupBox() + Me.Label2 = New System.Windows.Forms.Label() Me.GroupBox18 = New System.Windows.Forms.GroupBox() Me.Label3 = New System.Windows.Forms.Label() Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox21 = New System.Windows.Forms.GroupBox() Me.Label5 = New System.Windows.Forms.Label() Me.GroupBox22 = New System.Windows.Forms.GroupBox() @@ -150,59 +150,64 @@ Partial Class frmEBR Me.GroupBox63 = New System.Windows.Forms.GroupBox() Me.r7 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label29 = New System.Windows.Forms.Label() + Me.rg1 = New System.Windows.Forms.Label() Me.Label96 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() - Me.rg1 = New System.Windows.Forms.Label() Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart() - Me.Label29 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.rg2 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() Me.Label97 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() - Me.rg2 = New System.Windows.Forms.Label() Me.Chart2 = New System.Windows.Forms.DataVisualization.Charting.Chart() - Me.Label30 = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.Label100 = New System.Windows.Forms.Label() - Me.Label40 = New System.Windows.Forms.Label() Me.rg3 = New System.Windows.Forms.Label() + Me.Label100 = New System.Windows.Forms.Label() + Me.Label106 = New System.Windows.Forms.Label() + Me.Label102 = New System.Windows.Forms.Label() + Me.Label40 = New System.Windows.Forms.Label() Me.Chart3 = New System.Windows.Forms.DataVisualization.Charting.Chart() Me.Label39 = New System.Windows.Forms.Label() Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label42 = New System.Windows.Forms.Label() + Me.rg4 = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() - Me.rg4 = New System.Windows.Forms.Label() Me.Chart4 = New System.Windows.Forms.DataVisualization.Charting.Chart() - Me.Label42 = New System.Windows.Forms.Label() Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.rg5 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() Me.Label101 = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.Label48 = New System.Windows.Forms.Label() Me.Label47 = New System.Windows.Forms.Label() - Me.rg5 = New System.Windows.Forms.Label() Me.Chart5 = New System.Windows.Forms.DataVisualization.Charting.Chart() - Me.Label46 = New System.Windows.Forms.Label() Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Label50 = New System.Windows.Forms.Label() + Me.rg6 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() Me.Label33 = New System.Windows.Forms.Label() - Me.rg6 = New System.Windows.Forms.Label() Me.Chart6 = New System.Windows.Forms.DataVisualization.Charting.Chart() - Me.Label50 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.GroupBox64 = New System.Windows.Forms.GroupBox() - Me.Label49 = New System.Windows.Forms.Label() - Me.Label77 = New System.Windows.Forms.Label() - Me.Chart8 = New System.Windows.Forms.DataVisualization.Charting.Chart() Me.Label84 = New System.Windows.Forms.Label() + Me.Label77 = New System.Windows.Forms.Label() + Me.Label105 = New System.Windows.Forms.Label() + Me.Label104 = New System.Windows.Forms.Label() + Me.Label103 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.Chart8 = New System.Windows.Forms.DataVisualization.Charting.Chart() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.GroupBox69 = New System.Windows.Forms.GroupBox() @@ -493,43 +498,10 @@ 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(603, 429) + Me.gbCalificaciones.Size = New System.Drawing.Size(650, 429) Me.gbCalificaciones.TabIndex = 1 Me.gbCalificaciones.TabStop = False ' - 'Label82 - ' - 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(26, 12) - Me.Label82.Name = "Label82" - Me.Label82.Size = New System.Drawing.Size(43, 16) - Me.Label82.TabIndex = 418 - Me.Label82.Text = "Valor" - ' - 'Label4 - ' - 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(22, 12) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(90, 16) - Me.Label4.TabIndex = 415 - Me.Label4.Text = "Ponderación" - ' - 'Label2 - ' - 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(2, 12) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(30, 16) - Me.Label2.TabIndex = 413 - Me.Label2.Text = "No." - ' 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.Black @@ -563,6 +535,17 @@ Partial Class frmEBR Me.GroupBox20.TabIndex = 410 Me.GroupBox20.TabStop = False ' + 'Label82 + ' + 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(26, 12) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(43, 16) + Me.Label82.TabIndex = 418 + Me.Label82.Text = "Valor" + ' 'Riesgo ' Me.Riesgo.AutoSize = True @@ -595,6 +578,17 @@ Partial Class frmEBR Me.GroupBox17.TabIndex = 407 Me.GroupBox17.TabStop = False ' + 'Label2 + ' + 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(2, 12) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(30, 16) + Me.Label2.TabIndex = 413 + Me.Label2.Text = "No." + ' 'GroupBox18 ' Me.GroupBox18.Controls.Add(Me.Label3) @@ -625,6 +619,17 @@ Partial Class frmEBR Me.GroupBox19.TabIndex = 409 Me.GroupBox19.TabStop = False ' + 'Label4 + ' + 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(22, 12) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(90, 16) + Me.Label4.TabIndex = 415 + Me.Label4.Text = "Ponderación" + ' 'GroupBox21 ' Me.GroupBox21.Controls.Add(Me.Label5) @@ -1530,27 +1535,47 @@ Partial Class frmEBR Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox1.BackColor = System.Drawing.Color.White + Me.GroupBox1.Controls.Add(Me.Label29) + Me.GroupBox1.Controls.Add(Me.rg1) Me.GroupBox1.Controls.Add(Me.Label96) Me.GroupBox1.Controls.Add(Me.Label35) Me.GroupBox1.Controls.Add(Me.Label34) Me.GroupBox1.Controls.Add(Me.Label28) - Me.GroupBox1.Controls.Add(Me.rg1) Me.GroupBox1.Controls.Add(Me.Chart1) - 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(603, 250) + Me.GroupBox1.Size = New System.Drawing.Size(650, 250) Me.GroupBox1.TabIndex = 390 Me.GroupBox1.TabStop = False ' + 'Label29 + ' + 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(11, 12) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(304, 38) + Me.Label29.TabIndex = 363 + Me.Label29.Text = "I. Grado de Riesgo" + ' + 'rg1 + ' + 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(758, 190) + Me.rg1.Name = "rg1" + Me.rg1.Size = New System.Drawing.Size(109, 32) + Me.rg1.TabIndex = 390 + Me.rg1.Text = "Riesgo " + ' 'Label96 ' - 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(12, 126) Me.Label96.Name = "Label96" - Me.Label96.Size = New System.Drawing.Size(54, 17) + Me.Label96.Size = New System.Drawing.Size(127, 57) Me.Label96.TabIndex = 394 Me.Label96.Text = "Riesgo " ' @@ -1587,62 +1612,64 @@ Partial Class frmEBR Me.Label28.TabIndex = 391 Me.Label28.Text = "Riesgo " ' - 'rg1 - ' - 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(738, 190) - Me.rg1.Name = "rg1" - Me.rg1.Size = New System.Drawing.Size(109, 32) - Me.rg1.TabIndex = 390 - Me.rg1.Text = "Riesgo " - ' 'Chart1 ' - 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.BorderlineColor = System.Drawing.Color.Black + ChartArea1.Name = "ChartArea1" + Me.Chart1.ChartAreas.Add(ChartArea1) + Legend1.Name = "Legend1" + Me.Chart1.Legends.Add(Legend1) + Me.Chart1.Location = New System.Drawing.Point(200, 52) Me.Chart1.Name = "Chart1" - 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) + 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(531, 187) Me.Chart1.TabIndex = 364 Me.Chart1.Text = "Chart1" ' - 'Label29 - ' - 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(11, 16) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(304, 38) - Me.Label29.TabIndex = 363 - Me.Label29.Text = "I. Grado de Riesgo" - ' 'GroupBox2 ' Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox2.BackColor = System.Drawing.Color.White + Me.GroupBox2.Controls.Add(Me.rg2) + Me.GroupBox2.Controls.Add(Me.Label30) Me.GroupBox2.Controls.Add(Me.Label97) Me.GroupBox2.Controls.Add(Me.Label38) Me.GroupBox2.Controls.Add(Me.Label37) Me.GroupBox2.Controls.Add(Me.Label31) - Me.GroupBox2.Controls.Add(Me.rg2) Me.GroupBox2.Controls.Add(Me.Chart2) - 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(603, 250) + Me.GroupBox2.Size = New System.Drawing.Size(650, 250) Me.GroupBox2.TabIndex = 391 Me.GroupBox2.TabStop = False ' + 'rg2 + ' + 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(768, 185) + Me.rg2.Name = "rg2" + Me.rg2.Size = New System.Drawing.Size(109, 32) + Me.rg2.TabIndex = 391 + Me.rg2.Text = "Riesgo " + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Century Gothic", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.ForeColor = System.Drawing.Color.Black + Me.Label30.Location = New System.Drawing.Point(14, 12) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(284, 38) + Me.Label30.TabIndex = 363 + Me.Label30.Text = "II. Tipo de Cliente" + ' 'Label97 ' Me.Label97.AutoSize = True @@ -1687,110 +1714,111 @@ Partial Class frmEBR Me.Label31.TabIndex = 392 Me.Label31.Text = "Riesgo " ' - 'rg2 - ' - 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(746, 185) - Me.rg2.Name = "rg2" - Me.rg2.Size = New System.Drawing.Size(109, 32) - Me.rg2.TabIndex = 391 - Me.rg2.Text = "Riesgo " - ' 'Chart2 ' - 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) + ChartArea2.Name = "ChartArea1" + Me.Chart2.ChartAreas.Add(ChartArea2) + Legend2.Name = "Legend1" + Me.Chart2.Legends.Add(Legend2) + Me.Chart2.Location = New System.Drawing.Point(200, 52) Me.Chart2.Name = "Chart2" - Me.Chart2.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Berry - 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.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.SemiTransparent + Series2.ChartArea = "ChartArea1" + Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Doughnut + Series2.Legend = "Legend1" + Series2.Name = "Series1" + Me.Chart2.Series.Add(Series2) + Me.Chart2.Size = New System.Drawing.Size(531, 187) Me.Chart2.TabIndex = 364 Me.Chart2.Text = "Chart2" ' - 'Label30 - ' - Me.Label30.AutoSize = True - Me.Label30.Font = New System.Drawing.Font("Century Gothic", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.ForeColor = System.Drawing.Color.Black - Me.Label30.Location = New System.Drawing.Point(14, 16) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(284, 38) - Me.Label30.TabIndex = 363 - Me.Label30.Text = "II. Tipo de Cliente" - ' 'GroupBox3 ' Me.GroupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox3.BackColor = System.Drawing.Color.White - Me.GroupBox3.Controls.Add(Me.Label100) - Me.GroupBox3.Controls.Add(Me.Label40) Me.GroupBox3.Controls.Add(Me.rg3) + Me.GroupBox3.Controls.Add(Me.Label100) + Me.GroupBox3.Controls.Add(Me.Label106) + Me.GroupBox3.Controls.Add(Me.Label102) + Me.GroupBox3.Controls.Add(Me.Label40) Me.GroupBox3.Controls.Add(Me.Chart3) 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(603, 250) + Me.GroupBox3.Size = New System.Drawing.Size(650, 250) Me.GroupBox3.TabIndex = 392 Me.GroupBox3.TabStop = False ' - 'Label100 - ' - 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(19, 97) - Me.Label100.Name = "Label100" - Me.Label100.Size = New System.Drawing.Size(54, 17) - Me.Label100.TabIndex = 395 - Me.Label100.Text = "Riesgo " - ' - 'Label40 - ' - 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(19, 80) - Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(54, 17) - Me.Label40.TabIndex = 394 - Me.Label40.Text = "Riesgo " - ' 'rg3 ' 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(744, 172) + Me.rg3.Location = New System.Drawing.Point(758, 172) Me.rg3.Name = "rg3" Me.rg3.Size = New System.Drawing.Size(109, 32) Me.rg3.TabIndex = 391 Me.rg3.Text = "Riesgo " ' + 'Label100 + ' + 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(12, 135) + Me.Label100.Name = "Label100" + Me.Label100.Size = New System.Drawing.Size(111, 53) + Me.Label100.TabIndex = 395 + Me.Label100.Text = "Riesgo " + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.Font = New System.Drawing.Font("Century Gothic", 9.75!) + Me.Label106.ForeColor = System.Drawing.Color.Black + Me.Label106.Location = New System.Drawing.Point(12, 117) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(54, 17) + Me.Label106.TabIndex = 394 + Me.Label106.Text = "Riesgo " + ' + 'Label102 + ' + Me.Label102.AutoSize = True + Me.Label102.Font = New System.Drawing.Font("Century Gothic", 9.75!) + Me.Label102.ForeColor = System.Drawing.Color.Black + Me.Label102.Location = New System.Drawing.Point(12, 99) + Me.Label102.Name = "Label102" + Me.Label102.Size = New System.Drawing.Size(54, 17) + Me.Label102.TabIndex = 394 + Me.Label102.Text = "Riesgo " + ' + 'Label40 + ' + 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(12, 81) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(54, 17) + Me.Label40.TabIndex = 394 + Me.Label40.Text = "Riesgo " + ' 'Chart3 ' - 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) + ChartArea3.Name = "ChartArea1" + Me.Chart3.ChartAreas.Add(ChartArea3) + Legend3.Name = "Legend1" + Me.Chart3.Legends.Add(Legend3) + Me.Chart3.Location = New System.Drawing.Point(200, 52) Me.Chart3.Name = "Chart3" Me.Chart3.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.SeaGreen - 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) + 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(531, 187) Me.Chart3.TabIndex = 364 Me.Chart3.Text = "Chart3" ' @@ -1799,7 +1827,7 @@ Partial Class frmEBR Me.Label39.AutoSize = True Me.Label39.Font = New System.Drawing.Font("Century Gothic", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label39.ForeColor = System.Drawing.Color.Black - Me.Label39.Location = New System.Drawing.Point(14, 16) + Me.Label39.Location = New System.Drawing.Point(8, 16) Me.Label39.Name = "Label39" Me.Label39.Size = New System.Drawing.Size(115, 38) Me.Label39.TabIndex = 363 @@ -1810,20 +1838,42 @@ Partial Class frmEBR Me.GroupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox4.BackColor = System.Drawing.Color.White + Me.GroupBox4.Controls.Add(Me.Label42) + Me.GroupBox4.Controls.Add(Me.rg4) Me.GroupBox4.Controls.Add(Me.Label45) Me.GroupBox4.Controls.Add(Me.Label44) Me.GroupBox4.Controls.Add(Me.Label43) Me.GroupBox4.Controls.Add(Me.Label41) Me.GroupBox4.Controls.Add(Me.Label32) - Me.GroupBox4.Controls.Add(Me.rg4) Me.GroupBox4.Controls.Add(Me.Chart4) - 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(603, 250) + Me.GroupBox4.Size = New System.Drawing.Size(650, 250) Me.GroupBox4.TabIndex = 393 Me.GroupBox4.TabStop = False ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label42.ForeColor = System.Drawing.Color.Black + Me.Label42.Location = New System.Drawing.Point(14, 16) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(697, 32) + Me.Label42.TabIndex = 363 + Me.Label42.Text = "IV. Servicio de inversión Asesorado y No Asesorado " + ' + 'rg4 + ' + 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(758, 189) + Me.rg4.Name = "rg4" + Me.rg4.Size = New System.Drawing.Size(109, 32) + Me.rg4.TabIndex = 391 + Me.rg4.Text = "Riesgo " + ' 'Label45 ' Me.Label45.AutoSize = True @@ -1879,73 +1929,72 @@ Partial Class frmEBR Me.Label32.TabIndex = 393 Me.Label32.Text = "Riesgo " ' - 'rg4 - ' - 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(746, 189) - Me.rg4.Name = "rg4" - Me.rg4.Size = New System.Drawing.Size(109, 32) - Me.rg4.TabIndex = 391 - Me.rg4.Text = "Riesgo " - ' 'Chart4 ' - 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) + ChartArea4.Name = "ChartArea1" + Me.Chart4.ChartAreas.Add(ChartArea4) + Legend4.Name = "Legend1" + Me.Chart4.Legends.Add(Legend4) + Me.Chart4.Location = New System.Drawing.Point(200, 52) Me.Chart4.Name = "Chart4" Me.Chart4.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Excel - 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) + 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(531, 187) Me.Chart4.TabIndex = 364 Me.Chart4.Text = "Chart4" ' - 'Label42 - ' - Me.Label42.AutoSize = True - Me.Label42.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label42.ForeColor = System.Drawing.Color.Black - Me.Label42.Location = New System.Drawing.Point(14, 16) - Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(697, 32) - Me.Label42.TabIndex = 363 - Me.Label42.Text = "IV. Servicio de inversión Asesorado y No Asesorado " - ' 'GroupBox5 ' Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox5.BackColor = System.Drawing.Color.White + Me.GroupBox5.Controls.Add(Me.rg5) + Me.GroupBox5.Controls.Add(Me.Label46) Me.GroupBox5.Controls.Add(Me.Label101) Me.GroupBox5.Controls.Add(Me.Button6) Me.GroupBox5.Controls.Add(Me.Button5) Me.GroupBox5.Controls.Add(Me.Label48) Me.GroupBox5.Controls.Add(Me.Label47) - Me.GroupBox5.Controls.Add(Me.rg5) Me.GroupBox5.Controls.Add(Me.Chart5) - 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(603, 250) + Me.GroupBox5.Size = New System.Drawing.Size(650, 250) Me.GroupBox5.TabIndex = 394 Me.GroupBox5.TabStop = False ' + 'rg5 + ' + 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(758, 191) + Me.rg5.Name = "rg5" + Me.rg5.Size = New System.Drawing.Size(109, 32) + Me.rg5.TabIndex = 392 + Me.rg5.Text = "Riesgo " + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label46.ForeColor = System.Drawing.Color.Black + Me.Label46.Location = New System.Drawing.Point(5, 16) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(296, 32) + Me.Label46.TabIndex = 363 + Me.Label46.Text = "V. Domicilio Principal " + ' 'Label101 ' - Me.Label101.AutoSize = True Me.Label101.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label101.ForeColor = System.Drawing.Color.Black - Me.Label101.Location = New System.Drawing.Point(18, 191) + Me.Label101.Location = New System.Drawing.Point(9, 191) Me.Label101.Name = "Label101" - Me.Label101.Size = New System.Drawing.Size(54, 17) + Me.Label101.Size = New System.Drawing.Size(112, 45) Me.Label101.TabIndex = 402 Me.Label101.Text = "Riesgo " ' @@ -1980,7 +2029,7 @@ Partial Class frmEBR Me.Label48.AutoSize = True Me.Label48.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label48.ForeColor = System.Drawing.Color.Black - Me.Label48.Location = New System.Drawing.Point(16, 116) + Me.Label48.Location = New System.Drawing.Point(7, 116) Me.Label48.Name = "Label48" Me.Label48.Size = New System.Drawing.Size(54, 17) Me.Label48.TabIndex = 399 @@ -1991,68 +2040,68 @@ Partial Class frmEBR Me.Label47.AutoSize = True Me.Label47.Font = New System.Drawing.Font("Century Gothic", 9.75!) Me.Label47.ForeColor = System.Drawing.Color.Black - Me.Label47.Location = New System.Drawing.Point(17, 57) + Me.Label47.Location = New System.Drawing.Point(8, 57) Me.Label47.Name = "Label47" Me.Label47.Size = New System.Drawing.Size(54, 17) Me.Label47.TabIndex = 398 Me.Label47.Text = "Riesgo " ' - 'rg5 - ' - 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(738, 191) - Me.rg5.Name = "rg5" - Me.rg5.Size = New System.Drawing.Size(109, 32) - Me.rg5.TabIndex = 392 - Me.rg5.Text = "Riesgo " - ' 'Chart5 ' - 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) + ChartArea5.Name = "ChartArea1" + Me.Chart5.ChartAreas.Add(ChartArea5) + Legend5.Name = "Legend1" + Me.Chart5.Legends.Add(Legend5) + Me.Chart5.Location = New System.Drawing.Point(200, 52) Me.Chart5.Name = "Chart5" - Me.Chart5.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Fire - 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.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.EarthTones + 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(531, 187) Me.Chart5.TabIndex = 364 Me.Chart5.Text = "Chart5" ' - 'Label46 - ' - Me.Label46.AutoSize = True - Me.Label46.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label46.ForeColor = System.Drawing.Color.Black - Me.Label46.Location = New System.Drawing.Point(14, 16) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(296, 32) - Me.Label46.TabIndex = 363 - Me.Label46.Text = "V. Domicilio Principal " - ' 'GroupBox6 ' Me.GroupBox6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox6.BackColor = System.Drawing.Color.White + Me.GroupBox6.Controls.Add(Me.Label50) + Me.GroupBox6.Controls.Add(Me.rg6) Me.GroupBox6.Controls.Add(Me.Button7) Me.GroupBox6.Controls.Add(Me.Label33) - Me.GroupBox6.Controls.Add(Me.rg6) Me.GroupBox6.Controls.Add(Me.Chart6) - 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(603, 261) + Me.GroupBox6.Size = New System.Drawing.Size(650, 250) Me.GroupBox6.TabIndex = 395 Me.GroupBox6.TabStop = False ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label50.ForeColor = System.Drawing.Color.Black + Me.Label50.Location = New System.Drawing.Point(14, 16) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(430, 32) + Me.Label50.TabIndex = 363 + Me.Label50.Text = "VI. Principal lugar de operación" + ' + 'rg6 + ' + 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(758, 179) + Me.rg6.Name = "rg6" + Me.rg6.Size = New System.Drawing.Size(109, 32) + Me.rg6.TabIndex = 392 + Me.rg6.Text = "Riesgo " + ' 'Button7 ' Me.Button7.BackColor = System.Drawing.Color.Black @@ -2077,46 +2126,24 @@ Partial Class frmEBR Me.Label33.TabIndex = 394 Me.Label33.Text = "Riesgo " ' - 'rg6 - ' - 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(754, 179) - Me.rg6.Name = "rg6" - Me.rg6.Size = New System.Drawing.Size(109, 32) - Me.rg6.TabIndex = 392 - Me.rg6.Text = "Riesgo " - ' 'Chart6 ' - 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) + ChartArea6.Name = "ChartArea1" + Me.Chart6.ChartAreas.Add(ChartArea6) + Legend6.Name = "Legend1" + Me.Chart6.Legends.Add(Legend6) + Me.Chart6.Location = New System.Drawing.Point(200, 52) Me.Chart6.Name = "Chart6" Me.Chart6.Palette = System.Windows.Forms.DataVisualization.Charting.ChartColorPalette.Bright - 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) + 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(531, 187) Me.Chart6.TabIndex = 364 Me.Chart6.Text = "Chart6" ' - 'Label50 - ' - Me.Label50.AutoSize = True - Me.Label50.Font = New System.Drawing.Font("Century Gothic", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label50.ForeColor = System.Drawing.Color.Black - Me.Label50.Location = New System.Drawing.Point(14, 16) - Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(430, 32) - Me.Label50.TabIndex = 363 - Me.Label50.Text = "VI. Principal lugar de operación" - ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -2172,56 +2199,19 @@ Partial Class frmEBR Me.GroupBox64.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox64.BackColor = System.Drawing.Color.White - Me.GroupBox64.Controls.Add(Me.Label49) - Me.GroupBox64.Controls.Add(Me.Label77) - Me.GroupBox64.Controls.Add(Me.Chart8) Me.GroupBox64.Controls.Add(Me.Label84) + Me.GroupBox64.Controls.Add(Me.Label77) + Me.GroupBox64.Controls.Add(Me.Label105) + Me.GroupBox64.Controls.Add(Me.Label104) + Me.GroupBox64.Controls.Add(Me.Label103) + Me.GroupBox64.Controls.Add(Me.Label49) + Me.GroupBox64.Controls.Add(Me.Chart8) Me.GroupBox64.Location = New System.Drawing.Point(6, 2265) Me.GroupBox64.Name = "GroupBox64" - Me.GroupBox64.Size = New System.Drawing.Size(603, 261) + Me.GroupBox64.Size = New System.Drawing.Size(650, 250) Me.GroupBox64.TabIndex = 399 Me.GroupBox64.TabStop = False ' - 'Label49 - ' - Me.Label49.AutoSize = True - Me.Label49.Font = New System.Drawing.Font("Century Gothic", 9.75!) - Me.Label49.ForeColor = System.Drawing.Color.Black - Me.Label49.Location = New System.Drawing.Point(17, 57) - Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(123, 17) - Me.Label49.TabIndex = 394 - Me.Label49.Text = "BlackRock México" - ' - 'Label77 - ' - 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(754, 180) - Me.Label77.Name = "Label77" - Me.Label77.Size = New System.Drawing.Size(167, 32) - Me.Label77.TabIndex = 392 - Me.Label77.Text = "Riesgo Bajo" - ' - 'Chart8 - ' - 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 - 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" - ' 'Label84 ' Me.Label84.AutoSize = True @@ -2233,6 +2223,79 @@ Partial Class frmEBR Me.Label84.TabIndex = 363 Me.Label84.Text = "VII. Canales de envío" ' + 'Label77 + ' + 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(758, 180) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(167, 32) + Me.Label77.TabIndex = 392 + Me.Label77.Text = "Riesgo Bajo" + ' + 'Label105 + ' + Me.Label105.AutoSize = True + Me.Label105.Font = New System.Drawing.Font("Century Gothic", 9.75!) + Me.Label105.ForeColor = System.Drawing.Color.Black + Me.Label105.Location = New System.Drawing.Point(27, 122) + Me.Label105.Name = "Label105" + Me.Label105.Size = New System.Drawing.Size(50, 17) + Me.Label105.TabIndex = 394 + Me.Label105.Text = "ALTO:0" + ' + 'Label104 + ' + Me.Label104.AutoSize = True + Me.Label104.Font = New System.Drawing.Font("Century Gothic", 9.75!) + Me.Label104.ForeColor = System.Drawing.Color.Black + Me.Label104.Location = New System.Drawing.Point(27, 102) + Me.Label104.Name = "Label104" + Me.Label104.Size = New System.Drawing.Size(61, 17) + Me.Label104.TabIndex = 394 + Me.Label104.Text = "MEDIO:0" + ' + 'Label103 + ' + Me.Label103.AutoSize = True + Me.Label103.Font = New System.Drawing.Font("Century Gothic", 9.75!) + Me.Label103.ForeColor = System.Drawing.Color.Black + Me.Label103.Location = New System.Drawing.Point(27, 82) + Me.Label103.Name = "Label103" + Me.Label103.Size = New System.Drawing.Size(45, 17) + Me.Label103.TabIndex = 394 + Me.Label103.Text = "BAJO:" + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Font = New System.Drawing.Font("Century Gothic", 9.75!) + Me.Label49.ForeColor = System.Drawing.Color.Black + Me.Label49.Location = New System.Drawing.Point(26, 143) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(137, 17) + Me.Label49.TabIndex = 394 + Me.Label49.Text = "Total canales envío:" + ' + 'Chart8 + ' + ChartArea7.Name = "ChartArea1" + Me.Chart8.ChartAreas.Add(ChartArea7) + Legend7.Name = "Legend1" + Me.Chart8.Legends.Add(Legend7) + Me.Chart8.Location = New System.Drawing.Point(200, 52) + 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(531, 187) + Me.Chart8.TabIndex = 364 + Me.Chart8.Text = "Chart8" + ' 'PictureBox1 ' Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) @@ -2274,7 +2337,7 @@ Partial Class frmEBR 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.Size = New System.Drawing.Size(525, 52) Me.GroupBox69.TabIndex = 413 Me.GroupBox69.TabStop = False ' @@ -2320,7 +2383,7 @@ Partial Class frmEBR 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.Size = New System.Drawing.Size(525, 57) Me.GroupBox68.TabIndex = 412 Me.GroupBox68.TabStop = False ' @@ -2366,7 +2429,7 @@ Partial Class frmEBR Me.GroupBox15.Controls.Add(Me.Label62) Me.GroupBox15.Location = New System.Drawing.Point(13, 796) Me.GroupBox15.Name = "GroupBox15" - Me.GroupBox15.Size = New System.Drawing.Size(610, 58) + Me.GroupBox15.Size = New System.Drawing.Size(525, 58) Me.GroupBox15.TabIndex = 407 Me.GroupBox15.TabStop = False ' @@ -2387,7 +2450,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(592, 67) + Me.TextBox7.Size = New System.Drawing.Size(507, 67) Me.TextBox7.TabIndex = 365 ' 'Label62 @@ -2408,7 +2471,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(515, 917) + Me.Button3.Location = New System.Drawing.Point(430, 917) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(108, 33) Me.Button3.TabIndex = 397 @@ -2424,7 +2487,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(610, 103) + Me.GroupBox13.Size = New System.Drawing.Size(525, 103) Me.GroupBox13.TabIndex = 6 Me.GroupBox13.TabStop = False ' @@ -2444,7 +2507,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(592, 67) + Me.TextBox6.Size = New System.Drawing.Size(507, 67) Me.TextBox6.TabIndex = 365 ' 'Label56 @@ -2467,7 +2530,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(610, 103) + Me.GroupBox12.Size = New System.Drawing.Size(525, 103) Me.GroupBox12.TabIndex = 5 Me.GroupBox12.TabStop = False ' @@ -2487,7 +2550,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(592, 67) + Me.TextBox5.Size = New System.Drawing.Size(507, 67) Me.TextBox5.TabIndex = 365 ' 'Label55 @@ -2510,7 +2573,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(610, 103) + Me.GroupBox11.Size = New System.Drawing.Size(525, 103) Me.GroupBox11.TabIndex = 4 Me.GroupBox11.TabStop = False ' @@ -2530,7 +2593,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(592, 67) + Me.TextBox4.Size = New System.Drawing.Size(507, 67) Me.TextBox4.TabIndex = 365 ' 'Label54 @@ -2553,7 +2616,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(610, 103) + Me.GroupBox10.Size = New System.Drawing.Size(525, 103) Me.GroupBox10.TabIndex = 3 Me.GroupBox10.TabStop = False ' @@ -2573,7 +2636,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(592, 67) + Me.TextBox3.Size = New System.Drawing.Size(507, 67) Me.TextBox3.TabIndex = 365 ' 'Label52 @@ -2596,7 +2659,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(610, 103) + Me.GroupBox9.Size = New System.Drawing.Size(525, 103) Me.GroupBox9.TabIndex = 2 Me.GroupBox9.TabStop = False ' @@ -2616,7 +2679,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(592, 67) + Me.TextBox2.Size = New System.Drawing.Size(507, 67) Me.TextBox2.TabIndex = 365 ' 'Label51 @@ -2639,7 +2702,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(610, 103) + Me.GroupBox8.Size = New System.Drawing.Size(525, 103) Me.GroupBox8.TabIndex = 1 Me.GroupBox8.TabStop = False ' @@ -2660,7 +2723,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(592, 67) + Me.TextBox1.Size = New System.Drawing.Size(507, 67) Me.TextBox1.TabIndex = 365 ' 'Label36 @@ -2683,7 +2746,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(610, 103) + Me.gbAML.Size = New System.Drawing.Size(525, 103) Me.gbAML.TabIndex = 0 Me.gbAML.TabStop = False ' @@ -2704,7 +2767,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(592, 67) + Me.txtAML.Size = New System.Drawing.Size(507, 67) Me.txtAML.TabIndex = 365 ' 'lblAML @@ -2763,7 +2826,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(639, 483) + Me.GroupBox14.Size = New System.Drawing.Size(554, 483) Me.GroupBox14.TabIndex = 0 Me.GroupBox14.TabStop = False ' @@ -3403,17 +3466,17 @@ Partial Class frmEBR ' 'Chart7 ' - ChartArea32.Name = "ChartArea1" - Me.Chart7.ChartAreas.Add(ChartArea32) - Legend32.Name = "Legend1" - Me.Chart7.Legends.Add(Legend32) + ChartArea8.Name = "ChartArea1" + Me.Chart7.ChartAreas.Add(ChartArea8) + Legend8.Name = "Legend1" + Me.Chart7.Legends.Add(Legend8) Me.Chart7.Location = New System.Drawing.Point(21, 57) Me.Chart7.Name = "Chart7" - Series32.ChartArea = "ChartArea1" - Series32.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Area - Series32.Legend = "Legend1" - Series32.Name = "Series1" - Me.Chart7.Series.Add(Series32) + Series8.ChartArea = "ChartArea1" + Series8.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Area + Series8.Legend = "Legend1" + Series8.Name = "Series1" + Me.Chart7.Series.Add(Series8) Me.Chart7.Size = New System.Drawing.Size(727, 257) Me.Chart7.TabIndex = 364 Me.Chart7.Text = "Chart7" @@ -3902,4 +3965,9 @@ Partial Class frmEBR Friend WithEvents Label101 As Label Friend WithEvents GroupBox69 As GroupBox Friend WithEvents GroupBox68 As GroupBox + Friend WithEvents Label102 As Label + Friend WithEvents Label105 As Label + Friend WithEvents Label104 As Label + Friend WithEvents Label103 As Label + Friend WithEvents Label106 As Label End Class diff --git a/Reportes/frmEBR.resx b/Reportes/frmEBR.resx index f039b55..5823d02 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{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> + <?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{}</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 ebad682..121884e 100644 --- a/Reportes/frmEBR.vb +++ b/Reportes/frmEBR.vb @@ -89,33 +89,45 @@ Public Class frmEBR Chart1.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(0)) Chart1.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(1)) Chart1.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(2)) + Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut Chart2.Series.Clear() Chart2.Series.Add("Tipo de Cliente") Chart2.Series(0).IsValueShownAsLabel = True - Chart2.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(3)) - Chart2.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4)) - Chart2.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(5)) + Chart2.Series(0).Points.AddXY("Física", dsGral.Tables(2).Rows(0)(3)) + Chart2.Series(0).Points.AddXY("Moral", dsGral.Tables(2).Rows(0)(4)) + Chart2.Series(0).Points.AddXY("Fideicomiso", dsGral.Tables(2).Rows(0)(5)) Chart2.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut Chart3.Series.Clear() Chart3.Series.Add("PEP") Chart3.Series(0).IsValueShownAsLabel = True - Chart3.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(7)) - 'Chart3.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4)) - Chart3.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(6)) + + + Chart3.Series(0).Points.AddXY("Pep", dsGral.Tables(2).Rows(0)(6)) + Chart3.Series(0).Points.AddXY("Otras", dsGral.Tables(2).Rows(0)(7)) + Chart3.Series(0).Points.AddXY("Niguna Lista", dsGral.Tables(8).Rows(0)(3)) + + + 'Chart3.Series(0).Points.AddXY("Pep", dsGral.Tables(2).Rows(0)(6)) + 'Chart3.Series(0).Points.AddXY("Otras", dsGral.Tables(2).Rows(0)(7)) + 'Chart3.Series(0).Points.AddXY("Niguna Lista", dsGral.Tables(8).Rows(0)(3)) + + 'Chart3.ChartAreas("PEP").Area3DStyle.Rotation = 90 + + 'If dsGral.Tables(2).Rows(0)(6) <> 0 Then Chart3.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(6)) Chart3.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut Chart4.Series.Clear() Chart4.Series.Add("Servicio de inversión Asesorado y No Asesorado") Chart4.Series(0).IsValueShownAsLabel = True - Chart4.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(9)) + Chart4.Series(0).Points.AddXY("No Asesorado", dsGral.Tables(2).Rows(0)(9)) 'Chart4.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(9)) - Chart4.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(8)) + Chart4.Series(0).Points.AddXY("Asesorado", dsGral.Tables(2).Rows(0)(8)) Chart4.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut @@ -151,10 +163,14 @@ Public Class frmEBR Chart8.Series.Add("Canales de envío") Chart8.Series(0).IsValueShownAsLabel = True Chart8.Series(0).Points.AddXY("Bajo", 100) - 'Chart8.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(14)) - 'Chart8.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(15)) + Chart8.Series(0).Points.AddXY("Medio", 0) + Chart8.Series(0).Points.AddXY("Alto", 0) Chart8.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut + Label103.Text = "BAJO: " & dsGral.Tables(16).Rows(0)(0) + Label49.Text = "Total canales envío: " & dsGral.Tables(16).Rows(0)(0) + + cmbAML.SelectedValue = dsGral.Tables(4).Rows(0)("ID_CE_SCALE") ComboBox1.SelectedValue = dsGral.Tables(4).Rows(1)("ID_CE_SCALE") ComboBox2.SelectedValue = dsGral.Tables(4).Rows(2)("ID_CE_SCALE") @@ -222,6 +238,10 @@ Public Class frmEBR Label38.Text = dsGral.Tables(7).Rows(2)(0) Label40.Text = dsGral.Tables(8).Rows(0)(0) + Label102.Text = dsGral.Tables(8).Rows(0)(1) + Label106.Text = dsGral.Tables(8).Rows(0)(2) + + Label32.Text = dsGral.Tables(9).Rows(0)(0) Label41.Text = dsGral.Tables(9).Rows(1)(0) @@ -237,9 +257,9 @@ Public Class frmEBR Label33.Text = "Lugares de Operacion: " & dsGral.Tables(14).Rows(0)(0) dtO = dsGral.Tables(15) - Label96.Text = dsGral.Tables(16).Rows(0)(0) - Label97.Text = dsGral.Tables(16).Rows(0)(0) - Label100.Text = dsGral.Tables(16).Rows(0)(0) + Label96.Text = "TOTAL DE CLIENTES CON RIESGO: " & dsGral.Tables(16).Rows(0)(0) + Label97.Text = dsGral.Tables(19).Rows(0)(0) + Label100.Text = "TOTAL DE CLIENTES CON RIESGO:" & dsGral.Tables(16).Rows(0)(0) Label101.Text = dsGral.Tables(17).Rows(0)(0) @@ -427,8 +447,17 @@ Public Class frmEBR 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 screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height) + + Dim screenGrab As Drawing.Image + If Screen.PrimaryScreen.Bounds.Width > 1500 Then + screenGrab = New Bitmap(GroupBox14.Width - 58, GroupBox14.Height) + Else + screenGrab = New Bitmap(GroupBox14.Width, GroupBox14.Height) + End If + 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) @@ -437,9 +466,14 @@ Public Class frmEBR End Function Private Sub guardarExpEbr() + + Dim fws As FormWindowState + Dim listaImg As New List(Of String) - Me.WindowState = FormWindowState.Maximized + fws = Me.WindowState + + Me.WindowState = FormWindowState.Normal Dim doc As New Document(PageSize.A4, 30, 30, 30, 30) Dim root As String = Path.GetTempPath & "EBR_" & DateTime.Now.ToString("HHmmss") & ".pdf" @@ -716,7 +750,8 @@ Public Class frmEBR img = Image.GetInstance(fileImg) img.Alignment = 1 img.BorderWidth = 100 - img.ScalePercent(50) + 'img.ScalePercent(50) + img.ScalePercent(25) img.ScaleAbsolute(450, 350) doc.Add(img) listaImg.Add(fileImg) @@ -727,12 +762,15 @@ Public Class frmEBR deleImg(listaImg) + Me.WindowState = fws + 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 + Me.WindowState = fws MsgBox("No cuenta con visor pdf." & Environment.NewLine & ex.Message) End Try @@ -754,5 +792,11 @@ Public Class frmEBR End Sub + Private Sub rg1_Click(sender As Object, e As EventArgs) Handles rg1.Click + End Sub + + Private Sub Label42_Click(sender As Object, e As EventArgs) Handles Label42.Click + + End Sub End Class \ No newline at end of file diff --git a/Reportes/frmReporteJ13.vb b/Reportes/frmReporteJ13.vb index 8145a6c..1f9fed1 100644 --- a/Reportes/frmReporteJ13.vb +++ b/Reportes/frmReporteJ13.vb @@ -119,7 +119,7 @@ Public Class frmReporteJ13 End Sub Private Sub btnExportarXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click - Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313.txt" + Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313" Dim fullPath As String = fileName Dim clsExcel As aExcel Dim ds As New DataSet diff --git a/Reportes/frmReporteJ14.Designer.vb b/Reportes/frmReporteJ14.Designer.vb index f30d5fd..3aded75 100644 --- a/Reportes/frmReporteJ14.Designer.vb +++ b/Reportes/frmReporteJ14.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmReporteJ14 'No lo modifique con el editor de código. _ Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReporteJ14)) Me.btnExport = New System.Windows.Forms.Button() Me.btnSearch = New System.Windows.Forms.Button() Me.dgvResult = New System.Windows.Forms.DataGridView() @@ -33,10 +34,25 @@ Partial Class frmReporteJ14 Me.lblFooter = New System.Windows.Forms.Label() Me.panel3 = New System.Windows.Forms.Panel() Me.btnExportXLS = New System.Windows.Forms.Button() + Me.btnGuardar = New System.Windows.Forms.Button() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmbPeriodoAnalisis = New System.Windows.Forms.ComboBox() + Me.btnBuscarAnalisis = New System.Windows.Forms.Button() + Me.dgvAnalisis = New System.Windows.Forms.DataGridView() + Me.dgvResumen = New System.Windows.Forms.DataGridView() + Me.btnExportarAnalisis = New System.Windows.Forms.Button() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() Me.panel2.SuspendLayout() Me.panel3.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + CType(Me.dgvAnalisis, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvResumen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'btnExport @@ -44,9 +60,9 @@ Partial Class frmReporteJ14 Me.btnExport.BackColor = System.Drawing.Color.Black Me.btnExport.Enabled = False Me.btnExport.ForeColor = System.Drawing.Color.White - Me.btnExport.Location = New System.Drawing.Point(366, 64) + Me.btnExport.Location = New System.Drawing.Point(479, 12) Me.btnExport.Name = "btnExport" - Me.btnExport.Size = New System.Drawing.Size(83, 25) + Me.btnExport.Size = New System.Drawing.Size(89, 36) Me.btnExport.TabIndex = 9 Me.btnExport.Text = "Generar" Me.btnExport.UseVisualStyleBackColor = False @@ -56,9 +72,9 @@ Partial Class frmReporteJ14 ' Me.btnSearch.BackColor = System.Drawing.Color.Black Me.btnSearch.ForeColor = System.Drawing.Color.White - Me.btnSearch.Location = New System.Drawing.Point(266, 64) + Me.btnSearch.Location = New System.Drawing.Point(289, 12) Me.btnSearch.Name = "btnSearch" - Me.btnSearch.Size = New System.Drawing.Size(83, 25) + Me.btnSearch.Size = New System.Drawing.Size(89, 36) Me.btnSearch.TabIndex = 8 Me.btnSearch.Text = "Buscar" Me.btnSearch.UseVisualStyleBackColor = False @@ -73,16 +89,16 @@ Partial Class frmReporteJ14 Me.dgvResult.BackgroundColor = System.Drawing.Color.White Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically - Me.dgvResult.Location = New System.Drawing.Point(12, 101) + Me.dgvResult.Location = New System.Drawing.Point(6, 58) Me.dgvResult.Name = "dgvResult" - Me.dgvResult.Size = New System.Drawing.Size(660, 328) + Me.dgvResult.Size = New System.Drawing.Size(662, 289) Me.dgvResult.TabIndex = 7 ' 'cmbQuarter ' Me.cmbQuarter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbQuarter.FormattingEnabled = True - Me.cmbQuarter.Location = New System.Drawing.Point(70, 67) + Me.cmbQuarter.Location = New System.Drawing.Point(79, 20) Me.cmbQuarter.Name = "cmbQuarter" Me.cmbQuarter.Size = New System.Drawing.Size(158, 21) Me.cmbQuarter.TabIndex = 6 @@ -90,10 +106,11 @@ Partial Class frmReporteJ14 'lblQuarter ' Me.lblQuarter.AutoSize = True + Me.lblQuarter.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblQuarter.ForeColor = System.Drawing.Color.MidnightBlue - Me.lblQuarter.Location = New System.Drawing.Point(13, 70) + Me.lblQuarter.Location = New System.Drawing.Point(13, 21) Me.lblQuarter.Name = "lblQuarter" - Me.lblQuarter.Size = New System.Drawing.Size(50, 13) + Me.lblQuarter.Size = New System.Drawing.Size(59, 15) Me.lblQuarter.TabIndex = 5 Me.lblQuarter.Text = "Trimestre" ' @@ -163,28 +180,154 @@ Partial Class frmReporteJ14 Me.btnExportXLS.BackColor = System.Drawing.Color.Black Me.btnExportXLS.Enabled = False Me.btnExportXLS.ForeColor = System.Drawing.Color.White - Me.btnExportXLS.Location = New System.Drawing.Point(466, 64) + Me.btnExportXLS.Location = New System.Drawing.Point(579, 12) Me.btnExportXLS.Name = "btnExportXLS" - Me.btnExportXLS.Size = New System.Drawing.Size(83, 25) + Me.btnExportXLS.Size = New System.Drawing.Size(89, 36) Me.btnExportXLS.TabIndex = 404 Me.btnExportXLS.Text = "Exportar" Me.btnExportXLS.UseVisualStyleBackColor = False Me.btnExportXLS.Visible = False ' + 'btnGuardar + ' + Me.btnGuardar.BackColor = System.Drawing.Color.Black + Me.btnGuardar.ForeColor = System.Drawing.Color.White + Me.btnGuardar.Location = New System.Drawing.Point(384, 12) + Me.btnGuardar.Name = "btnGuardar" + Me.btnGuardar.Size = New System.Drawing.Size(89, 36) + Me.btnGuardar.TabIndex = 405 + Me.btnGuardar.Text = "Guardar" + Me.btnGuardar.UseVisualStyleBackColor = False + Me.btnGuardar.Visible = False + ' + 'TabControl1 + ' + Me.TabControl1.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.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Location = New System.Drawing.Point(0, 52) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(684, 380) + Me.TabControl1.TabIndex = 406 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.cmbQuarter) + Me.TabPage1.Controls.Add(Me.btnGuardar) + Me.TabPage1.Controls.Add(Me.lblQuarter) + Me.TabPage1.Controls.Add(Me.dgvResult) + Me.TabPage1.Controls.Add(Me.btnExportXLS) + Me.TabPage1.Controls.Add(Me.btnSearch) + Me.TabPage1.Controls.Add(Me.btnExport) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(676, 354) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Reporte / Histórico" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.btnExportarAnalisis) + Me.TabPage2.Controls.Add(Me.dgvResumen) + Me.TabPage2.Controls.Add(Me.dgvAnalisis) + Me.TabPage2.Controls.Add(Me.btnBuscarAnalisis) + Me.TabPage2.Controls.Add(Me.cmbPeriodoAnalisis) + Me.TabPage2.Controls.Add(Me.Label1) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(676, 354) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Análisis" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label1.Location = New System.Drawing.Point(13, 21) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(59, 15) + Me.Label1.TabIndex = 6 + Me.Label1.Text = "Trimestre" + ' + 'cmbPeriodoAnalisis + ' + Me.cmbPeriodoAnalisis.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbPeriodoAnalisis.FormattingEnabled = True + Me.cmbPeriodoAnalisis.Location = New System.Drawing.Point(79, 20) + Me.cmbPeriodoAnalisis.Name = "cmbPeriodoAnalisis" + Me.cmbPeriodoAnalisis.Size = New System.Drawing.Size(158, 21) + Me.cmbPeriodoAnalisis.TabIndex = 7 + ' + 'btnBuscarAnalisis + ' + Me.btnBuscarAnalisis.BackColor = System.Drawing.Color.Black + Me.btnBuscarAnalisis.ForeColor = System.Drawing.Color.White + Me.btnBuscarAnalisis.Location = New System.Drawing.Point(289, 12) + Me.btnBuscarAnalisis.Name = "btnBuscarAnalisis" + Me.btnBuscarAnalisis.Size = New System.Drawing.Size(89, 36) + Me.btnBuscarAnalisis.TabIndex = 8 + Me.btnBuscarAnalisis.Text = "Consultar" + Me.btnBuscarAnalisis.UseVisualStyleBackColor = False + ' + 'dgvAnalisis + ' + Me.dgvAnalisis.AllowUserToAddRows = False + Me.dgvAnalisis.AllowUserToDeleteRows = False + Me.dgvAnalisis.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.dgvAnalisis.BackgroundColor = System.Drawing.Color.White + Me.dgvAnalisis.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnalisis.Location = New System.Drawing.Point(8, 197) + Me.dgvAnalisis.Name = "dgvAnalisis" + Me.dgvAnalisis.ReadOnly = True + Me.dgvAnalisis.Size = New System.Drawing.Size(660, 151) + Me.dgvAnalisis.TabIndex = 363 + ' + 'dgvResumen + ' + Me.dgvResumen.AllowUserToAddRows = False + Me.dgvResumen.AllowUserToDeleteRows = False + Me.dgvResumen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvResumen.BackgroundColor = System.Drawing.Color.White + Me.dgvResumen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvResumen.Location = New System.Drawing.Point(8, 54) + Me.dgvResumen.Name = "dgvResumen" + Me.dgvResumen.ReadOnly = True + Me.dgvResumen.Size = New System.Drawing.Size(446, 132) + Me.dgvResumen.TabIndex = 364 + ' + 'btnExportarAnalisis + ' + Me.btnExportarAnalisis.BackColor = System.Drawing.Color.Black + Me.btnExportarAnalisis.Enabled = False + Me.btnExportarAnalisis.ForeColor = System.Drawing.Color.White + Me.btnExportarAnalisis.Location = New System.Drawing.Point(406, 12) + Me.btnExportarAnalisis.Name = "btnExportarAnalisis" + Me.btnExportarAnalisis.Size = New System.Drawing.Size(89, 36) + Me.btnExportarAnalisis.TabIndex = 365 + Me.btnExportarAnalisis.Text = "Exportar" + Me.btnExportarAnalisis.UseVisualStyleBackColor = False + ' 'frmReporteJ14 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(684, 477) - Me.Controls.Add(Me.btnExportXLS) + Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel2) - Me.Controls.Add(Me.btnExport) - Me.Controls.Add(Me.btnSearch) - Me.Controls.Add(Me.dgvResult) - Me.Controls.Add(Me.cmbQuarter) - Me.Controls.Add(Me.lblQuarter) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmReporteJ14" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "Reporte J14" @@ -194,8 +337,14 @@ Partial Class frmReporteJ14 Me.panel2.PerformLayout() Me.panel3.ResumeLayout(False) Me.panel3.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + CType(Me.dgvAnalisis, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvResumen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) - Me.PerformLayout() End Sub @@ -210,4 +359,14 @@ Partial Class frmReporteJ14 Friend WithEvents lblFooter As Label Private WithEvents panel3 As Panel Friend WithEvents btnExportXLS As Button + Friend WithEvents btnGuardar As Button + Friend WithEvents TabControl1 As TabControl + Friend WithEvents TabPage1 As TabPage + Friend WithEvents TabPage2 As TabPage + Friend WithEvents dgvAnalisis As DataGridView + Friend WithEvents btnBuscarAnalisis As Button + Friend WithEvents cmbPeriodoAnalisis As ComboBox + Friend WithEvents Label1 As Label + Friend WithEvents dgvResumen As DataGridView + Friend WithEvents btnExportarAnalisis As Button End Class diff --git a/Reportes/frmReporteJ14.resx b/Reportes/frmReporteJ14.resx index 1af7de1..78091cc 100644 --- a/Reportes/frmReporteJ14.resx +++ b/Reportes/frmReporteJ14.resx @@ -117,4 +117,64 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + 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/Reportes/frmReporteJ14.vb b/Reportes/frmReporteJ14.vb index d44e38e..9a05868 100644 --- a/Reportes/frmReporteJ14.vb +++ b/Reportes/frmReporteJ14.vb @@ -6,8 +6,11 @@ Public Class frmReporteJ14 Dim year As String Dim quarter As String Dim canExport As Boolean + Private queryGuardar As String Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click + Dim opeHist As New clsComplejo Dim Classcom As New clsComplejo + Dim SQL As String = String.Empty Dim idInherent As Integer Dim idConrolEffect As Integer @@ -22,6 +25,37 @@ Public Class frmReporteJ14 btnExportXLS.Visible = canExport dgvResult.DataSource = Nothing incluyeInvalidos = 0 + + + + Try + + SQL = "SP_ConsultaHistRJ14 " + year + "," + quarter + "" + Dim dsHist As DataSet = opeHist.fdtDataSet(SQL) + If dsHist.Tables(0).Rows.Count > 0 Then + canExport = True + btnGuardar.BackColor = Color.DarkGray + End If + btnExport.Enabled = canExport + btnExport.Visible = canExport + btnExportXLS.Enabled = canExport + btnExportXLS.Visible = canExport + btnGuardar.Visible = canExport + btnGuardar.Enabled = Not canExport + + dgvResult.DataSource = dsHist.Tables(0) + + If dsHist.Tables(0).Rows.Count > 0 Then + Dim Aud As New ClassMyUtils + Aud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Consulta de Reporte Histórico J14") + Exit Sub + End If + Catch ex As Exception + MessageBox.Show("Hist:" & ex.Message) + End Try + + + Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?", "Reporte J14", MessageBoxButtons.YesNo) @@ -31,7 +65,8 @@ Public Class frmReporteJ14 Try - SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter + ", " + incluyeInvalidos.ToString + SQL = "sp_Consulta_ReporteJ14 " + year + "," + quarter + "," + incluyeInvalidos.ToString & "," & 0 + queryGuardar = "sp_Consulta_ReporteJ14 " + year + "," + quarter + "," + incluyeInvalidos.ToString & "," & 1 Dim dsGral As DataSet = Classcom.fdtDataSet(SQL) If dsGral.Tables.Count = 0 Then MessageBox.Show("No existen registros para el trimestre seleccionado") @@ -46,6 +81,9 @@ Public Class frmReporteJ14 btnExport.Visible = canExport btnExportXLS.Enabled = canExport btnExportXLS.Visible = canExport + btnGuardar.Visible = canExport + btnGuardar.Enabled = canExport + btnGuardar.BackColor = Color.Black dgvResult.DataSource = dsGral.Tables(0) Catch ex As Exception MessageBox.Show(ex.Message) @@ -92,6 +130,8 @@ Public Class frmReporteJ14 End Sub Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load + styleControl(False) + Dim initialYear As Integer Dim currentYear As Integer Dim comboSource As New Dictionary(Of String, String)() @@ -112,6 +152,13 @@ Public Class frmReporteJ14 btnExport.Visible = canExport btnExportXLS.Enabled = canExport btnExportXLS.Visible = canExport + + ' + cmbPeriodoAnalisis.DataSource = New BindingSource(comboSource, Nothing) + cmbPeriodoAnalisis.DisplayMember = "Value" + cmbPeriodoAnalisis.ValueMember = "Key" + + Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14") End Sub @@ -122,7 +169,11 @@ Public Class frmReporteJ14 End Sub Private Sub btnExportXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click - Dim fileName As String = year.ToString + "_" + quarter.ToString + "_ R03 J-0314" + + 'Dim fileName As String = cmbPeriodoAnalisis.ToString.Substring(0, 4) + "_" + cmbPeriodoAnalisis.ToString.Substring(3, 1) + "_ R03 J-0314" + 'Dim fileName As String = cmbPeriodoAnalisis.SelectedValue.ToString.Substring(0, 4) + "_" + cmbPeriodoAnalisis.SelectedValue.ToString.Substring(4, 1) + "_ R03 J-0314" + Dim fileName As String = cmbQuarter.SelectedValue.ToString.Substring(0, 4) + "_" + cmbQuarter.SelectedValue.ToString.Substring(4, 1) + "_ R03 J-0314" + Dim fullPath As String = fileName Dim clsExcel As aExcel Dim ds As New DataSet @@ -130,7 +181,6 @@ Public Class frmReporteJ14 clsExcel = New aExcel clsExcel.Titulo = fileName ds.Tables.Add("ReporteJ14") - ' Add Columns Dim col As DataColumn For Each dgvCol As DataGridViewColumn In dgvResult.Columns @@ -147,6 +197,7 @@ Public Class frmReporteJ14 row.Item(column.Index) = dgvResult.Rows.Item(i).Cells(column.Index).Value Next Next + clsExcel.ExportDataset(ds) 'MessageBox.Show("Reporte generado correctamente") Catch ex As Exception @@ -156,4 +207,143 @@ Public Class frmReporteJ14 Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14") End Sub + + Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click + + Dim Classcom As New SenteciasSQL.ClassSQL + + If queryGuardar <> "" Then + + Dim dsGral As DataSet = Classcom.fdtDataSetTabla(queryGuardar) + + ' dgvResult.DataSource = dsGral.Tables(0) + btnGuardar.BackColor = Color.DarkGray + btnGuardar.Enabled = False + MsgBox("Reporte guadado correctamente") + + Dim Aud As New ClassMyUtils + Aud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Guardar Reporte Histórico J14") + + Else + MsgBox("Realice previamente una busqueda") + End If + + + + End Sub + + Private Sub btnBuscarAnalisis_Click(sender As Object, e As EventArgs) Handles btnBuscarAnalisis.Click + Dim year As Integer + Dim noTrimestre As Integer + Dim Classcom As New SenteciasSQL.ClassSQL + Dim ClOp2 As New SenteciasSQL.ClassSQL + + If cmbPeriodoAnalisis.SelectedValue IsNot Nothing Then + year = cmbPeriodoAnalisis.SelectedValue.ToString().Substring(0, 4) + noTrimestre = cmbPeriodoAnalisis.SelectedValue.ToString().Substring(4, 1) + + + Dim opResumen As String = "SP_RESUMENRJ14 " & year & "," & noTrimestre + Dim opDetalle As String = "SP_DETALLERJ14 " & year & "," & noTrimestre + + + Dim dsGral As DataSet = Classcom.fdtDataSetTabla(opResumen) + + dgvResumen.DataSource = dsGral.Tables(0) + + + Dim dsDetealle As DataSet + dsDetealle = ClOp2.fdtDataSetTabla(opDetalle) + dgvAnalisis.DataSource = dsDetealle.Tables(0) + + + + If dgvResumen.RowCount > 0 And dgvAnalisis.RowCount > 0 Then + btnExportarAnalisis.Enabled = True + styleControl(True) + Else + btnExportarAnalisis.Enabled = False + styleControl(False) + + End If + + + Else + MsgBox("Selecciona un trimestre.") + + End If + + End Sub + + Private Sub styleControl(opc As Boolean) + + If opc Then + btnExportarAnalisis.BackColor = Color.Black + btnExportarAnalisis.ForeColor = Color.White + Else + btnExportarAnalisis.BackColor = Color.Gray + btnExportarAnalisis.ForeColor = Color.Black + End If + + End Sub + + + Private Sub btnExportarAnalisis_Click(sender As Object, e As EventArgs) Handles btnExportarAnalisis.Click + + Dim fileName As String = cmbPeriodoAnalisis.SelectedValue.ToString.Substring(0, 4) + "_" + cmbPeriodoAnalisis.SelectedValue.ToString.Substring(4, 1) + "_ R03 J-0314" + Dim fullPath As String = fileName + Dim clsExcel As aExcel + Dim ds As New DataSet + Try + clsExcel = New aExcel + clsExcel.Titulo = fileName + ds.Tables.Add("ReporteJ14_1") + + ' Add Columns + Dim col As DataColumn + For Each dgvCol As DataGridViewColumn In dgvResumen.Columns + col = New DataColumn(dgvCol.Name) + ds.Tables("ReporteJ14_1").Columns.Add(col) + Next + + 'Add Rows from the datagridview + Dim row As DataRow + Dim colcount As Integer = dgvResumen.Columns.Count - 1 + For i As Integer = 0 To dgvResumen.Rows.Count - 1 + row = ds.Tables("ReporteJ14_1").Rows.Add + For Each column As DataGridViewColumn In dgvResumen.Columns + row.Item(column.Index) = dgvResumen.Rows.Item(i).Cells(column.Index).Value + Next + Next + + + ds.Tables.Add("ReporteJ14_2") + + ' Add Columns + Dim col2 As DataColumn + For Each dgvCol As DataGridViewColumn In dgvAnalisis.Columns + col2 = New DataColumn(dgvCol.Name) + ds.Tables("ReporteJ14_2").Columns.Add(col2) + Next + + 'Add Rows from the datagridview + Dim row2 As DataRow + Dim colcount2 As Integer = dgvAnalisis.Columns.Count - 1 + For i As Integer = 0 To dgvAnalisis.Rows.Count - 1 + row2 = ds.Tables("ReporteJ14_2").Rows.Add + For Each column As DataGridViewColumn In dgvAnalisis.Columns + row2.Item(column.Index) = dgvAnalisis.Rows.Item(i).Cells(column.Index).Value + Next + Next + + clsExcel.ExportTo2Woook(ds) + 'MessageBox.Show("Reporte generado correctamente") + Catch ex As Exception + MessageBox.Show(ex.Message) + + End Try + Dim ClassAud As New ClassMyUtils + ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14 Resumen") + + End Sub End Class \ No newline at end of file diff --git a/bin/Conexion_MindsOP.ini b/bin/Conexion_MindsOP.ini new file mode 100644 index 0000000..2e5009a --- /dev/null +++ b/bin/Conexion_MindsOP.ini @@ -0,0 +1,5 @@ +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/MINDS CLIENTEOF.application b/bin/MINDS CLIENTEOF.application index 7634bef..da5837f 100644 --- a/bin/MINDS CLIENTEOF.application +++ b/bin/MINDS CLIENTEOF.application @@ -7,14 +7,14 @@ - + - 2M0s4ts8B5pE1R3uEIgWdjtvdyU= + 6f8zaL5H/JljJ3VDhtcHUVzlNBk= diff --git a/bin/MINDS CLIENTEOF.exe b/bin/MINDS CLIENTEOF.exe index 05307c2..40e8cde 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 28a6665..c1b58cf 100644 --- a/bin/MINDS CLIENTEOF.exe.manifest +++ b/bin/MINDS CLIENTEOF.exe.manifest @@ -42,18 +42,6 @@ - - - - - - - - - jynB3qMgo1Dc2GoQqehY0lCH4Yo= - - - @@ -271,14 +259,14 @@ - + - 7tL0Qf3itWOaPzlGzHaZzmYk5nA= + Vr6jbddrYkVpxdFU1L6poSlGh74= diff --git a/bin/MINDS CLIENTEOF.pdb b/bin/MINDS CLIENTEOF.pdb index cb672bf..6d60a9c 100644 Binary files a/bin/MINDS CLIENTEOF.pdb and b/bin/MINDS CLIENTEOF.pdb differ diff --git a/bin/MINDS CLIENTEOF.vshost.application b/bin/MINDS CLIENTEOF.vshost.application index 7634bef..a5296a4 100644 --- a/bin/MINDS CLIENTEOF.vshost.application +++ b/bin/MINDS CLIENTEOF.vshost.application @@ -14,7 +14,7 @@ - 2M0s4ts8B5pE1R3uEIgWdjtvdyU= + jkUCLvW88a9xr6r1zcnShV3Yi1Y= diff --git a/bin/MINDS CLIENTEOF.vshost.exe.manifest b/bin/MINDS CLIENTEOF.vshost.exe.manifest index 28a6665..2576c61 100644 --- a/bin/MINDS CLIENTEOF.vshost.exe.manifest +++ b/bin/MINDS CLIENTEOF.vshost.exe.manifest @@ -271,14 +271,14 @@ - + - 7tL0Qf3itWOaPzlGzHaZzmYk5nA= + Oc59HoRlyGDL/miIWEpMTsU2Kvw= diff --git a/bin/app.publish/MINDS CLIENTEOF.exe b/bin/app.publish/MINDS CLIENTEOF.exe index 05307c2..40e8cde 100644 Binary files a/bin/app.publish/MINDS CLIENTEOF.exe and b/bin/app.publish/MINDS CLIENTEOF.exe differ diff --git a/obj/Debug/CLIENTE.ClientesBol.resources b/obj/Debug/CLIENTE.ClientesBol.resources index fee6ab6..9958e67 100644 Binary files a/obj/Debug/CLIENTE.ClientesBol.resources and b/obj/Debug/CLIENTE.ClientesBol.resources differ diff --git a/obj/Debug/CLIENTE.DetalleDormantAccount.resources b/obj/Debug/CLIENTE.DetalleDormantAccount.resources index 0f1af7b..0f118f8 100644 Binary files a/obj/Debug/CLIENTE.DetalleDormantAccount.resources and b/obj/Debug/CLIENTE.DetalleDormantAccount.resources differ diff --git a/obj/Debug/CLIENTE.FrmCal.resources b/obj/Debug/CLIENTE.FrmCal.resources index 102b9a0..cf73358 100644 Binary files a/obj/Debug/CLIENTE.FrmCal.resources and b/obj/Debug/CLIENTE.FrmCal.resources differ diff --git a/obj/Debug/CLIENTE.GeografiaGrafica.resources b/obj/Debug/CLIENTE.GeografiaGrafica.resources index 6796a0d..ebf4575 100644 Binary files a/obj/Debug/CLIENTE.GeografiaGrafica.resources and b/obj/Debug/CLIENTE.GeografiaGrafica.resources differ diff --git a/obj/Debug/CLIENTE.Login.resources b/obj/Debug/CLIENTE.Login.resources index 88c4cda..3906733 100644 Binary files a/obj/Debug/CLIENTE.Login.resources and b/obj/Debug/CLIENTE.Login.resources differ diff --git a/obj/Debug/CLIENTE.Monto.resources b/obj/Debug/CLIENTE.Monto.resources index 6559544..0f8f4e4 100644 Binary files a/obj/Debug/CLIENTE.Monto.resources and b/obj/Debug/CLIENTE.Monto.resources differ diff --git a/obj/Debug/CLIENTE.OperBaja.resources b/obj/Debug/CLIENTE.OperBaja.resources index db6ce56..06280cb 100644 Binary files a/obj/Debug/CLIENTE.OperBaja.resources and b/obj/Debug/CLIENTE.OperBaja.resources differ diff --git a/obj/Debug/CLIENTE.OperInuSinTran.resources b/obj/Debug/CLIENTE.OperInuSinTran.resources index 4d43664..20632e0 100644 Binary files a/obj/Debug/CLIENTE.OperInuSinTran.resources and b/obj/Debug/CLIENTE.OperInuSinTran.resources differ diff --git a/obj/Debug/CLIENTE.frmEBR.resources b/obj/Debug/CLIENTE.frmEBR.resources index 9784af3..f9ef399 100644 Binary files a/obj/Debug/CLIENTE.frmEBR.resources and b/obj/Debug/CLIENTE.frmEBR.resources differ diff --git a/obj/Debug/CLIENTE.frmReporteJ14.resources b/obj/Debug/CLIENTE.frmReporteJ14.resources index 6c05a97..37eef36 100644 Binary files a/obj/Debug/CLIENTE.frmReporteJ14.resources and b/obj/Debug/CLIENTE.frmReporteJ14.resources differ diff --git a/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/obj/Debug/DesignTimeResolveAssemblyReferences.cache index 12127de..984ccef 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 05256c4..f24d038 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 7634bef..da5837f 100644 --- a/obj/Debug/MINDS CLIENTEOF.application +++ b/obj/Debug/MINDS CLIENTEOF.application @@ -7,14 +7,14 @@ - + - 2M0s4ts8B5pE1R3uEIgWdjtvdyU= + 6f8zaL5H/JljJ3VDhtcHUVzlNBk= diff --git a/obj/Debug/MINDS CLIENTEOF.exe b/obj/Debug/MINDS CLIENTEOF.exe index 05307c2..40e8cde 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 28a6665..c1b58cf 100644 --- a/obj/Debug/MINDS CLIENTEOF.exe.manifest +++ b/obj/Debug/MINDS CLIENTEOF.exe.manifest @@ -42,18 +42,6 @@ - - - - - - - - - jynB3qMgo1Dc2GoQqehY0lCH4Yo= - - - @@ -271,14 +259,14 @@ - + - 7tL0Qf3itWOaPzlGzHaZzmYk5nA= + Vr6jbddrYkVpxdFU1L6poSlGh74= diff --git a/obj/Debug/MINDS CLIENTEOF.pdb b/obj/Debug/MINDS CLIENTEOF.pdb index cb672bf..6d60a9c 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.CoreCompileInputs.cache b/obj/Debug/Minds Cliente.vbproj.CoreCompileInputs.cache index fb4405c..6f7b9da 100644 --- a/obj/Debug/Minds Cliente.vbproj.CoreCompileInputs.cache +++ b/obj/Debug/Minds Cliente.vbproj.CoreCompileInputs.cache @@ -1 +1 @@ -20c9fb53d0fd991430cf62f67ae3e9069e7eefdd +083193d3b06faaff466cabe7d9cd89a288e399d3 diff --git a/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt b/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt index 9f3134e..0a3e902 100644 --- a/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt +++ b/obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt @@ -9441,3 +9441,406 @@ 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 +F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.config +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.xml +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.pdb +F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.manifest +F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.application +F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe +F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.pdb +F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.xml +F:\Minds\BLACK\Minds\client\bin\adodb.dll +F:\Minds\BLACK\Minds\client\bin\stdole.dll +F:\Minds\BLACK\Minds\client\bin\office.dll +F:\Minds\BLACK\Minds\client\bin\Microsoft.Vbe.Interop.dll +F:\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbprojResolveAssemblyReference.cache +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ActTipoCambio.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogos.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCanales.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRCalificacion.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAgentes.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDirAgencia.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFuncionario.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMyParametroGrupo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmOficinas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParam.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsGral.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmStatusPatrones.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MyAsignaGrupo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RazonAct.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ClientesBol.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmBuscaListas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCalStatus.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMListasR.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PaisesBol.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasBol.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CatPais.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmMasterCatalogo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPatrones.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyActividad.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyEstado.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstitucion.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstrumento.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyMoneda.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyOrganismo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyProducto.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMySubproducto.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyTipoOperacion.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatEBR.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmEmailFTP.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPerfilCta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesUSDMX.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesCuentaUSD.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRelacionCuenta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPropositoCuenta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCuentasUSD.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSectorEconomico.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLocalidad.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCASFIM.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEmailAnonimo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmGrupoRiesgo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSucursal.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFiguraLegal.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoPersona.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstructuraCorp.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoDomicilio.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoCuenta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmProcedenciaRecurso.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParentesco.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoTransferencia.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmInstrumento.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmIdentificacion.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFuenteIngreso.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDestinoRecurso.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmActividadVulnerable.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConcepto.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogosBinarios.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfiguracion.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAboutBox.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAccesoControl.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAvisos.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstatusCuenta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsPerfilCta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRiesgoPPE.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmInformes.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarRep6.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarChequesCaja.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTransfeInfo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarAcuerdoTransInfo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarDolaresEfec.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.EsquemasDetectados.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcuerdoTransfeInfo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcumuladoCliente.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmasExp.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMBusqueda.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCal.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCartas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmChekList.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmclientes.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConsultaAlarmas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmContestacionOF.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDocChk.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDoctosCh.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDolaresEfectivo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMCapitales.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTI.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCiudadOperacion.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmNacionalidad.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmObjCuenta.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParametrosMR.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPreload.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRep6.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepInterExt.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTInternacional.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTransferenciaInfo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FechaGrafica.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDivisaGrafica.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.GeografiaGrafica.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Monto.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MontoGrafica.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperBaja.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Patron_Transacciones.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmExcedentes.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoDIV.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBI.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBT.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasDIV.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBI.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBT.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistorico.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.logo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaRSPID.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.mdiForm.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Resources.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PopUp.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfigHit.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHit.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmProcesoHit.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CierreGrupal.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja_Detalle.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDetalle.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleFTI.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBR.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBRDomicilios.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmIngresosDepositos.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleDormantAccount.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleOperPre.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Detalles.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DormatAccount.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ExcProgreso.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAlarmasKYC.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAuditoria.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCuentasRelacionadas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFraccionadaDET.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMFraccionadas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaEvidenciasAlarmas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmNewInsuales.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmParamSITI.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepAnonimo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepEstadistico.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmReporteAsesorias.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ13.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ14.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmUmbral.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetallesSin.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmVigenciaAlertas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrTransaccionesXGpo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesCredito.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDerivados.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDivisas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperatividadBaja.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperInuSinTran.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdmin.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdminDetalle.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoSinTran.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadasDet.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepFraccionadas.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepOpInusuales.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteCNBV.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteMerDin.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperComer.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperPreo.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteRelevantes.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteSITI.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepRelevantes.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmVigenciaCon.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CambioPassword.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLoginWindows.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmPasswConfig.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Login.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Perfil.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Permiso.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.UsuarioM.resources +F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.splash.resources +F:\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.GenerateResource.Cache +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.licenses +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.TrustInfo.xml +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.manifest +F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.application +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.config +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.manifest +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.application +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.pdb +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.xml +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\stdole.dll +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\office.dll +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\Microsoft.Vbe.Interop.dll +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbprojAssemblyReference.cache +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ActTipoCambio.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogos.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCanales.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRCalificacion.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAgentes.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDirAgencia.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFuncionario.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMyParametroGrupo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmOficinas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParam.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsGral.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmStatusPatrones.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MyAsignaGrupo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RazonAct.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ClientesBol.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmBuscaListas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCalStatus.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMListasR.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PaisesBol.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasBol.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CatPais.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmMasterCatalogo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPatrones.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyActividad.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyEstado.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstitucion.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstrumento.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyMoneda.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyOrganismo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyProducto.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMySubproducto.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyTipoOperacion.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatEBR.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmEmailFTP.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPerfilCta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesUSDMX.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesCuentaUSD.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRelacionCuenta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPropositoCuenta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCuentasUSD.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSectorEconomico.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLocalidad.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCASFIM.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEmailAnonimo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmGrupoRiesgo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSucursal.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFiguraLegal.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoPersona.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstructuraCorp.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoDomicilio.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoCuenta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmProcedenciaRecurso.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParentesco.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoTransferencia.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmInstrumento.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmIdentificacion.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFuenteIngreso.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDestinoRecurso.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmActividadVulnerable.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConcepto.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogosBinarios.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfiguracion.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAboutBox.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAccesoControl.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAvisos.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstatusCuenta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsPerfilCta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRiesgoPPE.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmInformes.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarRep6.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarChequesCaja.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTransfeInfo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarAcuerdoTransInfo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarDolaresEfec.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.EsquemasDetectados.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcuerdoTransfeInfo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcumuladoCliente.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmasExp.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMBusqueda.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCal.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCartas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmChekList.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmclientes.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConsultaAlarmas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmContestacionOF.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDocChk.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDoctosCh.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDolaresEfectivo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMCapitales.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTI.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCiudadOperacion.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmNacionalidad.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmObjCuenta.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParametrosMR.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPreload.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRep6.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepInterExt.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTInternacional.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTransferenciaInfo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FechaGrafica.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDivisaGrafica.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.GeografiaGrafica.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Monto.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MontoGrafica.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperBaja.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Patron_Transacciones.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmExcedentes.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoDIV.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBI.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBT.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasDIV.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBI.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBT.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistorico.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.logo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaRSPID.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.mdiForm.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Resources.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PopUp.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfigHit.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHit.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmProcesoHit.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CierreGrupal.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja_Detalle.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDetalle.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleFTI.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBR.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBRDomicilios.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmIngresosDepositos.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleDormantAccount.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleOperPre.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Detalles.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DormatAccount.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ExcProgreso.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAlarmasKYC.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAuditoria.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCuentasRelacionadas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFraccionadaDET.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMFraccionadas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaEvidenciasAlarmas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmNewInsuales.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmParamSITI.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepAnonimo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepEstadistico.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmReporteAsesorias.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ13.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ14.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmUmbral.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetallesSin.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmVigenciaAlertas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrTransaccionesXGpo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesCredito.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDerivados.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDivisas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperatividadBaja.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperInuSinTran.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdmin.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdminDetalle.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoSinTran.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadasDet.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepFraccionadas.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepOpInusuales.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteCNBV.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteMerDin.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperComer.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperPreo.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteRelevantes.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteSITI.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepRelevantes.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmVigenciaCon.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CambioPassword.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLoginWindows.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmPasswConfig.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Login.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Perfil.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Permiso.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.UsuarioM.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.splash.resources +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.GenerateResource.cache +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.licenses +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.CoreCompileInputs.cache +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.TrustInfo.xml +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.manifest +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.application +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.CopyComplete +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.xml +D:\BACK\Minds\2022_1\Minds\BLACK\Minds\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 90cdc69..273bd4f 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.vbprojAssemblyReference.cache b/obj/Debug/Minds Cliente.vbprojAssemblyReference.cache index f2cdd4d..ed135b0 100644 Binary files a/obj/Debug/Minds Cliente.vbprojAssemblyReference.cache and b/obj/Debug/Minds Cliente.vbprojAssemblyReference.cache differ diff --git a/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache b/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache index 378874a..9d36499 100644 Binary files a/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache and b/obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache differ