896 lines
44 KiB
VB.net
896 lines
44 KiB
VB.net
|
Public Class ClientesBol
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
|
|||
|
|
#Region " Windows Form Designer generated code "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'This call is required by the Windows Form Designer.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Add any initialization after the InitializeComponent() call
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Form overrides dispose to clean up the component list.
|
|||
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|||
|
|
If disposing Then
|
|||
|
|
If Not (components Is Nothing) Then
|
|||
|
|
components.Dispose()
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
MyBase.Dispose(disposing)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Required by the Windows Form Designer
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|||
|
|
'It can be modified using the Windows Form Designer.
|
|||
|
|
'Do not modify it using the code editor.
|
|||
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|||
|
|
Friend WithEvents lblOrganismo As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblPorcentaje As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|||
|
|
Friend WithEvents lblNombreFigura As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents txtCliente As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents cmbPorcentaje As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents cmbPais As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|||
|
|
Friend WithEvents lblfecha As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblStatus As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cmbStatus As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents dataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|||
|
|
Friend WithEvents btnCerrar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BTExportar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BTLimpiar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents BTConsultar As System.Windows.Forms.Button
|
|||
|
|
Private WithEvents panel2 As Panel
|
|||
|
|
Private WithEvents Img_logoCabecera As PictureBox
|
|||
|
|
Friend WithEvents label4 As Label
|
|||
|
|
Friend WithEvents Label1 As Label
|
|||
|
|
Friend WithEvents Panel1 As Panel
|
|||
|
|
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.lblStatus = New System.Windows.Forms.Label()
|
|||
|
|
Me.cmbStatus = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.txtCliente = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.cmbPorcentaje = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.lblPorcentaje = New System.Windows.Forms.Label()
|
|||
|
|
Me.cmbOrganismo = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.lblOrganismo = New System.Windows.Forms.Label()
|
|||
|
|
Me.lblNombreFigura = New System.Windows.Forms.Label()
|
|||
|
|
Me.cmbPais = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|||
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
|||
|
|
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()
|
|||
|
|
Me.BTConsultar = New System.Windows.Forms.Button()
|
|||
|
|
Me.panel2 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
|
|||
|
|
Me.label4 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.GroupBox1.SuspendLayout()
|
|||
|
|
Me.GroupBox2.SuspendLayout()
|
|||
|
|
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.panel2.SuspendLayout()
|
|||
|
|
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.Panel1.SuspendLayout()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'GroupBox1
|
|||
|
|
'
|
|||
|
|
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.lblStatus)
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.cmbStatus)
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.txtCliente)
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.cmbPorcentaje)
|
|||
|
|
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.Name = "GroupBox1"
|
|||
|
|
Me.GroupBox1.Size = New System.Drawing.Size(787, 60)
|
|||
|
|
Me.GroupBox1.TabIndex = 0
|
|||
|
|
Me.GroupBox1.TabStop = False
|
|||
|
|
Me.GroupBox1.Text = "Par<EFBFBD>metros de b<>squeda"
|
|||
|
|
'
|
|||
|
|
'lblStatus
|
|||
|
|
'
|
|||
|
|
Me.lblStatus.AutoSize = True
|
|||
|
|
Me.lblStatus.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblStatus.Location = New System.Drawing.Point(176, 18)
|
|||
|
|
Me.lblStatus.Name = "lblStatus"
|
|||
|
|
Me.lblStatus.Size = New System.Drawing.Size(42, 13)
|
|||
|
|
Me.lblStatus.TabIndex = 9
|
|||
|
|
Me.lblStatus.Text = "Estatus"
|
|||
|
|
'
|
|||
|
|
'cmbStatus
|
|||
|
|
'
|
|||
|
|
Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|||
|
|
Me.cmbStatus.FormattingEnabled = True
|
|||
|
|
Me.cmbStatus.Location = New System.Drawing.Point(179, 33)
|
|||
|
|
Me.cmbStatus.Name = "cmbStatus"
|
|||
|
|
Me.cmbStatus.Size = New System.Drawing.Size(191, 21)
|
|||
|
|
Me.cmbStatus.TabIndex = 8
|
|||
|
|
'
|
|||
|
|
'txtCliente
|
|||
|
|
'
|
|||
|
|
Me.txtCliente.Location = New System.Drawing.Point(386, 34)
|
|||
|
|
Me.txtCliente.Name = "txtCliente"
|
|||
|
|
Me.txtCliente.Size = New System.Drawing.Size(395, 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.Name = "cmbPorcentaje"
|
|||
|
|
Me.cmbPorcentaje.Size = New System.Drawing.Size(157, 21)
|
|||
|
|
Me.cmbPorcentaje.TabIndex = 5
|
|||
|
|
'
|
|||
|
|
'lblPorcentaje
|
|||
|
|
'
|
|||
|
|
Me.lblPorcentaje.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblPorcentaje.Location = New System.Drawing.Point(10, 18)
|
|||
|
|
Me.lblPorcentaje.Name = "lblPorcentaje"
|
|||
|
|
Me.lblPorcentaje.Size = New System.Drawing.Size(58, 16)
|
|||
|
|
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.Name = "cmbOrganismo"
|
|||
|
|
Me.cmbOrganismo.Size = New System.Drawing.Size(22, 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.Name = "lblOrganismo"
|
|||
|
|
Me.lblOrganismo.Size = New System.Drawing.Size(62, 16)
|
|||
|
|
Me.lblOrganismo.TabIndex = 0
|
|||
|
|
Me.lblOrganismo.Text = "Organismo"
|
|||
|
|
Me.lblOrganismo.Visible = False
|
|||
|
|
'
|
|||
|
|
'lblNombreFigura
|
|||
|
|
'
|
|||
|
|
Me.lblNombreFigura.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblNombreFigura.Location = New System.Drawing.Point(383, 16)
|
|||
|
|
Me.lblNombreFigura.Name = "lblNombreFigura"
|
|||
|
|
Me.lblNombreFigura.Size = New System.Drawing.Size(132, 16)
|
|||
|
|
Me.lblNombreFigura.TabIndex = 7
|
|||
|
|
Me.lblNombreFigura.Text = "Cliente"
|
|||
|
|
Me.lblNombreFigura.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|||
|
|
'
|
|||
|
|
'cmbPais
|
|||
|
|
'
|
|||
|
|
Me.cmbPais.Location = New System.Drawing.Point(836, 82)
|
|||
|
|
Me.cmbPais.Name = "cmbPais"
|
|||
|
|
Me.cmbPais.Size = New System.Drawing.Size(122, 21)
|
|||
|
|
Me.cmbPais.TabIndex = 3
|
|||
|
|
Me.cmbPais.Visible = False
|
|||
|
|
'
|
|||
|
|
'Label2
|
|||
|
|
'
|
|||
|
|
Me.Label2.AutoSize = True
|
|||
|
|
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Label2.Location = New System.Drawing.Point(801, 85)
|
|||
|
|
Me.Label2.Name = "Label2"
|
|||
|
|
Me.Label2.Size = New System.Drawing.Size(29, 13)
|
|||
|
|
Me.Label2.TabIndex = 2
|
|||
|
|
Me.Label2.Text = "Pa<EFBFBD>s"
|
|||
|
|
Me.Label2.Visible = False
|
|||
|
|
'
|
|||
|
|
'GroupBox2
|
|||
|
|
'
|
|||
|
|
Me.GroupBox2.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.GroupBox2.Controls.Add(Me.dataGrid1)
|
|||
|
|
Me.GroupBox2.Controls.Add(Me.lblResultados)
|
|||
|
|
Me.GroupBox2.Location = New System.Drawing.Point(12, 140)
|
|||
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|||
|
|
Me.GroupBox2.Size = New System.Drawing.Size(787, 206)
|
|||
|
|
Me.GroupBox2.TabIndex = 1
|
|||
|
|
Me.GroupBox2.TabStop = False
|
|||
|
|
Me.GroupBox2.Text = "Resultados"
|
|||
|
|
'
|
|||
|
|
'dataGrid1
|
|||
|
|
'
|
|||
|
|
Me.dataGrid1.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.dataGrid1.CaptionHeight = 17
|
|||
|
|
Me.dataGrid1.FetchRowStyles = True
|
|||
|
|
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(9, 21)
|
|||
|
|
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(772, 167)
|
|||
|
|
Me.dataGrid1.TabIndex = 61
|
|||
|
|
Me.dataGrid1.Text = "C1TrueDBGrid1"
|
|||
|
|
Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag")
|
|||
|
|
'
|
|||
|
|
'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.Name = "lblResultados"
|
|||
|
|
Me.lblResultados.Size = New System.Drawing.Size(134, 12)
|
|||
|
|
Me.lblResultados.TabIndex = 2
|
|||
|
|
Me.lblResultados.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|||
|
|
'
|
|||
|
|
'ImageList1
|
|||
|
|
'
|
|||
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|||
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|||
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|||
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|||
|
|
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 = System.Windows.Forms.AnchorStyles.Right
|
|||
|
|
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, 326)
|
|||
|
|
Me.btnCerrar.Name = "btnCerrar"
|
|||
|
|
Me.btnCerrar.Size = New System.Drawing.Size(89, 30)
|
|||
|
|
Me.btnCerrar.TabIndex = 20
|
|||
|
|
Me.btnCerrar.Text = "Cerrar"
|
|||
|
|
Me.btnCerrar.UseVisualStyleBackColor = False
|
|||
|
|
'
|
|||
|
|
'BTExportar
|
|||
|
|
'
|
|||
|
|
Me.BTExportar.Anchor = System.Windows.Forms.AnchorStyles.Right
|
|||
|
|
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, 288)
|
|||
|
|
Me.BTExportar.Name = "BTExportar"
|
|||
|
|
Me.BTExportar.Size = New System.Drawing.Size(89, 32)
|
|||
|
|
Me.BTExportar.TabIndex = 19
|
|||
|
|
Me.BTExportar.Text = "Exportar"
|
|||
|
|
Me.BTExportar.UseVisualStyleBackColor = False
|
|||
|
|
'
|
|||
|
|
'BTLimpiar
|
|||
|
|
'
|
|||
|
|
Me.BTLimpiar.Anchor = System.Windows.Forms.AnchorStyles.Right
|
|||
|
|
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, 248)
|
|||
|
|
Me.BTLimpiar.Name = "BTLimpiar"
|
|||
|
|
Me.BTLimpiar.Size = New System.Drawing.Size(89, 34)
|
|||
|
|
Me.BTLimpiar.TabIndex = 18
|
|||
|
|
Me.BTLimpiar.Text = "Limpiar"
|
|||
|
|
Me.BTLimpiar.UseVisualStyleBackColor = False
|
|||
|
|
'
|
|||
|
|
'BTConsultar
|
|||
|
|
'
|
|||
|
|
Me.BTConsultar.Anchor = System.Windows.Forms.AnchorStyles.Right
|
|||
|
|
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, 206)
|
|||
|
|
Me.BTConsultar.Name = "BTConsultar"
|
|||
|
|
Me.BTConsultar.Size = New System.Drawing.Size(89, 36)
|
|||
|
|
Me.BTConsultar.TabIndex = 17
|
|||
|
|
Me.BTConsultar.Text = "Buscar"
|
|||
|
|
Me.BTConsultar.UseVisualStyleBackColor = False
|
|||
|
|
'
|
|||
|
|
'panel2
|
|||
|
|
'
|
|||
|
|
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
|||
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|||
|
|
Me.panel2.BackColor = System.Drawing.Color.Black
|
|||
|
|
Me.panel2.Controls.Add(Me.Img_logoCabecera)
|
|||
|
|
Me.panel2.Controls.Add(Me.label4)
|
|||
|
|
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.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.Name = "Img_logoCabecera"
|
|||
|
|
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
|
|||
|
|
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
|||
|
|
Me.Img_logoCabecera.TabIndex = 360
|
|||
|
|
Me.Img_logoCabecera.TabStop = False
|
|||
|
|
'
|
|||
|
|
'label4
|
|||
|
|
'
|
|||
|
|
Me.label4.AutoSize = True
|
|||
|
|
Me.label4.BackColor = System.Drawing.Color.Transparent
|
|||
|
|
Me.label4.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.label4.ForeColor = System.Drawing.SystemColors.Window
|
|||
|
|
Me.label4.Location = New System.Drawing.Point(21, 8)
|
|||
|
|
Me.label4.Name = "label4"
|
|||
|
|
Me.label4.Size = New System.Drawing.Size(193, 22)
|
|||
|
|
Me.label4.TabIndex = 2
|
|||
|
|
Me.label4.Text = "Clientes boletinados"
|
|||
|
|
'
|
|||
|
|
'Label1
|
|||
|
|
'
|
|||
|
|
Me.Label1.AutoSize = True
|
|||
|
|
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.Name = "Label1"
|
|||
|
|
Me.Label1.Size = New System.Drawing.Size(42, 17)
|
|||
|
|
Me.Label1.TabIndex = 161
|
|||
|
|
Me.Label1.Text = "Minds"
|
|||
|
|
'
|
|||
|
|
'Panel1
|
|||
|
|
'
|
|||
|
|
Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
|||
|
|
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.Name = "Panel1"
|
|||
|
|
Me.Panel1.Size = New System.Drawing.Size(909, 35)
|
|||
|
|
Me.Panel1.TabIndex = 162
|
|||
|
|
'
|
|||
|
|
'ClientesBol
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(906, 394)
|
|||
|
|
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)
|
|||
|
|
Me.Controls.Add(Me.Label2)
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|||
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|||
|
|
Me.Name = "ClientesBol"
|
|||
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|||
|
|
Me.Text = "Clientes boletinados"
|
|||
|
|
Me.GroupBox1.ResumeLayout(False)
|
|||
|
|
Me.GroupBox1.PerformLayout()
|
|||
|
|
Me.GroupBox2.ResumeLayout(False)
|
|||
|
|
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.panel2.ResumeLayout(False)
|
|||
|
|
Me.panel2.PerformLayout()
|
|||
|
|
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.Panel1.ResumeLayout(False)
|
|||
|
|
Me.Panel1.PerformLayout()
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
Me.PerformLayout()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim clCmp1 As clsComplejo = New clsComplejo
|
|||
|
|
Dim clCmp2 As clsComplejo = New clsComplejo
|
|||
|
|
Dim clCmp3 As clsComplejo = New clsComplejo
|
|||
|
|
Dim clCmp4 As clsComplejo = New clsComplejo
|
|||
|
|
Dim clGrid As clsComplejo = New clsComplejo
|
|||
|
|
|
|||
|
|
Dim BanOrg, BanPais, BanPorc, BanStatus As Boolean
|
|||
|
|
|
|||
|
|
Private Sub ClientesBol_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
BanOrg = False
|
|||
|
|
BanPais = False
|
|||
|
|
BanOrg = False
|
|||
|
|
BanStatus = False
|
|||
|
|
label4.Text = Me.Text
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
|
|||
|
|
' 'Botones de la toolbar
|
|||
|
|
' Select Case e.Button.Text
|
|||
|
|
' Case "Consultar"
|
|||
|
|
' Me.Cursor = Cursors.WaitCursor
|
|||
|
|
' sbBuscar()
|
|||
|
|
' Me.Cursor = Cursors.Default
|
|||
|
|
' Case "Exportar"
|
|||
|
|
' Exportar()
|
|||
|
|
' Case "Refrescar"
|
|||
|
|
' Refrescar()
|
|||
|
|
' Case "Salir"
|
|||
|
|
' Me.Close()
|
|||
|
|
' End Select
|
|||
|
|
'End Sub
|
|||
|
|
|
|||
|
|
Private Sub Exportar()
|
|||
|
|
'llama a las rutinas para exportar el grid a excel
|
|||
|
|
Try
|
|||
|
|
If clGrid.dt.Rows.Count = 0 Then
|
|||
|
|
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|||
|
|
Else
|
|||
|
|
If clGrid.dt.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, <20>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.ExportDataset(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
|
|||
|
|
Dim SQL, Where As String
|
|||
|
|
Dim varfecha As Object = 0
|
|||
|
|
Dim CLasscom As New clsComplejo
|
|||
|
|
Dim ClassAud As New ClassMyUtils
|
|||
|
|
Dim sAuditoria As String
|
|||
|
|
Dim intCuenta As Integer
|
|||
|
|
'JLL 27-08-2013 oculto las columnas con la funcion clocultarcolumna
|
|||
|
|
Dim OcultarCol As clOcultarColumna = New clOcultarColumna()
|
|||
|
|
|
|||
|
|
SQL = ""
|
|||
|
|
Where = ""
|
|||
|
|
intCuenta = 0
|
|||
|
|
|
|||
|
|
|
|||
|
|
SQL = "sp_ConsultarLRClt " & IIf(cmbOrganismo.SelectedValue <> Nothing, cmbOrganismo.SelectedValue, "NULL")
|
|||
|
|
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")
|
|||
|
|
|
|||
|
|
|
|||
|
|
clGrid.dt = New DataTable
|
|||
|
|
clGrid.fdtDataTable(SQL)
|
|||
|
|
clGrid.fdtDataSet(SQL)
|
|||
|
|
dataGrid1.DataSource = Nothing
|
|||
|
|
dataGrid1.DataSource = clGrid.dt
|
|||
|
|
If dataGrid1.RowCount > 0 Then
|
|||
|
|
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In dataGrid1.Splits(0).DisplayColumns
|
|||
|
|
col.AutoSize()
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
For i As Integer = 0 To dataGrid1.Columns.Count - 1
|
|||
|
|
dataGrid1.Columns(i).Caption = dataGrid1.Columns(i).Caption.ToString.ToUpper
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
dataGrid1.Splits(0).DisplayColumns(17).Visible = False
|
|||
|
|
dataGrid1.Splits(0).DisplayColumns(18).Visible = False
|
|||
|
|
dataGrid1.Splits(0).DisplayColumns(19).Visible = False
|
|||
|
|
dataGrid1.Splits(0).DisplayColumns(20).Visible = False
|
|||
|
|
dataGrid1.Splits(0).DisplayColumns(21).Visible = False
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim cont As Integer
|
|||
|
|
'cont = clGrid.ds.Tables(0).Rows.Count
|
|||
|
|
cont = 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
|
|||
|
|
|
|||
|
|
sAuditoria = ""
|
|||
|
|
If cmbOrganismo.Text.Trim <> "" Then sAuditoria = sAuditoria & " Organismo=" & cmbOrganismo.Text.Trim
|
|||
|
|
If cmbPais.Text.Trim <> "" Then sAuditoria = sAuditoria & " Pais=" & cmbPais.Text.Trim
|
|||
|
|
If cmbPorcentaje.Text.Trim <> "" Then sAuditoria = sAuditoria & " Porcentaje=" & cmbPorcentaje.Text.Trim
|
|||
|
|
If cmbStatus.Text.Trim <> "" Then sAuditoria = sAuditoria & " Status=" & cmbStatus.Text.Trim
|
|||
|
|
If txtCliente.Text.Trim <> "" Then sAuditoria = sAuditoria & " Cliente=" & txtCliente.Text.Trim
|
|||
|
|
If txtCliente.Text.Trim <> "" Then sAuditoria = sAuditoria & " IdFigura=" & txtCliente.Text.Trim
|
|||
|
|
If sAuditoria.Trim = "" Then sAuditoria = "Consulta lista restringida Clientes"
|
|||
|
|
|
|||
|
|
sAuditoria = Mid(sAuditoria.Trim, 1, 8000)
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 113, My.Computer.Name, "Minds Cliente", sAuditoria)
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Function fsDefineSQL(ByVal SP As String) As String
|
|||
|
|
'Defino mi cadena para el procedimiento almacenado
|
|||
|
|
|
|||
|
|
'Declaro variables para pasar los parametros al procedimiento almacenado
|
|||
|
|
Dim lsSQL As String
|
|||
|
|
Dim _Opcion As Integer
|
|||
|
|
Dim _Organismo As String = ", NULL, "
|
|||
|
|
Dim _Pais As String = " NULL, "
|
|||
|
|
Dim _Porcentaje As String = " NULL, "
|
|||
|
|
Dim _DescStatus As String = " NULL, "
|
|||
|
|
Dim _Cliente As String = " NULL "
|
|||
|
|
|
|||
|
|
If Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 1
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 2
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 3
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 4
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 5
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 6
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 7
|
|||
|
|
_Porcentaje = "'" & Me.cmbPorcentaje.Text & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 8
|
|||
|
|
_Porcentaje = Me.cmbPorcentaje.Text & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 9
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 10
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 11
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 12
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 13
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 14
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 15
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 16
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 17
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 18
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 19
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 20
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 21
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 22
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 23
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 24
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 25
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 26
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 27
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 28
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 29
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 30
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
|
|||
|
|
_Opcion = 31
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
|
|||
|
|
_Opcion = 32
|
|||
|
|
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
|
|||
|
|
_Pais = Me.cmbPais.SelectedValue & ", "
|
|||
|
|
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
|
|||
|
|
_DescStatus = Me.cmbStatus.SelectedValue & ", "
|
|||
|
|
_Cliente = "'%" & Me.txtCliente.Text & "%'"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'Formo el query
|
|||
|
|
lsSQL = lsSQL & SP & " "
|
|||
|
|
lsSQL = lsSQL & _Opcion
|
|||
|
|
lsSQL = lsSQL & _Organismo
|
|||
|
|
lsSQL = lsSQL & _Pais
|
|||
|
|
lsSQL = lsSQL & _Porcentaje
|
|||
|
|
lsSQL = lsSQL & _DescStatus
|
|||
|
|
lsSQL = lsSQL & _Cliente
|
|||
|
|
Return lsSQL
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub Refrescar()
|
|||
|
|
'Limpia los combos, datagrid y la caja de texto
|
|||
|
|
Me.cmbPais.DataSource = Nothing
|
|||
|
|
Me.cmbPais.Items.Clear()
|
|||
|
|
|
|||
|
|
Me.cmbOrganismo.DataSource = Nothing
|
|||
|
|
Me.cmbOrganismo.Items.Clear()
|
|||
|
|
|
|||
|
|
Me.cmbPorcentaje.Items.Clear()
|
|||
|
|
Me.cmbPorcentaje.Text = ""
|
|||
|
|
|
|||
|
|
Me.cmbStatus.DataSource = Nothing
|
|||
|
|
Me.cmbStatus.Items.Clear()
|
|||
|
|
|
|||
|
|
Me.txtCliente.Text = ""
|
|||
|
|
Me.lblResultados.Text = ""
|
|||
|
|
|
|||
|
|
Me.dataGrid1.DataSource = Nothing
|
|||
|
|
Me.dataGrid1.DataBindings.Clear()
|
|||
|
|
clGrid.dt.Clear()
|
|||
|
|
'Para que se puedan a llenar otra vez los combos
|
|||
|
|
BanPais = False
|
|||
|
|
BanOrg = False
|
|||
|
|
BanPorc = False
|
|||
|
|
BanStatus = False
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown
|
|||
|
|
'Llena combo organismo
|
|||
|
|
If BanOrg = False Then
|
|||
|
|
'Para llenar el combo de organismo se utiliza el procedimiento almacenado "spLlenaComboOrgInt"
|
|||
|
|
'clCmp1.sbLlenaCombo("spLlenaComboOrgInt", Me.cmbOrganismo)
|
|||
|
|
clCmp1.sbLlenaCombo("sp_ConsultarOrganismosInter ", Me.cmbOrganismo)
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
BanOrg = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbPais_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPais.DropDown
|
|||
|
|
'Llena comboPais
|
|||
|
|
If BanPais = False Then
|
|||
|
|
'Para llenar el combo de Pais se utiliza el porcedimiento almacenado "spListaPais"
|
|||
|
|
clCmp2.sbLlenaCombo("spListaPais", Me.cmbPais)
|
|||
|
|
End If
|
|||
|
|
BanPais = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbPorcentaje_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPorcentaje.DropDown
|
|||
|
|
'Llena combo porcentaje
|
|||
|
|
If BanPorc = False Then
|
|||
|
|
Me.cmbPorcentaje.Items.Add("60%")
|
|||
|
|
Me.cmbPorcentaje.Items.Add("70%")
|
|||
|
|
Me.cmbPorcentaje.Items.Add("80%")
|
|||
|
|
Me.cmbPorcentaje.Items.Add("90%")
|
|||
|
|
Me.cmbPorcentaje.Items.Add("95%")
|
|||
|
|
End If
|
|||
|
|
BanPorc = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbStatus_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbStatus.DropDown
|
|||
|
|
'Llena combo status
|
|||
|
|
If BanStatus = False Then
|
|||
|
|
'Para llenar el combo de status se utiliza el procedimiento almacenado "spListastatus"
|
|||
|
|
'clCmp4.sbLlenaCombo("select descstatus as nombre, id_status as clave from Status", Me.cmbStatus)
|
|||
|
|
clCmp4.sbLlenaCombo("sp_ConsultarListaStatusClt 0 ", cmbStatus)
|
|||
|
|
End If
|
|||
|
|
BanStatus = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dataGrid1.DoubleClick
|
|||
|
|
'Jesus L<>pez L<>pez 23-09-13
|
|||
|
|
|
|||
|
|
'JMVD 2014-08-20 AGREGO VARIABLE
|
|||
|
|
Dim iRow As Integer
|
|||
|
|
Dim iRowCount As Integer
|
|||
|
|
|
|||
|
|
'Se asigna los valores seleccionados del DataGrid hacia la forma CatStatus
|
|||
|
|
Try
|
|||
|
|
Dim dat As String
|
|||
|
|
|
|||
|
|
''----Revisar
|
|||
|
|
Dim FrmCalStatus As New FrmCalStatus
|
|||
|
|
FrmCalStatus.pb9 = IIf(IsDBNull(dataGrid1.Columns("Registro en Lista").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Registro en Lista").CellValue(dataGrid1.Row)) ''id_lista rest
|
|||
|
|
FrmCalStatus.pb = IIf(IsDBNull(dataGrid1.Columns("CLIENTE").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("CLIENTE").CellValue(dataGrid1.Row)) ''persona boletinada
|
|||
|
|
FrmCalStatus.pb1 = IIf(IsDBNull(dataGrid1.Columns("Porcentaje Nombre").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Porcentaje Nombre").CellValue(dataGrid1.Row)) ''porcentaje
|
|||
|
|
FrmCalStatus.pb2 = IIf(IsDBNull(dataGrid1.Columns("Organismo").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Organismo").CellValue(dataGrid1.Row)) ''organismo
|
|||
|
|
'FrmCalStatus.pb3 = IIf(IsDBNull(dataGrid1.Columns(4).CellValue(dataGrid1.Row)), "", dataGrid1.Columns(4).CellValue(dataGrid1.Row)) ''pais
|
|||
|
|
FrmCalStatus.pb4 = IIf(IsDBNull(dataGrid1.Columns("NIC").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("NIC").CellValue(dataGrid1.Row)) ''contrato
|
|||
|
|
FrmCalStatus.pb8 = IIf(IsDBNull(dataGrid1.Columns("Estatus").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Estatus").CellValue(dataGrid1.Row)) ''estado de coincidencia No Revisado
|
|||
|
|
FrmCalStatus.fecha = IIf(IsDBNull(dataGrid1.Columns("Fecha Coincidencia").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Fecha Coincidencia").CellValue(dataGrid1.Row)) ''Fecha coincidencia
|
|||
|
|
FrmCalStatus.Comentario = IIf(IsDBNull(dataGrid1.Columns("Comentario").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Comentario").CellValue(dataGrid1.Row)) ''ListCli.Comentario
|
|||
|
|
FrmCalStatus.pbIdFigura = IIf(IsDBNull(dataGrid1.Columns("Id_Figura").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Id_Figura").CellValue(dataGrid1.Row)) ''id_figura
|
|||
|
|
FrmCalStatus.pbNomFigura = IIf(IsDBNull(dataGrid1.Columns("Tipo Figura").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Tipo Figura").CellValue(dataGrid1.Row)) ''descripcion figura
|
|||
|
|
FrmCalStatus.pb5 = IIf(IsDBNull(dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)), "0", dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)) ''id estatus
|
|||
|
|
|
|||
|
|
FrmCalStatus.pb7 = IIf(IsDBNull(dataGrid1.Columns("Nombre Figura").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Nombre Figura").CellValue(dataGrid1.Row)) ''nombre de la figura
|
|||
|
|
'FrmCalStatus.pb10 = IIf(IsDBNull(dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)) ''ACTIVO
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
FrmCalStatus.ShowDialog()
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
'sbBuscar()
|
|||
|
|
'DataGrid1.CurrentRowIndex = iRow
|
|||
|
|
'iRowCount = clGrid.ds.Tables(0).Rows.Count - 1
|
|||
|
|
'If iRowCount > 0 Then
|
|||
|
|
' If iRowCount < iRow Then
|
|||
|
|
' DataGrid1.CurrentRowIndex = iRowCount
|
|||
|
|
' Else
|
|||
|
|
' DataGrid1.CurrentRowIndex = iRow
|
|||
|
|
' End If
|
|||
|
|
'End If
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub cmbOrganismo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbOrganismo.SelectedIndexChanged
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cmbStatus_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbStatus.SelectedIndexChanged
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub tlbInusualesDivisas_ButtonClick(sender As System.Object, e As System.Windows.Forms.ToolBarButtonClickEventArgs)
|
|||
|
|
'BOTONES DE LA TOOLBAR
|
|||
|
|
Select Case UCase(e.Button.Text)
|
|||
|
|
Case "BUSCAR"
|
|||
|
|
Me.Cursor = Cursors.WaitCursor
|
|||
|
|
sbBuscar()
|
|||
|
|
Me.Cursor = Cursors.Default
|
|||
|
|
Case "EXPORTAR"
|
|||
|
|
Exportar()
|
|||
|
|
Case "REFRESCAR"
|
|||
|
|
Refrescar()
|
|||
|
|
Case "CERRAR"
|
|||
|
|
Me.Close()
|
|||
|
|
End Select
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BTConsultar_Click(sender As System.Object, e As System.EventArgs) Handles BTConsultar.Click
|
|||
|
|
sbBuscar()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub dataGrid1_FetchCellStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles dataGrid1.FetchCellStyle
|
|||
|
|
|
|||
|
|
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()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
End Class
|