jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Backup del proyecto

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Minds Cliente/v14/.suo
View File

Binary file not shown.

BIN
.vs/Minds Cliente/v15/.suo
View File

Binary file not shown.

BIN
.vs/Minds Cliente/v15/Server/sqlite3/storage.ide
View File

Binary file not shown.

4
Busquedas/ClienteBol.resx
View File

@ -155,7 +155,7 @@
</value> </value>
</data> </data>
<data name="dataGrid1.PropBag" xml:space="preserve"> <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> </data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
@ -165,7 +165,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG
CgAAAk1TRnQBSQFMAgEBBAEAAbQBAAG0AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CgAAAk1TRnQBSQFMAgEBBAEAAcwBAAHMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

292
Busquedas/ClienteBol.vb
View File

@ -53,13 +53,25 @@ Public Class ClientesBol
Friend WithEvents label4 As Label Friend WithEvents label4 As Label
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Panel1 As Panel 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 Friend WithEvents lblResultados As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ClientesBol)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ClientesBol))
Me.GroupBox1 = New System.Windows.Forms.GroupBox() 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.lblStatus = New System.Windows.Forms.Label()
Me.cmbStatus = New System.Windows.Forms.ComboBox() Me.cmbStatus = New System.Windows.Forms.ComboBox()
Me.lblfecha = New System.Windows.Forms.Label()
Me.txtCliente = New System.Windows.Forms.TextBox() Me.txtCliente = New System.Windows.Forms.TextBox()
Me.cmbPorcentaje = New System.Windows.Forms.ComboBox() Me.cmbPorcentaje = New System.Windows.Forms.ComboBox()
Me.lblPorcentaje = New System.Windows.Forms.Label() Me.lblPorcentaje = New System.Windows.Forms.Label()
@ -72,7 +84,6 @@ Public Class ClientesBol
Me.dataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.dataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.lblResultados = New System.Windows.Forms.Label() Me.lblResultados = New System.Windows.Forms.Label()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.lblfecha = New System.Windows.Forms.Label()
Me.btnCerrar = New System.Windows.Forms.Button() Me.btnCerrar = New System.Windows.Forms.Button()
Me.BTExportar = New System.Windows.Forms.Button() Me.BTExportar = New System.Windows.Forms.Button()
Me.BTLimpiar = 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.label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() 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.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() 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) _ 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) 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.lblStatus)
Me.GroupBox1.Controls.Add(Me.cmbStatus) Me.GroupBox1.Controls.Add(Me.cmbStatus)
Me.GroupBox1.Controls.Add(Me.lblfecha)
Me.GroupBox1.Controls.Add(Me.txtCliente) Me.GroupBox1.Controls.Add(Me.txtCliente)
Me.GroupBox1.Controls.Add(Me.cmbPorcentaje) 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.lblPorcentaje)
Me.GroupBox1.Controls.Add(Me.cmbOrganismo) Me.GroupBox1.Controls.Add(Me.cmbOrganismo)
Me.GroupBox1.Controls.Add(Me.lblOrganismo) Me.GroupBox1.Controls.Add(Me.lblOrganismo)
Me.GroupBox1.Controls.Add(Me.lblNombreFigura) 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.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.TabIndex = 0
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Parámetros de búsqueda" 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 'lblStatus
' '
Me.lblStatus.AutoSize = True Me.lblStatus.AutoSize = True
Me.lblStatus.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(42, 13) Me.lblStatus.Size = New System.Drawing.Size(42, 13)
Me.lblStatus.TabIndex = 9 Me.lblStatus.TabIndex = 9
@ -123,48 +179,61 @@ Public Class ClientesBol
' '
Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbStatus.FormattingEnabled = True 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.Name = "cmbStatus"
Me.cmbStatus.Size = New System.Drawing.Size(191, 21) Me.cmbStatus.Size = New System.Drawing.Size(191, 21)
Me.cmbStatus.TabIndex = 8 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 '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.Name = "txtCliente"
Me.txtCliente.Size = New System.Drawing.Size(395, 20) Me.txtCliente.Size = New System.Drawing.Size(430, 20)
Me.txtCliente.TabIndex = 6 Me.txtCliente.TabIndex = 6
' '
'cmbPorcentaje 'cmbPorcentaje
' '
Me.cmbPorcentaje.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList 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.Name = "cmbPorcentaje"
Me.cmbPorcentaje.Size = New System.Drawing.Size(157, 21) Me.cmbPorcentaje.Size = New System.Drawing.Size(166, 21)
Me.cmbPorcentaje.TabIndex = 5 Me.cmbPorcentaje.TabIndex = 5
' '
'lblPorcentaje 'lblPorcentaje
' '
Me.lblPorcentaje.AutoSize = True
Me.lblPorcentaje.ForeColor = System.Drawing.Color.MidnightBlue 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.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.TabIndex = 4
Me.lblPorcentaje.Text = "Porcentaje" Me.lblPorcentaje.Text = "Porcentaje"
' '
'cmbOrganismo 'cmbOrganismo
' '
Me.cmbOrganismo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList 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.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.TabIndex = 1
Me.cmbOrganismo.Visible = False
' '
'lblOrganismo 'lblOrganismo
' '
Me.lblOrganismo.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "lblOrganismo"
Me.lblOrganismo.Size = New System.Drawing.Size(62, 16) Me.lblOrganismo.Size = New System.Drawing.Size(62, 16)
Me.lblOrganismo.TabIndex = 0 Me.lblOrganismo.TabIndex = 0
@ -173,10 +242,12 @@ Public Class ClientesBol
' '
'lblNombreFigura '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.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.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.TabIndex = 7
Me.lblNombreFigura.Text = "Cliente" Me.lblNombreFigura.Text = "Cliente"
Me.lblNombreFigura.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.lblNombreFigura.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -207,9 +278,9 @@ Public Class ClientesBol
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox2.Controls.Add(Me.dataGrid1) Me.GroupBox2.Controls.Add(Me.dataGrid1)
Me.GroupBox2.Controls.Add(Me.lblResultados) 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.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.TabIndex = 1
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Resultados" Me.GroupBox2.Text = "Resultados"
@ -231,7 +302,7 @@ Public Class ClientesBol
Me.dataGrid1.PreviewInfo.ZoomFactor = 75.0R Me.dataGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.dataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("dataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.dataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("dataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.dataGrid1.RowHeight = 15 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.TabIndex = 61
Me.dataGrid1.Text = "C1TrueDBGrid1" Me.dataGrid1.Text = "C1TrueDBGrid1"
Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag") Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag")
@ -239,7 +310,7 @@ Public Class ClientesBol
'lblResultados 'lblResultados
' '
Me.lblResultados.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) 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.Name = "lblResultados"
Me.lblResultados.Size = New System.Drawing.Size(134, 12) Me.lblResultados.Size = New System.Drawing.Size(134, 12)
Me.lblResultados.TabIndex = 2 Me.lblResultados.TabIndex = 2
@ -254,26 +325,13 @@ Public Class ClientesBol
Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "") 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 'btnCerrar
' '
Me.btnCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.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.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.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.Name = "btnCerrar"
Me.btnCerrar.Size = New System.Drawing.Size(89, 30) Me.btnCerrar.Size = New System.Drawing.Size(89, 30)
Me.btnCerrar.TabIndex = 20 Me.btnCerrar.TabIndex = 20
@ -286,7 +344,7 @@ Public Class ClientesBol
Me.BTExportar.BackColor = System.Drawing.Color.Black 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.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.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.Name = "BTExportar"
Me.BTExportar.Size = New System.Drawing.Size(89, 32) Me.BTExportar.Size = New System.Drawing.Size(89, 32)
Me.BTExportar.TabIndex = 19 Me.BTExportar.TabIndex = 19
@ -299,7 +357,7 @@ Public Class ClientesBol
Me.BTLimpiar.BackColor = System.Drawing.Color.Black 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.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.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.Name = "BTLimpiar"
Me.BTLimpiar.Size = New System.Drawing.Size(89, 34) Me.BTLimpiar.Size = New System.Drawing.Size(89, 34)
Me.BTLimpiar.TabIndex = 18 Me.BTLimpiar.TabIndex = 18
@ -312,7 +370,7 @@ Public Class ClientesBol
Me.BTConsultar.BackColor = System.Drawing.Color.Black 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.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.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.Name = "BTConsultar"
Me.BTConsultar.Size = New System.Drawing.Size(89, 36) Me.BTConsultar.Size = New System.Drawing.Size(89, 36)
Me.BTConsultar.TabIndex = 17 Me.BTConsultar.TabIndex = 17
@ -329,14 +387,14 @@ Public Class ClientesBol
Me.panel2.ForeColor = System.Drawing.Color.Navy Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(-2, -1) Me.panel2.Location = New System.Drawing.Point(-2, -1)
Me.panel2.Name = "panel2" 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 Me.panel2.TabIndex = 160
' '
'Img_logoCabecera 'Img_logoCabecera
' '
Me.Img_logoCabecera.Anchor = System.Windows.Forms.AnchorStyles.Right Me.Img_logoCabecera.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo 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.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50) Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage 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.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.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.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.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(42, 17) Me.Label1.Size = New System.Drawing.Size(42, 17)
Me.Label1.TabIndex = 161 Me.Label1.TabIndex = 161
@ -374,23 +432,51 @@ Public Class ClientesBol
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Black Me.Panel1.BackColor = System.Drawing.Color.Black
Me.Panel1.Controls.Add(Me.Label1) 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.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(909, 35) Me.Panel1.Size = New System.Drawing.Size(1001, 35)
Me.Panel1.TabIndex = 162 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 'ClientesBol
' '
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White 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.Panel1)
Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.btnCerrar) Me.Controls.Add(Me.btnCerrar)
Me.Controls.Add(Me.BTExportar) Me.Controls.Add(Me.BTExportar)
Me.Controls.Add(Me.BTLimpiar) Me.Controls.Add(Me.BTLimpiar)
Me.Controls.Add(Me.BTConsultar) Me.Controls.Add(Me.BTConsultar)
Me.Controls.Add(Me.lblfecha)
Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.cmbPais) Me.Controls.Add(Me.cmbPais)
@ -420,6 +506,7 @@ Public Class ClientesBol
Dim clCmp2 As clsComplejo = New clsComplejo Dim clCmp2 As clsComplejo = New clsComplejo
Dim clCmp3 As clsComplejo = New clsComplejo Dim clCmp3 As clsComplejo = New clsComplejo
Dim clCmp4 As clsComplejo = New clsComplejo Dim clCmp4 As clsComplejo = New clsComplejo
Dim clCmp5 As clsComplejo = New clsComplejo
Dim clGrid As clsComplejo = New clsComplejo Dim clGrid As clsComplejo = New clsComplejo
Dim BanOrg, BanPais, BanPorc, BanStatus As Boolean Dim BanOrg, BanPais, BanPorc, BanStatus As Boolean
@ -430,6 +517,28 @@ Public Class ClientesBol
BanOrg = False BanOrg = False
BanStatus = False BanStatus = False
label4.Text = Me.Text 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 End Sub
'Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick '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 Try
End Sub 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() Private Sub sbBuscar()
Try Try
'Se utiliza el procedimiento almacenado "spBuscaClienteBol" para buscar '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 'JLL 27-08-2013 oculto las columnas con la funcion clocultarcolumna
Dim OcultarCol As clOcultarColumna = New clOcultarColumna() Dim OcultarCol As clOcultarColumna = New clOcultarColumna()
dataGrid1.DataSource = Nothing
'dataGrid1.DataBindings.Clear()
BTConsultar.Enabled = False
SQL = "" SQL = ""
Where = "" Where = ""
intCuenta = 0 intCuenta = 0
@ -493,13 +634,21 @@ Public Class ClientesBol
SQL = SQL & "," & IIf(cmbPorcentaje.Text <> "", "'" & cmbPorcentaje.Text.Replace("%", "") & "'", "NULL") SQL = SQL & "," & IIf(cmbPorcentaje.Text <> "", "'" & cmbPorcentaje.Text.Replace("%", "") & "'", "NULL")
SQL = SQL & "," & IIf(cmbStatus.SelectedValue <> Nothing, cmbStatus.SelectedValue, "NULL") SQL = SQL & "," & IIf(cmbStatus.SelectedValue <> Nothing, cmbStatus.SelectedValue, "NULL")
SQL = SQL & "," & IIf(txtCliente.Text <> "", "'" & txtCliente.Text.Trim & "'", "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.dt = New DataTable
clGrid.fdtDataTable(SQL) 'clGrid.fdtDataTable(SQL)
clGrid.fdtDataSet(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 If dataGrid1.RowCount > 0 Then
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In dataGrid1.Splits(0).DisplayColumns For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In dataGrid1.Splits(0).DisplayColumns
col.AutoSize() col.AutoSize()
@ -520,18 +669,18 @@ Public Class ClientesBol
Dim cont As Integer Dim cont As Integer
'cont = clGrid.ds.Tables(0).Rows.Count '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 lblResultados.Text = "Elementos: " & cont
varfecha = CLasscom.BuscaValores("dFechaRegistro", "listacliente", "") varfecha = CLasscom.BuscaValores("dFechaRegistro", "listacliente", "")
If Not IsDBNull(varfecha) Then 'If Not IsDBNull(varfecha) Then
lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy") ' lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy")
lblfecha.AutoSize = True ' lblfecha.AutoSize = True
lblfecha.Visible = True ' lblfecha.Visible = True
Else 'Else
lblfecha.Visible = False ' lblfecha.Visible = False
End If 'End If
sAuditoria = "" sAuditoria = ""
If cmbOrganismo.Text.Trim <> "" Then sAuditoria = sAuditoria & " Organismo=" & cmbOrganismo.Text.Trim 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) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 113, My.Computer.Name, "Minds Cliente", sAuditoria)
Catch ex As Exception Catch ex As Exception
BTConsultar.Enabled = True
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try End Try
BTConsultar.Enabled = True
End Sub End Sub
@ -746,6 +898,11 @@ Public Class ClientesBol
BanOrg = False BanOrg = False
BanPorc = False BanPorc = False
BanStatus = False BanStatus = False
cmbOrganismo.SelectedText = -1
cboListaProveedor.SelectedIndex = -1
cboListaProveedor.Enabled = False
End Sub End Sub
Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown 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 End Sub
Private Sub BTConsultar_Click(sender As System.Object, e As System.EventArgs) Handles BTConsultar.Click Private Sub BTConsultar_Click(sender As System.Object, e As System.EventArgs) Handles BTConsultar.Click
Me.Cursor = Cursors.WaitCursor
sbBuscar() sbBuscar()
Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub dataGrid1_FetchCellStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles dataGrid1.FetchCellStyle 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() lblResultados.Text = "Elementos: " & dataGrid1.Splits(0).Rows.Count.ToString()
End Sub 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 Private Sub BTLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BTLimpiar.Click
Refrescar() Refrescar()
End Sub End Sub
Private Sub BTExportar_Click(sender As System.Object, e As System.EventArgs) Handles BTExportar.Click 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 End Sub
Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click

