Backup del proyecto
This commit is contained in:
Vicente
parent
f6898c4a9b
commit
298bea23d4
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -155,7 +155,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="dataGrid1.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>163</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 768, 163</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 768, 163</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>256</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 860, 256</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 860, 256</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
@ -165,7 +165,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG
|
||||
CgAAAk1TRnQBSQFMAgEBBAEAAbQBAAG0AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
CgAAAk1TRnQBSQFMAgEBBAEAAcwBAAHMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
|
||||
@ -53,13 +53,25 @@ Public Class ClientesBol
|
||||
Friend WithEvents label4 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents dtpFechaFinal As DateTimePicker
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents dtpFechaInicio As DateTimePicker
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents cboListaProveedor As ComboBox
|
||||
Friend WithEvents lblResultados As System.Windows.Forms.Label
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ClientesBol))
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.dtpFechaFinal = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.lblStatus = New System.Windows.Forms.Label()
|
||||
Me.cmbStatus = New System.Windows.Forms.ComboBox()
|
||||
Me.lblfecha = New System.Windows.Forms.Label()
|
||||
Me.txtCliente = New System.Windows.Forms.TextBox()
|
||||
Me.cmbPorcentaje = New System.Windows.Forms.ComboBox()
|
||||
Me.lblPorcentaje = New System.Windows.Forms.Label()
|
||||
@ -72,7 +84,6 @@ Public Class ClientesBol
|
||||
Me.dataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.lblResultados = New System.Windows.Forms.Label()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.lblfecha = New System.Windows.Forms.Label()
|
||||
Me.btnCerrar = New System.Windows.Forms.Button()
|
||||
Me.BTExportar = New System.Windows.Forms.Button()
|
||||
Me.BTLimpiar = New System.Windows.Forms.Button()
|
||||
@ -82,6 +93,9 @@ Public Class ClientesBol
|
||||
Me.label4 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.cboListaProveedor = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -94,26 +108,68 @@ Public Class ClientesBol
|
||||
'
|
||||
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupBox1.Controls.Add(Me.cboListaProveedor)
|
||||
Me.GroupBox1.Controls.Add(Me.dtpFechaFinal)
|
||||
Me.GroupBox1.Controls.Add(Me.Label5)
|
||||
Me.GroupBox1.Controls.Add(Me.dtpFechaInicio)
|
||||
Me.GroupBox1.Controls.Add(Me.Label3)
|
||||
Me.GroupBox1.Controls.Add(Me.lblStatus)
|
||||
Me.GroupBox1.Controls.Add(Me.cmbStatus)
|
||||
Me.GroupBox1.Controls.Add(Me.lblfecha)
|
||||
Me.GroupBox1.Controls.Add(Me.txtCliente)
|
||||
Me.GroupBox1.Controls.Add(Me.cmbPorcentaje)
|
||||
Me.GroupBox1.Controls.Add(Me.Label7)
|
||||
Me.GroupBox1.Controls.Add(Me.Label6)
|
||||
Me.GroupBox1.Controls.Add(Me.lblPorcentaje)
|
||||
Me.GroupBox1.Controls.Add(Me.cmbOrganismo)
|
||||
Me.GroupBox1.Controls.Add(Me.lblOrganismo)
|
||||
Me.GroupBox1.Controls.Add(Me.lblNombreFigura)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 56)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 54)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(787, 60)
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(879, 100)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Parámetros de búsqueda"
|
||||
'
|
||||
'dtpFechaFinal
|
||||
'
|
||||
Me.dtpFechaFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtpFechaFinal.Location = New System.Drawing.Point(288, 23)
|
||||
Me.dtpFechaFinal.Name = "dtpFechaFinal"
|
||||
Me.dtpFechaFinal.Size = New System.Drawing.Size(94, 20)
|
||||
Me.dtpFechaFinal.TabIndex = 11
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(216, 26)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(62, 13)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Text = "Fecha Final"
|
||||
'
|
||||
'dtpFechaInicio
|
||||
'
|
||||
Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtpFechaInicio.Location = New System.Drawing.Point(85, 23)
|
||||
Me.dtpFechaInicio.Name = "dtpFechaInicio"
|
||||
Me.dtpFechaInicio.Size = New System.Drawing.Size(94, 20)
|
||||
Me.dtpFechaInicio.TabIndex = 11
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(13, 26)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(65, 13)
|
||||
Me.Label3.TabIndex = 10
|
||||
Me.Label3.Text = "Fecha Inicio"
|
||||
'
|
||||
'lblStatus
|
||||
'
|
||||
Me.lblStatus.AutoSize = True
|
||||
Me.lblStatus.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblStatus.Location = New System.Drawing.Point(176, 18)
|
||||
Me.lblStatus.Location = New System.Drawing.Point(188, 52)
|
||||
Me.lblStatus.Name = "lblStatus"
|
||||
Me.lblStatus.Size = New System.Drawing.Size(42, 13)
|
||||
Me.lblStatus.TabIndex = 9
|
||||
@ -123,48 +179,61 @@ Public Class ClientesBol
|
||||
'
|
||||
Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbStatus.FormattingEnabled = True
|
||||
Me.cmbStatus.Location = New System.Drawing.Point(179, 33)
|
||||
Me.cmbStatus.Location = New System.Drawing.Point(191, 67)
|
||||
Me.cmbStatus.Name = "cmbStatus"
|
||||
Me.cmbStatus.Size = New System.Drawing.Size(191, 21)
|
||||
Me.cmbStatus.TabIndex = 8
|
||||
'
|
||||
'lblfecha
|
||||
'
|
||||
Me.lblfecha.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblfecha.AutoSize = True
|
||||
Me.lblfecha.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblfecha.Location = New System.Drawing.Point(881, 76)
|
||||
Me.lblfecha.Name = "lblfecha"
|
||||
Me.lblfecha.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblfecha.TabIndex = 16
|
||||
Me.lblfecha.Text = "Label4"
|
||||
Me.lblfecha.Visible = False
|
||||
'
|
||||
'txtCliente
|
||||
'
|
||||
Me.txtCliente.Location = New System.Drawing.Point(386, 34)
|
||||
Me.txtCliente.Location = New System.Drawing.Point(443, 24)
|
||||
Me.txtCliente.Name = "txtCliente"
|
||||
Me.txtCliente.Size = New System.Drawing.Size(395, 20)
|
||||
Me.txtCliente.Size = New System.Drawing.Size(430, 20)
|
||||
Me.txtCliente.TabIndex = 6
|
||||
'
|
||||
'cmbPorcentaje
|
||||
'
|
||||
Me.cmbPorcentaje.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbPorcentaje.Location = New System.Drawing.Point(13, 34)
|
||||
Me.cmbPorcentaje.Location = New System.Drawing.Point(13, 68)
|
||||
Me.cmbPorcentaje.Name = "cmbPorcentaje"
|
||||
Me.cmbPorcentaje.Size = New System.Drawing.Size(157, 21)
|
||||
Me.cmbPorcentaje.Size = New System.Drawing.Size(166, 21)
|
||||
Me.cmbPorcentaje.TabIndex = 5
|
||||
'
|
||||
'lblPorcentaje
|
||||
'
|
||||
Me.lblPorcentaje.AutoSize = True
|
||||
Me.lblPorcentaje.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblPorcentaje.Location = New System.Drawing.Point(10, 18)
|
||||
Me.lblPorcentaje.Location = New System.Drawing.Point(10, 52)
|
||||
Me.lblPorcentaje.Name = "lblPorcentaje"
|
||||
Me.lblPorcentaje.Size = New System.Drawing.Size(58, 16)
|
||||
Me.lblPorcentaje.Size = New System.Drawing.Size(58, 13)
|
||||
Me.lblPorcentaje.TabIndex = 4
|
||||
Me.lblPorcentaje.Text = "Porcentaje"
|
||||
'
|
||||
'cmbOrganismo
|
||||
'
|
||||
Me.cmbOrganismo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbOrganismo.Location = New System.Drawing.Point(148, 11)
|
||||
Me.cmbOrganismo.Location = New System.Drawing.Point(395, 68)
|
||||
Me.cmbOrganismo.Name = "cmbOrganismo"
|
||||
Me.cmbOrganismo.Size = New System.Drawing.Size(22, 21)
|
||||
Me.cmbOrganismo.Size = New System.Drawing.Size(211, 21)
|
||||
Me.cmbOrganismo.TabIndex = 1
|
||||
Me.cmbOrganismo.Visible = False
|
||||
'
|
||||
'lblOrganismo
|
||||
'
|
||||
Me.lblOrganismo.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblOrganismo.Location = New System.Drawing.Point(80, 16)
|
||||
Me.lblOrganismo.Location = New System.Drawing.Point(783, 23)
|
||||
Me.lblOrganismo.Name = "lblOrganismo"
|
||||
Me.lblOrganismo.Size = New System.Drawing.Size(62, 16)
|
||||
Me.lblOrganismo.TabIndex = 0
|
||||
@ -173,10 +242,12 @@ Public Class ClientesBol
|
||||
'
|
||||
'lblNombreFigura
|
||||
'
|
||||
Me.lblNombreFigura.AutoSize = True
|
||||
Me.lblNombreFigura.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblNombreFigura.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblNombreFigura.Location = New System.Drawing.Point(383, 16)
|
||||
Me.lblNombreFigura.Location = New System.Drawing.Point(392, 26)
|
||||
Me.lblNombreFigura.Name = "lblNombreFigura"
|
||||
Me.lblNombreFigura.Size = New System.Drawing.Size(132, 16)
|
||||
Me.lblNombreFigura.Size = New System.Drawing.Size(49, 16)
|
||||
Me.lblNombreFigura.TabIndex = 7
|
||||
Me.lblNombreFigura.Text = "Cliente"
|
||||
Me.lblNombreFigura.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
@ -207,9 +278,9 @@ Public Class ClientesBol
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupBox2.Controls.Add(Me.dataGrid1)
|
||||
Me.GroupBox2.Controls.Add(Me.lblResultados)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(12, 140)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(12, 159)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(787, 206)
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(879, 288)
|
||||
Me.GroupBox2.TabIndex = 1
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Resultados"
|
||||
@ -231,7 +302,7 @@ Public Class ClientesBol
|
||||
Me.dataGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.dataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("dataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.dataGrid1.RowHeight = 15
|
||||
Me.dataGrid1.Size = New System.Drawing.Size(772, 167)
|
||||
Me.dataGrid1.Size = New System.Drawing.Size(864, 260)
|
||||
Me.dataGrid1.TabIndex = 61
|
||||
Me.dataGrid1.Text = "C1TrueDBGrid1"
|
||||
Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag")
|
||||
@ -239,7 +310,7 @@ Public Class ClientesBol
|
||||
'lblResultados
|
||||
'
|
||||
Me.lblResultados.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblResultados.Location = New System.Drawing.Point(6, 191)
|
||||
Me.lblResultados.Location = New System.Drawing.Point(6, 269)
|
||||
Me.lblResultados.Name = "lblResultados"
|
||||
Me.lblResultados.Size = New System.Drawing.Size(134, 12)
|
||||
Me.lblResultados.TabIndex = 2
|
||||
@ -254,26 +325,13 @@ Public Class ClientesBol
|
||||
Me.ImageList1.Images.SetKeyName(2, "")
|
||||
Me.ImageList1.Images.SetKeyName(3, "")
|
||||
'
|
||||
'lblfecha
|
||||
'
|
||||
Me.lblfecha.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblfecha.AutoSize = True
|
||||
Me.lblfecha.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblfecha.Location = New System.Drawing.Point(12, 119)
|
||||
Me.lblfecha.Name = "lblfecha"
|
||||
Me.lblfecha.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblfecha.TabIndex = 16
|
||||
Me.lblfecha.Text = "Label4"
|
||||
Me.lblfecha.Visible = False
|
||||
'
|
||||
'btnCerrar
|
||||
'
|
||||
Me.btnCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnCerrar.BackColor = System.Drawing.Color.Black
|
||||
Me.btnCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnCerrar.ForeColor = System.Drawing.Color.White
|
||||
Me.btnCerrar.Location = New System.Drawing.Point(804, 317)
|
||||
Me.btnCerrar.Location = New System.Drawing.Point(896, 413)
|
||||
Me.btnCerrar.Name = "btnCerrar"
|
||||
Me.btnCerrar.Size = New System.Drawing.Size(89, 30)
|
||||
Me.btnCerrar.TabIndex = 20
|
||||
@ -286,7 +344,7 @@ Public Class ClientesBol
|
||||
Me.BTExportar.BackColor = System.Drawing.Color.Black
|
||||
Me.BTExportar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.BTExportar.ForeColor = System.Drawing.Color.White
|
||||
Me.BTExportar.Location = New System.Drawing.Point(804, 279)
|
||||
Me.BTExportar.Location = New System.Drawing.Point(896, 375)
|
||||
Me.BTExportar.Name = "BTExportar"
|
||||
Me.BTExportar.Size = New System.Drawing.Size(89, 32)
|
||||
Me.BTExportar.TabIndex = 19
|
||||
@ -299,7 +357,7 @@ Public Class ClientesBol
|
||||
Me.BTLimpiar.BackColor = System.Drawing.Color.Black
|
||||
Me.BTLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.BTLimpiar.ForeColor = System.Drawing.Color.White
|
||||
Me.BTLimpiar.Location = New System.Drawing.Point(804, 239)
|
||||
Me.BTLimpiar.Location = New System.Drawing.Point(896, 335)
|
||||
Me.BTLimpiar.Name = "BTLimpiar"
|
||||
Me.BTLimpiar.Size = New System.Drawing.Size(89, 34)
|
||||
Me.BTLimpiar.TabIndex = 18
|
||||
@ -312,7 +370,7 @@ Public Class ClientesBol
|
||||
Me.BTConsultar.BackColor = System.Drawing.Color.Black
|
||||
Me.BTConsultar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.BTConsultar.ForeColor = System.Drawing.Color.White
|
||||
Me.BTConsultar.Location = New System.Drawing.Point(804, 197)
|
||||
Me.BTConsultar.Location = New System.Drawing.Point(896, 293)
|
||||
Me.BTConsultar.Name = "BTConsultar"
|
||||
Me.BTConsultar.Size = New System.Drawing.Size(89, 36)
|
||||
Me.BTConsultar.TabIndex = 17
|
||||
@ -329,14 +387,14 @@ Public Class ClientesBol
|
||||
Me.panel2.ForeColor = System.Drawing.Color.Navy
|
||||
Me.panel2.Location = New System.Drawing.Point(-2, -1)
|
||||
Me.panel2.Name = "panel2"
|
||||
Me.panel2.Size = New System.Drawing.Size(910, 51)
|
||||
Me.panel2.Size = New System.Drawing.Size(1002, 51)
|
||||
Me.panel2.TabIndex = 160
|
||||
'
|
||||
'Img_logoCabecera
|
||||
'
|
||||
Me.Img_logoCabecera.Anchor = System.Windows.Forms.AnchorStyles.Right
|
||||
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
|
||||
Me.Img_logoCabecera.Location = New System.Drawing.Point(790, 3)
|
||||
Me.Img_logoCabecera.Location = New System.Drawing.Point(882, 3)
|
||||
Me.Img_logoCabecera.Name = "Img_logoCabecera"
|
||||
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
|
||||
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
@ -362,7 +420,7 @@ Public Class ClientesBol
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(853, 4)
|
||||
Me.Label1.Location = New System.Drawing.Point(945, 4)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(42, 17)
|
||||
Me.Label1.TabIndex = 161
|
||||
@ -374,23 +432,51 @@ Public Class ClientesBol
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Black
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Location = New System.Drawing.Point(-2, 364)
|
||||
Me.Panel1.Location = New System.Drawing.Point(-2, 453)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(909, 35)
|
||||
Me.Panel1.Size = New System.Drawing.Size(1001, 35)
|
||||
Me.Panel1.TabIndex = 162
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label6.Location = New System.Drawing.Point(392, 52)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(58, 16)
|
||||
Me.Label6.TabIndex = 4
|
||||
Me.Label6.Text = "Organismo"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label7.Location = New System.Drawing.Point(650, 52)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(87, 13)
|
||||
Me.Label7.TabIndex = 4
|
||||
Me.Label7.Text = "Organismo QesQ"
|
||||
'
|
||||
'cboListaProveedor
|
||||
'
|
||||
Me.cboListaProveedor.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboListaProveedor.Enabled = False
|
||||
Me.cboListaProveedor.FormattingEnabled = True
|
||||
Me.cboListaProveedor.Location = New System.Drawing.Point(649, 68)
|
||||
Me.cboListaProveedor.Name = "cboListaProveedor"
|
||||
Me.cboListaProveedor.Size = New System.Drawing.Size(150, 21)
|
||||
Me.cboListaProveedor.TabIndex = 17
|
||||
'
|
||||
'ClientesBol
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(906, 394)
|
||||
Me.ClientSize = New System.Drawing.Size(998, 483)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.panel2)
|
||||
Me.Controls.Add(Me.btnCerrar)
|
||||
Me.Controls.Add(Me.BTExportar)
|
||||
Me.Controls.Add(Me.BTLimpiar)
|
||||
Me.Controls.Add(Me.BTConsultar)
|
||||
Me.Controls.Add(Me.lblfecha)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.cmbPais)
|
||||
@ -420,6 +506,7 @@ Public Class ClientesBol
|
||||
Dim clCmp2 As clsComplejo = New clsComplejo
|
||||
Dim clCmp3 As clsComplejo = New clsComplejo
|
||||
Dim clCmp4 As clsComplejo = New clsComplejo
|
||||
Dim clCmp5 As clsComplejo = New clsComplejo
|
||||
Dim clGrid As clsComplejo = New clsComplejo
|
||||
|
||||
Dim BanOrg, BanPais, BanPorc, BanStatus As Boolean
|
||||
@ -430,6 +517,28 @@ Public Class ClientesBol
|
||||
BanOrg = False
|
||||
BanStatus = False
|
||||
label4.Text = Me.Text
|
||||
|
||||
dtpFechaInicio.Value = Date.Now.Date
|
||||
dtpFechaFinal.Value = Date.Now.Date
|
||||
|
||||
|
||||
'cboListaProveedor
|
||||
|
||||
'clCmp5.sbLlenaCombo("sp_ConsultarOrganismosInter ", Me.cmbOrganismo)
|
||||
|
||||
|
||||
'Select distinct lista From ListaRestringida order by 1 asc
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
dt = clCmp5.fdtDataTable("SP_ConsultarListaQesQ")
|
||||
|
||||
For Each dr As DataRow In dt.Rows
|
||||
|
||||
cboListaProveedor.Items.Add(dr(0))
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
|
||||
@ -472,6 +581,33 @@ Public Class ClientesBol
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Exportar2()
|
||||
'llama a las rutinas para exportar el grid a excel
|
||||
Try
|
||||
If clGrid.ds.Tables(0).Rows.Count = 0 Then
|
||||
MessageBox.Show("Debe Realizarse una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
Else
|
||||
If clGrid.ds.Tables(0).Rows.Count = 0 Then
|
||||
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
Else
|
||||
Dim Resul As DialogResult
|
||||
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If Resul = DialogResult.Yes Then
|
||||
'Creo una instancia de la clase aExcel
|
||||
Dim clsExcel As aExcel = New aExcel
|
||||
'Utilizo la funcion ExportDataset de la clase aExcel
|
||||
'clsExcel.ExportCSV(clGrid.ds) 'Asigno el dataset a exportar
|
||||
'clsExcel.ExportExcel(clGrid.ds) 'Asigno el dataset a exportar
|
||||
clsExcel.ExportToExcel(clGrid.ds) 'Asigno el dataset a exportar
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub sbBuscar()
|
||||
Try
|
||||
'Se utiliza el procedimiento almacenado "spBuscaClienteBol" para buscar
|
||||
@ -484,6 +620,11 @@ Public Class ClientesBol
|
||||
'JLL 27-08-2013 oculto las columnas con la funcion clocultarcolumna
|
||||
Dim OcultarCol As clOcultarColumna = New clOcultarColumna()
|
||||
|
||||
dataGrid1.DataSource = Nothing
|
||||
'dataGrid1.DataBindings.Clear()
|
||||
|
||||
BTConsultar.Enabled = False
|
||||
|
||||
SQL = ""
|
||||
Where = ""
|
||||
intCuenta = 0
|
||||
@ -493,13 +634,21 @@ Public Class ClientesBol
|
||||
SQL = SQL & "," & IIf(cmbPorcentaje.Text <> "", "'" & cmbPorcentaje.Text.Replace("%", "") & "'", "NULL")
|
||||
SQL = SQL & "," & IIf(cmbStatus.SelectedValue <> Nothing, cmbStatus.SelectedValue, "NULL")
|
||||
SQL = SQL & "," & IIf(txtCliente.Text <> "", "'" & txtCliente.Text.Trim & "'", "NULL")
|
||||
SQL = SQL & ",'" & dtpFechaInicio.Value.ToString("yyyy-MM-dd") & "','" & dtpFechaFinal.Value.ToString("yyyy-MM-dd") & "'"
|
||||
SQL = SQL & "," & IIf(cboListaProveedor.Text <> "", "'" & cboListaProveedor.Text & "'", "NULL")
|
||||
|
||||
'SQL = "Select IdOrganismoInternacional,IdPais,IdComunicado,NombreCompleto,Observaciones,Estatus,FechaActualiza,Alias,Pais,Puesto,Dependencia,FechaCarga,IdListaRestringida,Reference,Type,Address,City,State,SearchCode,NationalID,Passport,BICCode,DOB,Category,Comments,Source,RFC From ListaRestringida"
|
||||
|
||||
clGrid = Nothing
|
||||
clGrid = New clsComplejo
|
||||
|
||||
clGrid.dt = New DataTable
|
||||
clGrid.fdtDataTable(SQL)
|
||||
'clGrid.fdtDataTable(SQL)
|
||||
clGrid.fdtDataSet(SQL)
|
||||
dataGrid1.DataSource = Nothing
|
||||
dataGrid1.DataSource = clGrid.dt
|
||||
|
||||
'dataGrid1.DataSource = clGrid.dt
|
||||
dataGrid1.DataSource = clGrid.ds.Tables(0)
|
||||
|
||||
If dataGrid1.RowCount > 0 Then
|
||||
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In dataGrid1.Splits(0).DisplayColumns
|
||||
col.AutoSize()
|
||||
@ -520,18 +669,18 @@ Public Class ClientesBol
|
||||
|
||||
Dim cont As Integer
|
||||
'cont = clGrid.ds.Tables(0).Rows.Count
|
||||
cont = clGrid.dt.Rows.Count
|
||||
cont = clGrid.ds.Tables(0).Rows.Count 'clGrid.dt.Rows.Count
|
||||
lblResultados.Text = "Elementos: " & cont
|
||||
|
||||
varfecha = CLasscom.BuscaValores("dFechaRegistro", "listacliente", "")
|
||||
|
||||
If Not IsDBNull(varfecha) Then
|
||||
lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy")
|
||||
lblfecha.AutoSize = True
|
||||
lblfecha.Visible = True
|
||||
Else
|
||||
lblfecha.Visible = False
|
||||
End If
|
||||
'If Not IsDBNull(varfecha) Then
|
||||
' lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy")
|
||||
' lblfecha.AutoSize = True
|
||||
' lblfecha.Visible = True
|
||||
'Else
|
||||
' lblfecha.Visible = False
|
||||
'End If
|
||||
|
||||
sAuditoria = ""
|
||||
If cmbOrganismo.Text.Trim <> "" Then sAuditoria = sAuditoria & " Organismo=" & cmbOrganismo.Text.Trim
|
||||
@ -546,8 +695,11 @@ Public Class ClientesBol
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 113, My.Computer.Name, "Minds Cliente", sAuditoria)
|
||||
|
||||
Catch ex As Exception
|
||||
BTConsultar.Enabled = True
|
||||
|
||||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
End Try
|
||||
BTConsultar.Enabled = True
|
||||
|
||||
End Sub
|
||||
|
||||
@ -746,6 +898,11 @@ Public Class ClientesBol
|
||||
BanOrg = False
|
||||
BanPorc = False
|
||||
BanStatus = False
|
||||
|
||||
cmbOrganismo.SelectedText = -1
|
||||
cboListaProveedor.SelectedIndex = -1
|
||||
cboListaProveedor.Enabled = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown
|
||||
@ -875,7 +1032,9 @@ Public Class ClientesBol
|
||||
End Sub
|
||||
|
||||
Private Sub BTConsultar_Click(sender As System.Object, e As System.EventArgs) Handles BTConsultar.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
sbBuscar()
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub dataGrid1_FetchCellStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles dataGrid1.FetchCellStyle
|
||||
@ -887,12 +1046,31 @@ Public Class ClientesBol
|
||||
lblResultados.Text = "Elementos: " & dataGrid1.Splits(0).Rows.Count.ToString()
|
||||
End Sub
|
||||
|
||||
Private Sub cmbOrganismo_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbOrganismo.SelectionChangeCommitted
|
||||
|
||||
If Not cmbOrganismo.SelectedValue Is Nothing Then
|
||||
|
||||
If cmbOrganismo.SelectedValue.ToString() = "17" Then cboListaProveedor.Enabled = True Else cboListaProveedor.Enabled = False : cboListaProveedor.SelectedIndex = -1
|
||||
|
||||
Else
|
||||
cboListaProveedor.Enabled = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BTLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BTLimpiar.Click
|
||||
Refrescar()
|
||||
End Sub
|
||||
|
||||
Private Sub BTExportar_Click(sender As System.Object, e As System.EventArgs) Handles BTExportar.Click
|
||||
Exportar()
|
||||
'Exportar()
|
||||
BTConsultar.Enabled = False
|
||||
BTExportar.Enabled = False
|
||||
|
||||
Exportar2()
|
||||
|
||||
BTConsultar.Enabled = True
|
||||
BTExportar.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click
|
||||
|
||||
@ -715,7 +715,7 @@ Salir:
|
||||
End Sub
|
||||
|
||||
Private Sub CmdBusqueda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBusqueda.Click
|
||||
Dim trd As Thread
|
||||
'Dim trd As Thread
|
||||
|
||||
Try
|
||||
Dim sSQL As String
|
||||
|
||||
@ -1,5 +1,7 @@
|
||||
'Enero 2006
|
||||
'clase que se utiliza para la exportacion de datos a excel
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports Excel 'Aplicacion de excel
|
||||
Imports Microsoft.Office
|
||||
Public Class aExcel
|
||||
@ -58,40 +60,40 @@ Public Class aExcel
|
||||
|
||||
End Function
|
||||
|
||||
Private Function Export(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet)
|
||||
'Funcion que hace la exportacion de datos (COPIA)
|
||||
Dim r As Excel.Range
|
||||
Dim c As Excel.Chart
|
||||
Dim row As Integer = 1
|
||||
Dim cell As Integer = 1
|
||||
'Dim Classcom As New clsComplejo
|
||||
Private Function Export(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet)
|
||||
'Funcion que hace la exportacion de datos (COPIA)
|
||||
Dim r As Excel.Range
|
||||
Dim c As Excel.Chart
|
||||
Dim row As Integer = 1
|
||||
Dim cell As Integer = 1
|
||||
'Dim Classcom As New clsComplejo
|
||||
|
||||
'Se obtiene el numero de registros a exportar
|
||||
Count = Tbl.Rows.Count
|
||||
'Se obtiene el numero de registros a exportar
|
||||
Count = Tbl.Rows.Count
|
||||
|
||||
'Se establen las propiedades de barra de progreso
|
||||
frmBarra.pbrAvance.Maximum = Count
|
||||
'Se establen las propiedades de barra de progreso
|
||||
frmBarra.pbrAvance.Maximum = Count
|
||||
|
||||
'titulo de la hoja
|
||||
ws.Name = "MINDS"
|
||||
'titulo de la hoja
|
||||
ws.Name = "MINDS"
|
||||
|
||||
'Periodo
|
||||
'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy")
|
||||
'Periodo
|
||||
'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy")
|
||||
|
||||
|
||||
'Se pone la fecha en la primera fila
|
||||
'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString)
|
||||
ws.Cells(row, 1) = Titulo
|
||||
'Se pone la fecha en la primera fila
|
||||
'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString)
|
||||
ws.Cells(row, 1) = Titulo
|
||||
|
||||
'hacemos un rango para ponerlo en negrita
|
||||
r = CType(ws.Cells(row, 1), Range)
|
||||
r.Font.Bold = True
|
||||
'r.Font.Size = 8
|
||||
row += 2
|
||||
'hacemos un rango para ponerlo en negrita
|
||||
r = CType(ws.Cells(row, 1), Range)
|
||||
r.Font.Bold = True
|
||||
'r.Font.Size = 8
|
||||
row += 2
|
||||
|
||||
'se recuperan los encabezados del dataset
|
||||
Dim H As Integer
|
||||
For H = 0 To Tbl.Columns.Count - 1
|
||||
'se recuperan los encabezados del dataset
|
||||
Dim H As Integer
|
||||
For H = 0 To Tbl.Columns.Count - 1
|
||||
ws.Cells(row, cell) = Tbl.Columns(H).Caption()
|
||||
''Identifica si la columna es de tipo string. Si si es entonces formatea toda la columna a tipo String. (Esto para que las columnas de texto, no las maneje como numeros. Ejemplo: numero de cuenta)
|
||||
If Tbl.Columns(H).DataType.ToString.ToUpper = "SYSTEM.STRING" Then
|
||||
@ -122,27 +124,160 @@ Public Class aExcel
|
||||
''ws.Cells.NumberFormat = "@"
|
||||
End If
|
||||
''Fin de identificar la columna.
|
||||
'ws.Columns(cell).autoFit()
|
||||
'ws.Cells.HorizontalAlignment = "xlCenteR"
|
||||
cell += 1
|
||||
Next
|
||||
'ws.Columns(cell).autoFit()
|
||||
'ws.Cells.HorizontalAlignment = "xlCenteR"
|
||||
cell += 1
|
||||
Next
|
||||
|
||||
For H = 1 To cell - 1
|
||||
r = CType(ws.Cells(row, H), Range)
|
||||
r.Font.Bold = True
|
||||
'r.Font.Size = 8
|
||||
r.Cells.BorderAround()
|
||||
'r.HorizontalAlignment = "xlCenteR"
|
||||
Next H
|
||||
For H = 1 To cell - 1
|
||||
r = CType(ws.Cells(row, H), Range)
|
||||
r.Font.Bold = True
|
||||
'r.Font.Size = 8
|
||||
r.Cells.BorderAround()
|
||||
'r.HorizontalAlignment = "xlCenteR"
|
||||
Next H
|
||||
|
||||
row += 1
|
||||
cell = 1
|
||||
row += 1
|
||||
cell = 1
|
||||
|
||||
'creando las filas
|
||||
Dim dc As DataColumn
|
||||
Dim Dr As DataRow
|
||||
Dim x As Integer = 1 'para sacar el porcentaje
|
||||
'se muestra el form de la bara de progreso
|
||||
'creando las filas
|
||||
Dim dc As DataColumn
|
||||
Dim Dr As DataRow
|
||||
Dim x As Integer = 1 'para sacar el porcentaje
|
||||
'se muestra el form de la bara de progreso
|
||||
Try
|
||||
frmBarra.pbExportCancel = False
|
||||
frmBarra.Show()
|
||||
|
||||
'Copiando los datos
|
||||
For Each Dr In Tbl.Rows
|
||||
For H = 0 To Tbl.Columns.Count - 1
|
||||
If IsDate(Dr.Item(H)) = True And Dr.Item(H).GetType().ToString.ToUpper = "SYSTEM.STRING" And (Dr.Item(H).ToString.Contains("/") = True Or Dr.Item(H).ToString.Contains("-") = True) Then
|
||||
ws.Cells(row, cell) = DateTime.Parse(Dr.Item(H))
|
||||
ElseIf Dr.Item(H).GetType().ToString.ToUpper = "SYSTEM.TIMESPAN" Then
|
||||
ws.Cells(row, cell) = Dr.Item(H).ToString
|
||||
Else
|
||||
ws.Cells(row, cell) = Dr.Item(H)
|
||||
End If
|
||||
|
||||
''LA Pc esta poniendo 02/01/1900 cuando la fecha es 01/01/1900, el codigo siguiente intenta remediar lo anterior.
|
||||
If Left(Dr.Item(H).ToString(), 10) = "01/01/1900" Then
|
||||
ws.Cells(row, cell) = "01/01/1900"
|
||||
End If
|
||||
|
||||
'ws.Columns(cell).autoFit()
|
||||
'ws.Cells.Font.Size = 8
|
||||
cell += 1
|
||||
Next
|
||||
cell = 1
|
||||
row += 1
|
||||
'se va incrementando los cuadritos de la barra
|
||||
frmBarra.pbrAvance.Value += 1
|
||||
'Se saca el porcentaje
|
||||
frmBarra.Text = "Exportando a Excel: " & CInt((x * 100) / Count) & " %"
|
||||
x += 1
|
||||
If (row Mod 100) = 0 Then
|
||||
System.Windows.Forms.Application.DoEvents()
|
||||
If frmBarra.pbExportCancel Then
|
||||
If MessageBox.Show("¿Desea cancelar la exportación?", "Minds", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
||||
Exit Function
|
||||
Else
|
||||
frmBarra.pbExportCancel = False '--Ç- Se le agrega para continuar sin la cancelas
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
' row += 1 'la quite 3 enero 2006
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Hubo un problema en la exportación " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
End Try
|
||||
End Function
|
||||
Private Function Export2(ByVal Tbl As System.Data.DataTable, ByVal ws As Interop.Excel.Worksheet, name As String)
|
||||
'Funcion que hace la exportacion de datos (COPIA)
|
||||
Dim r As Excel.Range
|
||||
Dim c As Excel.Chart
|
||||
Dim row As Integer = 1
|
||||
Dim cell As Integer = 1
|
||||
'Dim Classcom As New clsComplejo
|
||||
|
||||
'Se obtiene el numero de registros a exportar
|
||||
Count = Tbl.Rows.Count
|
||||
|
||||
'Se establen las propiedades de barra de progreso
|
||||
frmBarra.pbrAvance.Maximum = Count
|
||||
frmBarra.pbrAvance.Value = 0
|
||||
|
||||
'titulo de la hoja
|
||||
ws.Name = name
|
||||
|
||||
'Periodo
|
||||
'ws.Cells(1, 1) = "Periodo :" & " " & Classcom.ObtenFecha(clsVaribles.Finicio.Date, "dd/mmm/yy") & " - " & Classcom.ObtenFecha(clsVaribles.Ffin.Date, "dd/mmm/yy") & " " & " Fecha Impresión : " & " " & Classcom.ObtenFecha(Now.ToShortDateString, "dd/mmm/yy")
|
||||
|
||||
|
||||
'Se pone la fecha en la primera fila
|
||||
'ws.Cells(row, 1) = Titulo & " " & CStr(Now.ToShortDateString)
|
||||
ws.Cells(row, 1) = Titulo
|
||||
|
||||
'hacemos un rango para ponerlo en negrita
|
||||
r = CType(ws.Cells(row, 1), Range)
|
||||
r.Font.Bold = True
|
||||
'r.Font.Size = 8
|
||||
row += 2
|
||||
|
||||
'se recuperan los encabezados del dataset
|
||||
Dim H As Integer
|
||||
For H = 0 To Tbl.Columns.Count - 1
|
||||
ws.Cells(row, cell) = Tbl.Columns(H).Caption()
|
||||
''Identifica si la columna es de tipo string. Si si es entonces formatea toda la columna a tipo String. (Esto para que las columnas de texto, no las maneje como numeros. Ejemplo: numero de cuenta)
|
||||
If Tbl.Columns(H).DataType.ToString.ToUpper = "SYSTEM.STRING" Then
|
||||
Dim cLetra As Char
|
||||
Dim sLetra As String
|
||||
''Obtiene la letra de la columna.
|
||||
Dim iColExc As Integer
|
||||
iColExc = 65 + H
|
||||
Select Case iColExc
|
||||
Case 65 To 90
|
||||
cLetra = Chr(iColExc)
|
||||
sLetra = cLetra.ToString
|
||||
Case 91 To 116
|
||||
cLetra = Chr(iColExc - 26)
|
||||
sLetra = "A" & cLetra.ToString
|
||||
Case 117 To 142
|
||||
cLetra = Chr(iColExc - 26 * 2)
|
||||
sLetra = "B" & cLetra.ToString
|
||||
Case 143 To 168
|
||||
cLetra = Chr(iColExc - 26 * 3)
|
||||
sLetra = "C" & cLetra.ToString
|
||||
Case 169 To 194
|
||||
cLetra = Chr(iColExc - 26 * 4)
|
||||
sLetra = "D" & cLetra.ToString
|
||||
End Select
|
||||
ws.Columns(sLetra & ":" & sLetra).Select() ''Quiere obtener F:F
|
||||
ws.Columns(sLetra & ":" & sLetra).NumberFormat = "@"
|
||||
''ws.Cells.NumberFormat = "@"
|
||||
End If
|
||||
''Fin de identificar la columna.
|
||||
'ws.Columns(cell).autoFit()
|
||||
'ws.Cells.HorizontalAlignment = "xlCenteR"
|
||||
cell += 1
|
||||
Next
|
||||
|
||||
For H = 1 To cell - 1
|
||||
r = CType(ws.Cells(row, H), Range)
|
||||
r.Font.Bold = True
|
||||
'r.Font.Size = 8
|
||||
r.Cells.BorderAround()
|
||||
'r.HorizontalAlignment = "xlCenteR"
|
||||
Next H
|
||||
|
||||
row += 1
|
||||
cell = 1
|
||||
|
||||
'creando las filas
|
||||
Dim dc As DataColumn
|
||||
Dim Dr As DataRow
|
||||
Dim x As Integer = 1 'para sacar el porcentaje
|
||||
'se muestra el form de la bara de progreso
|
||||
Try
|
||||
frmBarra.pbExportCancel = False
|
||||
frmBarra.Show()
|
||||
@ -191,192 +326,566 @@ Public Class aExcel
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String)
|
||||
Try
|
||||
Dim m_Excel As New Microsoft.Office.Interop.Excel.Application
|
||||
Dim clCmpTipo As clsComplejo
|
||||
|
||||
Dim CategoryName As String ' Variable para controlar la ruptura por nombre de categoria
|
||||
Dim apath As String
|
||||
Dim filename As String
|
||||
Dim aName As String
|
||||
'' Creamos un objeto WorkBook
|
||||
Dim objLibroExcel As Microsoft.Office.Interop.Excel.Workbook
|
||||
|
||||
'' Creamos un objeto WorkSheet
|
||||
Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet
|
||||
|
||||
Dim sql As String
|
||||
'sql = "spExportaExcel " & "'" & _tipo & "','" & _Nombre & "','" & _KYC_estatus & "','" & _estatuscte & "','" & clsvariables.VarPerfil & "','" & clsvariables.varIdFuncionario & "'"
|
||||
|
||||
clCmpTipo = New clsComplejo
|
||||
'clCmpTipo.fdtDataSetTabla(sql)
|
||||
clCmpTipo.ds = Ds
|
||||
If clCmpTipo.ds.Tables.Count = 0 Then
|
||||
' Me.GrdBusqueda.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
|
||||
|
||||
MsgBox("Se ha realizado la búsqueda y no hay registros para mostrar. Revise su perfil, posiblemente no tenga acceso a ellos", MsgBoxStyle.Information)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
'' Iniciamos una instancia a excel
|
||||
m_Excel = New Microsoft.Office.Interop.Excel.Application
|
||||
m_Excel.Visible = True
|
||||
Public Sub ExcelExport(ByVal Ds As System.Data.DataSet, ByVal lstitulo As String)
|
||||
Try
|
||||
Dim m_Excel As New Microsoft.Office.Interop.Excel.Application
|
||||
Dim clCmpTipo As clsComplejo
|
||||
|
||||
'' Creamos una variable para gualdar la cultura actual
|
||||
Dim OldCultureInfo As System.Globalization.CultureInfo = _
|
||||
System.Threading.Thread.CurrentThread.CurrentCulture
|
||||
Dim CategoryName As String ' Variable para controlar la ruptura por nombre de categoria
|
||||
Dim apath As String
|
||||
Dim filename As String
|
||||
Dim aName As String
|
||||
'' Creamos un objeto WorkBook
|
||||
Dim objLibroExcel As Microsoft.Office.Interop.Excel.Workbook
|
||||
|
||||
'Crear una cultura standard (en-US) inglés estados unidos
|
||||
System.Threading.Thread.CurrentThread.CurrentCulture = _
|
||||
New System.Globalization.CultureInfo("en-US")
|
||||
'' Creamos un objeto WorkSheet
|
||||
Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet
|
||||
|
||||
'' Creamos una instancia del Workbooks de excel
|
||||
'' Creamos una instancia de la primera hoja de trabajo de excel
|
||||
objLibroExcel = m_Excel.Workbooks.Add()
|
||||
objHojaExcel = objLibroExcel.Worksheets(1)
|
||||
objHojaExcel.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
|
||||
Dim sql As String
|
||||
'sql = "spExportaExcel " & "'" & _tipo & "','" & _Nombre & "','" & _KYC_estatus & "','" & _estatuscte & "','" & clsvariables.VarPerfil & "','" & clsvariables.varIdFuncionario & "'"
|
||||
|
||||
'' Hacemos esta hoja la visible en pantalla
|
||||
'' (como seleccionamos la primera esto no es necesario
|
||||
'' si seleccionamos una diferente a la primera si lo
|
||||
'' necesitariamos).
|
||||
objHojaExcel.Activate()
|
||||
clCmpTipo = New clsComplejo
|
||||
'clCmpTipo.fdtDataSetTabla(sql)
|
||||
clCmpTipo.ds = Ds
|
||||
If clCmpTipo.ds.Tables.Count = 0 Then
|
||||
' Me.GrdBusqueda.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
|
||||
|
||||
aName = _
|
||||
System.Reflection.Assembly.GetExecutingAssembly. _
|
||||
GetModules()(0).FullyQualifiedName
|
||||
|
||||
apath = System.IO.Path.GetDirectoryName(aName)
|
||||
filename = apath & "\logo1.jpg"
|
||||
|
||||
'Dim xlSheet1 As Excel.Worksheet
|
||||
Dim xlRange As Microsoft.Office.Interop.Excel.Range
|
||||
|
||||
Dim ms As New System.IO.MemoryStream
|
||||
Dim oIMage As Image = Image.FromFile(filename)
|
||||
oIMage.Save(ms, oIMage.RawFormat)
|
||||
Dim arrImage() As Byte = ms.GetBuffer
|
||||
Dim integralLogo As Bitmap = CType(Image.FromStream(ms), Bitmap)
|
||||
'integralLogo.Size = (100, 200)
|
||||
Clipboard.SetDataObject(integralLogo)
|
||||
xlRange = objHojaExcel.Range(objHojaExcel.Cells(1, 1), objHojaExcel.Cells(1, 1))
|
||||
xlRange.Select()
|
||||
objHojaExcel.Paste()
|
||||
|
||||
Dim nCol As Integer
|
||||
Dim iI As Integer
|
||||
Dim nameCol As String
|
||||
|
||||
nCol = clCmpTipo.ds.Tables(0).Columns.Count
|
||||
|
||||
'' Crear el encabezado de nuestro informe
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Merge()
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Value = lstitulo
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Bold = True
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Size = 15
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").HorizontalAlignment = -4108
|
||||
|
||||
|
||||
'' Crear el subencabezado de nuestro informe
|
||||
objHojaExcel.Range("A2:g2").Merge()
|
||||
objHojaExcel.Range("A2:g2").Value = ""
|
||||
objHojaExcel.Range("A2:g2").Font.Italic = True
|
||||
objHojaExcel.Range("A2:g2").Font.Size = 13
|
||||
|
||||
|
||||
'contando el numero de columnas
|
||||
Dim liContAlf As Integer = 65
|
||||
Dim objCelda As Microsoft.Office.Interop.Excel.Range
|
||||
'llenar el checked
|
||||
For iI = 0 To nCol - 1
|
||||
'recuperndo el nombre de la columna
|
||||
nameCol = clCmpTipo.ds.Tables(0).Columns.Item(iI).Caption
|
||||
objCelda = objHojaExcel.Range(Chr(liContAlf) & "4", Type.Missing)
|
||||
objCelda.Value = nameCol
|
||||
objCelda.EntireColumn.AutoFit()
|
||||
liContAlf = liContAlf + 1
|
||||
'LstColumnas.Items.Add(nameCol)
|
||||
Next
|
||||
|
||||
|
||||
Dim i As Integer = 6
|
||||
Dim j As Integer = 6
|
||||
Dim H As Integer
|
||||
CategoryName = ""
|
||||
|
||||
|
||||
|
||||
For H = 0 To clCmpTipo.ds.Tables(0).Rows.Count - 1
|
||||
|
||||
'' Asignar los valores de los registros a las celdas
|
||||
liContAlf = 65
|
||||
For iI = 0 To nCol - 1
|
||||
If IsDBNull(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
|
||||
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
|
||||
objCelda.Value = ""
|
||||
|
||||
Else
|
||||
|
||||
objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
|
||||
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
|
||||
If IsNumeric(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
|
||||
objCelda.Value = String.Format("{0:G}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
|
||||
objCelda.NumberFormat = "0"
|
||||
ElseIf IsDate(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
|
||||
objCelda.Value = String.Format("{0:d}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
|
||||
Else
|
||||
objCelda.Value = " " & clCmpTipo.ds.Tables(0).Rows(H).Item(iI).ToString
|
||||
MsgBox("Se ha realizado la búsqueda y no hay registros para mostrar. Revise su perfil, posiblemente no tenga acceso a ellos", MsgBoxStyle.Information)
|
||||
Exit Sub
|
||||
End If
|
||||
'Debug.Print(clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
|
||||
'objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
|
||||
'objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
|
||||
'objCelda.Value = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
|
||||
|
||||
End If
|
||||
liContAlf = liContAlf + 1
|
||||
'LstColumnas.Items.Add(nameCol)
|
||||
|
||||
'' Iniciamos una instancia a excel
|
||||
m_Excel = New Microsoft.Office.Interop.Excel.Application
|
||||
m_Excel.Visible = True
|
||||
|
||||
'' Creamos una variable para gualdar la cultura actual
|
||||
Dim OldCultureInfo As System.Globalization.CultureInfo =
|
||||
System.Threading.Thread.CurrentThread.CurrentCulture
|
||||
|
||||
'Crear una cultura standard (en-US) inglés estados unidos
|
||||
System.Threading.Thread.CurrentThread.CurrentCulture =
|
||||
New System.Globalization.CultureInfo("en-US")
|
||||
|
||||
'' Creamos una instancia del Workbooks de excel
|
||||
'' Creamos una instancia de la primera hoja de trabajo de excel
|
||||
objLibroExcel = m_Excel.Workbooks.Add()
|
||||
objHojaExcel = objLibroExcel.Worksheets(1)
|
||||
objHojaExcel.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
|
||||
|
||||
'' Hacemos esta hoja la visible en pantalla
|
||||
'' (como seleccionamos la primera esto no es necesario
|
||||
'' si seleccionamos una diferente a la primera si lo
|
||||
'' necesitariamos).
|
||||
objHojaExcel.Activate()
|
||||
|
||||
aName =
|
||||
System.Reflection.Assembly.GetExecutingAssembly.
|
||||
GetModules()(0).FullyQualifiedName
|
||||
|
||||
apath = System.IO.Path.GetDirectoryName(aName)
|
||||
filename = apath & "\logo1.jpg"
|
||||
|
||||
'Dim xlSheet1 As Excel.Worksheet
|
||||
Dim xlRange As Microsoft.Office.Interop.Excel.Range
|
||||
|
||||
Dim ms As New System.IO.MemoryStream
|
||||
Dim oIMage As Image = Image.FromFile(filename)
|
||||
oIMage.Save(ms, oIMage.RawFormat)
|
||||
Dim arrImage() As Byte = ms.GetBuffer
|
||||
Dim integralLogo As Bitmap = CType(Image.FromStream(ms), Bitmap)
|
||||
'integralLogo.Size = (100, 200)
|
||||
Clipboard.SetDataObject(integralLogo)
|
||||
xlRange = objHojaExcel.Range(objHojaExcel.Cells(1, 1), objHojaExcel.Cells(1, 1))
|
||||
xlRange.Select()
|
||||
objHojaExcel.Paste()
|
||||
|
||||
Dim nCol As Integer
|
||||
Dim iI As Integer
|
||||
Dim nameCol As String
|
||||
|
||||
nCol = clCmpTipo.ds.Tables(0).Columns.Count
|
||||
|
||||
'' Crear el encabezado de nuestro informe
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Merge()
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Value = lstitulo
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Bold = True
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").Font.Size = 15
|
||||
objHojaExcel.Range("A1:" & Chr(nCol + 65) & "1").HorizontalAlignment = -4108
|
||||
|
||||
|
||||
'' Crear el subencabezado de nuestro informe
|
||||
objHojaExcel.Range("A2:g2").Merge()
|
||||
objHojaExcel.Range("A2:g2").Value = ""
|
||||
objHojaExcel.Range("A2:g2").Font.Italic = True
|
||||
objHojaExcel.Range("A2:g2").Font.Size = 13
|
||||
|
||||
|
||||
'contando el numero de columnas
|
||||
Dim liContAlf As Integer = 65
|
||||
Dim objCelda As Microsoft.Office.Interop.Excel.Range
|
||||
'llenar el checked
|
||||
For iI = 0 To nCol - 1
|
||||
'recuperndo el nombre de la columna
|
||||
nameCol = clCmpTipo.ds.Tables(0).Columns.Item(iI).Caption
|
||||
objCelda = objHojaExcel.Range(Chr(liContAlf) & "4", Type.Missing)
|
||||
objCelda.Value = nameCol
|
||||
objCelda.EntireColumn.AutoFit()
|
||||
liContAlf = liContAlf + 1
|
||||
'LstColumnas.Items.Add(nameCol)
|
||||
Next
|
||||
|
||||
|
||||
Dim i As Integer = 6
|
||||
Dim j As Integer = 6
|
||||
Dim H As Integer
|
||||
CategoryName = ""
|
||||
|
||||
|
||||
|
||||
For H = 0 To clCmpTipo.ds.Tables(0).Rows.Count - 1
|
||||
|
||||
'' Asignar los valores de los registros a las celdas
|
||||
liContAlf = 65
|
||||
For iI = 0 To nCol - 1
|
||||
If IsDBNull(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
|
||||
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
|
||||
objCelda.Value = ""
|
||||
|
||||
Else
|
||||
|
||||
objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
|
||||
objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
|
||||
If IsNumeric(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
|
||||
objCelda.Value = String.Format("{0:G}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
|
||||
objCelda.NumberFormat = "0"
|
||||
ElseIf IsDate(clCmpTipo.ds.Tables(0).Rows(H).Item(iI)) Then
|
||||
objCelda.Value = String.Format("{0:d}", clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
|
||||
Else
|
||||
objCelda.Value = " " & clCmpTipo.ds.Tables(0).Rows(H).Item(iI).ToString
|
||||
End If
|
||||
'Debug.Print(clCmpTipo.ds.Tables(0).Rows(H).Item(iI))
|
||||
'objHojaExcel.Cells(i, Chr(liContAlf)) = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
|
||||
'objCelda = objHojaExcel.Range(Chr(liContAlf) & i, Type.Missing)
|
||||
'objCelda.Value = clCmpTipo.ds.Tables(0).Rows(H).Item(iI)
|
||||
|
||||
End If
|
||||
liContAlf = liContAlf + 1
|
||||
'LstColumnas.Items.Add(nameCol)
|
||||
Next
|
||||
i += 1
|
||||
Next
|
||||
|
||||
|
||||
i += 1
|
||||
|
||||
'' Seleccionar todo el bloque desde A1 hasta D #de filas
|
||||
Dim objRango As Microsoft.Office.Interop.Excel.Range = objHojaExcel.Range("A4:" & Chr(nCol + 65) & (i - 1).ToString)
|
||||
|
||||
'' Selecionado todo el rango especificado
|
||||
objRango.Select()
|
||||
|
||||
'' Ajustamos el ancho de las columnas al ancho máximo del
|
||||
'' contenido de sus celdas
|
||||
objRango.Columns.AutoFit()
|
||||
|
||||
'' Asignar filtro por columna
|
||||
objRango.AutoFilter(1, , VisibleDropDown:=True)
|
||||
|
||||
'' Asignar un formato automatico
|
||||
objRango.AutoFormat(18, Alignment:=False)
|
||||
'' Seleccionamos el total general del reporte y asignamos
|
||||
'' font a negrita e italica
|
||||
objRango = objHojaExcel.Range("A" & i.ToString & ":z" & i.ToString)
|
||||
objRango.Select()
|
||||
objRango.Font.Bold = True
|
||||
objRango.Font.Italic = True
|
||||
|
||||
'' Crear un total general
|
||||
objHojaExcel.Cells(i, 1) = "Total de Registros "
|
||||
objHojaExcel.Cells(i, 3) = "=count(A6:a" & (i - 1).ToString & ")"
|
||||
|
||||
objHojaExcel = Nothing
|
||||
objLibroExcel = Nothing
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Problemas al exportar " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function ExportCSV(ByVal Ds As System.Data.DataSet)
|
||||
|
||||
Dim fileroot As String
|
||||
Dim wrFile As StreamWriter
|
||||
Dim enc As String
|
||||
Dim tcols As Integer = 0
|
||||
Dim trows As Integer = 0
|
||||
Dim ext As String
|
||||
Dim name As String
|
||||
Dim root As String
|
||||
|
||||
Try
|
||||
|
||||
Do
|
||||
fileroot = generarNombreArchivo()
|
||||
Loop While File.Exists(fileroot)
|
||||
|
||||
If Ds.Tables(0).Rows.Count > 0 Then
|
||||
|
||||
wrFile = New StreamWriter(fileroot)
|
||||
Dim ls As String = CultureInfo.CurrentCulture.TextInfo.ListSeparator
|
||||
|
||||
enc = String.Format("Registro en Lista{0}NIC{0}CLIENTE{0}Nombre Figura{0}Tipo Figura{0}Nombre Coincidencia{0}Alias Coincidencia{0}Observaciones Coincidencia{0}Porcentaje Nombre{0}Porcentaje Observaciones{0}Organismo{0}Estatus{0}Fecha Coincidencia{0}Fecha Cambio{0}Comentario{0}CLIENTE RFC{0}LISTA RFC{0}ID LISTA{0}id_status{0}Id_Organismo{0}figura{0}IDCliente{0}Id_Figura{0}ORGANISMO QUIEN ES QUIEN{0}CURP{0}ESTATUS QUIEN ES QUIEN{0}TIPO DE OFICIO{0}FECHA OFICIO", ls)
|
||||
wrFile.WriteLine(enc)
|
||||
|
||||
trows = Ds.Tables(0).Rows.Count + 1
|
||||
tcols = Ds.Tables(0).Columns.Count + 1
|
||||
|
||||
For Each r As DataRow In Ds.Tables(0).Rows
|
||||
|
||||
For Each c As Object In r.ItemArray
|
||||
wrFile.Write(c.ToString.Replace(",", "*") & ls)
|
||||
'wrFile.Write(c.ToString & ls)
|
||||
Next
|
||||
wrFile.WriteLine()
|
||||
Next
|
||||
|
||||
wrFile.Flush()
|
||||
wrFile.Close()
|
||||
|
||||
|
||||
Dim dataFile As New FileInfo(fileroot)
|
||||
Dim fileExcel As String
|
||||
|
||||
ext = dataFile.Extension
|
||||
name = dataFile.Name
|
||||
root = dataFile.DirectoryName
|
||||
|
||||
fileExcel = root & "\" & name.Replace(ext, "") & ".xlsx"
|
||||
|
||||
'FileSystem.Rename(fileroot, fileExcel)
|
||||
|
||||
'Process.Start(fileExcel)
|
||||
'Process.Start(fileroot)
|
||||
|
||||
|
||||
'excelApp = New Interop.Excel.Application
|
||||
'excelApp.GetOpenFilename()
|
||||
'excelApp.Visible = True
|
||||
|
||||
|
||||
'Process.Start(fileroot)
|
||||
|
||||
excelApp = New Interop.Excel.Application
|
||||
excelApp.Workbooks.Open(fileroot)
|
||||
|
||||
|
||||
excelApp.Sheets(1).Name = "MINDS"
|
||||
|
||||
excelApp.Sheets(1).Range("A1:AB1").Font.Bold = True
|
||||
excelApp.Sheets(1).Range("A1:AB1").BorderAround(ColorIndex:=0, Weight:=XlBorderWeight.xlThick)
|
||||
|
||||
excelApp.Application.CutCopyMode = False
|
||||
excelApp.Workbooks.Application.CutCopyMode = False
|
||||
excelApp.Sheets(1).Application.CutCopyMode = False
|
||||
|
||||
|
||||
Dim objRango As Microsoft.Office.Interop.Excel.Range = excelApp.Sheets(1).Range("A1:A" & trows)
|
||||
|
||||
'excelApp.Sheets(1).Range("B1:B" & tcols).ClearContents
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
excelApp.Sheets(1).Range("A1:A" & trows).TextToColumns(Destination:=objRango,
|
||||
DataType:=XlTextParsingType.xlDelimited,
|
||||
Other:=True, OtherChar:="|"
|
||||
)
|
||||
|
||||
excelApp.Sheets(1).Columns.AutoFit()
|
||||
|
||||
|
||||
'excelApp.Sheets(1).Range("A1:A" & tcols).ClearContents
|
||||
|
||||
|
||||
'excelApp.Sheets(1).Range("A1").TextToColumns(Destination:=objRango,
|
||||
' DataType:=XlTextParsingType.xlDelimited,
|
||||
' TextQualifier:=XlTextQualifier.xlTextQualifierDoubleQuote,
|
||||
' ConsecutiveDelimiter:=False,
|
||||
' Tab:=False,
|
||||
' Semicolon:=False,
|
||||
' Comma:=False,
|
||||
' Space:=False,
|
||||
' Other:=True,
|
||||
' OtherChar:="|",
|
||||
' FieldInfo:="Valor",
|
||||
' TrailingMinusNumbers:=True)
|
||||
|
||||
|
||||
'excelApp.Sheets(1).range("A1:" & )
|
||||
'excelApp.Sheets(1).Range("A1")
|
||||
|
||||
|
||||
'r.Font.Bold = True
|
||||
'r.Cells.BorderAround()
|
||||
'excelApp.Sheets(1).Select()
|
||||
'excelApp.Sheets(1).Columns.AutoFit()
|
||||
'Dim objHojaExcel As Microsoft.Office.Interop.Excel.Worksheet
|
||||
|
||||
|
||||
excelApp.Visible = True
|
||||
'excelApp.Sheets(1).Active
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
|
||||
Catch ex As Exception
|
||||
|
||||
If excelApp IsNot Nothing Then
|
||||
excelApp.Workbooks().Close()
|
||||
excelApp.Quit()
|
||||
excelApp = Nothing
|
||||
End If
|
||||
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Private Function generarNombreArchivo()
|
||||
Return Path.GetTempPath() & Now.Second & Now.Millisecond & ".csv"
|
||||
End Function
|
||||
|
||||
|
||||
Public Function ExportExcel(ByVal Ds As System.Data.DataSet)
|
||||
|
||||
Dim fileroot As String
|
||||
Dim wrFile As StreamWriter
|
||||
Dim enc As String
|
||||
Dim tcols As Integer = 0
|
||||
Dim trows As Integer = 0
|
||||
Dim contR As Integer = 1
|
||||
Dim contC As Integer = 1
|
||||
|
||||
Dim ext As String
|
||||
Dim name As String
|
||||
Dim root As String
|
||||
|
||||
Dim excelApp As New Excel.Application
|
||||
Dim workbook As Interop.Excel.Workbook
|
||||
Dim sheet As Excel.Worksheet
|
||||
|
||||
|
||||
Try
|
||||
|
||||
Do
|
||||
fileroot = generarNombreArchivo()
|
||||
Loop While File.Exists(fileroot)
|
||||
|
||||
If Ds.Tables(0).Rows.Count > 0 Then
|
||||
|
||||
excelApp = New Interop.Excel.Application
|
||||
|
||||
workbook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet)
|
||||
sheet = workbook.Worksheets(1)
|
||||
|
||||
For i As Integer = 1 To Ds.Tables(0).Columns.Count - 1
|
||||
sheet.Cells(contR, i).value = Ds.Tables(0).Columns.Item(i - 1).ColumnName
|
||||
Next
|
||||
contR = contR + 1
|
||||
contC = 1
|
||||
|
||||
For Each r As DataRow In Ds.Tables(0).Rows
|
||||
For Each c As Object In r.ItemArray
|
||||
'wrFile.Write(c.ToString & ls)
|
||||
'wrFile.Write(c.ToString & ls)
|
||||
sheet.Cells(contR, contC).value = c.ToString
|
||||
contC = contC + 1
|
||||
Next
|
||||
|
||||
contR = contR + 1
|
||||
contC = 1
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
excelApp.Sheets(1).Columns.AutoFit()
|
||||
|
||||
|
||||
|
||||
excelApp.Visible = True
|
||||
'sheet.Activate()
|
||||
'excelApp.Sheets(1).Active
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
|
||||
Catch ex As Exception
|
||||
|
||||
If excelApp IsNot Nothing Then
|
||||
excelApp.Workbooks().Close()
|
||||
excelApp.Quit()
|
||||
excelApp = Nothing
|
||||
End If
|
||||
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function ExportToExcel(ByVal Ds As System.Data.DataSet)
|
||||
|
||||
Dim tcols As Integer = 0
|
||||
Dim trows As Integer = 0
|
||||
Dim contR As Integer = 0
|
||||
Dim contC As Integer = 0
|
||||
Dim pbMax As Integer = 0
|
||||
|
||||
|
||||
|
||||
Dim excelApp As New Excel.Application
|
||||
Dim workbook As Interop.Excel.Workbook
|
||||
Dim sheet As Excel.Worksheet
|
||||
|
||||
Try
|
||||
|
||||
If Ds.Tables(0).Rows.Count > 0 Then
|
||||
frmBarra.Text = "Exportando a Excel: 0 %"
|
||||
frmBarra.Show()
|
||||
|
||||
excelApp = New Interop.Excel.Application
|
||||
|
||||
|
||||
workbook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet)
|
||||
sheet = workbook.Worksheets(1)
|
||||
sheet.Name = "MINDS"
|
||||
|
||||
|
||||
trows = Ds.Tables(0).Rows.Count + 1
|
||||
pbMax = trows + (trows * 0.1)
|
||||
frmBarra.pbrAvance.Maximum = pbMax
|
||||
System.Windows.Forms.Application.DoEvents()
|
||||
|
||||
Dim data(trows, Ds.Tables(0).Columns.Count) As String
|
||||
|
||||
For i As Integer = 0 To Ds.Tables(0).Columns.Count - 1
|
||||
data(contR, i) = Ds.Tables(0).Columns.Item(i).ColumnName
|
||||
Next
|
||||
|
||||
frmBarra.pbrAvance.Value += 1
|
||||
|
||||
contR = contR + 1
|
||||
contC = 0
|
||||
|
||||
For Each r As DataRow In Ds.Tables(0).Rows
|
||||
For Each c As Object In r.ItemArray
|
||||
data(contR, contC) = c.ToString
|
||||
contC = contC + 1
|
||||
Next
|
||||
|
||||
contR = contR + 1
|
||||
contC = 0
|
||||
|
||||
frmBarra.Text = "Exportando a Excel: " & CInt((contR * 100) / pbMax) & " %"
|
||||
frmBarra.pbrAvance.Value += 1
|
||||
Next
|
||||
|
||||
System.Windows.Forms.Application.DoEvents()
|
||||
|
||||
workbook.Worksheets(1).Range("A1:AB" & trows) = data
|
||||
|
||||
excelApp.Sheets(1).Range("A1:AB1").Font.Bold = True
|
||||
excelApp.Sheets(1).Range("A1:AB1").BorderAround(ColorIndex:=0, Weight:=XlBorderWeight.xlThin)
|
||||
|
||||
excelApp.Sheets(1).Columns.AutoFit()
|
||||
excelApp.Sheets(1).Activate
|
||||
|
||||
excelApp.Visible = True
|
||||
|
||||
frmBarra.Text = "Exportando a Excel: 100 %"
|
||||
frmBarra.pbrAvance.Value = frmBarra.pbrAvance.Maximum
|
||||
frmBarra.Close()
|
||||
|
||||
End If
|
||||
|
||||
Dim ClassUtils As New ClassMyUtils
|
||||
Dim sTextoAud As String
|
||||
sTextoAud = "Exporta a Excel Coincidencia Listas"
|
||||
ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
|
||||
|
||||
Catch ex As Exception
|
||||
frmBarra.Close()
|
||||
If excelApp IsNot Nothing Then
|
||||
excelApp.Workbooks().Close()
|
||||
excelApp.Quit()
|
||||
excelApp = Nothing
|
||||
End If
|
||||
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function ExportTo2Woook(ByVal Ds As System.Data.DataSet)
|
||||
'funcion que envia a excel una tabla de un dataset
|
||||
Dim workBook As Interop.Excel.Workbook
|
||||
Dim ConWs As Integer = 1
|
||||
Try
|
||||
'instanciamos la applicacion de excel
|
||||
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")
|
||||
excelApp = New Interop.Excel.Application
|
||||
'Creamos una hoja en el libro predeterminado
|
||||
workBook = excelApp.Workbooks.Add(Interop.Excel.XlWBATemplate.xlWBATWorksheet)
|
||||
Catch ex As Exception
|
||||
'se utiliza la version 10 de excel o XP
|
||||
MessageBox.Show("aExcel; ExportTo2: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
End Try
|
||||
'Declaramos una varible tipo hoja de trabajo
|
||||
Dim ws As Interop.Excel.Worksheet
|
||||
ws = CType(workBook.Worksheets(ConWs), Interop.Excel.Worksheet)
|
||||
|
||||
Dim Tbl As System.Data.DataTable
|
||||
For Each Tbl In Ds.Tables
|
||||
'recorre todas las tablas que contega el dataset, con esto determinanos cuantas hojas en excel
|
||||
If ConWs > 1 Then
|
||||
ws = CType(workBook.Worksheets.Add(, ws), Interop.Excel.Worksheet)
|
||||
End If
|
||||
'Llama a la funcion que exporta los datos
|
||||
|
||||
If Tbl.TableName = "ReporteJ14_1" Then
|
||||
Export2(Tbl, ws, "Resumen")
|
||||
|
||||
ElseIf Tbl.TableName = "ReporteJ14_2" Then
|
||||
Export2(Tbl, ws, "Análisis")
|
||||
Else
|
||||
Export2(Tbl, ws, Tbl.TableName)
|
||||
End If
|
||||
|
||||
ConWs += 1
|
||||
Next
|
||||
i += 1
|
||||
Next
|
||||
|
||||
|
||||
i += 1
|
||||
|
||||
'' Seleccionar todo el bloque desde A1 hasta D #de filas
|
||||
Dim objRango As Microsoft.Office.Interop.Excel.Range = objHojaExcel.Range("A4:" & Chr(nCol + 65) & (i - 1).ToString)
|
||||
|
||||
'' Selecionado todo el rango especificado
|
||||
objRango.Select()
|
||||
|
||||
'' Ajustamos el ancho de las columnas al ancho máximo del
|
||||
'' contenido de sus celdas
|
||||
objRango.Columns.AutoFit()
|
||||
|
||||
'' Asignar filtro por columna
|
||||
objRango.AutoFilter(1, , VisibleDropDown:=True)
|
||||
|
||||
'' Asignar un formato automatico
|
||||
objRango.AutoFormat(18, Alignment:=False)
|
||||
'' Seleccionamos el total general del reporte y asignamos
|
||||
'' font a negrita e italica
|
||||
objRango = objHojaExcel.Range("A" & i.ToString & ":z" & i.ToString)
|
||||
objRango.Select()
|
||||
objRango.Font.Bold = True
|
||||
objRango.Font.Italic = True
|
||||
|
||||
'' Crear un total general
|
||||
objHojaExcel.Cells(i, 1) = "Total de Registros "
|
||||
objHojaExcel.Cells(i, 3) = "=count(A6:a" & (i - 1).ToString & ")"
|
||||
|
||||
objHojaExcel = Nothing
|
||||
objLibroExcel = Nothing
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Problemas al exportar " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
End Try
|
||||
End Sub
|
||||
MessageBox.Show("Exportación completa", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
frmBarra.Close() 'Cerramos el form de la barra de pregreso
|
||||
'mostramos excel con la exportacion
|
||||
excelApp.Sheets(1).Select()
|
||||
excelApp.Sheets(1).Columns.AutoFit()
|
||||
excelApp.Visible = True
|
||||
''Selecciono la primera celda
|
||||
'ws.Cells(1, 1).select()
|
||||
'workBook.Close() 'Cierra el libro
|
||||
'excelApp.Quit() 'Sale de la aplicacion
|
||||
''System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")
|
||||
''Auditoria
|
||||
Dim ClassUtils As New ClassMyUtils
|
||||
Dim sTextoAud As String
|
||||
sTextoAud = "Exporta a Excel " & Titulo
|
||||
ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
|
||||
''Fin de auditoria
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
@ -99,7 +99,7 @@ Public Class clsComplejo
|
||||
ad.Fill(ds)
|
||||
Return ds
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Error en ClsComplejo; fdtDataSet: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
MessageBox.Show("Error en ClsComplejo; fdtDataSet: " & ex.Message & "-" & SQL, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
End Try
|
||||
sbCierraCn()
|
||||
End Function
|
||||
|
||||
114
Reportes/OperInuSinTran.designer.vb
generated
114
Reportes/OperInuSinTran.designer.vb
generated
@ -38,7 +38,9 @@ Partial Class OperInuSinTran
|
||||
Me.cmbLocalidad = New System.Windows.Forms.ComboBox()
|
||||
Me.Label26 = New System.Windows.Forms.Label()
|
||||
Me.txtCURP = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label25 = New System.Windows.Forms.Label()
|
||||
Me.cboCliente = New System.Windows.Forms.ComboBox()
|
||||
Me.cmbTipoPersona = New System.Windows.Forms.ComboBox()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.txtCPSucursal = New System.Windows.Forms.TextBox()
|
||||
@ -135,7 +137,7 @@ Partial Class OperInuSinTran
|
||||
Me.TabControl1.Location = New System.Drawing.Point(12, 64)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(722, 438)
|
||||
Me.TabControl1.Size = New System.Drawing.Size(722, 449)
|
||||
Me.TabControl1.TabIndex = 0
|
||||
'
|
||||
'TabPage1
|
||||
@ -144,7 +146,7 @@ Partial Class OperInuSinTran
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 24)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(714, 410)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(714, 421)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Persona a Reportar"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
@ -155,7 +157,9 @@ Partial Class OperInuSinTran
|
||||
Me.GroupBox1.Controls.Add(Me.cmbLocalidad)
|
||||
Me.GroupBox1.Controls.Add(Me.Label26)
|
||||
Me.GroupBox1.Controls.Add(Me.txtCURP)
|
||||
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||
Me.GroupBox1.Controls.Add(Me.Label25)
|
||||
Me.GroupBox1.Controls.Add(Me.cboCliente)
|
||||
Me.GroupBox1.Controls.Add(Me.cmbTipoPersona)
|
||||
Me.GroupBox1.Controls.Add(Me.Label24)
|
||||
Me.GroupBox1.Controls.Add(Me.txtCPSucursal)
|
||||
@ -183,9 +187,9 @@ Partial Class OperInuSinTran
|
||||
Me.GroupBox1.Controls.Add(Me.Label6)
|
||||
Me.GroupBox1.Controls.Add(Me.lblCurp)
|
||||
Me.GroupBox1.Controls.Add(Me.Label4)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(5, 6)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(5, 2)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(701, 397)
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(701, 414)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = False
|
||||
'
|
||||
@ -197,16 +201,16 @@ Partial Class OperInuSinTran
|
||||
Me.GroupBox3.Controls.Add(Me.lblMaterno)
|
||||
Me.GroupBox3.Controls.Add(Me.lblPaterno)
|
||||
Me.GroupBox3.Controls.Add(Me.txtApePaterno)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(6, 44)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(6, 64)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(689, 70)
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(689, 66)
|
||||
Me.GroupBox3.TabIndex = 406
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Datos Personales"
|
||||
'
|
||||
'txtApeMaterno
|
||||
'
|
||||
Me.txtApeMaterno.Location = New System.Drawing.Point(469, 45)
|
||||
Me.txtApeMaterno.Location = New System.Drawing.Point(469, 40)
|
||||
Me.txtApeMaterno.MaxLength = 20
|
||||
Me.txtApeMaterno.Name = "txtApeMaterno"
|
||||
Me.txtApeMaterno.Size = New System.Drawing.Size(214, 21)
|
||||
@ -234,7 +238,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.lblMaterno.AutoSize = True
|
||||
Me.lblMaterno.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblMaterno.Location = New System.Drawing.Point(363, 45)
|
||||
Me.lblMaterno.Location = New System.Drawing.Point(363, 40)
|
||||
Me.lblMaterno.Name = "lblMaterno"
|
||||
Me.lblMaterno.Size = New System.Drawing.Size(100, 15)
|
||||
Me.lblMaterno.TabIndex = 4
|
||||
@ -243,7 +247,7 @@ Partial Class OperInuSinTran
|
||||
'lblPaterno
|
||||
'
|
||||
Me.lblPaterno.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblPaterno.Location = New System.Drawing.Point(6, 45)
|
||||
Me.lblPaterno.Location = New System.Drawing.Point(6, 40)
|
||||
Me.lblPaterno.Name = "lblPaterno"
|
||||
Me.lblPaterno.Size = New System.Drawing.Size(103, 19)
|
||||
Me.lblPaterno.TabIndex = 2
|
||||
@ -251,7 +255,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
'txtApePaterno
|
||||
'
|
||||
Me.txtApePaterno.Location = New System.Drawing.Point(112, 45)
|
||||
Me.txtApePaterno.Location = New System.Drawing.Point(112, 40)
|
||||
Me.txtApePaterno.MaxLength = 60
|
||||
Me.txtApePaterno.Name = "txtApePaterno"
|
||||
Me.txtApePaterno.Size = New System.Drawing.Size(245, 21)
|
||||
@ -263,7 +267,7 @@ Partial Class OperInuSinTran
|
||||
Me.cmbLocalidad.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbLocalidad.DropDownWidth = 700
|
||||
Me.cmbLocalidad.FormattingEnabled = True
|
||||
Me.cmbLocalidad.Location = New System.Drawing.Point(121, 279)
|
||||
Me.cmbLocalidad.Location = New System.Drawing.Point(121, 294)
|
||||
Me.cmbLocalidad.Name = "cmbLocalidad"
|
||||
Me.cmbLocalidad.Size = New System.Drawing.Size(568, 23)
|
||||
Me.cmbLocalidad.TabIndex = 41
|
||||
@ -272,7 +276,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label26.AutoSize = True
|
||||
Me.Label26.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label26.Location = New System.Drawing.Point(12, 278)
|
||||
Me.Label26.Location = New System.Drawing.Point(11, 293)
|
||||
Me.Label26.Name = "Label26"
|
||||
Me.Label26.Size = New System.Drawing.Size(61, 15)
|
||||
Me.Label26.TabIndex = 40
|
||||
@ -280,28 +284,48 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
'txtCURP
|
||||
'
|
||||
Me.txtCURP.Location = New System.Drawing.Point(475, 120)
|
||||
Me.txtCURP.Location = New System.Drawing.Point(475, 137)
|
||||
Me.txtCURP.MaxLength = 20
|
||||
Me.txtCURP.Name = "txtCURP"
|
||||
Me.txtCURP.Size = New System.Drawing.Size(214, 21)
|
||||
Me.txtCURP.TabIndex = 39
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(45, 15)
|
||||
Me.Label1.TabIndex = 38
|
||||
Me.Label1.Text = "Cliente"
|
||||
'
|
||||
'Label25
|
||||
'
|
||||
Me.Label25.AutoSize = True
|
||||
Me.Label25.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label25.Location = New System.Drawing.Point(11, 18)
|
||||
Me.Label25.Location = New System.Drawing.Point(11, 43)
|
||||
Me.Label25.Name = "Label25"
|
||||
Me.Label25.Size = New System.Drawing.Size(80, 15)
|
||||
Me.Label25.TabIndex = 38
|
||||
Me.Label25.Text = "Tipo Persona"
|
||||
'
|
||||
'cboCliente
|
||||
'
|
||||
Me.cboCliente.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboCliente.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboCliente.FormattingEnabled = True
|
||||
Me.cboCliente.Location = New System.Drawing.Point(121, 12)
|
||||
Me.cboCliente.Name = "cboCliente"
|
||||
Me.cboCliente.Size = New System.Drawing.Size(568, 23)
|
||||
Me.cboCliente.TabIndex = 37
|
||||
'
|
||||
'cmbTipoPersona
|
||||
'
|
||||
Me.cmbTipoPersona.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cmbTipoPersona.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbTipoPersona.FormattingEnabled = True
|
||||
Me.cmbTipoPersona.Location = New System.Drawing.Point(121, 15)
|
||||
Me.cmbTipoPersona.Location = New System.Drawing.Point(121, 41)
|
||||
Me.cmbTipoPersona.Name = "cmbTipoPersona"
|
||||
Me.cmbTipoPersona.Size = New System.Drawing.Size(242, 23)
|
||||
Me.cmbTipoPersona.TabIndex = 37
|
||||
@ -309,7 +333,7 @@ Partial Class OperInuSinTran
|
||||
'Label24
|
||||
'
|
||||
Me.Label24.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label24.Location = New System.Drawing.Point(388, 358)
|
||||
Me.Label24.Location = New System.Drawing.Point(388, 373)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(104, 36)
|
||||
Me.Label24.TabIndex = 36
|
||||
@ -317,7 +341,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
'txtCPSucursal
|
||||
'
|
||||
Me.txtCPSucursal.Location = New System.Drawing.Point(498, 368)
|
||||
Me.txtCPSucursal.Location = New System.Drawing.Point(498, 383)
|
||||
Me.txtCPSucursal.MaxLength = 5
|
||||
Me.txtCPSucursal.Name = "txtCPSucursal"
|
||||
Me.txtCPSucursal.Size = New System.Drawing.Size(191, 21)
|
||||
@ -328,7 +352,7 @@ Partial Class OperInuSinTran
|
||||
Me.cboSucursal.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboSucursal.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboSucursal.FormattingEnabled = True
|
||||
Me.cboSucursal.Location = New System.Drawing.Point(121, 368)
|
||||
Me.cboSucursal.Location = New System.Drawing.Point(121, 383)
|
||||
Me.cboSucursal.Name = "cboSucursal"
|
||||
Me.cboSucursal.Size = New System.Drawing.Size(247, 23)
|
||||
Me.cboSucursal.TabIndex = 34
|
||||
@ -336,7 +360,7 @@ Partial Class OperInuSinTran
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label23.Location = New System.Drawing.Point(11, 368)
|
||||
Me.Label23.Location = New System.Drawing.Point(11, 383)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(84, 21)
|
||||
Me.Label23.TabIndex = 33
|
||||
@ -347,7 +371,7 @@ Partial Class OperInuSinTran
|
||||
Me.cboNacionalidad.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboNacionalidad.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboNacionalidad.FormattingEnabled = True
|
||||
Me.cboNacionalidad.Location = New System.Drawing.Point(498, 337)
|
||||
Me.cboNacionalidad.Location = New System.Drawing.Point(498, 352)
|
||||
Me.cboNacionalidad.Name = "cboNacionalidad"
|
||||
Me.cboNacionalidad.Size = New System.Drawing.Size(191, 23)
|
||||
Me.cboNacionalidad.TabIndex = 32
|
||||
@ -355,7 +379,7 @@ Partial Class OperInuSinTran
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label15.Location = New System.Drawing.Point(385, 342)
|
||||
Me.Label15.Location = New System.Drawing.Point(385, 357)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(84, 21)
|
||||
Me.Label15.TabIndex = 31
|
||||
@ -364,7 +388,7 @@ Partial Class OperInuSinTran
|
||||
'dtpFechaOper
|
||||
'
|
||||
Me.dtpFechaOper.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtpFechaOper.Location = New System.Drawing.Point(121, 337)
|
||||
Me.dtpFechaOper.Location = New System.Drawing.Point(121, 352)
|
||||
Me.dtpFechaOper.Name = "dtpFechaOper"
|
||||
Me.dtpFechaOper.Size = New System.Drawing.Size(247, 21)
|
||||
Me.dtpFechaOper.TabIndex = 30
|
||||
@ -372,7 +396,7 @@ Partial Class OperInuSinTran
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label14.Location = New System.Drawing.Point(11, 342)
|
||||
Me.Label14.Location = New System.Drawing.Point(11, 357)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(107, 21)
|
||||
Me.Label14.TabIndex = 29
|
||||
@ -381,7 +405,7 @@ Partial Class OperInuSinTran
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label13.Location = New System.Drawing.Point(12, 173)
|
||||
Me.Label13.Location = New System.Drawing.Point(11, 188)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(489, 20)
|
||||
Me.Label13.TabIndex = 12
|
||||
@ -394,14 +418,14 @@ Partial Class OperInuSinTran
|
||||
Me.cmbActEconom.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbActEconom.DropDownWidth = 700
|
||||
Me.cmbActEconom.FormattingEnabled = True
|
||||
Me.cmbActEconom.Location = New System.Drawing.Point(121, 308)
|
||||
Me.cmbActEconom.Location = New System.Drawing.Point(121, 323)
|
||||
Me.cmbActEconom.Name = "cmbActEconom"
|
||||
Me.cmbActEconom.Size = New System.Drawing.Size(568, 23)
|
||||
Me.cmbActEconom.TabIndex = 24
|
||||
'
|
||||
'txtTelefono
|
||||
'
|
||||
Me.txtTelefono.Location = New System.Drawing.Point(121, 250)
|
||||
Me.txtTelefono.Location = New System.Drawing.Point(121, 265)
|
||||
Me.txtTelefono.MaxLength = 40
|
||||
Me.txtTelefono.Name = "txtTelefono"
|
||||
Me.txtTelefono.Size = New System.Drawing.Size(242, 21)
|
||||
@ -412,7 +436,7 @@ Partial Class OperInuSinTran
|
||||
Me.cmbPlaza.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cmbPlaza.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbPlaza.FormattingEnabled = True
|
||||
Me.cmbPlaza.Location = New System.Drawing.Point(536, 20)
|
||||
Me.cmbPlaza.Location = New System.Drawing.Point(660, 16)
|
||||
Me.cmbPlaza.Name = "cmbPlaza"
|
||||
Me.cmbPlaza.Size = New System.Drawing.Size(41, 23)
|
||||
Me.cmbPlaza.TabIndex = 20
|
||||
@ -423,7 +447,7 @@ Partial Class OperInuSinTran
|
||||
Me.cmbEstado.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cmbEstado.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbEstado.FormattingEnabled = True
|
||||
Me.cmbEstado.Location = New System.Drawing.Point(449, 222)
|
||||
Me.cmbEstado.Location = New System.Drawing.Point(449, 237)
|
||||
Me.cmbEstado.Name = "cmbEstado"
|
||||
Me.cmbEstado.Size = New System.Drawing.Size(240, 23)
|
||||
Me.cmbEstado.TabIndex = 18
|
||||
@ -432,7 +456,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label12.Location = New System.Drawing.Point(388, 224)
|
||||
Me.Label12.Location = New System.Drawing.Point(388, 239)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(45, 15)
|
||||
Me.Label12.TabIndex = 17
|
||||
@ -440,7 +464,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
'txtColonia
|
||||
'
|
||||
Me.txtColonia.Location = New System.Drawing.Point(121, 222)
|
||||
Me.txtColonia.Location = New System.Drawing.Point(121, 237)
|
||||
Me.txtColonia.MaxLength = 30
|
||||
Me.txtColonia.Name = "txtColonia"
|
||||
Me.txtColonia.Size = New System.Drawing.Size(242, 21)
|
||||
@ -448,7 +472,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
'txtDomicilio
|
||||
'
|
||||
Me.txtDomicilio.Location = New System.Drawing.Point(122, 195)
|
||||
Me.txtDomicilio.Location = New System.Drawing.Point(122, 210)
|
||||
Me.txtDomicilio.MaxLength = 60
|
||||
Me.txtDomicilio.Name = "txtDomicilio"
|
||||
Me.txtDomicilio.Size = New System.Drawing.Size(567, 21)
|
||||
@ -457,14 +481,14 @@ Partial Class OperInuSinTran
|
||||
'dtpFechaNac
|
||||
'
|
||||
Me.dtpFechaNac.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtpFechaNac.Location = New System.Drawing.Point(118, 149)
|
||||
Me.dtpFechaNac.Location = New System.Drawing.Point(118, 164)
|
||||
Me.dtpFechaNac.Name = "dtpFechaNac"
|
||||
Me.dtpFechaNac.Size = New System.Drawing.Size(129, 21)
|
||||
Me.dtpFechaNac.TabIndex = 11
|
||||
'
|
||||
'txtRFC
|
||||
'
|
||||
Me.txtRFC.Location = New System.Drawing.Point(118, 119)
|
||||
Me.txtRFC.Location = New System.Drawing.Point(118, 136)
|
||||
Me.txtRFC.MaxLength = 20
|
||||
Me.txtRFC.Name = "txtRFC"
|
||||
Me.txtRFC.Size = New System.Drawing.Size(245, 21)
|
||||
@ -473,7 +497,7 @@ Partial Class OperInuSinTran
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label11.Location = New System.Drawing.Point(11, 308)
|
||||
Me.Label11.Location = New System.Drawing.Point(11, 323)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(93, 34)
|
||||
Me.Label11.TabIndex = 23
|
||||
@ -483,7 +507,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label10.Location = New System.Drawing.Point(12, 250)
|
||||
Me.Label10.Location = New System.Drawing.Point(11, 265)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(55, 15)
|
||||
Me.Label10.TabIndex = 21
|
||||
@ -493,7 +517,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label9.Location = New System.Drawing.Point(426, 19)
|
||||
Me.Label9.Location = New System.Drawing.Point(643, 13)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(46, 15)
|
||||
Me.Label9.TabIndex = 19
|
||||
@ -504,7 +528,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label8.Location = New System.Drawing.Point(11, 222)
|
||||
Me.Label8.Location = New System.Drawing.Point(11, 237)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(49, 15)
|
||||
Me.Label8.TabIndex = 15
|
||||
@ -514,7 +538,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label7.Location = New System.Drawing.Point(11, 197)
|
||||
Me.Label7.Location = New System.Drawing.Point(11, 212)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(59, 15)
|
||||
Me.Label7.TabIndex = 13
|
||||
@ -523,7 +547,7 @@ Partial Class OperInuSinTran
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label6.Location = New System.Drawing.Point(12, 151)
|
||||
Me.Label6.Location = New System.Drawing.Point(11, 166)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(117, 20)
|
||||
Me.Label6.TabIndex = 10
|
||||
@ -533,7 +557,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.lblCurp.AutoSize = True
|
||||
Me.lblCurp.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblCurp.Location = New System.Drawing.Point(369, 123)
|
||||
Me.lblCurp.Location = New System.Drawing.Point(369, 140)
|
||||
Me.lblCurp.Name = "lblCurp"
|
||||
Me.lblCurp.Size = New System.Drawing.Size(41, 15)
|
||||
Me.lblCurp.TabIndex = 8
|
||||
@ -543,7 +567,7 @@ Partial Class OperInuSinTran
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 123)
|
||||
Me.Label4.Location = New System.Drawing.Point(11, 140)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(31, 15)
|
||||
Me.Label4.TabIndex = 6
|
||||
@ -555,7 +579,7 @@ Partial Class OperInuSinTran
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 24)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(714, 410)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(714, 421)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Datos Complementarios"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
@ -813,14 +837,14 @@ Partial Class OperInuSinTran
|
||||
Me.DataGrid1.FilterBar = True
|
||||
Me.DataGrid1.GroupByCaption = "AGRUPAR"
|
||||
Me.DataGrid1.Images.Add(CType(resources.GetObject("DataGrid1.Images"), System.Drawing.Image))
|
||||
Me.DataGrid1.Location = New System.Drawing.Point(12, 508)
|
||||
Me.DataGrid1.Location = New System.Drawing.Point(12, 514)
|
||||
Me.DataGrid1.Name = "DataGrid1"
|
||||
Me.DataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DataGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.DataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("DataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DataGrid1.RowHeight = 15
|
||||
Me.DataGrid1.Size = New System.Drawing.Size(718, 126)
|
||||
Me.DataGrid1.Size = New System.Drawing.Size(718, 120)
|
||||
Me.DataGrid1.TabIndex = 405
|
||||
Me.DataGrid1.Text = "C1TrueDBGrid1"
|
||||
Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag")
|
||||
@ -935,4 +959,6 @@ Partial Class OperInuSinTran
|
||||
Friend WithEvents lblPaterno As Label
|
||||
Friend WithEvents txtApePaterno As TextBox
|
||||
Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents cboCliente As ComboBox
|
||||
End Class
|
||||
|
||||
@ -155,7 +155,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="DataGrid1.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>122</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 714, 122</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 714, 122</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>116</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 714, 116</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 714, 116</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@ -55,6 +55,14 @@ Public Class OperInuSinTran
|
||||
cargarCbo.sbLlenaCombo("select IDTIPOPERSONA clave, TIPOPERSONA nombre FROM CAT_TIPOPERSONA where activo = 1", cmbTipoPersona)
|
||||
cmbTipoPersona.SelectedIndex = -1
|
||||
|
||||
|
||||
cargarCbo = Nothing
|
||||
cargarCbo = New clsComplejo
|
||||
cargarCbo.sbLlenaCombo("SP_ConsultaClientes ", cboCliente)
|
||||
cboCliente.SelectedIndex = -1
|
||||
|
||||
|
||||
|
||||
'BtnLimpiar.PerformClick()
|
||||
ActualizaGrid()
|
||||
cargarSucursal()
|
||||
@ -674,6 +682,10 @@ Public Class OperInuSinTran
|
||||
cboSucursal.SelectedValue = -1
|
||||
txtCPSucursal.Text = ""
|
||||
|
||||
cboCliente.SelectedValue = -1
|
||||
cmbTipoPersona.SelectedValue = -1
|
||||
|
||||
|
||||
DesBloqueaCtrls()
|
||||
|
||||
btnRelacionadas.Enabled = False
|
||||
@ -882,8 +894,8 @@ Public Class OperInuSinTran
|
||||
lblNombre.Text = "Denominación o Razon Social"
|
||||
End If
|
||||
lblCurp.Visible = False
|
||||
txtCURP.Visible = False
|
||||
txtApePaterno.Visible = False
|
||||
txtCURP.Visible = False
|
||||
txtApePaterno.Visible = False
|
||||
txtApeMaterno.Visible = False
|
||||
lblPaterno.Visible = False
|
||||
lblMaterno.Visible = False
|
||||
@ -895,12 +907,12 @@ Public Class OperInuSinTran
|
||||
lblNombre.Size = New Size(165, 15)
|
||||
|
||||
End If
|
||||
If cmbTipoPersona.SelectedValue = 2 Then
|
||||
'Persona Fisica
|
||||
'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue
|
||||
lblNombre.Text = "Nombre "
|
||||
lblCurp.Visible = True
|
||||
txtCURP.Visible = True
|
||||
If cmbTipoPersona.SelectedValue = 2 Then
|
||||
'Persona Fisica
|
||||
'cmbTipoPersona.SelectedValue = cmbTipoPersona.SelectedValue
|
||||
lblNombre.Text = "Nombre "
|
||||
lblCurp.Visible = True
|
||||
txtCURP.Visible = True
|
||||
txtApePaterno.Visible = True
|
||||
lblPaterno.Visible = True
|
||||
lblMaterno.Visible = True
|
||||
@ -914,6 +926,10 @@ Public Class OperInuSinTran
|
||||
End Sub
|
||||
|
||||
Private Sub cmbEstado_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbEstado.SelectionChangeCommitted
|
||||
cargarPlazaIdEstado()
|
||||
End Sub
|
||||
|
||||
Private Sub cargarPlazaIdEstado()
|
||||
Dim cargarCbo As New clsComplejo
|
||||
Dim sSQL As String
|
||||
cargarCbo = Nothing
|
||||
@ -1076,4 +1092,66 @@ Public Class OperInuSinTran
|
||||
Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboCliente_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboCliente.SelectionChangeCommitted
|
||||
|
||||
|
||||
|
||||
If txtNombre.TextLength > 0 Then
|
||||
|
||||
If MsgBox("¿Desea agregar la información del cliente selecccionado?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + vbDefaultButton2, "Minds") = MsgBoxResult.Yes Then
|
||||
ObtenerDatosClienteDomicilio(cboCliente.SelectedValue)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Else
|
||||
ObtenerDatosClienteDomicilio(cboCliente.SelectedValue)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'SP_ConsultaClienteID
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ObtenerDatosClienteDomicilio(idcliente As Integer)
|
||||
Dim dt As New DataTable
|
||||
|
||||
Dim consulta As New clsComplejo
|
||||
dt = consulta.fdtDataTable("SP_ConsultaClienteID " & idcliente)
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
cmbTipoPersona.SelectedValue = dt.Rows(0)("IDTIPOPERSONA")
|
||||
txtNombre.Text = dt.Rows(0)("NOMBREORAZONS").ToString()
|
||||
txtApePaterno.Text = dt.Rows(0)("APATERNO").ToString()
|
||||
txtApeMaterno.Text = dt.Rows(0)("AMATERNO").ToString()
|
||||
txtRFC.Text = dt.Rows(0)("RFC").ToString()
|
||||
txtCURP.Text = dt.Rows(0)("CURP").ToString()
|
||||
|
||||
|
||||
If dt.Rows(0)("FECHANACCONSTITUCION").ToString <> "" Then
|
||||
dtpFechaNac.Value = Date.Parse(dt.Rows(0)("FECHANACCONSTITUCION").ToString())
|
||||
End If
|
||||
|
||||
|
||||
txtDomicilio.Text = dt.Rows(0)("CALLE").ToString() & " " & dt.Rows(0)("NUMEROEXT").ToString() & " " & dt.Rows(0)("NUMEROINT").ToString()
|
||||
txtColonia.Text = dt.Rows(0)("COLONIA").ToString()
|
||||
cmbEstado.SelectedValue = dt.Rows(0)("IDESTADO")
|
||||
|
||||
If cmbEstado.SelectedIndex >= 0 Then cargarPlazaIdEstado()
|
||||
|
||||
txtTelefono.Text = dt.Rows(0)("TELEFONO").ToString()
|
||||
cmbLocalidad.SelectedValue = dt.Rows(0)("IDPLAZA").ToString()
|
||||
cmbActEconom.SelectedValue = dt.Rows(0)("IDACTIVIDADECONOMICA")
|
||||
cboNacionalidad.SelectedValue = dt.Rows(0)("IDNACIONALIDAD")
|
||||
cboSucursal.SelectedValue = dt.Rows(0)("IDSUCURSAL")
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
816
Reportes/frmEBR.Designer.vb
generated
816
Reportes/frmEBR.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@ -1031,7 +1031,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>60</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 769, 60</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 769, 60</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>60</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 769, 60</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 769, 60</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@ -89,33 +89,45 @@ Public Class frmEBR
|
||||
Chart1.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(0))
|
||||
Chart1.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(1))
|
||||
Chart1.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(2))
|
||||
|
||||
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
|
||||
|
||||
|
||||
Chart2.Series.Clear()
|
||||
Chart2.Series.Add("Tipo de Cliente")
|
||||
Chart2.Series(0).IsValueShownAsLabel = True
|
||||
Chart2.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(3))
|
||||
Chart2.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4))
|
||||
Chart2.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(5))
|
||||
Chart2.Series(0).Points.AddXY("Física", dsGral.Tables(2).Rows(0)(3))
|
||||
Chart2.Series(0).Points.AddXY("Moral", dsGral.Tables(2).Rows(0)(4))
|
||||
Chart2.Series(0).Points.AddXY("Fideicomiso", dsGral.Tables(2).Rows(0)(5))
|
||||
Chart2.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
|
||||
|
||||
|
||||
Chart3.Series.Clear()
|
||||
Chart3.Series.Add("PEP")
|
||||
Chart3.Series(0).IsValueShownAsLabel = True
|
||||
Chart3.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(7))
|
||||
'Chart3.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(4))
|
||||
Chart3.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(6))
|
||||
|
||||
|
||||
Chart3.Series(0).Points.AddXY("Pep", dsGral.Tables(2).Rows(0)(6))
|
||||
Chart3.Series(0).Points.AddXY("Otras", dsGral.Tables(2).Rows(0)(7))
|
||||
Chart3.Series(0).Points.AddXY("Niguna Lista", dsGral.Tables(8).Rows(0)(3))
|
||||
|
||||
|
||||
'Chart3.Series(0).Points.AddXY("Pep", dsGral.Tables(2).Rows(0)(6))
|
||||
'Chart3.Series(0).Points.AddXY("Otras", dsGral.Tables(2).Rows(0)(7))
|
||||
'Chart3.Series(0).Points.AddXY("Niguna Lista", dsGral.Tables(8).Rows(0)(3))
|
||||
|
||||
'Chart3.ChartAreas("PEP").Area3DStyle.Rotation = 90
|
||||
|
||||
'If dsGral.Tables(2).Rows(0)(6) <> 0 Then Chart3.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(6))
|
||||
Chart3.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
|
||||
|
||||
|
||||
Chart4.Series.Clear()
|
||||
Chart4.Series.Add("Servicio de inversión Asesorado y No Asesorado")
|
||||
Chart4.Series(0).IsValueShownAsLabel = True
|
||||
Chart4.Series(0).Points.AddXY("Bajo", dsGral.Tables(2).Rows(0)(9))
|
||||
Chart4.Series(0).Points.AddXY("No Asesorado", dsGral.Tables(2).Rows(0)(9))
|
||||
'Chart4.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(9))
|
||||
Chart4.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(8))
|
||||
Chart4.Series(0).Points.AddXY("Asesorado", dsGral.Tables(2).Rows(0)(8))
|
||||
Chart4.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
|
||||
|
||||
|
||||
@ -151,10 +163,14 @@ Public Class frmEBR
|
||||
Chart8.Series.Add("Canales de envío")
|
||||
Chart8.Series(0).IsValueShownAsLabel = True
|
||||
Chart8.Series(0).Points.AddXY("Bajo", 100)
|
||||
'Chart8.Series(0).Points.AddXY("Medio", dsGral.Tables(2).Rows(0)(14))
|
||||
'Chart8.Series(0).Points.AddXY("Alto", dsGral.Tables(2).Rows(0)(15))
|
||||
Chart8.Series(0).Points.AddXY("Medio", 0)
|
||||
Chart8.Series(0).Points.AddXY("Alto", 0)
|
||||
Chart8.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Doughnut
|
||||
|
||||
Label103.Text = "BAJO: " & dsGral.Tables(16).Rows(0)(0)
|
||||
Label49.Text = "Total canales envío: " & dsGral.Tables(16).Rows(0)(0)
|
||||
|
||||
|
||||
cmbAML.SelectedValue = dsGral.Tables(4).Rows(0)("ID_CE_SCALE")
|
||||
ComboBox1.SelectedValue = dsGral.Tables(4).Rows(1)("ID_CE_SCALE")
|
||||
ComboBox2.SelectedValue = dsGral.Tables(4).Rows(2)("ID_CE_SCALE")
|
||||
@ -222,6 +238,10 @@ Public Class frmEBR
|
||||
Label38.Text = dsGral.Tables(7).Rows(2)(0)
|
||||
|
||||
Label40.Text = dsGral.Tables(8).Rows(0)(0)
|
||||
Label102.Text = dsGral.Tables(8).Rows(0)(1)
|
||||
Label106.Text = dsGral.Tables(8).Rows(0)(2)
|
||||
|
||||
|
||||
|
||||
Label32.Text = dsGral.Tables(9).Rows(0)(0)
|
||||
Label41.Text = dsGral.Tables(9).Rows(1)(0)
|
||||
@ -237,9 +257,9 @@ Public Class frmEBR
|
||||
Label33.Text = "Lugares de Operacion: " & dsGral.Tables(14).Rows(0)(0)
|
||||
dtO = dsGral.Tables(15)
|
||||
|
||||
Label96.Text = dsGral.Tables(16).Rows(0)(0)
|
||||
Label97.Text = dsGral.Tables(16).Rows(0)(0)
|
||||
Label100.Text = dsGral.Tables(16).Rows(0)(0)
|
||||
Label96.Text = "TOTAL DE CLIENTES CON RIESGO: " & dsGral.Tables(16).Rows(0)(0)
|
||||
Label97.Text = dsGral.Tables(19).Rows(0)(0)
|
||||
Label100.Text = "TOTAL DE CLIENTES CON RIESGO:" & dsGral.Tables(16).Rows(0)(0)
|
||||
|
||||
Label101.Text = dsGral.Tables(17).Rows(0)(0)
|
||||
|
||||
@ -427,8 +447,17 @@ Public Class frmEBR
|
||||
Dim nameImg As String = DateTime.Now.ToString("HHmmss") & DateTime.Now.Millisecond
|
||||
TabControl1.Refresh()
|
||||
Threading.Thread.Sleep(500)
|
||||
|
||||
Dim screenSize As Size = New Size(GroupBox14.Width, GroupBox14.Height)
|
||||
Dim screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height)
|
||||
'Dim screenGrab As New Bitmap(GroupBox14.Width, GroupBox14.Height)
|
||||
|
||||
Dim screenGrab As Drawing.Image
|
||||
If Screen.PrimaryScreen.Bounds.Width > 1500 Then
|
||||
screenGrab = New Bitmap(GroupBox14.Width - 58, GroupBox14.Height)
|
||||
Else
|
||||
screenGrab = New Bitmap(GroupBox14.Width, GroupBox14.Height)
|
||||
End If
|
||||
|
||||
Dim g As Graphics = Graphics.FromImage(screenGrab)
|
||||
g.CopyFromScreen(Me.PointToScreen(New Point(22, 40)), Point.Empty, GroupBox14.ClientSize)
|
||||
screenGrab.Save(ruta & nameImg & ".jpg", ImageFormat.Jpeg)
|
||||
@ -437,9 +466,14 @@ Public Class frmEBR
|
||||
End Function
|
||||
|
||||
Private Sub guardarExpEbr()
|
||||
|
||||
Dim fws As FormWindowState
|
||||
|
||||
Dim listaImg As New List(Of String)
|
||||
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
fws = Me.WindowState
|
||||
|
||||
Me.WindowState = FormWindowState.Normal
|
||||
|
||||
Dim doc As New Document(PageSize.A4, 30, 30, 30, 30)
|
||||
Dim root As String = Path.GetTempPath & "EBR_" & DateTime.Now.ToString("HHmmss") & ".pdf"
|
||||
@ -716,7 +750,8 @@ Public Class frmEBR
|
||||
img = Image.GetInstance(fileImg)
|
||||
img.Alignment = 1
|
||||
img.BorderWidth = 100
|
||||
img.ScalePercent(50)
|
||||
'img.ScalePercent(50)
|
||||
img.ScalePercent(25)
|
||||
img.ScaleAbsolute(450, 350)
|
||||
doc.Add(img)
|
||||
listaImg.Add(fileImg)
|
||||
@ -727,12 +762,15 @@ Public Class frmEBR
|
||||
|
||||
deleImg(listaImg)
|
||||
|
||||
Me.WindowState = fws
|
||||
|
||||
If (MessageBox.Show("¿Desa abrir el archivo? " & Environment.NewLine & " (Se requiere tener instalado un visor pdf para abrir el archivo). ", "Exportación EBR", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
|
||||
Try
|
||||
|
||||
Process.Start(root)
|
||||
|
||||
Catch ex As Exception
|
||||
Me.WindowState = fws
|
||||
MsgBox("No cuenta con visor pdf." & Environment.NewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
@ -754,5 +792,11 @@ Public Class frmEBR
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rg1_Click(sender As Object, e As EventArgs) Handles rg1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Label42_Click(sender As Object, e As EventArgs) Handles Label42.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@ -119,7 +119,7 @@ Public Class frmReporteJ13
|
||||
End Sub
|
||||
|
||||
Private Sub btnExportarXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click
|
||||
Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313.txt"
|
||||
Dim fileName As String = year.ToString + "_" + semester.ToString + "_ R03 J-0313"
|
||||
Dim fullPath As String = fileName
|
||||
Dim clsExcel As aExcel
|
||||
Dim ds As New DataSet
|
||||
|
||||
195
Reportes/frmReporteJ14.Designer.vb
generated
195
Reportes/frmReporteJ14.Designer.vb
generated
@ -22,6 +22,7 @@ Partial Class frmReporteJ14
|
||||
'No lo modifique con el editor de código.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReporteJ14))
|
||||
Me.btnExport = New System.Windows.Forms.Button()
|
||||
Me.btnSearch = New System.Windows.Forms.Button()
|
||||
Me.dgvResult = New System.Windows.Forms.DataGridView()
|
||||
@ -33,10 +34,25 @@ Partial Class frmReporteJ14
|
||||
Me.lblFooter = New System.Windows.Forms.Label()
|
||||
Me.panel3 = New System.Windows.Forms.Panel()
|
||||
Me.btnExportXLS = New System.Windows.Forms.Button()
|
||||
Me.btnGuardar = New System.Windows.Forms.Button()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cmbPeriodoAnalisis = New System.Windows.Forms.ComboBox()
|
||||
Me.btnBuscarAnalisis = New System.Windows.Forms.Button()
|
||||
Me.dgvAnalisis = New System.Windows.Forms.DataGridView()
|
||||
Me.dgvResumen = New System.Windows.Forms.DataGridView()
|
||||
Me.btnExportarAnalisis = New System.Windows.Forms.Button()
|
||||
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.panel2.SuspendLayout()
|
||||
Me.panel3.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
CType(Me.dgvAnalisis, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvResumen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btnExport
|
||||
@ -44,9 +60,9 @@ Partial Class frmReporteJ14
|
||||
Me.btnExport.BackColor = System.Drawing.Color.Black
|
||||
Me.btnExport.Enabled = False
|
||||
Me.btnExport.ForeColor = System.Drawing.Color.White
|
||||
Me.btnExport.Location = New System.Drawing.Point(366, 64)
|
||||
Me.btnExport.Location = New System.Drawing.Point(479, 12)
|
||||
Me.btnExport.Name = "btnExport"
|
||||
Me.btnExport.Size = New System.Drawing.Size(83, 25)
|
||||
Me.btnExport.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnExport.TabIndex = 9
|
||||
Me.btnExport.Text = "Generar"
|
||||
Me.btnExport.UseVisualStyleBackColor = False
|
||||
@ -56,9 +72,9 @@ Partial Class frmReporteJ14
|
||||
'
|
||||
Me.btnSearch.BackColor = System.Drawing.Color.Black
|
||||
Me.btnSearch.ForeColor = System.Drawing.Color.White
|
||||
Me.btnSearch.Location = New System.Drawing.Point(266, 64)
|
||||
Me.btnSearch.Location = New System.Drawing.Point(289, 12)
|
||||
Me.btnSearch.Name = "btnSearch"
|
||||
Me.btnSearch.Size = New System.Drawing.Size(83, 25)
|
||||
Me.btnSearch.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnSearch.TabIndex = 8
|
||||
Me.btnSearch.Text = "Buscar"
|
||||
Me.btnSearch.UseVisualStyleBackColor = False
|
||||
@ -73,16 +89,16 @@ Partial Class frmReporteJ14
|
||||
Me.dgvResult.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvResult.EditMode = System.Windows.Forms.DataGridViewEditMode.EditProgrammatically
|
||||
Me.dgvResult.Location = New System.Drawing.Point(12, 101)
|
||||
Me.dgvResult.Location = New System.Drawing.Point(6, 58)
|
||||
Me.dgvResult.Name = "dgvResult"
|
||||
Me.dgvResult.Size = New System.Drawing.Size(660, 328)
|
||||
Me.dgvResult.Size = New System.Drawing.Size(662, 289)
|
||||
Me.dgvResult.TabIndex = 7
|
||||
'
|
||||
'cmbQuarter
|
||||
'
|
||||
Me.cmbQuarter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbQuarter.FormattingEnabled = True
|
||||
Me.cmbQuarter.Location = New System.Drawing.Point(70, 67)
|
||||
Me.cmbQuarter.Location = New System.Drawing.Point(79, 20)
|
||||
Me.cmbQuarter.Name = "cmbQuarter"
|
||||
Me.cmbQuarter.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cmbQuarter.TabIndex = 6
|
||||
@ -90,10 +106,11 @@ Partial Class frmReporteJ14
|
||||
'lblQuarter
|
||||
'
|
||||
Me.lblQuarter.AutoSize = True
|
||||
Me.lblQuarter.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblQuarter.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.lblQuarter.Location = New System.Drawing.Point(13, 70)
|
||||
Me.lblQuarter.Location = New System.Drawing.Point(13, 21)
|
||||
Me.lblQuarter.Name = "lblQuarter"
|
||||
Me.lblQuarter.Size = New System.Drawing.Size(50, 13)
|
||||
Me.lblQuarter.Size = New System.Drawing.Size(59, 15)
|
||||
Me.lblQuarter.TabIndex = 5
|
||||
Me.lblQuarter.Text = "Trimestre"
|
||||
'
|
||||
@ -163,28 +180,154 @@ Partial Class frmReporteJ14
|
||||
Me.btnExportXLS.BackColor = System.Drawing.Color.Black
|
||||
Me.btnExportXLS.Enabled = False
|
||||
Me.btnExportXLS.ForeColor = System.Drawing.Color.White
|
||||
Me.btnExportXLS.Location = New System.Drawing.Point(466, 64)
|
||||
Me.btnExportXLS.Location = New System.Drawing.Point(579, 12)
|
||||
Me.btnExportXLS.Name = "btnExportXLS"
|
||||
Me.btnExportXLS.Size = New System.Drawing.Size(83, 25)
|
||||
Me.btnExportXLS.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnExportXLS.TabIndex = 404
|
||||
Me.btnExportXLS.Text = "Exportar"
|
||||
Me.btnExportXLS.UseVisualStyleBackColor = False
|
||||
Me.btnExportXLS.Visible = False
|
||||
'
|
||||
'btnGuardar
|
||||
'
|
||||
Me.btnGuardar.BackColor = System.Drawing.Color.Black
|
||||
Me.btnGuardar.ForeColor = System.Drawing.Color.White
|
||||
Me.btnGuardar.Location = New System.Drawing.Point(384, 12)
|
||||
Me.btnGuardar.Name = "btnGuardar"
|
||||
Me.btnGuardar.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnGuardar.TabIndex = 405
|
||||
Me.btnGuardar.Text = "Guardar"
|
||||
Me.btnGuardar.UseVisualStyleBackColor = False
|
||||
Me.btnGuardar.Visible = False
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(0, 52)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(684, 380)
|
||||
Me.TabControl1.TabIndex = 406
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.cmbQuarter)
|
||||
Me.TabPage1.Controls.Add(Me.btnGuardar)
|
||||
Me.TabPage1.Controls.Add(Me.lblQuarter)
|
||||
Me.TabPage1.Controls.Add(Me.dgvResult)
|
||||
Me.TabPage1.Controls.Add(Me.btnExportXLS)
|
||||
Me.TabPage1.Controls.Add(Me.btnSearch)
|
||||
Me.TabPage1.Controls.Add(Me.btnExport)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(676, 354)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Reporte / Histórico"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.btnExportarAnalisis)
|
||||
Me.TabPage2.Controls.Add(Me.dgvResumen)
|
||||
Me.TabPage2.Controls.Add(Me.dgvAnalisis)
|
||||
Me.TabPage2.Controls.Add(Me.btnBuscarAnalisis)
|
||||
Me.TabPage2.Controls.Add(Me.cmbPeriodoAnalisis)
|
||||
Me.TabPage2.Controls.Add(Me.Label1)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(676, 354)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Análisis"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 21)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(59, 15)
|
||||
Me.Label1.TabIndex = 6
|
||||
Me.Label1.Text = "Trimestre"
|
||||
'
|
||||
'cmbPeriodoAnalisis
|
||||
'
|
||||
Me.cmbPeriodoAnalisis.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmbPeriodoAnalisis.FormattingEnabled = True
|
||||
Me.cmbPeriodoAnalisis.Location = New System.Drawing.Point(79, 20)
|
||||
Me.cmbPeriodoAnalisis.Name = "cmbPeriodoAnalisis"
|
||||
Me.cmbPeriodoAnalisis.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cmbPeriodoAnalisis.TabIndex = 7
|
||||
'
|
||||
'btnBuscarAnalisis
|
||||
'
|
||||
Me.btnBuscarAnalisis.BackColor = System.Drawing.Color.Black
|
||||
Me.btnBuscarAnalisis.ForeColor = System.Drawing.Color.White
|
||||
Me.btnBuscarAnalisis.Location = New System.Drawing.Point(289, 12)
|
||||
Me.btnBuscarAnalisis.Name = "btnBuscarAnalisis"
|
||||
Me.btnBuscarAnalisis.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnBuscarAnalisis.TabIndex = 8
|
||||
Me.btnBuscarAnalisis.Text = "Consultar"
|
||||
Me.btnBuscarAnalisis.UseVisualStyleBackColor = False
|
||||
'
|
||||
'dgvAnalisis
|
||||
'
|
||||
Me.dgvAnalisis.AllowUserToAddRows = False
|
||||
Me.dgvAnalisis.AllowUserToDeleteRows = False
|
||||
Me.dgvAnalisis.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvAnalisis.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvAnalisis.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAnalisis.Location = New System.Drawing.Point(8, 197)
|
||||
Me.dgvAnalisis.Name = "dgvAnalisis"
|
||||
Me.dgvAnalisis.ReadOnly = True
|
||||
Me.dgvAnalisis.Size = New System.Drawing.Size(660, 151)
|
||||
Me.dgvAnalisis.TabIndex = 363
|
||||
'
|
||||
'dgvResumen
|
||||
'
|
||||
Me.dgvResumen.AllowUserToAddRows = False
|
||||
Me.dgvResumen.AllowUserToDeleteRows = False
|
||||
Me.dgvResumen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvResumen.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvResumen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvResumen.Location = New System.Drawing.Point(8, 54)
|
||||
Me.dgvResumen.Name = "dgvResumen"
|
||||
Me.dgvResumen.ReadOnly = True
|
||||
Me.dgvResumen.Size = New System.Drawing.Size(446, 132)
|
||||
Me.dgvResumen.TabIndex = 364
|
||||
'
|
||||
'btnExportarAnalisis
|
||||
'
|
||||
Me.btnExportarAnalisis.BackColor = System.Drawing.Color.Black
|
||||
Me.btnExportarAnalisis.Enabled = False
|
||||
Me.btnExportarAnalisis.ForeColor = System.Drawing.Color.White
|
||||
Me.btnExportarAnalisis.Location = New System.Drawing.Point(406, 12)
|
||||
Me.btnExportarAnalisis.Name = "btnExportarAnalisis"
|
||||
Me.btnExportarAnalisis.Size = New System.Drawing.Size(89, 36)
|
||||
Me.btnExportarAnalisis.TabIndex = 365
|
||||
Me.btnExportarAnalisis.Text = "Exportar"
|
||||
Me.btnExportarAnalisis.UseVisualStyleBackColor = False
|
||||
'
|
||||
'frmReporteJ14
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(684, 477)
|
||||
Me.Controls.Add(Me.btnExportXLS)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.Controls.Add(Me.panel3)
|
||||
Me.Controls.Add(Me.panel2)
|
||||
Me.Controls.Add(Me.btnExport)
|
||||
Me.Controls.Add(Me.btnSearch)
|
||||
Me.Controls.Add(Me.dgvResult)
|
||||
Me.Controls.Add(Me.cmbQuarter)
|
||||
Me.Controls.Add(Me.lblQuarter)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmReporteJ14"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "Reporte J14"
|
||||
@ -194,8 +337,14 @@ Partial Class frmReporteJ14
|
||||
Me.panel2.PerformLayout()
|
||||
Me.panel3.ResumeLayout(False)
|
||||
Me.panel3.PerformLayout()
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
CType(Me.dgvAnalisis, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvResumen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
@ -210,4 +359,14 @@ Partial Class frmReporteJ14
|
||||
Friend WithEvents lblFooter As Label
|
||||
Private WithEvents panel3 As Panel
|
||||
Friend WithEvents btnExportXLS As Button
|
||||
Friend WithEvents btnGuardar As Button
|
||||
Friend WithEvents TabControl1 As TabControl
|
||||
Friend WithEvents TabPage1 As TabPage
|
||||
Friend WithEvents TabPage2 As TabPage
|
||||
Friend WithEvents dgvAnalisis As DataGridView
|
||||
Friend WithEvents btnBuscarAnalisis As Button
|
||||
Friend WithEvents cmbPeriodoAnalisis As ComboBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents dgvResumen As DataGridView
|
||||
Friend WithEvents btnExportarAnalisis As Button
|
||||
End Class
|
||||
|
||||
@ -117,4 +117,64 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
|
||||
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
|
||||
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
|
||||
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
|
||||
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
|
||||
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
|
||||
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
|
||||
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
|
||||
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
|
||||
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
|
||||
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
|
||||
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
|
||||
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
|
||||
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
|
||||
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
|
||||
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
|
||||
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
|
||||
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
|
||||
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
|
||||
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
|
||||
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
|
||||
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
|
||||
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
|
||||
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
|
||||
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
|
||||
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
|
||||
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
|
||||
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
|
||||
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
|
||||
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
|
||||
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
|
||||
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
|
||||
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
|
||||
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
|
||||
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
|
||||
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
|
||||
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
|
||||
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
|
||||
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
|
||||
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
|
||||
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
|
||||
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
|
||||
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
|
||||
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@ -6,8 +6,11 @@ Public Class frmReporteJ14
|
||||
Dim year As String
|
||||
Dim quarter As String
|
||||
Dim canExport As Boolean
|
||||
Private queryGuardar As String
|
||||
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
|
||||
Dim opeHist As New clsComplejo
|
||||
Dim Classcom As New clsComplejo
|
||||
|
||||
Dim SQL As String = String.Empty
|
||||
Dim idInherent As Integer
|
||||
Dim idConrolEffect As Integer
|
||||
@ -22,6 +25,37 @@ Public Class frmReporteJ14
|
||||
btnExportXLS.Visible = canExport
|
||||
dgvResult.DataSource = Nothing
|
||||
incluyeInvalidos = 0
|
||||
|
||||
|
||||
|
||||
Try
|
||||
|
||||
SQL = "SP_ConsultaHistRJ14 " + year + "," + quarter + ""
|
||||
Dim dsHist As DataSet = opeHist.fdtDataSet(SQL)
|
||||
If dsHist.Tables(0).Rows.Count > 0 Then
|
||||
canExport = True
|
||||
btnGuardar.BackColor = Color.DarkGray
|
||||
End If
|
||||
btnExport.Enabled = canExport
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
btnGuardar.Visible = canExport
|
||||
btnGuardar.Enabled = Not canExport
|
||||
|
||||
dgvResult.DataSource = dsHist.Tables(0)
|
||||
|
||||
If dsHist.Tables(0).Rows.Count > 0 Then
|
||||
Dim Aud As New ClassMyUtils
|
||||
Aud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Consulta de Reporte Histórico J14")
|
||||
Exit Sub
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Hist:" & ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Dim result As DialogResult = MessageBox.Show("¿Incluir registros sin NIC válido?",
|
||||
"Reporte J14",
|
||||
MessageBoxButtons.YesNo)
|
||||
@ -31,7 +65,8 @@ Public Class frmReporteJ14
|
||||
|
||||
Try
|
||||
|
||||
SQL = "sp_Consulta_ReporteJ14 " + year + ", " + quarter + ", " + incluyeInvalidos.ToString
|
||||
SQL = "sp_Consulta_ReporteJ14 " + year + "," + quarter + "," + incluyeInvalidos.ToString & "," & 0
|
||||
queryGuardar = "sp_Consulta_ReporteJ14 " + year + "," + quarter + "," + incluyeInvalidos.ToString & "," & 1
|
||||
Dim dsGral As DataSet = Classcom.fdtDataSet(SQL)
|
||||
If dsGral.Tables.Count = 0 Then
|
||||
MessageBox.Show("No existen registros para el trimestre seleccionado")
|
||||
@ -46,6 +81,9 @@ Public Class frmReporteJ14
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
btnGuardar.Visible = canExport
|
||||
btnGuardar.Enabled = canExport
|
||||
btnGuardar.BackColor = Color.Black
|
||||
dgvResult.DataSource = dsGral.Tables(0)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
@ -92,6 +130,8 @@ Public Class frmReporteJ14
|
||||
End Sub
|
||||
|
||||
Private Sub frmReporteJ14_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
styleControl(False)
|
||||
|
||||
Dim initialYear As Integer
|
||||
Dim currentYear As Integer
|
||||
Dim comboSource As New Dictionary(Of String, String)()
|
||||
@ -112,6 +152,13 @@ Public Class frmReporteJ14
|
||||
btnExport.Visible = canExport
|
||||
btnExportXLS.Enabled = canExport
|
||||
btnExportXLS.Visible = canExport
|
||||
|
||||
'
|
||||
cmbPeriodoAnalisis.DataSource = New BindingSource(comboSource, Nothing)
|
||||
cmbPeriodoAnalisis.DisplayMember = "Value"
|
||||
cmbPeriodoAnalisis.ValueMember = "Key"
|
||||
|
||||
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Entrando Reporte J14")
|
||||
End Sub
|
||||
@ -122,7 +169,11 @@ Public Class frmReporteJ14
|
||||
End Sub
|
||||
|
||||
Private Sub btnExportXLS_Click(sender As Object, e As EventArgs) Handles btnExportXLS.Click
|
||||
Dim fileName As String = year.ToString + "_" + quarter.ToString + "_ R03 J-0314"
|
||||
|
||||
'Dim fileName As String = cmbPeriodoAnalisis.ToString.Substring(0, 4) + "_" + cmbPeriodoAnalisis.ToString.Substring(3, 1) + "_ R03 J-0314"
|
||||
'Dim fileName As String = cmbPeriodoAnalisis.SelectedValue.ToString.Substring(0, 4) + "_" + cmbPeriodoAnalisis.SelectedValue.ToString.Substring(4, 1) + "_ R03 J-0314"
|
||||
Dim fileName As String = cmbQuarter.SelectedValue.ToString.Substring(0, 4) + "_" + cmbQuarter.SelectedValue.ToString.Substring(4, 1) + "_ R03 J-0314"
|
||||
|
||||
Dim fullPath As String = fileName
|
||||
Dim clsExcel As aExcel
|
||||
Dim ds As New DataSet
|
||||
@ -130,7 +181,6 @@ Public Class frmReporteJ14
|
||||
clsExcel = New aExcel
|
||||
clsExcel.Titulo = fileName
|
||||
ds.Tables.Add("ReporteJ14")
|
||||
|
||||
' Add Columns
|
||||
Dim col As DataColumn
|
||||
For Each dgvCol As DataGridViewColumn In dgvResult.Columns
|
||||
@ -147,6 +197,7 @@ Public Class frmReporteJ14
|
||||
row.Item(column.Index) = dgvResult.Rows.Item(i).Cells(column.Index).Value
|
||||
Next
|
||||
Next
|
||||
|
||||
clsExcel.ExportDataset(ds)
|
||||
'MessageBox.Show("Reporte generado correctamente")
|
||||
Catch ex As Exception
|
||||
@ -156,4 +207,143 @@ Public Class frmReporteJ14
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14")
|
||||
End Sub
|
||||
|
||||
Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
|
||||
|
||||
Dim Classcom As New SenteciasSQL.ClassSQL
|
||||
|
||||
If queryGuardar <> "" Then
|
||||
|
||||
Dim dsGral As DataSet = Classcom.fdtDataSetTabla(queryGuardar)
|
||||
|
||||
' dgvResult.DataSource = dsGral.Tables(0)
|
||||
btnGuardar.BackColor = Color.DarkGray
|
||||
btnGuardar.Enabled = False
|
||||
MsgBox("Reporte guadado correctamente")
|
||||
|
||||
Dim Aud As New ClassMyUtils
|
||||
Aud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Guardar Reporte Histórico J14")
|
||||
|
||||
Else
|
||||
MsgBox("Realice previamente una busqueda")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuscarAnalisis_Click(sender As Object, e As EventArgs) Handles btnBuscarAnalisis.Click
|
||||
Dim year As Integer
|
||||
Dim noTrimestre As Integer
|
||||
Dim Classcom As New SenteciasSQL.ClassSQL
|
||||
Dim ClOp2 As New SenteciasSQL.ClassSQL
|
||||
|
||||
If cmbPeriodoAnalisis.SelectedValue IsNot Nothing Then
|
||||
year = cmbPeriodoAnalisis.SelectedValue.ToString().Substring(0, 4)
|
||||
noTrimestre = cmbPeriodoAnalisis.SelectedValue.ToString().Substring(4, 1)
|
||||
|
||||
|
||||
Dim opResumen As String = "SP_RESUMENRJ14 " & year & "," & noTrimestre
|
||||
Dim opDetalle As String = "SP_DETALLERJ14 " & year & "," & noTrimestre
|
||||
|
||||
|
||||
Dim dsGral As DataSet = Classcom.fdtDataSetTabla(opResumen)
|
||||
|
||||
dgvResumen.DataSource = dsGral.Tables(0)
|
||||
|
||||
|
||||
Dim dsDetealle As DataSet
|
||||
dsDetealle = ClOp2.fdtDataSetTabla(opDetalle)
|
||||
dgvAnalisis.DataSource = dsDetealle.Tables(0)
|
||||
|
||||
|
||||
|
||||
If dgvResumen.RowCount > 0 And dgvAnalisis.RowCount > 0 Then
|
||||
btnExportarAnalisis.Enabled = True
|
||||
styleControl(True)
|
||||
Else
|
||||
btnExportarAnalisis.Enabled = False
|
||||
styleControl(False)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
MsgBox("Selecciona un trimestre.")
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub styleControl(opc As Boolean)
|
||||
|
||||
If opc Then
|
||||
btnExportarAnalisis.BackColor = Color.Black
|
||||
btnExportarAnalisis.ForeColor = Color.White
|
||||
Else
|
||||
btnExportarAnalisis.BackColor = Color.Gray
|
||||
btnExportarAnalisis.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnExportarAnalisis_Click(sender As Object, e As EventArgs) Handles btnExportarAnalisis.Click
|
||||
|
||||
Dim fileName As String = cmbPeriodoAnalisis.SelectedValue.ToString.Substring(0, 4) + "_" + cmbPeriodoAnalisis.SelectedValue.ToString.Substring(4, 1) + "_ R03 J-0314"
|
||||
Dim fullPath As String = fileName
|
||||
Dim clsExcel As aExcel
|
||||
Dim ds As New DataSet
|
||||
Try
|
||||
clsExcel = New aExcel
|
||||
clsExcel.Titulo = fileName
|
||||
ds.Tables.Add("ReporteJ14_1")
|
||||
|
||||
' Add Columns
|
||||
Dim col As DataColumn
|
||||
For Each dgvCol As DataGridViewColumn In dgvResumen.Columns
|
||||
col = New DataColumn(dgvCol.Name)
|
||||
ds.Tables("ReporteJ14_1").Columns.Add(col)
|
||||
Next
|
||||
|
||||
'Add Rows from the datagridview
|
||||
Dim row As DataRow
|
||||
Dim colcount As Integer = dgvResumen.Columns.Count - 1
|
||||
For i As Integer = 0 To dgvResumen.Rows.Count - 1
|
||||
row = ds.Tables("ReporteJ14_1").Rows.Add
|
||||
For Each column As DataGridViewColumn In dgvResumen.Columns
|
||||
row.Item(column.Index) = dgvResumen.Rows.Item(i).Cells(column.Index).Value
|
||||
Next
|
||||
Next
|
||||
|
||||
|
||||
ds.Tables.Add("ReporteJ14_2")
|
||||
|
||||
' Add Columns
|
||||
Dim col2 As DataColumn
|
||||
For Each dgvCol As DataGridViewColumn In dgvAnalisis.Columns
|
||||
col2 = New DataColumn(dgvCol.Name)
|
||||
ds.Tables("ReporteJ14_2").Columns.Add(col2)
|
||||
Next
|
||||
|
||||
'Add Rows from the datagridview
|
||||
Dim row2 As DataRow
|
||||
Dim colcount2 As Integer = dgvAnalisis.Columns.Count - 1
|
||||
For i As Integer = 0 To dgvAnalisis.Rows.Count - 1
|
||||
row2 = ds.Tables("ReporteJ14_2").Rows.Add
|
||||
For Each column As DataGridViewColumn In dgvAnalisis.Columns
|
||||
row2.Item(column.Index) = dgvAnalisis.Rows.Item(i).Cells(column.Index).Value
|
||||
Next
|
||||
Next
|
||||
|
||||
clsExcel.ExportTo2Woook(ds)
|
||||
'MessageBox.Show("Reporte generado correctamente")
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
|
||||
End Try
|
||||
Dim ClassAud As New ClassMyUtils
|
||||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 121, 1, "Exportando Reporte J14 Resumen")
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
5
bin/Conexion_MindsOP.ini
Normal file
5
bin/Conexion_MindsOP.ini
Normal file
@ -0,0 +1,5 @@
|
||||
TIPOSERVIDORMD=SQL Server
|
||||
SERVIDOR=149.28.214.102,14337
|
||||
BASEDATOS=Minds_BlackRock_Dev
|
||||
USUARIO=usrBlackRock
|
||||
PASSWORD=244214150226146068038196002134181036246054191
|
||||
@ -7,14 +7,14 @@
|
||||
<framework targetVersion="4.0" profile="Full" supportedRuntime="4.0.30319" />
|
||||
</compatibleFrameworks>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18908">
|
||||
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18289">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF.exe" version="2.5.0.4" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>2M0s4ts8B5pE1R3uEIgWdjtvdyU=</dsig:DigestValue>
|
||||
<dsig:DigestValue>6f8zaL5H/JljJ3VDhtcHUVzlNBk=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@ -42,18 +42,6 @@
|
||||
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="adodb.dll" size="110592">
|
||||
<assemblyIdentity name="ADODB" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>jynB3qMgo1Dc2GoQqehY0lCH4Yo=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="AxInterop.MSComCtl2.dll" size="81920">
|
||||
<assemblyIdentity name="AxInterop.MSComCtl2" version="2.0.0.0" language="neutral" />
|
||||
@ -271,14 +259,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5874688">
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5913088">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue>
|
||||
<dsig:DigestValue>Vr6jbddrYkVpxdFU1L6poSlGh74=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@ -14,7 +14,7 @@
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>2M0s4ts8B5pE1R3uEIgWdjtvdyU=</dsig:DigestValue>
|
||||
<dsig:DigestValue>jkUCLvW88a9xr6r1zcnShV3Yi1Y=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
@ -271,14 +271,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5874688">
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5913088">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue>
|
||||
<dsig:DigestValue>Oc59HoRlyGDL/miIWEpMTsU2Kvw=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -7,14 +7,14 @@
|
||||
<framework targetVersion="4.0" profile="Full" supportedRuntime="4.0.30319" />
|
||||
</compatibleFrameworks>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18908">
|
||||
<dependentAssembly dependencyType="install" codebase="MINDS CLIENTEOF.exe.manifest" size="18289">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF.exe" version="2.5.0.4" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>2M0s4ts8B5pE1R3uEIgWdjtvdyU=</dsig:DigestValue>
|
||||
<dsig:DigestValue>6f8zaL5H/JljJ3VDhtcHUVzlNBk=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@ -42,18 +42,6 @@
|
||||
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="adodb.dll" size="110592">
|
||||
<assemblyIdentity name="ADODB" version="7.0.3300.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>jynB3qMgo1Dc2GoQqehY0lCH4Yo=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="AxInterop.MSComCtl2.dll" size="81920">
|
||||
<assemblyIdentity name="AxInterop.MSComCtl2" version="2.0.0.0" language="neutral" />
|
||||
@ -271,14 +259,14 @@
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<dependency>
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5874688">
|
||||
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MINDS CLIENTEOF.exe" size="5913088">
|
||||
<assemblyIdentity name="MINDS CLIENTEOF" version="2.5.5.9" language="neutral" processorArchitecture="msil" />
|
||||
<hash>
|
||||
<dsig:Transforms>
|
||||
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
|
||||
</dsig:Transforms>
|
||||
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
|
||||
<dsig:DigestValue>7tL0Qf3itWOaPzlGzHaZzmYk5nA=</dsig:DigestValue>
|
||||
<dsig:DigestValue>Vr6jbddrYkVpxdFU1L6poSlGh74=</dsig:DigestValue>
|
||||
</hash>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
|
||||
Binary file not shown.
@ -1 +1 @@
|
||||
20c9fb53d0fd991430cf62f67ae3e9069e7eefdd
|
||||
083193d3b06faaff466cabe7d9cd89a288e399d3
|
||||
|
||||
@ -9441,3 +9441,406 @@ F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.application
|
||||
F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.exe
|
||||
F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.xml
|
||||
F:\Minds\2020\Desarrollo\Black\client\obj\Debug\MINDS CLIENTEOF.pdb
|
||||
F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.config
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.xml
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.pdb
|
||||
F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.manifest
|
||||
F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.application
|
||||
F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe
|
||||
F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.pdb
|
||||
F:\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.xml
|
||||
F:\Minds\BLACK\Minds\client\bin\adodb.dll
|
||||
F:\Minds\BLACK\Minds\client\bin\stdole.dll
|
||||
F:\Minds\BLACK\Minds\client\bin\office.dll
|
||||
F:\Minds\BLACK\Minds\client\bin\Microsoft.Vbe.Interop.dll
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbprojResolveAssemblyReference.cache
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ActTipoCambio.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogos.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCanales.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRCalificacion.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAgentes.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDirAgencia.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFuncionario.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMyParametroGrupo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmOficinas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParam.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsGral.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmStatusPatrones.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MyAsignaGrupo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RazonAct.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ClientesBol.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmBuscaListas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCalStatus.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMListasR.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PaisesBol.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasBol.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CatPais.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmMasterCatalogo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPatrones.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyActividad.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyEstado.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstitucion.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstrumento.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyMoneda.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyOrganismo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyProducto.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMySubproducto.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyTipoOperacion.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatEBR.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmEmailFTP.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPerfilCta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesUSDMX.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesCuentaUSD.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRelacionCuenta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPropositoCuenta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCuentasUSD.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSectorEconomico.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLocalidad.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCASFIM.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEmailAnonimo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmGrupoRiesgo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSucursal.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFiguraLegal.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoPersona.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstructuraCorp.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoDomicilio.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoCuenta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmProcedenciaRecurso.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParentesco.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoTransferencia.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmInstrumento.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmIdentificacion.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFuenteIngreso.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDestinoRecurso.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmActividadVulnerable.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConcepto.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogosBinarios.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfiguracion.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAboutBox.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAccesoControl.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAvisos.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstatusCuenta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsPerfilCta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRiesgoPPE.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmInformes.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarRep6.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarChequesCaja.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTransfeInfo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarAcuerdoTransInfo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarDolaresEfec.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.EsquemasDetectados.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcuerdoTransfeInfo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcumuladoCliente.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmasExp.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMBusqueda.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCal.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCartas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmChekList.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmclientes.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConsultaAlarmas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmContestacionOF.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDocChk.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDoctosCh.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDolaresEfectivo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMCapitales.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTI.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCiudadOperacion.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmNacionalidad.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmObjCuenta.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParametrosMR.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPreload.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRep6.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepInterExt.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTInternacional.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTransferenciaInfo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FechaGrafica.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDivisaGrafica.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.GeografiaGrafica.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Monto.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MontoGrafica.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperBaja.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Patron_Transacciones.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmExcedentes.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoDIV.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBI.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBT.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasDIV.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBI.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBT.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistorico.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.logo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaRSPID.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.mdiForm.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Resources.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PopUp.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfigHit.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHit.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmProcesoHit.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CierreGrupal.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja_Detalle.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDetalle.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleFTI.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBR.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBRDomicilios.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmIngresosDepositos.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleDormantAccount.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleOperPre.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Detalles.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DormatAccount.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ExcProgreso.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAlarmasKYC.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAuditoria.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCuentasRelacionadas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFraccionadaDET.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMFraccionadas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaEvidenciasAlarmas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmNewInsuales.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmParamSITI.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepAnonimo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepEstadistico.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmReporteAsesorias.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ13.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ14.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmUmbral.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetallesSin.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmVigenciaAlertas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrTransaccionesXGpo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesCredito.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDerivados.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDivisas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperatividadBaja.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperInuSinTran.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdmin.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdminDetalle.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoSinTran.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadasDet.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepFraccionadas.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepOpInusuales.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteCNBV.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteMerDin.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperComer.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperPreo.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteRelevantes.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteSITI.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepRelevantes.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmVigenciaCon.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CambioPassword.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLoginWindows.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmPasswConfig.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Login.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Perfil.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Permiso.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.UsuarioM.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.splash.resources
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.GenerateResource.Cache
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.licenses
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.TrustInfo.xml
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.manifest
|
||||
F:\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.application
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.config
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe.manifest
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.application
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.exe
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.pdb
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\MINDS CLIENTEOF.xml
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\stdole.dll
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\office.dll
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\bin\Microsoft.Vbe.Interop.dll
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbprojAssemblyReference.cache
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ActTipoCambio.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogos.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCanales.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRCalificacion.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAgentes.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDirAgencia.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFuncionario.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMyParametroGrupo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmOficinas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParam.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsGral.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmStatusPatrones.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MyAsignaGrupo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RazonAct.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ClientesBol.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmBuscaListas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCalStatus.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMListasR.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PaisesBol.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasBol.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CatPais.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmMasterCatalogo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPatrones.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyActividad.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyEstado.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstitucion.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyInstrumento.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyMoneda.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyOrganismo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyProducto.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMySubproducto.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMyTipoOperacion.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatEBR.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmEmailFTP.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPerfilCta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesUSDMX.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRazonesCuentaUSD.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRelacionCuenta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPropositoCuenta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCuentasUSD.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSectorEconomico.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLocalidad.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCASFIM.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEmailAnonimo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmGrupoRiesgo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmSucursal.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFiguraLegal.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoPersona.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstructuraCorp.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoDomicilio.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoCuenta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmProcedenciaRecurso.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParentesco.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTipoTransferencia.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmInstrumento.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmIdentificacion.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmFuenteIngreso.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDestinoRecurso.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmActividadVulnerable.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConcepto.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCatalogosBinarios.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfiguracion.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAboutBox.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAccesoControl.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAvisos.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEstatusCuenta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParamsPerfilCta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRiesgoPPE.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmInformes.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarRep6.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarChequesCaja.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTransfeInfo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarAcuerdoTransInfo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarDolaresEfec.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.EsquemasDetectados.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcuerdoTransfeInfo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmAcumuladoCliente.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmAlarmasExp.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMBusqueda.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCal.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCartas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmChekList.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmclientes.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConsultaAlarmas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmContestacionOF.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDocChk.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDoctosCh.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDolaresEfectivo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmMCapitales.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmModificarTI.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmCiudadOperacion.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmNacionalidad.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmObjCuenta.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmParametrosMR.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmPreload.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmRep6.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepInterExt.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTInternacional.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmTransferenciaInfo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FechaGrafica.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDivisaGrafica.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.GeografiaGrafica.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Monto.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.MontoGrafica.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperBaja.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Patron_Transacciones.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmExcedentes.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoDIV.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBI.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistoricoBT.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasDIV.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBI.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmasBT.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHistorico.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmHistoricoAlarmas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.logo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaRSPID.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.mdiForm.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Resources.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PopUp.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmConfigHit.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleHit.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmProcesoHit.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CierreGrupal.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmChequeCaja_Detalle.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmDetalle.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmDetalleFTI.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBR.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmEBRDomicilios.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmIngresosDepositos.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleDormantAccount.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetalleOperPre.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Detalles.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DormatAccount.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ExcProgreso.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAlarmasKYC.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRAuditoria.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmCuentasRelacionadas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmFraccionadaDET.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FRMFraccionadas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmListaEvidenciasAlarmas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmNewInsuales.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmParamSITI.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepAnonimo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmRepEstadistico.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmReporteAsesorias.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ13.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmReporteJ14.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmUmbral.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.DetallesSin.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmVigenciaAlertas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrTransaccionesXGpo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesCredito.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDerivados.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.InusualesDivisas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperatividadBaja.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperInuSinTran.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdmin.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoAdminDetalle.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.OperPreoSinTran.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.PersonasRelacionadasDet.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepFraccionadas.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepOpInusuales.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteCNBV.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteMerDin.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperComer.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteOperPreo.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteRelevantes.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.ReporteSITI.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.RepRelevantes.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmVigenciaCon.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.CambioPassword.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.frmLoginWindows.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.FrmPasswConfig.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Login.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Perfil.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.Permiso.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.UsuarioM.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\CLIENTE.splash.resources
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.GenerateResource.cache
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.licenses
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.CoreCompileInputs.cache
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.TrustInfo.xml
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe.manifest
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.application
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\Minds Cliente.vbproj.CopyComplete
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.exe
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.xml
|
||||
D:\BACK\Minds\2022_1\Minds\BLACK\Minds\client\obj\Debug\MINDS CLIENTEOF.pdb
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user