Backup del proyecto

This commit is contained in:
Vicente 2023-02-22 07:21:57 -06:00
parent f6898c4a9b
commit 298bea23d4
47 changed files with 2480 additions and 784 deletions

Binary file not shown.

Binary file not shown.

View File

@ -155,7 +155,7 @@
</value>
</data>
<data name="dataGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;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{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;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"&gt;&lt;Height&gt;163&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 768, 163&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 768, 163&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;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;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;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"&gt;&lt;Height&gt;256&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 860, 256&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 860, 256&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
@ -165,7 +165,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG
CgAAAk1TRnQBSQFMAgEBBAEAAbQBAAG0AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CgAAAk1TRnQBSQFMAgEBBAEAAcwBAAHMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@ -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
<System.Diagnostics.DebuggerStepThrough()> 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

View File

@ -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

View File

@ -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
@ -190,6 +192,141 @@ Public Class aExcel
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()
'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
Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String)
Try
@ -225,11 +362,11 @@ Public Class aExcel
m_Excel.Visible = True
'' Creamos una variable para gualdar la cultura actual
Dim OldCultureInfo As System.Globalization.CultureInfo = _
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 = _
System.Threading.Thread.CurrentThread.CurrentCulture =
New System.Globalization.CultureInfo("en-US")
'' Creamos una instancia del Workbooks de excel
@ -244,8 +381,8 @@ Public Class aExcel
'' necesitariamos).
objHojaExcel.Activate()
aName = _
System.Reflection.Assembly.GetExecutingAssembly. _
aName =
System.Reflection.Assembly.GetExecutingAssembly.
GetModules()(0).FullyQualifiedName
apath = System.IO.Path.GetDirectoryName(aName)
@ -378,5 +515,377 @@ Public Class aExcel
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
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

View File

@ -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

View File

@ -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

View File

@ -155,7 +155,7 @@
</value>
</data>
<data name="DataGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;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;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;122&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 714, 122&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 714, 122&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;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{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;116&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 714, 116&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 714, 116&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

@ -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
@ -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

File diff suppressed because it is too large Load Diff

View File

@ -1031,7 +1031,7 @@
</value>
</data>
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;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;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;60&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 769, 60&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 769, 60&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;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{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;60&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 769, 60&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 769, 60&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

@ -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

View File

@ -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

View File

@ -22,6 +22,7 @@ Partial Class frmReporteJ14
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
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

View File

@ -117,4 +117,64 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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==
</value>
</data>
</root>

View File

@ -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

5
bin/Conexion_MindsOP.ini Normal file
View File

@ -0,0 +1,5 @@
TIPOSERVIDORMD=SQL Server
SERVIDOR=149.28.214.102,14337
BASEDATOS=Minds_BlackRock_Dev
USUARIO=usrBlackRock
PASSWORD=244214150226146068038196002134181036246054191

View File

@ -7,14 +7,14 @@
<framework targetVersion="4.0" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks>
<dependency>
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18908">
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18289">
<assemblyIdentity name="MINDS CLIENTEOF.exe" version="2.5.0.4" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>2M0s4ts8B5pE1R3uEIgWdjtvdyU=</dsig:DigestValue>
<dsig:DigestValue>6f8zaL5H/JljJ3VDhtcHUVzlNBk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

View File

@ -42,18 +42,6 @@
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="adodb.dll" size="110592">
<assemblyIdentity name="ADODB" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>jynB3qMgo1Dc2GoQqehY0lCH4Yo=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="AxInterop.MSComCtl2.dll" size="81920">
<assemblyIdentity name="AxInterop.MSComCtl2" version="2.0.0.0" language="neutral" />
@ -271,14 +259,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5874688">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5913088">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue>
<dsig:DigestValue>Vr6jbddrYkVpxdFU1L6poSlGh74=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

View File

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>2M0s4ts8B5pE1R3uEIgWdjtvdyU=</dsig:DigestValue>
<dsig:DigestValue>jkUCLvW88a9xr6r1zcnShV3Yi1Y=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

View File

@ -271,14 +271,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5874688">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5913088">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue>
<dsig:DigestValue>Oc59HoRlyGDL/miIWEpMTsU2Kvw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -7,14 +7,14 @@
<framework targetVersion="4.0" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks>
<dependency>
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18908">
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18289">
<assemblyIdentity name="MINDS CLIENTEOF.exe" version="2.5.0.4" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>2M0s4ts8B5pE1R3uEIgWdjtvdyU=</dsig:DigestValue>
<dsig:DigestValue>6f8zaL5H/JljJ3VDhtcHUVzlNBk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

View File

@ -42,18 +42,6 @@
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="adodb.dll" size="110592">
<assemblyIdentity name="ADODB" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>jynB3qMgo1Dc2GoQqehY0lCH4Yo=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="AxInterop.MSComCtl2.dll" size="81920">
<assemblyIdentity name="AxInterop.MSComCtl2" version="2.0.0.0" language="neutral" />
@ -271,14 +259,14 @@
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5874688">
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5913088">
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue>
<dsig:DigestValue>Vr6jbddrYkVpxdFU1L6poSlGh74=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

View File

@ -1 +1 @@
20c9fb53d0fd991430cf62f67ae3e9069e7eefdd
083193d3b06faaff466cabe7d9cd89a288e399d3

View File

@ -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