2
Busquedas/FRMListasR.vb
View File

@ -715,7 +715,7 @@ Salir:
End Sub End Sub
Private Sub CmdBusqueda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBusqueda.Click 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 Try
Dim sSQL As String Dim sSQL As String

949
ClasesModulos/aExcel.vb
View File

@ -1,5 +1,7 @@
'Enero 2006 'Enero 2006
'clase que se utiliza para la exportacion de datos a excel 'clase que se utiliza para la exportacion de datos a excel
Imports System.Globalization
Imports System.IO
Imports Excel 'Aplicacion de excel Imports Excel 'Aplicacion de excel
Imports Microsoft.Office Imports Microsoft.Office
Public Class aExcel Public Class aExcel
@ -58,40 +60,40 @@ Public Class aExcel
End Function End Function
Private Function Export(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet) Private Function Export(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet)
'Funcion que hace la exportacion de datos (COPIA) 'Funcion que hace la exportacion de datos (COPIA)
Dim r As Excel.Range Dim r As Excel.Range
Dim c As Excel.Chart Dim c As Excel.Chart
Dim row As Integer = 1 Dim row As Integer = 1
Dim cell As Integer = 1 Dim cell As Integer = 1
'Dim Classcom As New clsComplejo 'Dim Classcom As New clsComplejo
'Se obtiene el numero de registros a exportar 'Se obtiene el numero de registros a exportar
Count = Tbl.Rows.Count Count = Tbl.Rows.Count
'Se establen las propiedades de barra de progreso 'Se establen las propiedades de barra de progreso
frmBarra.pbrAvance.Maximum = Count frmBarra.pbrAvance.Maximum = Count
'titulo de la hoja 'titulo de la hoja
ws.Name = "MINDS" ws.Name = "MINDS"
'Periodo '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") '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 'Se pone la fecha en la primera fila
'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString) 'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString)
ws.Cells(row, 1) = Titulo ws.Cells(row, 1) = Titulo
'hacemos un rango para ponerlo en negrita 'hacemos un rango para ponerlo en negrita
r = CType(ws.Cells(row, 1), Range) r = CType(ws.Cells(row, 1), Range)
r.Font.Bold = True r.Font.Bold = True
'r.Font.Size = 8 'r.Font.Size = 8
row += 2 row += 2
'se recuperan los encabezados del dataset 'se recuperan los encabezados del dataset
Dim H As Integer Dim H As Integer
For H = 0 To Tbl.Columns.Count - 1 For H = 0 To Tbl.Columns.Count - 1
ws.Cells(row, cell) = Tbl.Columns(H).Caption() 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) ''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 If Tbl.Columns(H).DataType.ToString.ToUpper = "SYSTEM.STRING" Then
@ -122,27 +124,160 @@ Public Class aExcel
''ws.Cells.NumberFormat = "@" ''ws.Cells.NumberFormat = "@"
End If End If
''Fin de identificar la columna. ''Fin de identificar la columna.
'ws.Columns(cell).autoFit() 'ws.Columns(cell).autoFit()
'ws.Cells.HorizontalAlignment = "xlCenteR" 'ws.Cells.HorizontalAlignment = "xlCenteR"
cell += 1 cell += 1
Next Next
For H = 1 To cell - 1 For H = 1 To cell - 1
r = CType(ws.Cells(row, H), Range) r = CType(ws.Cells(row, H), Range)
r.Font.Bold = True r.Font.Bold = True
'r.Font.Size = 8 'r.Font.Size = 8
r.Cells.BorderAround() r.Cells.BorderAround()
'r.HorizontalAlignment = "xlCenteR" 'r.HorizontalAlignment = "xlCenteR"
Next H Next H
row += 1 row += 1
cell = 1 cell = 1
'creando las filas 'creando las filas
Dim dc As DataColumn Dim dc As DataColumn
Dim Dr As DataRow Dim Dr As DataRow
Dim x As Integer = 1 'para sacar el porcentaje Dim x As Integer = 1 'para sacar el porcentaje
'se muestra el form de la bara de progreso 'se muestra el form de la bara de progreso
Try
frmBarra.pbExportCancel = False
frmBarra.Show()
'Copiando los datos
For Each Dr In Tbl.Rows
For H = 0 To Tbl.Columns.Count - 1
If IsDate(Dr.Item(H)) = True And Dr.Item(H).GetType().ToString.ToUpper = "SYSTEM.STRING" And (Dr.Item(H).ToString.Contains("/") = True Or Dr.Item(H).ToString.Contains("-") = True) Then
ws.Cells(row, cell) = DateTime.Parse(Dr.Item(H))
ElseIf Dr.Item(H).GetType().ToString.ToUpper = "SYSTEM.TIMESPAN" Then
ws.Cells(row, cell) = Dr.Item(H).ToString
Else
ws.Cells(row, cell) = Dr.Item(H)
End If
''LA Pc esta poniendo 02/01/1900 cuando la fecha es 01/01/1900, el codigo siguiente intenta remediar lo anterior.
If Left(Dr.Item(H).ToString(), 10) = "01/01/1900" Then
ws.Cells(row, cell) = "01/01/1900"
End If
'ws.Columns(cell).autoFit()
'ws.Cells.Font.Size = 8
cell += 1
Next
cell = 1
row += 1
'se va incrementando los cuadritos de la barra
frmBarra.pbrAvance.Value += 1
'Se saca el porcentaje
frmBarra.Text = "Exportando a Excel: " & CInt((x * 100) / Count) & " %"
x += 1
If (row Mod 100) = 0 Then
System.Windows.Forms.Application.DoEvents()
If frmBarra.pbExportCancel Then
If MessageBox.Show("¿Desea cancelar la exportación?", "Minds", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Exit Function
Else
frmBarra.pbExportCancel = False '--Ç- Se le agrega para continuar sin la cancelas
End If
End If
End If
Next
' row += 1 'la quite 3 enero 2006
Catch ex As Exception
MessageBox.Show("Hubo un problema en la exportación " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Function
Private Function Export2(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet, name As String)
'Funcion que hace la exportacion de datos (COPIA)
Dim r As Excel.Range
Dim c As Excel.Chart
Dim row As Integer = 1
Dim cell As Integer = 1
'Dim Classcom As New clsComplejo
'Se obtiene el numero de registros a exportar
Count = Tbl.Rows.Count
'Se establen las propiedades de barra de progreso
frmBarra.pbrAvance.Maximum = Count
frmBarra.pbrAvance.Value = 0
'titulo de la hoja
ws.Name = name
'Periodo
'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy")
'Se pone la fecha en la primera fila
'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString)
ws.Cells(row, 1) = Titulo
'hacemos un rango para ponerlo en negrita
r = CType(ws.Cells(row, 1), Range)
r.Font.Bold = True
'r.Font.Size = 8
row += 2
'se recuperan los encabezados del dataset
Dim H As Integer
For H = 0 To Tbl.Columns.Count - 1
ws.Cells(row, cell) = Tbl.Columns(H).Caption()
''Identifica si la columna es de tipo string. Si si es entonces formatea toda la columna a tipo String. (Esto para que las columnas de texto, no las maneje como numeros. Ejemplo: numero de cuenta)
If Tbl.Columns(H).DataType.ToString.ToUpper = "SYSTEM.STRING" Then
Dim cLetra As Char
Dim sLetra As String
''Obtiene la letra de la columna.
Dim iColExc As Integer
iColExc = 65 + H
Select Case iColExc
Case 65 To 90
cLetra = Chr(iColExc)
sLetra = cLetra.ToString
Case 91 To 116
cLetra = Chr(iColExc - 26)
sLetra = "A" & cLetra.ToString
Case 117 To 142
cLetra = Chr(iColExc - 26 * 2)
sLetra = "B" & cLetra.ToString
Case 143 To 168
cLetra = Chr(iColExc - 26 * 3)
sLetra = "C" & cLetra.ToString
Case 169 To 194
cLetra = Chr(iColExc - 26 * 4)
sLetra = "D" & cLetra.ToString
End Select
ws.Columns(sLetra & ":" & sLetra).Select() ''Quiere obtener F:F
ws.Columns(sLetra & ":" & sLetra).NumberFormat = "@"
''ws.Cells.NumberFormat = "@"
End If
''Fin de identificar la columna.
'ws.Columns(cell).autoFit()
'ws.Cells.HorizontalAlignment = "xlCenteR"
cell += 1
Next
For H = 1 To cell - 1
r = CType(ws.Cells(row, H), Range)
r.Font.Bold = True
'r.Font.Size = 8
r.Cells.BorderAround()
'r.HorizontalAlignment = "xlCenteR"
Next H
row += 1
cell = 1
'creando las filas
Dim dc As DataColumn
Dim Dr As DataRow
Dim x As Integer = 1 'para sacar el porcentaje
'se muestra el form de la bara de progreso
Try Try
frmBarra.pbExportCancel = False frmBarra.pbExportCancel = False
frmBarra.Show() frmBarra.Show()
@ -191,192 +326,566 @@ Public Class aExcel
End Try End Try
End Function End Function
Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String)
Try
Dim m_Excel As New Microsoft.Office.Interop.Excel.Application
Dim clCmpTipo As clsComplejo
Dim CategoryName As String ' Variable para controlar la ruptura por nombre de categoria
Dim apath As String
Dim filename As String
Dim aName As String
'' Creamos un objeto WorkBook
Dim objLibroExcel As Microsoft.Office.Interop.Excel.Workbook
'' Creamos un objeto WorkSheet
Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet
Dim sql As String
'sql = "spExportaExcel " & "'" & _tipo & "','" & _Nombre & "','" & _KYC_estatus & "','" & _estatuscte & "','" & clsvariables.VarPerfil & "','" & clsvariables.varIdFuncionario & "'"
clCmpTipo = New clsComplejo
'clCmpTipo.fdtDataSetTabla(sql)
clCmpTipo.ds = Ds
If clCmpTipo.ds.Tables.Count = 0 Then
' Me.GrdBusqueda.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
MsgBox("Se ha realizado la búsqueda y no hay registros para mostrar. Revise su perfil, posiblemente no tenga acceso a ellos", MsgBoxStyle.Information)
Exit Sub
End If
'' Iniciamos una instancia a excel Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String)
m_Excel = New Microsoft.Office.Interop.Excel.Application Try
m_Excel.Visible = True Dim m_Excel As New Microsoft.Office.Interop.Excel.Application
Dim clCmpTipo As clsComplejo
'' Creamos una variable para gualdar la cultura actual Dim CategoryName As String ' Variable para controlar la ruptura por nombre de categoria
Dim OldCultureInfo As System.Globalization.CultureInfo = _ Dim apath As String
System.Threading.Thread.CurrentThread.CurrentCulture Dim filename As String
Dim aName As String
'' Creamos un objeto WorkBook
Dim objLibroExcel As Microsoft.Office.Interop.Excel.Workbook
'Crear una cultura standard (en-US) inglés estados unidos '' Creamos un objeto WorkSheet
System.Threading.Thread.CurrentThread.CurrentCulture = _ Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet
New System.Globalization.CultureInfo("en-US")
'' Creamos una instancia del Workbooks de excel Dim sql As String
'' Creamos una instancia de la primera hoja de trabajo de excel 'sql = "spExportaExcel " & "'" & _tipo & "','" & _Nombre & "','" & _KYC_estatus & "','" & _estatuscte & "','" & clsvariables.VarPerfil & "','" & clsvariables.varIdFuncionario & "'"
objLibroExcel = m_Excel.Workbooks.Add()
objHojaExcel = objLibroExcel.Worksheets(1)
objHojaExcel.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
'' Hacemos esta hoja la visible en pantalla clCmpTipo = New clsComplejo
'' (como seleccionamos la primera esto no es necesario 'clCmpTipo.fdtDataSetTabla(sql)
'' si seleccionamos una diferente a la primera si lo clCmpTipo.ds = Ds
'' necesitariamos). If clCmpTipo.ds.Tables.Count = 0 Then
objHojaExcel.Activate() ' Me.GrdBusqueda.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
aName = _ MsgBox("Se ha realizado la búsqueda y no hay registros para mostrar. Revise su perfil, posiblemente no tenga acceso a ellos", MsgBoxStyle.Information)
System.Reflection.Assembly.GetExecutingAssembly. _ Exit Sub
GetModules()(0).FullyQualifiedName
apath = System.IO.Path.GetDirectoryName(aName)
filename = apath & "\logo1.jpg"
'Dim xlSheet1 As Excel.Worksheet
Dim xlRange As Microsoft.Office.Interop.Excel.Range
Dim ms As New System.IO.MemoryStream
Dim oIMage As Image = Image.FromFile(filename)
oIMage.Save(ms, oIMage.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer
Dim integralLogo As Bitmap = CType(Image.FromStream(ms), Bitmap)
'integralLogo.Size = (100, 200)
Clipboard.SetDataObject(integralLogo)
xlRange = objHojaExcel.Range(objHojaExcel.Cells(1, 1), objHojaExcel.Cells(1, 1))
xlRange.Select()
objHojaExcel.Paste()
Dim nCol As Integer
Dim iI As Integer
Dim nameCol As String
nCol = clCmpTipo.ds.Tables(0).Columns.Count
'' Crear el encabezado de nuestro informe
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Merge()
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Value = lstitulo
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Bold = True
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Size = 15
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").HorizontalAlignment = -4108
'' Crear el subencabezado de nuestro informe
objHojaExcel.Range("A2:g2").Merge()
objHojaExcel.Range("A2:g2").Value = ""
objHojaExcel.Range("A2:g2").Font.Italic = True
objHojaExcel.Range("A2:g2").Font.Size = 13
'contando el numero de columnas
Dim liContAlf As Integer = 65
Dim objCelda As Microsoft.Office.Interop.Excel.Range
'llenar el checked
For iI = 0 To nCol - 1
'recuperndo el nombre de la columna
nameCol = clCmpTipo.ds.Tables(0).Columns.Item(iI).Caption
objCelda = objHojaExcel.Range(Chr(liContAlf) & "4", Type.Missing)
objCelda.Value = nameCol
objCelda.EntireColumn.AutoFit()
liContAlf = liContAlf + 1
'LstColumnas.Items.Add(nameCol)
Next
Dim i As Integer = 6
Dim j As Integer = 6
Dim H As Integer
CategoryName = ""
For H = 0 To clCmpTipo.ds.Tables(0).Rows.Count - 1
'' Asignar los valores de los registros a las celdas
liContAlf = 65
For iI = 0 To nCol - 1
If IsDBNull(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
objCelda.Value = ""
Else
objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
If IsNumeric(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
objCelda.Value = String.Format("{0:G}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
objCelda.NumberFormat = "0"
ElseIf IsDate(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
objCelda.Value = String.Format("{0:d}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
Else
objCelda.Value = " " & clCmpTipo.ds.Tables(0).Rows(H).Item(iI).ToString
End If End If
'Debug.Print(clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
'objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
'objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
'objCelda.Value = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
End If
liContAlf = liContAlf + 1 '' Iniciamos una instancia a excel
'LstColumnas.Items.Add(nameCol) m_Excel = New Microsoft.Office.Interop.Excel.Application
m_Excel.Visible = True
'' Creamos una variable para gualdar la cultura actual
Dim OldCultureInfo As System.Globalization.CultureInfo =
System.Threading.Thread.CurrentThread.CurrentCulture
'Crear una cultura standard (en-US) inglés estados unidos
System.Threading.Thread.CurrentThread.CurrentCulture =
New System.Globalization.CultureInfo("en-US")
'' Creamos una instancia del Workbooks de excel
'' Creamos una instancia de la primera hoja de trabajo de excel
objLibroExcel = m_Excel.Workbooks.Add()
objHojaExcel = objLibroExcel.Worksheets(1)
objHojaExcel.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
'' Hacemos esta hoja la visible en pantalla
'' (como seleccionamos la primera esto no es necesario
'' si seleccionamos una diferente a la primera si lo
'' necesitariamos).
objHojaExcel.Activate()
aName =
System.Reflection.Assembly.GetExecutingAssembly.
GetModules()(0).FullyQualifiedName
apath = System.IO.Path.GetDirectoryName(aName)
filename = apath & "\logo1.jpg"
'Dim xlSheet1 As Excel.Worksheet
Dim xlRange As Microsoft.Office.Interop.Excel.Range
Dim ms As New System.IO.MemoryStream
Dim oIMage As Image = Image.FromFile(filename)
oIMage.Save(ms, oIMage.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer
Dim integralLogo As Bitmap = CType(Image.FromStream(ms), Bitmap)
'integralLogo.Size = (100, 200)
Clipboard.SetDataObject(integralLogo)
xlRange = objHojaExcel.Range(objHojaExcel.Cells(1, 1), objHojaExcel.Cells(1, 1))
xlRange.Select()
objHojaExcel.Paste()
Dim nCol As Integer
Dim iI As Integer
Dim nameCol As String
nCol = clCmpTipo.ds.Tables(0).Columns.Count
'' Crear el encabezado de nuestro informe
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Merge()
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Value = lstitulo
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Bold = True
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Size = 15
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").HorizontalAlignment = -4108
'' Crear el subencabezado de nuestro informe
objHojaExcel.Range("A2:g2").Merge()
objHojaExcel.Range("A2:g2").Value = ""
objHojaExcel.Range("A2:g2").Font.Italic = True
objHojaExcel.Range("A2:g2").Font.Size = 13
'contando el numero de columnas
Dim liContAlf As Integer = 65
Dim objCelda As Microsoft.Office.Interop.Excel.Range
'llenar el checked
For iI = 0 To nCol - 1
'recuperndo el nombre de la columna
nameCol = clCmpTipo.ds.Tables(0).Columns.Item(iI).Caption
objCelda = objHojaExcel.Range(Chr(liContAlf) & "4", Type.Missing)
objCelda.Value = nameCol
objCelda.EntireColumn.AutoFit()
liContAlf = liContAlf + 1
'LstColumnas.Items.Add(nameCol)
Next
Dim i As Integer = 6
Dim j As Integer = 6
Dim H As Integer
CategoryName = ""
For H = 0 To clCmpTipo.ds.Tables(0).Rows.Count - 1
'' Asignar los valores de los registros a las celdas
liContAlf = 65
For iI = 0 To nCol - 1
If IsDBNull(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
objCelda.Value = ""
Else
objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
If IsNumeric(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
objCelda.Value = String.Format("{0:G}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
objCelda.NumberFormat = "0"
ElseIf IsDate(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
objCelda.Value = String.Format("{0:d}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
Else
objCelda.Value = " " & clCmpTipo.ds.Tables(0).Rows(H).Item(iI).ToString
End If
'Debug.Print(clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
'objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
'objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
'objCelda.Value = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
End If
liContAlf = liContAlf + 1
'LstColumnas.Items.Add(nameCol)
Next
i += 1
Next
i += 1
'' Seleccionar todo el bloque desde A1 hasta D #de filas
Dim objRango As Microsoft.Office.Interop.Excel.Range = objHojaExcel.Range("A4:" & Chr(nCol + 65) & (i - 1).ToString)
'' Selecionado todo el rango especificado
objRango.Select()
'' Ajustamos el ancho de las columnas al ancho máximo del
'' contenido de sus celdas
objRango.Columns.AutoFit()
'' Asignar filtro por columna
objRango.AutoFilter(1, , VisibleDropDown:=True)
'' Asignar un formato automatico
objRango.AutoFormat(18, Alignment:=False)
'' Seleccionamos el total general del reporte y asignamos
'' font a negrita e italica
objRango = objHojaExcel.Range("A" & i.ToString & ":z" & i.ToString)
objRango.Select()
objRango.Font.Bold = True
objRango.Font.Italic = True
'' Crear un total general
objHojaExcel.Cells(i, 1) = "Total de Registros "
objHojaExcel.Cells(i, 3) = "=count(A6:a" & (i - 1).ToString & ")"
objHojaExcel = Nothing
objLibroExcel = Nothing
Catch ex As Exception
MessageBox.Show("Problemas al exportar " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
Public Function ExportCSV(ByVal Ds As System.Data.DataSet)
Dim fileroot As String
Dim wrFile As StreamWriter
Dim enc As String
Dim tcols As Integer = 0
Dim trows As Integer = 0
Dim ext As String
Dim name As String
Dim root As String
Try
Do
fileroot = generarNombreArchivo()
Loop While File.Exists(fileroot)
If Ds.Tables(0).Rows.Count > 0 Then
wrFile = New StreamWriter(fileroot)
Dim ls As String = CultureInfo.CurrentCulture.TextInfo.ListSeparator
enc = String.Format("Registro en Lista{0}NIC{0}CLIENTE{0}Nombre Figura{0}Tipo Figura{0}Nombre Coincidencia{0}Alias Coincidencia{0}Observaciones Coincidencia{0}Porcentaje Nombre{0}Porcentaje Observaciones{0}Organismo{0}Estatus{0}Fecha Coincidencia{0}Fecha Cambio{0}Comentario{0}CLIENTE RFC{0}LISTA RFC{0}ID LISTA{0}id_status{0}Id_Organismo{0}figura{0}IDCliente{0}Id_Figura{0}ORGANISMO QUIEN ES QUIEN{0}CURP{0}ESTATUS QUIEN ES QUIEN{0}TIPO DE OFICIO{0}FECHA OFICIO", ls)
wrFile.WriteLine(enc)
trows = Ds.Tables(0).Rows.Count + 1
tcols = Ds.Tables(0).Columns.Count + 1
For Each r As DataRow In Ds.Tables(0).Rows
For Each c As Object In r.ItemArray
wrFile.Write(c.ToString.Replace(",", "*") & ls)
'wrFile.Write(c.ToString & ls)
Next
wrFile.WriteLine()
Next
wrFile.Flush()
wrFile.Close()
Dim dataFile As New FileInfo(fileroot)
Dim fileExcel As String
ext = dataFile.Extension
name = dataFile.Name
root = dataFile.DirectoryName
fileExcel = root & "\" & name.Replace(ext, "") & ".xlsx"
'FileSystem.Rename(fileroot, fileExcel)
'Process.Start(fileExcel)
'Process.Start(fileroot)
'excelApp = New Interop.Excel.Application
'excelApp.GetOpenFilename()
'excelApp.Visible = True
'Process.Start(fileroot)
excelApp = New Interop.Excel.Application
excelApp.Workbooks.Open(fileroot)
excelApp.Sheets(1).Name = "MINDS"
excelApp.Sheets(1).Range("A1:AB1").Font.Bold = True
excelApp.Sheets(1).Range("A1:AB1").BorderAround(ColorIndex:=0, Weight:=XlBorderWeight.xlThick)
excelApp.Application.CutCopyMode = False
excelApp.Workbooks.Application.CutCopyMode = False
excelApp.Sheets(1).Application.CutCopyMode = False
Dim objRango As Microsoft.Office.Interop.Excel.Range = excelApp.Sheets(1).Range("A1:A" & trows)
'excelApp.Sheets(1).Range("B1:B" & tcols).ClearContents
excelApp.Sheets(1).Range("A1:A" & trows).TextToColumns(Destination:=objRango,
DataType:=XlTextParsingType.xlDelimited,
Other:=True, OtherChar:="|"
)
excelApp.Sheets(1).Columns.AutoFit()
'excelApp.Sheets(1).Range("A1:A" & tcols).ClearContents
'excelApp.Sheets(1).Range("A1").TextToColumns(Destination:=objRango,
' DataType:=XlTextParsingType.xlDelimited,
' TextQualifier:=XlTextQualifier.xlTextQualifierDoubleQuote,
' ConsecutiveDelimiter:=False,
' Tab:=False,
' Semicolon:=False,
' Comma:=False,
' Space:=False,
' Other:=True,
' OtherChar:="|",
' FieldInfo:="Valor",
' TrailingMinusNumbers:=True)
'excelApp.Sheets(1).range("A1:" & )
'excelApp.Sheets(1).Range("A1")
'r.Font.Bold = True
'r.Cells.BorderAround()
'excelApp.Sheets(1).Select()
'excelApp.Sheets(1).Columns.AutoFit()
'Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet
excelApp.Visible = True
'excelApp.Sheets(1).Active
End If
'ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
Catch ex As Exception
If excelApp IsNot Nothing Then
excelApp.Workbooks().Close()
excelApp.Quit()
excelApp = Nothing
End If
MsgBox(ex.Message)
End Try
End Function
Private Function generarNombreArchivo()
Return Path.GetTempPath() & Now.Second & Now.Millisecond & ".csv"
End Function
Public Function ExportExcel(ByVal Ds As System.Data.DataSet)
Dim fileroot As String
Dim wrFile As StreamWriter
Dim enc As String
Dim tcols As Integer = 0
Dim trows As Integer = 0
Dim contR As Integer = 1
Dim contC As Integer = 1
Dim ext As String
Dim name As String
Dim root As String
Dim excelApp As New Excel.Application
Dim workbook As Interop.Excel.Workbook
Dim sheet As Excel.Worksheet
Try
Do
fileroot = generarNombreArchivo()
Loop While File.Exists(fileroot)
If Ds.Tables(0).Rows.Count > 0 Then
excelApp = New Interop.Excel.Application
workbook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet)
sheet = workbook.Worksheets(1)
For i As Integer = 1 To Ds.Tables(0).Columns.Count - 1
sheet.Cells(contR, i).value = Ds.Tables(0).Columns.Item(i - 1).ColumnName
Next
contR = contR + 1
contC = 1
For Each r As DataRow In Ds.Tables(0).Rows
For Each c As Object In r.ItemArray
'wrFile.Write(c.ToString & ls)
'wrFile.Write(c.ToString & ls)
sheet.Cells(contR, contC).value = c.ToString
contC = contC + 1
Next
contR = contR + 1
contC = 1
Next
excelApp.Sheets(1).Columns.AutoFit()
excelApp.Visible = True
'sheet.Activate()
'excelApp.Sheets(1).Active
End If
'ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
Catch ex As Exception
If excelApp IsNot Nothing Then
excelApp.Workbooks().Close()
excelApp.Quit()
excelApp = Nothing
End If
MsgBox(ex.Message)
End Try
End Function
Public Function ExportToExcel(ByVal Ds As System.Data.DataSet)
Dim tcols As Integer = 0
Dim trows As Integer = 0
Dim contR As Integer = 0
Dim contC As Integer = 0
Dim pbMax As Integer = 0
Dim excelApp As New Excel.Application
Dim workbook As Interop.Excel.Workbook
Dim sheet As Excel.Worksheet
Try
If Ds.Tables(0).Rows.Count > 0 Then
frmBarra.Text = "Exportando a Excel: 0 %"
frmBarra.Show()
excelApp = New Interop.Excel.Application
workbook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet)
sheet = workbook.Worksheets(1)
sheet.Name = "MINDS"
trows = Ds.Tables(0).Rows.Count + 1
pbMax = trows + (trows * 0.1)
frmBarra.pbrAvance.Maximum = pbMax
System.Windows.Forms.Application.DoEvents()
Dim data(trows, Ds.Tables(0).Columns.Count) As String
For i As Integer = 0 To Ds.Tables(0).Columns.Count - 1
data(contR, i) = Ds.Tables(0).Columns.Item(i).ColumnName
Next
frmBarra.pbrAvance.Value += 1
contR = contR + 1
contC = 0
For Each r As DataRow In Ds.Tables(0).Rows
For Each c As Object In r.ItemArray
data(contR, contC) = c.ToString
contC = contC + 1
Next
contR = contR + 1
contC = 0
frmBarra.Text = "Exportando a Excel: " & CInt((contR * 100) / pbMax) & " %"
frmBarra.pbrAvance.Value += 1
Next
System.Windows.Forms.Application.DoEvents()
workbook.Worksheets(1).Range("A1:AB" & trows) = data
excelApp.Sheets(1).Range("A1:AB1").Font.Bold = True
excelApp.Sheets(1).Range("A1:AB1").BorderAround(ColorIndex:=0, Weight:=XlBorderWeight.xlThin)
excelApp.Sheets(1).Columns.AutoFit()
excelApp.Sheets(1).Activate
excelApp.Visible = True
frmBarra.Text = "Exportando a Excel: 100 %"
frmBarra.pbrAvance.Value = frmBarra.pbrAvance.Maximum
frmBarra.Close()
End If
Dim ClassUtils As New ClassMyUtils
Dim sTextoAud As String
sTextoAud = "Exporta a Excel Coincidencia Listas"
ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
Catch ex As Exception
frmBarra.Close()
If excelApp IsNot Nothing Then
excelApp.Workbooks().Close()
excelApp.Quit()
excelApp = Nothing
End If
MsgBox(ex.Message)
End Try
End Function
Public Function ExportTo2Woook(ByVal Ds As System.Data.DataSet)
'funcion que envia a excel una tabla de un dataset
Dim workBook As Interop.Excel.Workbook
Dim ConWs As Integer = 1
Try
'instanciamos la applicacion de excel
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")
excelApp = New Interop.Excel.Application
'Creamos una hoja en el libro predeterminado
workBook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet)
Catch ex As Exception
'se utiliza la version 10 de excel o XP
MessageBox.Show("aExcel; ExportTo2: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
'Declaramos una varible tipo hoja de trabajo
Dim ws As Interop.Excel.Worksheet
ws = CType(workBook.Worksheets(ConWs), Interop.Excel.Worksheet)
Dim Tbl As System.Data.DataTable
For Each Tbl In Ds.Tables
'recorre todas las tablas que contega el dataset, con esto determinanos cuantas hojas en excel
If ConWs > 1 Then
ws = CType(workBook.Worksheets.Add(, ws), Interop.Excel.Worksheet)
End If
'Llama a la funcion que exporta los datos
If Tbl.TableName = "ReporteJ14_1" Then
Export2(Tbl, ws, "Resumen")
ElseIf Tbl.TableName = "ReporteJ14_2" Then
Export2(Tbl, ws, "Análisis")
Else
Export2(Tbl, ws, Tbl.TableName)
End If
ConWs += 1
Next Next
i += 1 MessageBox.Show("Exportación completa", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Next frmBarra.Close() 'Cerramos el form de la barra de pregreso
'mostramos excel con la exportacion
excelApp.Sheets(1).Select()
i += 1 excelApp.Sheets(1).Columns.AutoFit()
excelApp.Visible = True
'' Seleccionar todo el bloque desde A1 hasta D #de filas ''Selecciono la primera celda
Dim objRango As Microsoft.Office.Interop.Excel.Range = objHojaExcel.Range("A4:" & Chr(nCol + 65) & (i - 1).ToString) 'ws.Cells(1, 1).select()
'workBook.Close() 'Cierra el libro
'' Selecionado todo el rango especificado 'excelApp.Quit() 'Sale de la aplicacion
objRango.Select() ''System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")
''Auditoria
'' Ajustamos el ancho de las columnas al ancho máximo del Dim ClassUtils As New ClassMyUtils
'' contenido de sus celdas Dim sTextoAud As String
objRango.Columns.AutoFit() sTextoAud = "Exporta a Excel " & Titulo
ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
'' Asignar filtro por columna ''Fin de auditoria
objRango.AutoFilter(1, , VisibleDropDown:=True)
'' Asignar un formato automatico
objRango.AutoFormat(18, Alignment:=False)
'' Seleccionamos el total general del reporte y asignamos
'' font a negrita e italica
objRango = objHojaExcel.Range("A" & i.ToString & ":z" & i.ToString)
objRango.Select()
objRango.Font.Bold = True
objRango.Font.Italic = True
'' Crear un total general
objHojaExcel.Cells(i, 1) = "Total de Registros "
objHojaExcel.Cells(i, 3) = "=count(A6:a" & (i - 1).ToString & ")"
objHojaExcel = Nothing
objLibroExcel = Nothing
Catch ex As Exception
MessageBox.Show("Problemas al exportar " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
End Function
End Class End Class

2
ClasesModulos/clsComplejo.vb
View File

@ -99,7 +99,7 @@ Public Class clsComplejo
ad.Fill(ds) ad.Fill(ds)
Return ds Return ds
Catch ex As Exception 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 End Try
sbCierraCn() sbCierraCn()
End Function End Function

114
Reportes/OperInuSinTran.designer.vb generated
View File

@ -38,7 +38,9 @@ Partial Class OperInuSinTran
Me.cmbLocalidad = New System.Windows.Forms.ComboBox() Me.cmbLocalidad = New System.Windows.Forms.ComboBox()
Me.Label26 = New System.Windows.Forms.Label() Me.Label26 = New System.Windows.Forms.Label()
Me.txtCURP = New System.Windows.Forms.TextBox() Me.txtCURP = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label25 = 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.cmbTipoPersona = New System.Windows.Forms.ComboBox()
Me.Label24 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label()
Me.txtCPSucursal = New System.Windows.Forms.TextBox() 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.Location = New System.Drawing.Point(12, 64)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 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 Me.TabControl1.TabIndex = 0
' '
'TabPage1 'TabPage1
@ -144,7 +146,7 @@ Partial Class OperInuSinTran
Me.TabPage1.Location = New System.Drawing.Point(4, 24) Me.TabPage1.Location = New System.Drawing.Point(4, 24)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 0
Me.TabPage1.Text = "Persona a Reportar" Me.TabPage1.Text = "Persona a Reportar"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@ -155,7 +157,9 @@ Partial Class OperInuSinTran
Me.GroupBox1.Controls.Add(Me.cmbLocalidad) Me.GroupBox1.Controls.Add(Me.cmbLocalidad)
Me.GroupBox1.Controls.Add(Me.Label26) Me.GroupBox1.Controls.Add(Me.Label26)
Me.GroupBox1.Controls.Add(Me.txtCURP) Me.GroupBox1.Controls.Add(Me.txtCURP)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.Label25) Me.GroupBox1.Controls.Add(Me.Label25)
Me.GroupBox1.Controls.Add(Me.cboCliente)
Me.GroupBox1.Controls.Add(Me.cmbTipoPersona) Me.GroupBox1.Controls.Add(Me.cmbTipoPersona)
Me.GroupBox1.Controls.Add(Me.Label24) Me.GroupBox1.Controls.Add(Me.Label24)
Me.GroupBox1.Controls.Add(Me.txtCPSucursal) Me.GroupBox1.Controls.Add(Me.txtCPSucursal)
@ -183,9 +187,9 @@ Partial Class OperInuSinTran
Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.lblCurp) Me.GroupBox1.Controls.Add(Me.lblCurp)
Me.GroupBox1.Controls.Add(Me.Label4) 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.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.TabIndex = 0
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
@ -197,16 +201,16 @@ Partial Class OperInuSinTran
Me.GroupBox3.Controls.Add(Me.lblMaterno) Me.GroupBox3.Controls.Add(Me.lblMaterno)
Me.GroupBox3.Controls.Add(Me.lblPaterno) Me.GroupBox3.Controls.Add(Me.lblPaterno)
Me.GroupBox3.Controls.Add(Me.txtApePaterno) 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.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.TabIndex = 406
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Datos Personales" Me.GroupBox3.Text = "Datos Personales"
' '
'txtApeMaterno '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.MaxLength = 20
Me.txtApeMaterno.Name = "txtApeMaterno" Me.txtApeMaterno.Name = "txtApeMaterno"
Me.txtApeMaterno.Size = New System.Drawing.Size(214, 21) Me.txtApeMaterno.Size = New System.Drawing.Size(214, 21)
@ -234,7 +238,7 @@ Partial Class OperInuSinTran
' '
Me.lblMaterno.AutoSize = True Me.lblMaterno.AutoSize = True
Me.lblMaterno.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "lblMaterno"
Me.lblMaterno.Size = New System.Drawing.Size(100, 15) Me.lblMaterno.Size = New System.Drawing.Size(100, 15)
Me.lblMaterno.TabIndex = 4 Me.lblMaterno.TabIndex = 4
@ -243,7 +247,7 @@ Partial Class OperInuSinTran
'lblPaterno 'lblPaterno
' '
Me.lblPaterno.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "lblPaterno"
Me.lblPaterno.Size = New System.Drawing.Size(103, 19) Me.lblPaterno.Size = New System.Drawing.Size(103, 19)
Me.lblPaterno.TabIndex = 2 Me.lblPaterno.TabIndex = 2
@ -251,7 +255,7 @@ Partial Class OperInuSinTran
' '
'txtApePaterno '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.MaxLength = 60
Me.txtApePaterno.Name = "txtApePaterno" Me.txtApePaterno.Name = "txtApePaterno"
Me.txtApePaterno.Size = New System.Drawing.Size(245, 21) 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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbLocalidad.DropDownWidth = 700 Me.cmbLocalidad.DropDownWidth = 700
Me.cmbLocalidad.FormattingEnabled = True 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.Name = "cmbLocalidad"
Me.cmbLocalidad.Size = New System.Drawing.Size(568, 23) Me.cmbLocalidad.Size = New System.Drawing.Size(568, 23)
Me.cmbLocalidad.TabIndex = 41 Me.cmbLocalidad.TabIndex = 41
@ -272,7 +276,7 @@ Partial Class OperInuSinTran
' '
Me.Label26.AutoSize = True Me.Label26.AutoSize = True
Me.Label26.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(61, 15) Me.Label26.Size = New System.Drawing.Size(61, 15)
Me.Label26.TabIndex = 40 Me.Label26.TabIndex = 40
@ -280,28 +284,48 @@ Partial Class OperInuSinTran
' '
'txtCURP '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.MaxLength = 20
Me.txtCURP.Name = "txtCURP" Me.txtCURP.Name = "txtCURP"
Me.txtCURP.Size = New System.Drawing.Size(214, 21) Me.txtCURP.Size = New System.Drawing.Size(214, 21)
Me.txtCURP.TabIndex = 39 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 'Label25
' '
Me.Label25.AutoSize = True Me.Label25.AutoSize = True
Me.Label25.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(80, 15) Me.Label25.Size = New System.Drawing.Size(80, 15)
Me.Label25.TabIndex = 38 Me.Label25.TabIndex = 38
Me.Label25.Text = "Tipo Persona" 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 '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.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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbTipoPersona.FormattingEnabled = True 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.Name = "cmbTipoPersona"
Me.cmbTipoPersona.Size = New System.Drawing.Size(242, 23) Me.cmbTipoPersona.Size = New System.Drawing.Size(242, 23)
Me.cmbTipoPersona.TabIndex = 37 Me.cmbTipoPersona.TabIndex = 37
@ -309,7 +333,7 @@ Partial Class OperInuSinTran
'Label24 'Label24
' '
Me.Label24.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(104, 36) Me.Label24.Size = New System.Drawing.Size(104, 36)
Me.Label24.TabIndex = 36 Me.Label24.TabIndex = 36
@ -317,7 +341,7 @@ Partial Class OperInuSinTran
' '
'txtCPSucursal '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.MaxLength = 5
Me.txtCPSucursal.Name = "txtCPSucursal" Me.txtCPSucursal.Name = "txtCPSucursal"
Me.txtCPSucursal.Size = New System.Drawing.Size(191, 21) 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.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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboSucursal.FormattingEnabled = True 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.Name = "cboSucursal"
Me.cboSucursal.Size = New System.Drawing.Size(247, 23) Me.cboSucursal.Size = New System.Drawing.Size(247, 23)
Me.cboSucursal.TabIndex = 34 Me.cboSucursal.TabIndex = 34
@ -336,7 +360,7 @@ Partial Class OperInuSinTran
'Label23 'Label23
' '
Me.Label23.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(84, 21) Me.Label23.Size = New System.Drawing.Size(84, 21)
Me.Label23.TabIndex = 33 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.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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNacionalidad.FormattingEnabled = True 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.Name = "cboNacionalidad"
Me.cboNacionalidad.Size = New System.Drawing.Size(191, 23) Me.cboNacionalidad.Size = New System.Drawing.Size(191, 23)
Me.cboNacionalidad.TabIndex = 32 Me.cboNacionalidad.TabIndex = 32
@ -355,7 +379,7 @@ Partial Class OperInuSinTran
'Label15 'Label15
' '
Me.Label15.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(84, 21) Me.Label15.Size = New System.Drawing.Size(84, 21)
Me.Label15.TabIndex = 31 Me.Label15.TabIndex = 31
@ -364,7 +388,7 @@ Partial Class OperInuSinTran
'dtpFechaOper 'dtpFechaOper
' '
Me.dtpFechaOper.Format = System.Windows.Forms.DateTimePickerFormat.[Short] 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.Name = "dtpFechaOper"
Me.dtpFechaOper.Size = New System.Drawing.Size(247, 21) Me.dtpFechaOper.Size = New System.Drawing.Size(247, 21)
Me.dtpFechaOper.TabIndex = 30 Me.dtpFechaOper.TabIndex = 30
@ -372,7 +396,7 @@ Partial Class OperInuSinTran
'Label14 'Label14
' '
Me.Label14.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(107, 21) Me.Label14.Size = New System.Drawing.Size(107, 21)
Me.Label14.TabIndex = 29 Me.Label14.TabIndex = 29
@ -381,7 +405,7 @@ Partial Class OperInuSinTran
'Label13 'Label13
' '
Me.Label13.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(489, 20) Me.Label13.Size = New System.Drawing.Size(489, 20)
Me.Label13.TabIndex = 12 Me.Label13.TabIndex = 12
@ -394,14 +418,14 @@ Partial Class OperInuSinTran
Me.cmbActEconom.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbActEconom.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbActEconom.DropDownWidth = 700 Me.cmbActEconom.DropDownWidth = 700
Me.cmbActEconom.FormattingEnabled = True 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.Name = "cmbActEconom"
Me.cmbActEconom.Size = New System.Drawing.Size(568, 23) Me.cmbActEconom.Size = New System.Drawing.Size(568, 23)
Me.cmbActEconom.TabIndex = 24 Me.cmbActEconom.TabIndex = 24
' '
'txtTelefono '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.MaxLength = 40
Me.txtTelefono.Name = "txtTelefono" Me.txtTelefono.Name = "txtTelefono"
Me.txtTelefono.Size = New System.Drawing.Size(242, 21) 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.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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPlaza.FormattingEnabled = True 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.Name = "cmbPlaza"
Me.cmbPlaza.Size = New System.Drawing.Size(41, 23) Me.cmbPlaza.Size = New System.Drawing.Size(41, 23)
Me.cmbPlaza.TabIndex = 20 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.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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbEstado.FormattingEnabled = True 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.Name = "cmbEstado"
Me.cmbEstado.Size = New System.Drawing.Size(240, 23) Me.cmbEstado.Size = New System.Drawing.Size(240, 23)
Me.cmbEstado.TabIndex = 18 Me.cmbEstado.TabIndex = 18
@ -432,7 +456,7 @@ Partial Class OperInuSinTran
' '
Me.Label12.AutoSize = True Me.Label12.AutoSize = True
Me.Label12.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(45, 15) Me.Label12.Size = New System.Drawing.Size(45, 15)
Me.Label12.TabIndex = 17 Me.Label12.TabIndex = 17
@ -440,7 +464,7 @@ Partial Class OperInuSinTran
' '
'txtColonia '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.MaxLength = 30
Me.txtColonia.Name = "txtColonia" Me.txtColonia.Name = "txtColonia"
Me.txtColonia.Size = New System.Drawing.Size(242, 21) Me.txtColonia.Size = New System.Drawing.Size(242, 21)
@ -448,7 +472,7 @@ Partial Class OperInuSinTran
' '
'txtDomicilio '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.MaxLength = 60
Me.txtDomicilio.Name = "txtDomicilio" Me.txtDomicilio.Name = "txtDomicilio"
Me.txtDomicilio.Size = New System.Drawing.Size(567, 21) Me.txtDomicilio.Size = New System.Drawing.Size(567, 21)
@ -457,14 +481,14 @@ Partial Class OperInuSinTran
'dtpFechaNac 'dtpFechaNac
' '
Me.dtpFechaNac.Format = System.Windows.Forms.DateTimePickerFormat.[Short] 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.Name = "dtpFechaNac"
Me.dtpFechaNac.Size = New System.Drawing.Size(129, 21) Me.dtpFechaNac.Size = New System.Drawing.Size(129, 21)
Me.dtpFechaNac.TabIndex = 11 Me.dtpFechaNac.TabIndex = 11
' '
'txtRFC '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.MaxLength = 20
Me.txtRFC.Name = "txtRFC" Me.txtRFC.Name = "txtRFC"
Me.txtRFC.Size = New System.Drawing.Size(245, 21) Me.txtRFC.Size = New System.Drawing.Size(245, 21)
@ -473,7 +497,7 @@ Partial Class OperInuSinTran
'Label11 'Label11
' '
Me.Label11.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(93, 34) Me.Label11.Size = New System.Drawing.Size(93, 34)
Me.Label11.TabIndex = 23 Me.Label11.TabIndex = 23
@ -483,7 +507,7 @@ Partial Class OperInuSinTran
' '
Me.Label10.AutoSize = True Me.Label10.AutoSize = True
Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(55, 15) Me.Label10.Size = New System.Drawing.Size(55, 15)
Me.Label10.TabIndex = 21 Me.Label10.TabIndex = 21
@ -493,7 +517,7 @@ Partial Class OperInuSinTran
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(46, 15) Me.Label9.Size = New System.Drawing.Size(46, 15)
Me.Label9.TabIndex = 19 Me.Label9.TabIndex = 19
@ -504,7 +528,7 @@ Partial Class OperInuSinTran
' '
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(49, 15) Me.Label8.Size = New System.Drawing.Size(49, 15)
Me.Label8.TabIndex = 15 Me.Label8.TabIndex = 15
@ -514,7 +538,7 @@ Partial Class OperInuSinTran
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(59, 15) Me.Label7.Size = New System.Drawing.Size(59, 15)
Me.Label7.TabIndex = 13 Me.Label7.TabIndex = 13
@ -523,7 +547,7 @@ Partial Class OperInuSinTran
'Label6 'Label6
' '
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(117, 20) Me.Label6.Size = New System.Drawing.Size(117, 20)
Me.Label6.TabIndex = 10 Me.Label6.TabIndex = 10
@ -533,7 +557,7 @@ Partial Class OperInuSinTran
' '
Me.lblCurp.AutoSize = True Me.lblCurp.AutoSize = True
Me.lblCurp.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "lblCurp"
Me.lblCurp.Size = New System.Drawing.Size(41, 15) Me.lblCurp.Size = New System.Drawing.Size(41, 15)
Me.lblCurp.TabIndex = 8 Me.lblCurp.TabIndex = 8
@ -543,7 +567,7 @@ Partial Class OperInuSinTran
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue 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.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(31, 15) Me.Label4.Size = New System.Drawing.Size(31, 15)
Me.Label4.TabIndex = 6 Me.Label4.TabIndex = 6
@ -555,7 +579,7 @@ Partial Class OperInuSinTran
Me.TabPage2.Location = New System.Drawing.Point(4, 24) Me.TabPage2.Location = New System.Drawing.Point(4, 24)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 1
Me.TabPage2.Text = "Datos Complementarios" Me.TabPage2.Text = "Datos Complementarios"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@ -813,14 +837,14 @@ Partial Class OperInuSinTran
Me.DataGrid1.FilterBar = True Me.DataGrid1.FilterBar = True
Me.DataGrid1.GroupByCaption = "AGRUPAR" Me.DataGrid1.GroupByCaption = "AGRUPAR"
Me.DataGrid1.Images.Add(CType(resources.GetObject("DataGrid1.Images"), System.Drawing.Image)) 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.Name = "DataGrid1"
Me.DataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.DataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.DataGrid1.PreviewInfo.ZoomFactor = 75.0R Me.DataGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.DataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("DataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("DataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.DataGrid1.RowHeight = 15 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.TabIndex = 405
Me.DataGrid1.Text = "C1TrueDBGrid1" Me.DataGrid1.Text = "C1TrueDBGrid1"
Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag") Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag")
@ -935,4 +959,6 @@ Partial Class OperInuSinTran
Friend WithEvents lblPaterno As Label Friend WithEvents lblPaterno As Label
Friend WithEvents txtApePaterno As TextBox Friend WithEvents txtApePaterno As TextBox
Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents Label1 As Label
Friend WithEvents cboCliente As ComboBox
End Class End Class

2
Reportes/OperInuSinTran.resx
View File

@ -155,7 +155,7 @@
</value> </value>
</data> </data>
<data name="DataGrid1.PropBag" xml:space="preserve"> <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>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

94
Reportes/OperInuSinTran.vb
View File

@ -55,6 +55,14 @@ Public Class OperInuSinTran
cargarCbo.sbLlenaCombo("select IDTIPOPERSONA clave, TIPOPERSONA nombre FROM CAT_TIPOPERSONA where activo = 1", cmbTipoPersona) cargarCbo.sbLlenaCombo("select IDTIPOPERSONA clave, TIPOPERSONA nombre FROM CAT_TIPOPERSONA where activo = 1", cmbTipoPersona)
cmbTipoPersona.SelectedIndex = -1 cmbTipoPersona.SelectedIndex = -1
cargarCbo = Nothing
cargarCbo = New clsComplejo
cargarCbo.sbLlenaCombo("SP_ConsultaClientes ", cboCliente)
cboCliente.SelectedIndex = -1
'BtnLimpiar.PerformClick() 'BtnLimpiar.PerformClick()
ActualizaGrid() ActualizaGrid()
cargarSucursal() cargarSucursal()
@ -674,6 +682,10 @@ Public Class OperInuSinTran
cboSucursal.SelectedValue = -1 cboSucursal.SelectedValue = -1
txtCPSucursal.Text = "" txtCPSucursal.Text = ""
cboCliente.SelectedValue = -1
cmbTipoPersona.SelectedValue = -1
DesBloqueaCtrls() DesBloqueaCtrls()
btnRelacionadas.Enabled = False btnRelacionadas.Enabled = False
@ -882,8 +894,8 @@ Public Class OperInuSinTran
lblNombre.Text = "Denominación o Razon Social" lblNombre.Text = "Denominación o Razon Social"
End If End If
lblCurp.Visible = False lblCurp.Visible = False
txtCURP.Visible = False txtCURP.Visible = False
txtApePaterno.Visible = False txtApePaterno.Visible = False
txtApeMaterno.Visible = False txtApeMaterno.Visible = False
lblPaterno.Visible = False lblPaterno.Visible = False
lblMaterno.Visible = False lblMaterno.Visible = False
@ -895,12 +907,12 @@ Public Class OperInuSinTran
lblNombre.Size = New Size(165, 15) lblNombre.Size = New Size(165, 15)
End If End If
If cmbTipoPersona.SelectedValue = 2 Then If cmbTipoPersona.SelectedValue = 2 Then
'Persona Fisica 'Persona Fisica
'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue 'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue
lblNombre.Text = "Nombre " lblNombre.Text = "Nombre "
lblCurp.Visible = True lblCurp.Visible = True
txtCURP.Visible = True txtCURP.Visible = True
txtApePaterno.Visible = True txtApePaterno.Visible = True
lblPaterno.Visible = True lblPaterno.Visible = True
lblMaterno.Visible = True lblMaterno.Visible = True
@ -914,6 +926,10 @@ Public Class OperInuSinTran
End Sub End Sub
Private Sub cmbEstado_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbEstado.SelectionChangeCommitted 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 cargarCbo As New clsComplejo
Dim sSQL As String Dim sSQL As String
cargarCbo = Nothing cargarCbo = Nothing
@ -1076,4 +1092,66 @@ Public Class OperInuSinTran
Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint
End Sub 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 End Class

816
Reportes/frmEBR.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

2
Reportes/frmEBR.resx
View File

@ -1031,7 +1031,7 @@
</value> </value>
</data> </data>
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve"> <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>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

76
Reportes/frmEBR.vb
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("Bajo", dsGral.Tables(2).Rows(0)(0))
Chart1.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(1)) 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).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(2))
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
Chart2.Series.Clear() Chart2.Series.Clear()
Chart2.Series.Add("Tipo de Cliente") Chart2.Series.Add("Tipo de Cliente")
Chart2.Series(0).IsValueShownAsLabel = True Chart2.Series(0).IsValueShownAsLabel = True
Chart2.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(3)) Chart2.Series(0).Points.AddXY("Física", dsGral.Tables(2).Rows(0)(3))
Chart2.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4)) Chart2.Series(0).Points.AddXY("Moral", dsGral.Tables(2).Rows(0)(4))
Chart2.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(5)) Chart2.Series(0).Points.AddXY("Fideicomiso", dsGral.Tables(2).Rows(0)(5))
Chart2.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut Chart2.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
Chart3.Series.Clear() Chart3.Series.Clear()
Chart3.Series.Add("PEP") Chart3.Series.Add("PEP")
Chart3.Series(0).IsValueShownAsLabel = True 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 Chart3.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
Chart4.Series.Clear() Chart4.Series.Clear()
Chart4.Series.Add("Servicio de inversión Asesorado y No Asesorado") Chart4.Series.Add("Servicio de inversión Asesorado y No Asesorado")
Chart4.Series(0).IsValueShownAsLabel = True 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)(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 Chart4.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
@ -151,10 +163,14 @@ Public Class frmEBR
Chart8.Series.Add("Canales de envío") Chart8.Series.Add("Canales de envío")
Chart8.Series(0).IsValueShownAsLabel = True Chart8.Series(0).IsValueShownAsLabel = True
Chart8.Series(0).Points.AddXY("Bajo", 100) Chart8.Series(0).Points.AddXY("Bajo", 100)
'Chart8.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(14)) Chart8.Series(0).Points.AddXY("Medio", 0)
'Chart8.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(15)) Chart8.Series(0).Points.AddXY("Alto", 0)
Chart8.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut 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") cmbAML.SelectedValue = dsGral.Tables(4).Rows(0)("ID_CE_SCALE")
ComboBox1.SelectedValue = dsGral.Tables(4).Rows(1)("ID_CE_SCALE") ComboBox1.SelectedValue = dsGral.Tables(4).Rows(1)("ID_CE_SCALE")
ComboBox2.SelectedValue = dsGral.Tables(4).Rows(2)("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) Label38.Text = dsGral.Tables(7).Rows(2)(0)
Label40.Text = dsGral.Tables(8).Rows(0)(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) Label32.Text = dsGral.Tables(9).Rows(0)(0)
Label41.Text = dsGral.Tables(9).Rows(1)(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) Label33.Text = "Lugares de Operacion: " & dsGral.Tables(14).Rows(0)(0)
dtO = dsGral.Tables(15) dtO = dsGral.Tables(15)
Label96.Text = dsGral.Tables(16).Rows(0)(0) Label96.Text = "TOTAL DE CLIENTES CON RIESGO: " & dsGral.Tables(16).Rows(0)(0)
Label97.Text = dsGral.Tables(16).Rows(0)(0) Label97.Text = dsGral.Tables(19).Rows(0)(0)
Label100.Text = dsGral.Tables(16).Rows(0)(0) Label100.Text = "TOTAL DE CLIENTES CON RIESGO:" & dsGral.Tables(16).Rows(0)(0)
Label101.Text = dsGral.Tables(17).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 Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond
TabControl1.Refresh() TabControl1.Refresh()
Threading.Thread.Sleep(500) Threading.Thread.Sleep(500)
Dim screenSize As Size = New Size(GroupBox14.Width, GroupBox14.Height) 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) Dim g As Graphics = Graphics.FromImage(screenGrab)
g.CopyFromScreen(Me.PointToScreen(New Point(22, 40)), Point.Empty, GroupBox14.ClientSize) g.CopyFromScreen(Me.PointToScreen(New Point(22, 40)), Point.Empty, GroupBox14.ClientSize)
screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg) screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg)
@ -437,9 +466,14 @@ Public Class frmEBR
End Function End Function
Private Sub guardarExpEbr() Private Sub guardarExpEbr()
Dim fws As FormWindowState
Dim listaImg As New List(Of String) 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 doc As New Document(PageSize.A4, 30, 30, 30, 30)
Dim root As String = Path.GetTempPath & "EBR_" & DateTime.Now.ToString("HHmmss") & ".pdf" Dim root As String = Path.GetTempPath & "EBR_" & DateTime.Now.ToString("HHmmss") & ".pdf"
@ -716,7 +750,8 @@ Public Class frmEBR
img = Image.GetInstance(fileImg) img = Image.GetInstance(fileImg)
img.Alignment = 1 img.Alignment = 1
img.BorderWidth = 100 img.BorderWidth = 100
img.ScalePercent(50) 'img.ScalePercent(50)
img.ScalePercent(25)
img.ScaleAbsolute(450, 350) img.ScaleAbsolute(450, 350)
doc.Add(img) doc.Add(img)
listaImg.Add(fileImg) listaImg.Add(fileImg)
@ -727,12 +762,15 @@ Public Class frmEBR
deleImg(listaImg) 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 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 Try
Process.Start(root) Process.Start(root)
Catch ex As Exception Catch ex As Exception
Me.WindowState = fws
MsgBox("No cuenta con visor pdf." & Environment.NewLine & ex.Message) MsgBox("No cuenta con visor pdf." & Environment.NewLine & ex.Message)
End Try End Try
@ -754,5 +792,11 @@ Public Class frmEBR
End Sub 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 End Class

2
Reportes/frmReporteJ13.vb
View File

@ -119,7 +119,7 @@ Public Class frmReporteJ13
End Sub End Sub
Private Sub btnExportarXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click 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 fullPath As String = fileName
Dim clsExcel As aExcel Dim clsExcel As aExcel
Dim ds As New DataSet Dim ds As New DataSet

195
Reportes/frmReporteJ14.Designer.vb generated
View File

@ -22,6 +22,7 @@ Partial Class frmReporteJ14
'No lo modifique con el editor de código. 'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReporteJ14))
Me.btnExport = New System.Windows.Forms.Button() Me.btnExport = New System.Windows.Forms.Button()
Me.btnSearch = New System.Windows.Forms.Button() Me.btnSearch = New System.Windows.Forms.Button()
Me.dgvResult = New System.Windows.Forms.DataGridView() Me.dgvResult = New System.Windows.Forms.DataGridView()
@ -33,10 +34,25 @@ Partial Class frmReporteJ14
Me.lblFooter = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel() Me.panel3 = New System.Windows.Forms.Panel()
Me.btnExportXLS = New System.Windows.Forms.Button() 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.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel2.SuspendLayout() Me.panel2.SuspendLayout()
Me.panel3.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() Me.SuspendLayout()
' '
'btnExport 'btnExport
@ -44,9 +60,9 @@ Partial Class frmReporteJ14
Me.btnExport.BackColor = System.Drawing.Color.Black Me.btnExport.BackColor = System.Drawing.Color.Black
Me.btnExport.Enabled = False Me.btnExport.Enabled = False
Me.btnExport.ForeColor = System.Drawing.Color.White 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.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.TabIndex = 9
Me.btnExport.Text = "Generar" Me.btnExport.Text = "Generar"
Me.btnExport.UseVisualStyleBackColor = False Me.btnExport.UseVisualStyleBackColor = False
@ -56,9 +72,9 @@ Partial Class frmReporteJ14
' '
Me.btnSearch.BackColor = System.Drawing.Color.Black Me.btnSearch.BackColor = System.Drawing.Color.Black
Me.btnSearch.ForeColor = System.Drawing.Color.White 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.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.TabIndex = 8
Me.btnSearch.Text = "Buscar" Me.btnSearch.Text = "Buscar"
Me.btnSearch.UseVisualStyleBackColor = False Me.btnSearch.UseVisualStyleBackColor = False
@ -73,16 +89,16 @@ Partial Class frmReporteJ14
Me.dgvResult.BackgroundColor = System.Drawing.Color.White Me.dgvResult.BackgroundColor = System.Drawing.Color.White
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvResult.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically 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.Name = "dgvResult"
Me.dgvResult.Size = New System.Drawing.Size(660, 328) Me.dgvResult.Size = New System.Drawing.Size(662, 289)
Me.dgvResult.TabIndex = 7 Me.dgvResult.TabIndex = 7
' '
'cmbQuarter 'cmbQuarter
' '
Me.cmbQuarter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbQuarter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbQuarter.FormattingEnabled = True 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.Name = "cmbQuarter"
Me.cmbQuarter.Size = New System.Drawing.Size(158, 21) Me.cmbQuarter.Size = New System.Drawing.Size(158, 21)
Me.cmbQuarter.TabIndex = 6 Me.cmbQuarter.TabIndex = 6
@ -90,10 +106,11 @@ Partial Class frmReporteJ14
'lblQuarter 'lblQuarter
' '
Me.lblQuarter.AutoSize = True 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.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.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.TabIndex = 5
Me.lblQuarter.Text = "Trimestre" Me.lblQuarter.Text = "Trimestre"
' '
@ -163,28 +180,154 @@ Partial Class frmReporteJ14
Me.btnExportXLS.BackColor = System.Drawing.Color.Black Me.btnExportXLS.BackColor = System.Drawing.Color.Black
Me.btnExportXLS.Enabled = False Me.btnExportXLS.Enabled = False
Me.btnExportXLS.ForeColor = System.Drawing.Color.White 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.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.TabIndex = 404
Me.btnExportXLS.Text = "Exportar" Me.btnExportXLS.Text = "Exportar"
Me.btnExportXLS.UseVisualStyleBackColor = False Me.btnExportXLS.UseVisualStyleBackColor = False
Me.btnExportXLS.Visible = 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 'frmReporteJ14
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(684, 477) 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.panel3)
Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.btnExport) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Controls.Add(Me.btnSearch)
Me.Controls.Add(Me.dgvResult)
Me.Controls.Add(Me.cmbQuarter)
Me.Controls.Add(Me.lblQuarter)
Me.Name = "frmReporteJ14" Me.Name = "frmReporteJ14"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Reporte J14" Me.Text = "Reporte J14"
@ -194,8 +337,14 @@ Partial Class frmReporteJ14
Me.panel2.PerformLayout() Me.panel2.PerformLayout()
Me.panel3.ResumeLayout(False) Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout() 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.ResumeLayout(False)
Me.PerformLayout()
End Sub End Sub
@ -210,4 +359,14 @@ Partial Class frmReporteJ14
Friend WithEvents lblFooter As Label Friend WithEvents lblFooter As Label
Private WithEvents panel3 As Panel Private WithEvents panel3 As Panel
Friend WithEvents btnExportXLS As Button 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 End Class

