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

951
ClasesModulos/aExcel.vb
View File

File diff suppressed because it is too large Load Diff

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.