1231 lines
55 KiB
VB.net
1231 lines
55 KiB
VB.net
Public Class OperPreoAdmin
|
||
|
||
Inherits System.Windows.Forms.Form
|
||
Dim strProducto As String
|
||
#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 GroupBox2 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents txtDescripcion As System.Windows.Forms.TextBox
|
||
Friend WithEvents txtRazon As System.Windows.Forms.TextBox
|
||
Friend WithEvents Label25 As System.Windows.Forms.Label
|
||
Friend WithEvents Label24 As System.Windows.Forms.Label
|
||
Friend WithEvents Label23 As System.Windows.Forms.Label
|
||
Friend WithEvents Label22 As System.Windows.Forms.Label
|
||
Friend WithEvents Label21 As System.Windows.Forms.Label
|
||
Friend WithEvents Label20 As System.Windows.Forms.Label
|
||
Friend WithEvents Label19 As System.Windows.Forms.Label
|
||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||
Friend WithEvents Label17 As System.Windows.Forms.Label
|
||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents BntSalie As System.Windows.Forms.Button
|
||
Friend WithEvents BtnImprimir As System.Windows.Forms.Button
|
||
Friend WithEvents BtnAlta As System.Windows.Forms.Button
|
||
Friend WithEvents Btnbaja As System.Windows.Forms.Button
|
||
Friend WithEvents BtnCambios As System.Windows.Forms.Button
|
||
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
|
||
Friend WithEvents btnConsulta As System.Windows.Forms.Button
|
||
Friend WithEvents lblNumCuenta As System.Windows.Forms.Label
|
||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||
Friend WithEvents cboProducto As System.Windows.Forms.ComboBox
|
||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||
Friend WithEvents dtpFechaFinal As System.Windows.Forms.DateTimePicker
|
||
Friend WithEvents dtpFechaInicial As System.Windows.Forms.DateTimePicker
|
||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||
Friend WithEvents cboFuncionario As System.Windows.Forms.ComboBox
|
||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||
Private WithEvents panel2 As Panel
|
||
Private WithEvents Img_logoCabecera As PictureBox
|
||
Friend WithEvents desHeader As Label
|
||
Private WithEvents panel3 As Panel
|
||
Friend WithEvents Label14 As Label
|
||
Friend WithEvents lblFooter As Label
|
||
Friend WithEvents lblTotalreg As Label
|
||
Friend WithEvents Label6 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(OperPreoAdmin))
|
||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||
Me.lblNumCuenta = New System.Windows.Forms.Label()
|
||
Me.Label2 = New System.Windows.Forms.Label()
|
||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||
Me.Label6 = New System.Windows.Forms.Label()
|
||
Me.txtDescripcion = New System.Windows.Forms.TextBox()
|
||
Me.txtRazon = New System.Windows.Forms.TextBox()
|
||
Me.Label25 = New System.Windows.Forms.Label()
|
||
Me.Label24 = New System.Windows.Forms.Label()
|
||
Me.Label23 = New System.Windows.Forms.Label()
|
||
Me.Label22 = New System.Windows.Forms.Label()
|
||
Me.Label21 = New System.Windows.Forms.Label()
|
||
Me.Label20 = New System.Windows.Forms.Label()
|
||
Me.Label19 = New System.Windows.Forms.Label()
|
||
Me.Label18 = New System.Windows.Forms.Label()
|
||
Me.Label17 = New System.Windows.Forms.Label()
|
||
Me.Label16 = New System.Windows.Forms.Label()
|
||
Me.Label15 = New System.Windows.Forms.Label()
|
||
Me.Label13 = New System.Windows.Forms.Label()
|
||
Me.Label12 = New System.Windows.Forms.Label()
|
||
Me.Label11 = New System.Windows.Forms.Label()
|
||
Me.Label10 = New System.Windows.Forms.Label()
|
||
Me.Label9 = New System.Windows.Forms.Label()
|
||
Me.Label8 = New System.Windows.Forms.Label()
|
||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||
Me.Label4 = New System.Windows.Forms.Label()
|
||
Me.Label3 = New System.Windows.Forms.Label()
|
||
Me.Label5 = New System.Windows.Forms.Label()
|
||
Me.Label1 = New System.Windows.Forms.Label()
|
||
Me.cboFuncionario = New System.Windows.Forms.ComboBox()
|
||
Me.cboProducto = New System.Windows.Forms.ComboBox()
|
||
Me.dtpFechaFinal = New System.Windows.Forms.DateTimePicker()
|
||
Me.dtpFechaInicial = New System.Windows.Forms.DateTimePicker()
|
||
Me.BntSalie = New System.Windows.Forms.Button()
|
||
Me.BtnImprimir = New System.Windows.Forms.Button()
|
||
Me.BtnAlta = New System.Windows.Forms.Button()
|
||
Me.Btnbaja = New System.Windows.Forms.Button()
|
||
Me.BtnCambios = New System.Windows.Forms.Button()
|
||
Me.BtnLimpiar = New System.Windows.Forms.Button()
|
||
Me.btnConsulta = New System.Windows.Forms.Button()
|
||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||
Me.lblTotalreg = New System.Windows.Forms.Label()
|
||
Me.DataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||
Me.panel2 = New System.Windows.Forms.Panel()
|
||
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
|
||
Me.desHeader = New System.Windows.Forms.Label()
|
||
Me.panel3 = New System.Windows.Forms.Panel()
|
||
Me.Label14 = New System.Windows.Forms.Label()
|
||
Me.lblFooter = New System.Windows.Forms.Label()
|
||
Me.GroupBox2.SuspendLayout()
|
||
Me.GroupBox3.SuspendLayout()
|
||
Me.GroupBox1.SuspendLayout()
|
||
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.panel2.SuspendLayout()
|
||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.panel3.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'GroupBox2
|
||
'
|
||
Me.GroupBox2.Controls.Add(Me.lblNumCuenta)
|
||
Me.GroupBox2.Controls.Add(Me.Label2)
|
||
Me.GroupBox2.Controls.Add(Me.ComboBox1)
|
||
Me.GroupBox2.Controls.Add(Me.Label6)
|
||
Me.GroupBox2.Controls.Add(Me.txtDescripcion)
|
||
Me.GroupBox2.Controls.Add(Me.txtRazon)
|
||
Me.GroupBox2.Controls.Add(Me.Label25)
|
||
Me.GroupBox2.Controls.Add(Me.Label24)
|
||
Me.GroupBox2.Controls.Add(Me.Label23)
|
||
Me.GroupBox2.Controls.Add(Me.Label22)
|
||
Me.GroupBox2.Controls.Add(Me.Label21)
|
||
Me.GroupBox2.Controls.Add(Me.Label20)
|
||
Me.GroupBox2.Controls.Add(Me.Label19)
|
||
Me.GroupBox2.Controls.Add(Me.Label18)
|
||
Me.GroupBox2.Controls.Add(Me.Label17)
|
||
Me.GroupBox2.Controls.Add(Me.Label16)
|
||
Me.GroupBox2.Controls.Add(Me.Label15)
|
||
Me.GroupBox2.Controls.Add(Me.Label13)
|
||
Me.GroupBox2.Controls.Add(Me.Label12)
|
||
Me.GroupBox2.Controls.Add(Me.Label11)
|
||
Me.GroupBox2.Controls.Add(Me.Label10)
|
||
Me.GroupBox2.Controls.Add(Me.Label9)
|
||
Me.GroupBox2.Controls.Add(Me.Label8)
|
||
Me.GroupBox2.Location = New System.Drawing.Point(12, 387)
|
||
Me.GroupBox2.Name = "GroupBox2"
|
||
Me.GroupBox2.Size = New System.Drawing.Size(853, 163)
|
||
Me.GroupBox2.TabIndex = 19
|
||
Me.GroupBox2.TabStop = False
|
||
'
|
||
'lblNumCuenta
|
||
'
|
||
Me.lblNumCuenta.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.lblNumCuenta.Location = New System.Drawing.Point(332, 76)
|
||
Me.lblNumCuenta.Name = "lblNumCuenta"
|
||
Me.lblNumCuenta.Size = New System.Drawing.Size(114, 18)
|
||
Me.lblNumCuenta.TabIndex = 21
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label2.Location = New System.Drawing.Point(253, 77)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(73, 19)
|
||
Me.Label2.TabIndex = 20
|
||
Me.Label2.Text = "No. Cuenta"
|
||
'
|
||
'ComboBox1
|
||
'
|
||
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
|
||
Me.ComboBox1.Enabled = False
|
||
Me.ComboBox1.Location = New System.Drawing.Point(186, 163)
|
||
Me.ComboBox1.Name = "ComboBox1"
|
||
Me.ComboBox1.Size = New System.Drawing.Size(260, 23)
|
||
Me.ComboBox1.TabIndex = 5
|
||
Me.ComboBox1.Visible = False
|
||
'
|
||
'Label6
|
||
'
|
||
Me.Label6.Location = New System.Drawing.Point(44, 166)
|
||
Me.Label6.Name = "Label6"
|
||
Me.Label6.Size = New System.Drawing.Size(126, 18)
|
||
Me.Label6.TabIndex = 4
|
||
Me.Label6.Text = "Estatus de operaci<63>n:"
|
||
Me.Label6.Visible = False
|
||
'
|
||
'txtDescripcion
|
||
'
|
||
Me.txtDescripcion.Location = New System.Drawing.Point(118, 104)
|
||
Me.txtDescripcion.MaxLength = 4000
|
||
Me.txtDescripcion.Multiline = True
|
||
Me.txtDescripcion.Name = "txtDescripcion"
|
||
Me.txtDescripcion.Size = New System.Drawing.Size(328, 50)
|
||
Me.txtDescripcion.TabIndex = 19
|
||
'
|
||
'txtRazon
|
||
'
|
||
Me.txtRazon.Location = New System.Drawing.Point(550, 104)
|
||
Me.txtRazon.MaxLength = 1500
|
||
Me.txtRazon.Multiline = True
|
||
Me.txtRazon.Name = "txtRazon"
|
||
Me.txtRazon.Size = New System.Drawing.Size(268, 50)
|
||
Me.txtRazon.TabIndex = 18
|
||
'
|
||
'Label25
|
||
'
|
||
Me.Label25.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label25.Location = New System.Drawing.Point(550, 47)
|
||
Me.Label25.Name = "Label25"
|
||
Me.Label25.Size = New System.Drawing.Size(267, 18)
|
||
Me.Label25.TabIndex = 17
|
||
'
|
||
'Label24
|
||
'
|
||
Me.Label24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label24.Location = New System.Drawing.Point(550, 76)
|
||
Me.Label24.Name = "Label24"
|
||
Me.Label24.Size = New System.Drawing.Size(267, 18)
|
||
Me.Label24.TabIndex = 16
|
||
'
|
||
'Label23
|
||
'
|
||
Me.Label23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label23.Location = New System.Drawing.Point(118, 76)
|
||
Me.Label23.Name = "Label23"
|
||
Me.Label23.Size = New System.Drawing.Size(114, 18)
|
||
Me.Label23.TabIndex = 15
|
||
'
|
||
'Label22
|
||
'
|
||
Me.Label22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label22.Enabled = False
|
||
Me.Label22.Location = New System.Drawing.Point(550, 125)
|
||
Me.Label22.Name = "Label22"
|
||
Me.Label22.Size = New System.Drawing.Size(268, 18)
|
||
Me.Label22.TabIndex = 14
|
||
Me.Label22.Visible = False
|
||
'
|
||
'Label21
|
||
'
|
||
Me.Label21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label21.Location = New System.Drawing.Point(550, 18)
|
||
Me.Label21.Name = "Label21"
|
||
Me.Label21.Size = New System.Drawing.Size(267, 18)
|
||
Me.Label21.TabIndex = 13
|
||
'
|
||
'Label20
|
||
'
|
||
Me.Label20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label20.Location = New System.Drawing.Point(365, 20)
|
||
Me.Label20.Name = "Label20"
|
||
Me.Label20.Size = New System.Drawing.Size(81, 18)
|
||
Me.Label20.TabIndex = 12
|
||
'
|
||
'Label19
|
||
'
|
||
Me.Label19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label19.Location = New System.Drawing.Point(118, 46)
|
||
Me.Label19.Name = "Label19"
|
||
Me.Label19.Size = New System.Drawing.Size(328, 18)
|
||
Me.Label19.TabIndex = 11
|
||
'
|
||
'Label18
|
||
'
|
||
Me.Label18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.Label18.Location = New System.Drawing.Point(118, 20)
|
||
Me.Label18.Name = "Label18"
|
||
Me.Label18.Size = New System.Drawing.Size(112, 18)
|
||
Me.Label18.TabIndex = 10
|
||
'
|
||
'Label17
|
||
'
|
||
Me.Label17.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label17.Location = New System.Drawing.Point(44, 107)
|
||
Me.Label17.Name = "Label17"
|
||
Me.Label17.Size = New System.Drawing.Size(94, 23)
|
||
Me.Label17.TabIndex = 9
|
||
Me.Label17.Text = "Descripci<EFBFBD>n"
|
||
'
|
||
'Label16
|
||
'
|
||
Me.Label16.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label16.Location = New System.Drawing.Point(470, 105)
|
||
Me.Label16.Name = "Label16"
|
||
Me.Label16.Size = New System.Drawing.Size(55, 25)
|
||
Me.Label16.TabIndex = 8
|
||
Me.Label16.Text = "Raz<EFBFBD>n"
|
||
'
|
||
'Label15
|
||
'
|
||
Me.Label15.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label15.Location = New System.Drawing.Point(470, 49)
|
||
Me.Label15.Name = "Label15"
|
||
Me.Label15.Size = New System.Drawing.Size(105, 22)
|
||
Me.Label15.TabIndex = 7
|
||
Me.Label15.Text = "Monto"
|
||
'
|
||
'Label13
|
||
'
|
||
Me.Label13.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label13.Location = New System.Drawing.Point(470, 75)
|
||
Me.Label13.Name = "Label13"
|
||
Me.Label13.Size = New System.Drawing.Size(76, 19)
|
||
Me.Label13.TabIndex = 5
|
||
Me.Label13.Text = "Transacci<EFBFBD>n"
|
||
'
|
||
'Label12
|
||
'
|
||
Me.Label12.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label12.Location = New System.Drawing.Point(44, 75)
|
||
Me.Label12.Name = "Label12"
|
||
Me.Label12.Size = New System.Drawing.Size(58, 19)
|
||
Me.Label12.TabIndex = 4
|
||
Me.Label12.Text = "IdCuenta"
|
||
'
|
||
'Label11
|
||
'
|
||
Me.Label11.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label11.Location = New System.Drawing.Point(44, 48)
|
||
Me.Label11.Name = "Label11"
|
||
Me.Label11.Size = New System.Drawing.Size(58, 14)
|
||
Me.Label11.TabIndex = 3
|
||
Me.Label11.Text = "Nombre"
|
||
'
|
||
'Label10
|
||
'
|
||
Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label10.Location = New System.Drawing.Point(470, 21)
|
||
Me.Label10.Name = "Label10"
|
||
Me.Label10.Size = New System.Drawing.Size(81, 17)
|
||
Me.Label10.TabIndex = 2
|
||
Me.Label10.Text = "Nacionalidad"
|
||
'
|
||
'Label9
|
||
'
|
||
Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label9.Location = New System.Drawing.Point(253, 21)
|
||
Me.Label9.Name = "Label9"
|
||
Me.Label9.Size = New System.Drawing.Size(116, 15)
|
||
Me.Label9.TabIndex = 1
|
||
Me.Label9.Text = "Tipo de persona"
|
||
'
|
||
'Label8
|
||
'
|
||
Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label8.Location = New System.Drawing.Point(44, 23)
|
||
Me.Label8.Name = "Label8"
|
||
Me.Label8.Size = New System.Drawing.Size(65, 15)
|
||
Me.Label8.TabIndex = 0
|
||
Me.Label8.Text = "Fecha"
|
||
'
|
||
'ImageList1
|
||
'
|
||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
||
Me.ImageList1.Images.SetKeyName(0, "")
|
||
Me.ImageList1.Images.SetKeyName(1, "")
|
||
Me.ImageList1.Images.SetKeyName(2, "")
|
||
Me.ImageList1.Images.SetKeyName(3, "")
|
||
Me.ImageList1.Images.SetKeyName(4, "")
|
||
Me.ImageList1.Images.SetKeyName(5, "")
|
||
Me.ImageList1.Images.SetKeyName(6, "")
|
||
Me.ImageList1.Images.SetKeyName(7, "")
|
||
Me.ImageList1.Images.SetKeyName(8, "")
|
||
Me.ImageList1.Images.SetKeyName(9, "")
|
||
'
|
||
'GroupBox3
|
||
'
|
||
Me.GroupBox3.Controls.Add(Me.Label4)
|
||
Me.GroupBox3.Controls.Add(Me.Label3)
|
||
Me.GroupBox3.Controls.Add(Me.Label5)
|
||
Me.GroupBox3.Controls.Add(Me.Label1)
|
||
Me.GroupBox3.Controls.Add(Me.cboFuncionario)
|
||
Me.GroupBox3.Controls.Add(Me.cboProducto)
|
||
Me.GroupBox3.Controls.Add(Me.dtpFechaFinal)
|
||
Me.GroupBox3.Controls.Add(Me.dtpFechaInicial)
|
||
Me.GroupBox3.Location = New System.Drawing.Point(12, 54)
|
||
Me.GroupBox3.Name = "GroupBox3"
|
||
Me.GroupBox3.Size = New System.Drawing.Size(855, 82)
|
||
Me.GroupBox3.TabIndex = 21
|
||
Me.GroupBox3.TabStop = False
|
||
'
|
||
'Label4
|
||
'
|
||
Me.Label4.AutoSize = True
|
||
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label4.Location = New System.Drawing.Point(232, 56)
|
||
Me.Label4.Name = "Label4"
|
||
Me.Label4.Size = New System.Drawing.Size(71, 15)
|
||
Me.Label4.TabIndex = 89
|
||
Me.Label4.Text = "Fecha Final"
|
||
'
|
||
'Label3
|
||
'
|
||
Me.Label3.AutoSize = True
|
||
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label3.Location = New System.Drawing.Point(15, 56)
|
||
Me.Label3.Name = "Label3"
|
||
Me.Label3.Size = New System.Drawing.Size(76, 15)
|
||
Me.Label3.TabIndex = 89
|
||
Me.Label3.Text = "Fecha Inicial"
|
||
'
|
||
'Label5
|
||
'
|
||
Me.Label5.AutoSize = True
|
||
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label5.Location = New System.Drawing.Point(420, 20)
|
||
Me.Label5.Name = "Label5"
|
||
Me.Label5.Size = New System.Drawing.Size(117, 15)
|
||
Me.Label5.TabIndex = 87
|
||
Me.Label5.Text = "Ejecutivo BlackRock"
|
||
'
|
||
'Label1
|
||
'
|
||
Me.Label1.AutoSize = True
|
||
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label1.Location = New System.Drawing.Point(15, 21)
|
||
Me.Label1.Name = "Label1"
|
||
Me.Label1.Size = New System.Drawing.Size(56, 15)
|
||
Me.Label1.TabIndex = 87
|
||
Me.Label1.Text = "Producto"
|
||
'
|
||
'cboFuncionario
|
||
'
|
||
Me.cboFuncionario.FormattingEnabled = True
|
||
Me.cboFuncionario.Location = New System.Drawing.Point(541, 21)
|
||
Me.cboFuncionario.Name = "cboFuncionario"
|
||
Me.cboFuncionario.Size = New System.Drawing.Size(306, 23)
|
||
Me.cboFuncionario.TabIndex = 88
|
||
'
|
||
'cboProducto
|
||
'
|
||
Me.cboProducto.FormattingEnabled = True
|
||
Me.cboProducto.Location = New System.Drawing.Point(100, 20)
|
||
Me.cboProducto.Name = "cboProducto"
|
||
Me.cboProducto.Size = New System.Drawing.Size(314, 23)
|
||
Me.cboProducto.TabIndex = 88
|
||
'
|
||
'dtpFechaFinal
|
||
'
|
||
Me.dtpFechaFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||
Me.dtpFechaFinal.Location = New System.Drawing.Point(313, 51)
|
||
Me.dtpFechaFinal.Name = "dtpFechaFinal"
|
||
Me.dtpFechaFinal.Size = New System.Drawing.Size(101, 21)
|
||
Me.dtpFechaFinal.TabIndex = 7
|
||
'
|
||
'dtpFechaInicial
|
||
'
|
||
Me.dtpFechaInicial.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||
Me.dtpFechaInicial.Location = New System.Drawing.Point(100, 51)
|
||
Me.dtpFechaInicial.Name = "dtpFechaInicial"
|
||
Me.dtpFechaInicial.Size = New System.Drawing.Size(101, 21)
|
||
Me.dtpFechaInicial.TabIndex = 7
|
||
'
|
||
'BntSalie
|
||
'
|
||
Me.BntSalie.BackColor = System.Drawing.Color.Black
|
||
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BntSalie.ForeColor = System.Drawing.Color.White
|
||
Me.BntSalie.Location = New System.Drawing.Point(871, 517)
|
||
Me.BntSalie.Name = "BntSalie"
|
||
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
|
||
Me.BntSalie.TabIndex = 85
|
||
Me.BntSalie.Text = "Cerrar"
|
||
Me.BntSalie.UseCompatibleTextRendering = True
|
||
Me.BntSalie.UseVisualStyleBackColor = False
|
||
'
|
||
'BtnImprimir
|
||
'
|
||
Me.BtnImprimir.BackColor = System.Drawing.Color.Black
|
||
Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BtnImprimir.ForeColor = System.Drawing.Color.White
|
||
Me.BtnImprimir.Location = New System.Drawing.Point(873, 98)
|
||
Me.BtnImprimir.Name = "BtnImprimir"
|
||
Me.BtnImprimir.Size = New System.Drawing.Size(106, 33)
|
||
Me.BtnImprimir.TabIndex = 84
|
||
Me.BtnImprimir.Text = "Exportar"
|
||
Me.BtnImprimir.UseCompatibleTextRendering = True
|
||
Me.BtnImprimir.UseVisualStyleBackColor = False
|
||
Me.BtnImprimir.Visible = False
|
||
'
|
||
'BtnAlta
|
||
'
|
||
Me.BtnAlta.BackColor = System.Drawing.Color.Black
|
||
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BtnAlta.ForeColor = System.Drawing.Color.White
|
||
Me.BtnAlta.Location = New System.Drawing.Point(871, 441)
|
||
Me.BtnAlta.Name = "BtnAlta"
|
||
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
|
||
Me.BtnAlta.TabIndex = 83
|
||
Me.BtnAlta.Text = "Guardar"
|
||
Me.BtnAlta.UseCompatibleTextRendering = True
|
||
Me.BtnAlta.UseVisualStyleBackColor = False
|
||
'
|
||
'Btnbaja
|
||
'
|
||
Me.Btnbaja.BackColor = System.Drawing.Color.Black
|
||
Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Btnbaja.ForeColor = System.Drawing.Color.White
|
||
Me.Btnbaja.Location = New System.Drawing.Point(873, 59)
|
||
Me.Btnbaja.Name = "Btnbaja"
|
||
Me.Btnbaja.Size = New System.Drawing.Size(106, 33)
|
||
Me.Btnbaja.TabIndex = 82
|
||
Me.Btnbaja.Text = "Baja"
|
||
Me.Btnbaja.UseCompatibleTextRendering = True
|
||
Me.Btnbaja.UseVisualStyleBackColor = False
|
||
Me.Btnbaja.Visible = False
|
||
'
|
||
'BtnCambios
|
||
'
|
||
Me.BtnCambios.BackColor = System.Drawing.Color.Black
|
||
Me.BtnCambios.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BtnCambios.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BtnCambios.ForeColor = System.Drawing.Color.White
|
||
Me.BtnCambios.Location = New System.Drawing.Point(872, 136)
|
||
Me.BtnCambios.Name = "BtnCambios"
|
||
Me.BtnCambios.Size = New System.Drawing.Size(107, 33)
|
||
Me.BtnCambios.TabIndex = 81
|
||
Me.BtnCambios.Text = "Ctas Relacionadas..."
|
||
Me.BtnCambios.UseCompatibleTextRendering = True
|
||
Me.BtnCambios.UseVisualStyleBackColor = False
|
||
Me.BtnCambios.Visible = False
|
||
'
|
||
'BtnLimpiar
|
||
'
|
||
Me.BtnLimpiar.BackColor = System.Drawing.Color.Black
|
||
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BtnLimpiar.ForeColor = System.Drawing.Color.White
|
||
Me.BtnLimpiar.Location = New System.Drawing.Point(871, 480)
|
||
Me.BtnLimpiar.Name = "BtnLimpiar"
|
||
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
|
||
Me.BtnLimpiar.TabIndex = 80
|
||
Me.BtnLimpiar.Text = "Limpiar"
|
||
Me.BtnLimpiar.UseCompatibleTextRendering = True
|
||
Me.BtnLimpiar.UseVisualStyleBackColor = False
|
||
'
|
||
'btnConsulta
|
||
'
|
||
Me.btnConsulta.BackColor = System.Drawing.Color.Black
|
||
Me.btnConsulta.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.btnConsulta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.btnConsulta.ForeColor = System.Drawing.Color.White
|
||
Me.btnConsulta.Location = New System.Drawing.Point(873, 309)
|
||
Me.btnConsulta.Name = "btnConsulta"
|
||
Me.btnConsulta.Size = New System.Drawing.Size(106, 33)
|
||
Me.btnConsulta.TabIndex = 79
|
||
Me.btnConsulta.Text = "Buscar"
|
||
Me.btnConsulta.UseCompatibleTextRendering = True
|
||
Me.btnConsulta.UseVisualStyleBackColor = False
|
||
'
|
||
'GroupBox1
|
||
'
|
||
Me.GroupBox1.Controls.Add(Me.lblTotalreg)
|
||
Me.GroupBox1.Controls.Add(Me.DataGrid1)
|
||
Me.GroupBox1.Location = New System.Drawing.Point(13, 142)
|
||
Me.GroupBox1.Name = "GroupBox1"
|
||
Me.GroupBox1.Size = New System.Drawing.Size(852, 239)
|
||
Me.GroupBox1.TabIndex = 0
|
||
Me.GroupBox1.TabStop = False
|
||
'
|
||
'lblTotalreg
|
||
'
|
||
Me.lblTotalreg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||
Me.lblTotalreg.AutoSize = True
|
||
Me.lblTotalreg.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.lblTotalreg.Location = New System.Drawing.Point(9, 203)
|
||
Me.lblTotalreg.Name = "lblTotalreg"
|
||
Me.lblTotalreg.Size = New System.Drawing.Size(45, 15)
|
||
Me.lblTotalreg.TabIndex = 15
|
||
Me.lblTotalreg.Text = "Label7"
|
||
Me.lblTotalreg.Visible = False
|
||
'
|
||
'DataGrid1
|
||
'
|
||
Me.DataGrid1.AllowUpdate = False
|
||
Me.DataGrid1.CaptionHeight = 17
|
||
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(7, 13)
|
||
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(839, 187)
|
||
Me.DataGrid1.TabIndex = 4
|
||
Me.DataGrid1.Text = "C1TrueDBGrid1"
|
||
Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag")
|
||
'
|
||
'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.desHeader)
|
||
Me.panel2.ForeColor = System.Drawing.Color.Navy
|
||
Me.panel2.Location = New System.Drawing.Point(0, -4)
|
||
Me.panel2.Name = "panel2"
|
||
Me.panel2.Size = New System.Drawing.Size(990, 52)
|
||
Me.panel2.TabIndex = 363
|
||
'
|
||
'Img_logoCabecera
|
||
'
|
||
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
|
||
Me.Img_logoCabecera.Location = New System.Drawing.Point(860, 0)
|
||
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
|
||
'
|
||
'desHeader
|
||
'
|
||
Me.desHeader.AutoSize = True
|
||
Me.desHeader.BackColor = System.Drawing.Color.Transparent
|
||
Me.desHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.desHeader.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.desHeader.Location = New System.Drawing.Point(21, 8)
|
||
Me.desHeader.Name = "desHeader"
|
||
Me.desHeader.Size = New System.Drawing.Size(528, 22)
|
||
Me.desHeader.TabIndex = 2
|
||
Me.desHeader.Text = "Reporte de Operaciones Preocupantes con Transacci<63>n"
|
||
'
|
||
'panel3
|
||
'
|
||
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||
Me.panel3.BackColor = System.Drawing.Color.Black
|
||
Me.panel3.Controls.Add(Me.Label14)
|
||
Me.panel3.Controls.Add(Me.lblFooter)
|
||
Me.panel3.ForeColor = System.Drawing.Color.Navy
|
||
Me.panel3.Location = New System.Drawing.Point(0, 574)
|
||
Me.panel3.Name = "panel3"
|
||
Me.panel3.Size = New System.Drawing.Size(990, 33)
|
||
Me.panel3.TabIndex = 364
|
||
'
|
||
'Label14
|
||
'
|
||
Me.Label14.AutoSize = True
|
||
Me.Label14.BackColor = System.Drawing.Color.Transparent
|
||
Me.Label14.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label14.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.Label14.Location = New System.Drawing.Point(937, 6)
|
||
Me.Label14.Name = "Label14"
|
||
Me.Label14.Size = New System.Drawing.Size(42, 17)
|
||
Me.Label14.TabIndex = 3
|
||
Me.Label14.Text = "Minds"
|
||
'
|
||
'lblFooter
|
||
'
|
||
Me.lblFooter.AutoSize = True
|
||
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
|
||
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
|
||
Me.lblFooter.Name = "lblFooter"
|
||
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
|
||
Me.lblFooter.TabIndex = 2
|
||
Me.lblFooter.Text = "Minds"
|
||
'
|
||
'OperPreoAdmin
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
|
||
Me.BackColor = System.Drawing.Color.White
|
||
Me.ClientSize = New System.Drawing.Size(989, 601)
|
||
Me.Controls.Add(Me.panel3)
|
||
Me.Controls.Add(Me.panel2)
|
||
Me.Controls.Add(Me.BntSalie)
|
||
Me.Controls.Add(Me.BtnImprimir)
|
||
Me.Controls.Add(Me.BtnAlta)
|
||
Me.Controls.Add(Me.Btnbaja)
|
||
Me.Controls.Add(Me.BtnCambios)
|
||
Me.Controls.Add(Me.BtnLimpiar)
|
||
Me.Controls.Add(Me.btnConsulta)
|
||
Me.Controls.Add(Me.GroupBox3)
|
||
Me.Controls.Add(Me.GroupBox2)
|
||
Me.Controls.Add(Me.GroupBox1)
|
||
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.MaximizeBox = False
|
||
Me.MinimizeBox = False
|
||
Me.Name = "OperPreoAdmin"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "Administraci<EFBFBD>n de Operaciones Preocupantes con Transacci<63>n"
|
||
Me.GroupBox2.ResumeLayout(False)
|
||
Me.GroupBox2.PerformLayout()
|
||
Me.GroupBox3.ResumeLayout(False)
|
||
Me.GroupBox3.PerformLayout()
|
||
Me.GroupBox1.ResumeLayout(False)
|
||
Me.GroupBox1.PerformLayout()
|
||
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me.panel2.ResumeLayout(False)
|
||
Me.panel2.PerformLayout()
|
||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me.panel3.ResumeLayout(False)
|
||
Me.panel3.PerformLayout()
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
Private Sub OperPreoAdmin_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
|
||
clsVaribles.lnidTranPreo = 0
|
||
End Sub
|
||
|
||
Private Sub OperPreoAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
Dim ClassCom As New clsComplejo
|
||
'llenacombo
|
||
ClassCom.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.ComboBox1)
|
||
|
||
If ComboBox1.Items.Count > 0 Then
|
||
ComboBox1.SelectedIndex = 2
|
||
End If
|
||
ClassCom = Nothing
|
||
ClassCom = New clsComplejo
|
||
'ClassCom.sbLlenaCombo("spConProducto", cboProducto)
|
||
ClassCom.sbLlenaCombo("sp_ConsultarProducto 0,1", cboProducto)
|
||
cboProducto.SelectedIndex = -1
|
||
|
||
ClassCom = Nothing
|
||
ClassCom = New clsComplejo
|
||
ClassCom.sbLlenaCombo("sp_ConsultaXFuncionario ", cboFuncionario)
|
||
cboFuncionario.SelectedIndex = -1
|
||
|
||
desHeader.Text = Me.Text
|
||
'strProducto = ClassCom.BuscaValores("producto", "cat_producto", "idproducto = " & clsVaribles.idproducto)
|
||
|
||
End Sub
|
||
|
||
Private Sub Consultar()
|
||
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
|
||
|
||
If cboProducto.SelectedIndex < 0 Then
|
||
MsgBox("Seleccione un Producto." + vbInformation)
|
||
cboProducto.Focus()
|
||
|
||
Exit Sub
|
||
End If
|
||
|
||
'If cboFuncionario.SelectedIndex < 0 Then
|
||
' Exit Sub
|
||
'End If
|
||
|
||
|
||
|
||
|
||
Dim ClassCom As New clsComplejo
|
||
Dim strSQL As String
|
||
|
||
clsVaribles.idtransaccion = 0
|
||
clsVaribles.idCuenta = 0
|
||
|
||
DataGrid1.DataSource = Nothing
|
||
|
||
If cboFuncionario.Text = "" Then cboFuncionario.SelectedIndex = -1
|
||
|
||
Try
|
||
|
||
strProducto = cboProducto.Text
|
||
|
||
clsVaribles.idproducto = cboProducto.SelectedValue
|
||
|
||
If strProducto <> "" And clsVaribles.idproducto <> 5 Then
|
||
|
||
|
||
Select Case cboProducto.Text
|
||
|
||
Case "CREDITO"
|
||
strSQL = " sp_ReportPreocupanteCredito " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") &
|
||
"," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL"
|
||
|
||
Case "BANCA INTERNACIONAL"
|
||
strSQL = "sp_ReportPreocupanteBI " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") &
|
||
"," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL"
|
||
|
||
Case "MERCADO DE CAPITALES" '"MERCADO DE CAPITALES"
|
||
strSQL = "sp_ReportPreocupanteMCapitales " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") &
|
||
"," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL"
|
||
|
||
Case "BANCA TRADICIONAL"
|
||
strSQL = "sp_ReportPreocupanteBT " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") &
|
||
"," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL"
|
||
|
||
Case "DIVISAS"
|
||
strSQL = "sp_ReportPreocupanteDivisas " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") &
|
||
"," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL"
|
||
|
||
Case Else
|
||
Exit Sub
|
||
End Select
|
||
|
||
|
||
|
||
'strSQL = " SELECT p.idtransaccion 'Transacci<63>n',p.FECHA 'Fecha',c.idcliente 'Id. Cliente', c.NIC, CT.idcuenta 'Id. Cuenta', "
|
||
'strSQL = strSQL & "CT.NoCuenta 'No. de Cuenta', '$' +Convert(varchar,p.MONTOMB,8) AS 'Monto', "
|
||
'strSQL = strSQL & "isnull(f.nombre,'') + ' ' + isnull(f.apellidopaterno,'') as 'Nombre Funcionario', "
|
||
'strSQL = strSQL & "isnull(Tra.nota,'') 'Descripci<63>n',isnull(Tra.razon,'') 'Raz<61>n', isnull(et.ESTATUSALARMA,'') EstatusTransaccion "
|
||
'strSQL = strSQL & "FROM " & strProducto & " p "
|
||
'strSQL = strSQL & "left join cuenta Ct on p.idcuenta = Ct.idcuenta "
|
||
'strSQL = strSQL & "left join cliente C on Ct.idcliente = C.idcliente "
|
||
'strSQL = strSQL & "left join funcionario f on f.Idfuncionario = p.Idfuncionario "
|
||
'strSQL = strSQL & "left join transaccionreporte Tra on p.idtransaccion=tra.idtransaccion "
|
||
'strSQL = strSQL & "left join Cat_EstatusAlarma ET ON TRa.IdEstatusAlarma = ET.IdEstatusAlarma"
|
||
|
||
'If clsVaribles.lnidTranPreo > 0 Then
|
||
' strSQL = strSQL & " where p.idtransaccion = " & clsVaribles.lnidTranPreo
|
||
'Else
|
||
' strSQL = strSQL & " where convert(char(10), p.FECHA,112) BETWEEN '" & ClassCom.ObtenFecha(dtpFechaInicial.Value, "YYYYMMDD") & "' and '" & ClassCom.ObtenFecha(dtpFechaFinal.Value, "YYYYMMDD") & "'"
|
||
'End If
|
||
|
||
|
||
|
||
ClassCom.fdtDataSetTabla(strSQL)
|
||
|
||
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
Me.DataGrid1.SetDataBinding(ClassCom.ds, "tabla")
|
||
lblTotalreg.Visible = True
|
||
lblTotalreg.Text = "Total de Registros " & ClassCom.ds.Tables(0).Rows.Count
|
||
End If
|
||
|
||
|
||
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In DataGrid1.Splits(0).DisplayColumns
|
||
col.AutoSize()
|
||
If InStr(col.Name, "ID") > 0 Then
|
||
col.Visible = False
|
||
End If
|
||
Next
|
||
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error al cargar los datos", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick
|
||
Dim FilaActual As Integer
|
||
Dim strSQL As String
|
||
Dim Classcom As New clsComplejo
|
||
Dim fila As DataRow
|
||
Dim filadet As DataRow
|
||
Dim liEstatus As Integer = 0
|
||
Try
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
|
||
|
||
'If DataGrid1.CurrentRowIndex < 0 Then
|
||
' Exit Sub
|
||
'End If
|
||
|
||
If DataGrid1.RowCount < 0 Then
|
||
Exit Sub
|
||
End If
|
||
|
||
'FilaActual = DataGrid1.CurrentRowIndex
|
||
clsVaribles.idtransaccion = DataGrid1.Columns("IDTRANSACCION").Value 'DataGrid1.Item(FilaActual, 0)
|
||
clsVaribles.idCuenta = DataGrid1.Columns("IDCUENTA").Value 'DataGrid1.Item(FilaActual, 4)
|
||
clsVaribles.numCuenta = DataGrid1.Columns("NOCUENTA").Value 'DataGrid1.Item(FilaActual, 5)
|
||
clsVaribles.Id_Patron = 1
|
||
|
||
|
||
|
||
'ClsVariables.VarIdCliente = GrdBusqueda.Item(FilaActual, 0)
|
||
|
||
|
||
'strSQL = "SELECT A.Fecha,c.idtipopersona,c.idnacionalidad,isnull(c.nombre + ' ' + isnull(c.apellidopaterno,'') + ' ' + isnull(c.apellidomaterno,''),' ') as Nombre, a.idsubproducto,"
|
||
'strSQL = strSQL & " '$' + Convert(varchar,a.Montomb,8) as Montomb,a.idcuenta Cuenta, a.idtransaccion transaccion " ',a.no_referencia referencia
|
||
'strSQL = strSQL & " ,d.nota,d.razon "
|
||
'strSQL = strSQL & " FROM " & strProducto & " a "
|
||
'strSQL = strSQL & " inner join Cuenta b on a.idcuenta = b.idcuenta "
|
||
'strSQL = strSQL & " inner join cliente c on b.idcliente = c.idcliente "
|
||
'strSQL = strSQL & " left join transaccionreporte d on a.idtransaccion=d.idtransaccion "
|
||
'strSQL = strSQL & " WHERE a.idtransaccion = " & DataGrid1.Item(FilaActual, 0)
|
||
|
||
'Classcom.fdtDataSet(strSQL)
|
||
|
||
'If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
' fila = Classcom.ds.Tables(0).Rows(0)
|
||
|
||
' 'Label18 = fecha
|
||
' 'Label20 = tipopersona
|
||
' '21 = nacionalidad
|
||
' '19 = nombre
|
||
' '25 = monto
|
||
' '23 = cuenta
|
||
' '24 = transaccion
|
||
' '22 = referencia
|
||
|
||
' lblNumCuenta.Text = clsVaribles.numCuenta
|
||
' Label18.Text = fila("fecha")
|
||
' Label20.Text = IIf(fila("idtipopersona") = 1, "F<>sica", "Moral")
|
||
' Label20.Tag = fila("idtipopersona")
|
||
' Label21.Text = IIf(fila("idnacionalidad") = 1, "Mexicana", "Extranjera")
|
||
' Label21.Tag = fila("idnacionalidad")
|
||
' Label19.Text = fila("nombre")
|
||
' Label25.Text = fila("montomb")
|
||
' Label23.Text = fila("cuenta")
|
||
' clsVaribles.idCuenta = fila("cuenta")
|
||
' Label24.Text = fila("transaccion")
|
||
' clsVaribles.idtransaccion = fila("transaccion")
|
||
' ' Label22.Text = fila("referencia")
|
||
' txtRazon.Text = IIf(IsDBNull(fila("razon")), "", fila("razon"))
|
||
' txtDescripcion.Text = IIf(IsDBNull(fila("nota")), "", fila("nota"))
|
||
' Classcom = New clsComplejo
|
||
' strSQL = "SELECT A.Fecha,c.idtipopersona,c.idnacionalidad,c.nombre + ' ' + isnull(c.apellidopaterno,'') + ' ' + isnull(c.apellidomaterno,'') as Nombre, a.idsubproducto,"
|
||
' strSQL = strSQL & " a.Montomb,a.idCuenta Cuenta,a.idtransaccion transaccion,t.nota,t.razon " ',a.no_referencia referencia
|
||
' strSQL = strSQL & " FROM " & strProducto & " a,Cuenta b,cliente c, transaccionreporte t "
|
||
' strSQL = strSQL & " WHERE a.idtransaccion = " & DataGrid1.Item(FilaActual, 0)
|
||
' strSQL = strSQL & " AND a.idcuenta = b.idcuenta "
|
||
' strSQL = strSQL & " AND b.idcliente = c.idcliente and t.idtransaccion = a.idtransaccion and idalarma = 3"
|
||
|
||
' Classcom.fdtDataSet(strSQL)
|
||
|
||
' If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
' filadet = Classcom.ds.Tables(0).Rows(0)
|
||
' txtRazon.Text = IIf(IsDBNull(filadet("razon")), "", filadet("razon"))
|
||
' txtDescripcion.Text = IIf(IsDBNull(filadet("nota")), "", filadet("nota"))
|
||
|
||
' End If
|
||
' ' strProducto = Classcom.BuscaValores("id_estatustransaccion", "transaccionreporte", "idproducto = " & clsVaribles.idproducto)
|
||
|
||
|
||
|
||
' liEstatus = Classcom.BuscaValores("idestatustransaccion", "transaccionreporte", "idalarma = 3 and idtransaccion = " & DataGrid1.Item(FilaActual, 0) & " and idproducto = " & clsVaribles.idproducto)
|
||
|
||
|
||
|
||
' ComboBox1.SelectedValue = liEstatus
|
||
' clsVaribles.Id_SubProducto = fila("idsubproducto")
|
||
|
||
|
||
|
||
'End If
|
||
|
||
|
||
'Label18 = fecha
|
||
'Label20 = tipopersona
|
||
'21 = nacionalidad
|
||
'19 = nombre
|
||
'25 = monto
|
||
'23 = cuenta
|
||
'24 = transaccion
|
||
'22 = referencia
|
||
|
||
lblNumCuenta.Text = clsVaribles.numCuenta
|
||
Label18.Text = DataGrid1.Columns("FECHA").Value 'fila("fecha")
|
||
Label20.Text = DataGrid1.Columns("IDTIPOPERSONA").Value 'IIf(fila("idtipopersona") = 1, "F<>sica", "Moral")
|
||
Label20.Tag = DataGrid1.Columns("IDTIPOPERSONA").Value
|
||
Label21.Text = IIf(DataGrid1.Columns("IDTIPOPERSONA").Value = 1, "Mexicana", "Extranjera")
|
||
Label21.Tag = DataGrid1.Columns("IDNACIONALIDAD").Value ' fila("idnacionalidad")
|
||
Label19.Text = DataGrid1.Columns("NOMBREORAZONS").Value ' fila("nombre")
|
||
Label25.Text = DataGrid1.Columns("MONTOMB").Value 'fila("montomb")
|
||
Label23.Text = DataGrid1.Columns("IDCUENTA").Value 'fila("cuenta")
|
||
clsVaribles.idCuenta = DataGrid1.Columns("IDCUENTA").Value ' fila("cuenta")
|
||
Label24.Text = DataGrid1.Columns("IDTRANSACCION").Value 'fila("transaccion")
|
||
clsVaribles.idtransaccion = DataGrid1.Columns("IDTRANSACCION").Value 'fila("transaccion")
|
||
' Label22.Text = fila("referencia")
|
||
txtRazon.Text = DataGrid1.Columns("RAZON").Value 'IIf(IsDBNull(fila("razon")), "", fila("razon"))
|
||
txtDescripcion.Text = DataGrid1.Columns("NOTA").Value 'IIf(IsDBNull(fila("nota")), "", fila("nota"))
|
||
|
||
|
||
liEstatus = Classcom.BuscaValores("idEstatusAlarma", "transaccionreporte", "IDTIPOALARMA = 3 and idtransaccion = " & DataGrid1.Columns("IDTRANSACCION").Value & " and idproducto = " & clsVaribles.idproducto)
|
||
|
||
clsVaribles.Id_SubProducto = DataGrid1.Columns("IDSUBPRODUCTO").Value
|
||
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error al consultar los datos:" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
|
||
End Try
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
|
||
Dim strSQL As String
|
||
Dim Classcom As New clsComplejo
|
||
Dim FilaActual As Integer
|
||
Dim Fila As DataRow
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim IntIdAlarma As Integer
|
||
|
||
If clsVaribles.lbDemo = True Then Exit Sub
|
||
Dim strproducto As String
|
||
Dim insta As New VariablesGlobales
|
||
'insta.TipoAlarma = 1 ' para preocupantes
|
||
Dim idAlarma As Integer
|
||
'If insta.TipoAlarma = 1 Then
|
||
' IntIdAlarma = 2
|
||
IntIdAlarma = 3
|
||
idAlarma = 3
|
||
'Else
|
||
' IntIdAlarma = 4
|
||
'End If
|
||
|
||
|
||
If validar() Then
|
||
|
||
|
||
strproducto = Classcom.BuscaValores("producto", "cat_producto", "idproducto = " & clsVaribles.idproducto)
|
||
'FilaActual = DataGrid1.CurrentRowIndex
|
||
If strproducto = "MERCADO DE DINERO" Then strproducto = "MERCADODECAPITALES"
|
||
strSQL = "SELECT T.idtransaccion FROM TRANSACCIONREPORTE T INNER JOIN " & strproducto.Replace(" ", "") & " P ON P.idtransaccion = t.idtransaccion "
|
||
strSQL = strSQL & " inner join cat_producto pr on pr.idproducto = t.idproducto and p.idtransaccion = " & Label24.Text ' DataGrid1.Item(FilaActual, 0)
|
||
strSQL = strSQL & " where t.idTIPOalarma = " & IntIdAlarma & " and t.IDPRODUCTO = " & cboProducto.SelectedValue
|
||
strSQL = strSQL & " and T.IDPATRON=1"
|
||
Classcom = New clsComplejo
|
||
Classcom.fdtDataSet(strSQL)
|
||
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
|
||
|
||
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 1," & DataGrid1.Item(FilaActual, 0) & ",'" & clsVaribles.idproducto & "','105'")
|
||
|
||
|
||
strSQL = "update transaccionreporte set IdEstatusAlarma = " & IntIdAlarma & ",razon = '" & txtRazon.Text & "', "
|
||
strSQL = strSQL & "nota = '" & txtDescripcion.Text & "' where idTipoAlarma = " & IntIdAlarma & " and idtransaccion = " & Label24.Text & " and IDPRODUCTO = " & cboProducto.SelectedValue
|
||
'DataGrid1.Item(FilaActual, 0)
|
||
Classcom.sbModifica2(strSQL)
|
||
|
||
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, clsVaribles.lsValAnt & "Inserci<63>n: Transaccion = " & Label24.Text & " Producto = " & strproducto & " Estatus = " & Me.ComboBox1.Text & " razon = " & txtDescripcion.Text.Trim & " Nota = " & Me.txtRazon.Text)
|
||
|
||
|
||
Else
|
||
|
||
'strSQL = "INSERT INTO TRANSACCIONREPORTE ("
|
||
'strSQL = strSQL & "idtransaccion,idproducto,idsubproducto,idalarma,idpatron, "
|
||
'strSQL = strSQL & " IdEstatusTransaccion,Fecha,razon,nota,Fechadeteccion) "
|
||
'strSQL = strSQL & " VALUES (" & Label24.Text & "," & clsVaribles.idproducto & ","
|
||
'' strSQL = strSQL & "" & clsVaribles.Id_SubProducto & ",3,98," & Me.ComboBox1.SelectedValue & ","
|
||
'strSQL = strSQL & "0," & IntIdAlarma & ",105," & Me.ComboBox1.SelectedValue & ",CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "yyyymmdd") & "',112)"
|
||
'' strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "dd/mm/yyyy") & "',103), "
|
||
'strSQL = strSQL & ",'" & txtRazon.Text.Trim & "','" & txtDescripcion.Text & "',"
|
||
'strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Now, "yyyymmdd") & "',112))"
|
||
'Classcom.sbInserta(strSQL)
|
||
|
||
strSQL = "INSERT INTO TRANSACCIONREPORTE ("
|
||
strSQL = strSQL & "idtransaccion,idproducto,idsubproducto,idTipoAlarma,idpatron, "
|
||
strSQL = strSQL & " IdEstatusAlarma,Fecha,razon,nota,Fechadeteccion) "
|
||
strSQL = strSQL & " VALUES (" & Label24.Text & "," & clsVaribles.idproducto & ","
|
||
' strSQL = strSQL & "" & clsVaribles.Id_SubProducto & ",3,98," & Me.ComboBox1.SelectedValue & ","
|
||
strSQL = strSQL & clsVaribles.Id_SubProducto & "," & idAlarma & "," & clsVaribles.Id_Patron & "," & IntIdAlarma & ",CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "yyyymmdd") & "',112)"
|
||
' strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "dd/mm/yyyy") & "',103), "
|
||
strSQL = strSQL & ",'" & txtRazon.Text.Trim & "','" & txtDescripcion.Text & "',"
|
||
strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Now, "yyyymmdd") & "',112))"
|
||
Classcom.sbInserta(strSQL)
|
||
|
||
|
||
'Classcom = New clsComplejo
|
||
'strSQL = "insert into FuncionarioPreoc values (" & clsVaribles.idproducto & " ," & DataGrid1.Item(FilaActual, 0) & ",'" & clsVaribles.lnidFunPreo & "')"
|
||
'Classcom.sbInserta(strSQL)
|
||
|
||
|
||
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, "Actualizaci<EFBFBD>n: Transaccion = " & Label24.Text & " Producto = " & strproducto & " Estatus = " & Me.ComboBox1.Text & " razon = " & txtDescripcion.Text.Trim & " Nota = " & Me.txtRazon.Text)
|
||
|
||
End If
|
||
Classcom = New clsComplejo
|
||
|
||
'Classcom = New clsComplejo
|
||
' strSQL = "update " & strProducto & " set razon = '" & TextBox1.Text & "', nota = '" & TextBox2.Text & "' where idtransaccion = " & DataGrid1.Item(FilaActual, 0)
|
||
'Classcom.sbInserta(strSQL)
|
||
|
||
MsgBox("Operacion Satisfactoria")
|
||
|
||
'Me.Close()
|
||
Consultar()
|
||
LimpiarControles()
|
||
End If
|
||
|
||
End Sub
|
||
Private Sub LimpiarControles()
|
||
Label18.Text = ""
|
||
Label20.Text = ""
|
||
Label19.Text = ""
|
||
Label23.Text = ""
|
||
lblNumCuenta.Text = ""
|
||
txtDescripcion.Text = ""
|
||
Label21.Text = ""
|
||
Label25.Text = ""
|
||
Label24.Text = ""
|
||
txtRazon.Text = ""
|
||
End Sub
|
||
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub BtnCambios_Click(sender As System.Object, e As System.EventArgs) Handles BtnCambios.Click
|
||
Dim forma As New FrmCuentasRelacionadas
|
||
'If Label24.Text = "" Or Label24.Text.Length = 0 Then
|
||
' MessageBox.Show("Primero debes seleccionar una transaccion", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
'Else
|
||
' forma.ShowDialog()
|
||
'End If
|
||
If Label23.Text = "" Or Label23.Text.Length = 0 Then
|
||
MessageBox.Show("Primero debes seleccionar una transacci<63>n", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
forma.txtNumCuenta.Text = clsVaribles.numCuenta
|
||
forma.ShowDialog()
|
||
End If
|
||
'If clsVaribles.idtransaccion = 0 Then
|
||
' MessageBox.Show("Primero debes seleccionar una transaccion", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
'Else
|
||
' MessageBox.Show("despliega forma")
|
||
|
||
|
||
|
||
'End If
|
||
End Sub
|
||
|
||
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
|
||
Label18.Text = ""
|
||
Label20.Text = ""
|
||
Label21.Text = ""
|
||
Label19.Text = ""
|
||
Label25.Text = ""
|
||
Label23.Text = ""
|
||
Label24.Text = ""
|
||
lblNumCuenta.Text = ""
|
||
' Label22.Text = fila("referencia")
|
||
txtRazon.Text = ""
|
||
txtDescripcion.Text = ""
|
||
lblTotalreg.Text = ""
|
||
cboProducto.SelectedIndex = -1
|
||
cboFuncionario.SelectedIndex = -1
|
||
DataGrid1.ClearFields()
|
||
'dtpFechaInicial.Value = Date.Now
|
||
|
||
dtpFechaFinal.Value = Date.Now
|
||
|
||
End Sub
|
||
|
||
Private Sub Label22_Click(sender As System.Object, e As System.EventArgs) Handles Label22.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub DataGrid1_Navigate(sender As System.Object, ne As System.Windows.Forms.NavigateEventArgs)
|
||
|
||
End Sub
|
||
|
||
Private Sub btnConsulta_Click(sender As System.Object, e As System.EventArgs) Handles btnConsulta.Click
|
||
|
||
If cboProducto.Text <> "" Then
|
||
Call Consultar()
|
||
Else
|
||
MessageBox.Show("Seleccione un producto a consultar", "B<EFBFBD>squeda", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GroupBox3_Enter(sender As System.Object, e As System.EventArgs) Handles GroupBox3.Enter
|
||
|
||
End Sub
|
||
|
||
Private Sub cboProducto_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cboProducto.SelectedValueChanged
|
||
|
||
End Sub
|
||
|
||
Private Sub cboFuncionario_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cboFuncionario.SelectedValueChanged
|
||
|
||
End Sub
|
||
|
||
Private Sub dtpFechaInicial_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpFechaInicial.ValueChanged
|
||
|
||
End Sub
|
||
|
||
Private Sub dtpFechaFinal_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpFechaFinal.ValueChanged
|
||
|
||
End Sub
|
||
|
||
Private Function validar() As Boolean
|
||
|
||
If txtDescripcion.Text = "" Then
|
||
MsgBox("Ingrese una descripci<63>n.")
|
||
txtDescripcion.Focus()
|
||
Return False
|
||
End If
|
||
|
||
If txtRazon.Text = "" Then
|
||
MsgBox("Ingrese una Razon.")
|
||
txtRazon.Focus()
|
||
Return False
|
||
End If
|
||
|
||
If cboProducto.Text = "" Then
|
||
MsgBox("Seleccione un producto")
|
||
Return False
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
End Class
|