60
Reportes/frmReporteJ14.resx
View File

@ -117,4 +117,64 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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> </root>

196
Reportes/frmReporteJ14.vb
View File

@ -6,8 +6,11 @@ Public Class frmReporteJ14
Dim year As String Dim year As String
Dim quarter As String Dim quarter As String
Dim canExport As Boolean Dim canExport As Boolean
Private queryGuardar As String
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Dim opeHist As New clsComplejo
Dim Classcom As New clsComplejo Dim Classcom As New clsComplejo
Dim SQL As String = String.Empty Dim SQL As String = String.Empty
Dim idInherent As Integer Dim idInherent As Integer
Dim idConrolEffect As Integer Dim idConrolEffect As Integer
@ -22,6 +25,37 @@ Public Class frmReporteJ14
btnExportXLS.Visible = canExport btnExportXLS.Visible = canExport
dgvResult.DataSource = Nothing dgvResult.DataSource = Nothing
incluyeInvalidos = 0 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?", Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
"Reporte J14", "Reporte J14",
MessageBoxButtons.YesNo) MessageBoxButtons.YesNo)
@ -31,7 +65,8 @@ Public Class frmReporteJ14
Try 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) Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)
If dsGral.Tables.Count = 0 Then If dsGral.Tables.Count = 0 Then
MessageBox.Show("No existen registros para el trimestre seleccionado") MessageBox.Show("No existen registros para el trimestre seleccionado")
@ -46,6 +81,9 @@ Public Class frmReporteJ14
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport btnExportXLS.Visible = canExport
btnGuardar.Visible = canExport
btnGuardar.Enabled = canExport
btnGuardar.BackColor = Color.Black
dgvResult.DataSource = dsGral.Tables(0) dgvResult.DataSource = dsGral.Tables(0)
Catch ex As Exception Catch ex As Exception
MessageBox.Show(ex.Message) MessageBox.Show(ex.Message)
@ -92,6 +130,8 @@ Public Class frmReporteJ14
End Sub End Sub
Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load
styleControl(False)
Dim initialYear As Integer Dim initialYear As Integer
Dim currentYear As Integer Dim currentYear As Integer
Dim comboSource As New Dictionary(Of String, String)() Dim comboSource As New Dictionary(Of String, String)()
@ -112,6 +152,13 @@ Public Class frmReporteJ14
btnExport.Visible = canExport btnExport.Visible = canExport
btnExportXLS.Enabled = canExport btnExportXLS.Enabled = canExport
btnExportXLS.Visible = canExport btnExportXLS.Visible = canExport
'
cmbPeriodoAnalisis.DataSource = New BindingSource(comboSource, Nothing)
cmbPeriodoAnalisis.DisplayMember = "Value"
cmbPeriodoAnalisis.ValueMember = "Key"
Dim ClassAud As New ClassMyUtils Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14")
End Sub End Sub
@ -122,7 +169,11 @@ Public Class frmReporteJ14
End Sub End Sub
Private Sub btnExportXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click 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 fullPath As String = fileName
Dim clsExcel As aExcel Dim clsExcel As aExcel
Dim ds As New DataSet Dim ds As New DataSet
@ -130,7 +181,6 @@ Public Class frmReporteJ14
clsExcel = New aExcel clsExcel = New aExcel
clsExcel.Titulo = fileName clsExcel.Titulo = fileName
ds.Tables.Add("ReporteJ14") ds.Tables.Add("ReporteJ14")
' Add Columns ' Add Columns
Dim col As DataColumn Dim col As DataColumn
For Each dgvCol As DataGridViewColumn In dgvResult.Columns 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 row.Item(column.Index) = dgvResult.Rows.Item(i).Cells(column.Index).Value
Next Next
Next Next
clsExcel.ExportDataset(ds) clsExcel.ExportDataset(ds)
'MessageBox.Show("Reporte generado correctamente") 'MessageBox.Show("Reporte generado correctamente")
Catch ex As Exception Catch ex As Exception
@ -156,4 +207,143 @@ Public Class frmReporteJ14
Dim ClassAud As New ClassMyUtils Dim ClassAud As New ClassMyUtils
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14")
End Sub 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 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

