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