4
bin/MINDS CLIENTEOF.application
View File

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

BIN
bin/MINDS CLIENTEOF.exe
View File

Binary file not shown.

16
bin/MINDS CLIENTEOF.exe.manifest
View File

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

BIN
bin/MINDS CLIENTEOF.pdb
View File

Binary file not shown.

2
bin/MINDS CLIENTEOF.vshost.application
View File

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

4
bin/MINDS CLIENTEOF.vshost.exe.manifest
View File

@ -271,14 +271,14 @@
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<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" /> <assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue> <dsig:DigestValue>Oc59HoRlyGDL/miIWEpMTsU2Kvw=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

BIN
bin/app.publish/MINDS CLIENTEOF.exe
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.ClientesBol.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.DetalleDormantAccount.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.FrmCal.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.GeografiaGrafica.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.Login.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.Monto.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.OperBaja.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.OperInuSinTran.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.frmEBR.resources
View File

Binary file not shown.

BIN
obj/Debug/CLIENTE.frmReporteJ14.resources
View File

Binary file not shown.

BIN
obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

4
obj/Debug/MINDS CLIENTEOF.application
View File

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

BIN
obj/Debug/MINDS CLIENTEOF.exe
View File

Binary file not shown.

16
obj/Debug/MINDS CLIENTEOF.exe.manifest
View File

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

BIN
obj/Debug/MINDS CLIENTEOF.pdb
View File

Binary file not shown.

2
obj/Debug/Minds Cliente.vbproj.CoreCompileInputs.cache
View File

@ -1 +1 @@
20c9fb53d0fd991430cf62f67ae3e9069e7eefdd 083193d3b06faaff466cabe7d9cd89a288e399d3

403
obj/Debug/Minds Cliente.vbproj.FileListAbsolute.txt
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.exe
F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.xml F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.xml
F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.pdb 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

BIN
obj/Debug/Minds Cliente.vbproj.GenerateResource.Cache
View File

Binary file not shown.

BIN
obj/Debug/Minds Cliente.vbprojAssemblyReference.cache
View File

Binary file not shown.

BIN
obj/Debug/Minds Cliente.vbprojResolveAssemblyReference.cache
View File

Binary file not shown.