562 lines
23 KiB
VB.net
562 lines
23 KiB
VB.net
Public Class DormatAccount
|
||
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 ImageList1 As System.Windows.Forms.ImageList
|
||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents txtCliente As System.Windows.Forms.TextBox
|
||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||
Friend WithEvents opt_Days As System.Windows.Forms.RadioButton
|
||
Friend WithEvents opt_NeverOp As System.Windows.Forms.RadioButton
|
||
Friend WithEvents opt_All As System.Windows.Forms.RadioButton
|
||
Friend WithEvents lbl_Dias As System.Windows.Forms.Label
|
||
Friend WithEvents txt_Dias As System.Windows.Forms.TextBox
|
||
Friend WithEvents cmbProducto As System.Windows.Forms.ComboBox
|
||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||
Friend WithEvents BntSalir As System.Windows.Forms.Button
|
||
Friend WithEvents BtnImprimir As System.Windows.Forms.Button
|
||
Friend WithEvents BtnLimpiar1 As System.Windows.Forms.Button
|
||
Friend WithEvents btnConsulta As System.Windows.Forms.Button
|
||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents gpoBox As System.Windows.Forms.GroupBox
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Me.components = New System.ComponentModel.Container()
|
||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DormatAccount))
|
||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||
Me.txtCliente = New System.Windows.Forms.TextBox()
|
||
Me.Label1 = New System.Windows.Forms.Label()
|
||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||
Me.lbl_Dias = New System.Windows.Forms.Label()
|
||
Me.txt_Dias = New System.Windows.Forms.TextBox()
|
||
Me.opt_All = New System.Windows.Forms.RadioButton()
|
||
Me.opt_Days = New System.Windows.Forms.RadioButton()
|
||
Me.opt_NeverOp = New System.Windows.Forms.RadioButton()
|
||
Me.gpoBox = New System.Windows.Forms.GroupBox()
|
||
Me.DataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||
Me.cmbProducto = New System.Windows.Forms.ComboBox()
|
||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||
Me.BntSalir = New System.Windows.Forms.Button()
|
||
Me.BtnImprimir = New System.Windows.Forms.Button()
|
||
Me.BtnLimpiar1 = New System.Windows.Forms.Button()
|
||
Me.btnConsulta = New System.Windows.Forms.Button()
|
||
Me.Label2 = New System.Windows.Forms.Label()
|
||
Me.GroupBox3.SuspendLayout()
|
||
Me.GroupBox1.SuspendLayout()
|
||
Me.gpoBox.SuspendLayout()
|
||
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.GroupBox2.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'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.txtCliente)
|
||
Me.GroupBox3.Controls.Add(Me.Label1)
|
||
Me.GroupBox3.Location = New System.Drawing.Point(20, 79)
|
||
Me.GroupBox3.Name = "GroupBox3"
|
||
Me.GroupBox3.Size = New System.Drawing.Size(292, 61)
|
||
Me.GroupBox3.TabIndex = 39
|
||
Me.GroupBox3.TabStop = False
|
||
Me.GroupBox3.Visible = False
|
||
'
|
||
'txtCliente
|
||
'
|
||
Me.txtCliente.Location = New System.Drawing.Point(6, 31)
|
||
Me.txtCliente.Name = "txtCliente"
|
||
Me.txtCliente.Size = New System.Drawing.Size(277, 20)
|
||
Me.txtCliente.TabIndex = 34
|
||
Me.txtCliente.Visible = False
|
||
'
|
||
'Label1
|
||
'
|
||
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label1.Location = New System.Drawing.Point(3, 16)
|
||
Me.Label1.Name = "Label1"
|
||
Me.Label1.Size = New System.Drawing.Size(82, 11)
|
||
Me.Label1.TabIndex = 35
|
||
Me.Label1.Text = "Nombre cliente"
|
||
Me.Label1.Visible = False
|
||
'
|
||
'GroupBox1
|
||
'
|
||
Me.GroupBox1.Controls.Add(Me.lbl_Dias)
|
||
Me.GroupBox1.Controls.Add(Me.txt_Dias)
|
||
Me.GroupBox1.Controls.Add(Me.opt_All)
|
||
Me.GroupBox1.Controls.Add(Me.opt_Days)
|
||
Me.GroupBox1.Controls.Add(Me.opt_NeverOp)
|
||
Me.GroupBox1.Location = New System.Drawing.Point(328, 21)
|
||
Me.GroupBox1.Name = "GroupBox1"
|
||
Me.GroupBox1.Size = New System.Drawing.Size(395, 119)
|
||
Me.GroupBox1.TabIndex = 38
|
||
Me.GroupBox1.TabStop = False
|
||
Me.GroupBox1.Text = " Rango "
|
||
'
|
||
'lbl_Dias
|
||
'
|
||
Me.lbl_Dias.AutoSize = True
|
||
Me.lbl_Dias.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.lbl_Dias.Location = New System.Drawing.Point(186, 36)
|
||
Me.lbl_Dias.Name = "lbl_Dias"
|
||
Me.lbl_Dias.Size = New System.Drawing.Size(92, 13)
|
||
Me.lbl_Dias.TabIndex = 9
|
||
Me.lbl_Dias.Text = "D<EFBFBD>as en adelante."
|
||
'
|
||
'txt_Dias
|
||
'
|
||
Me.txt_Dias.Location = New System.Drawing.Point(114, 32)
|
||
Me.txt_Dias.MaxLength = 6
|
||
Me.txt_Dias.Name = "txt_Dias"
|
||
Me.txt_Dias.Size = New System.Drawing.Size(66, 20)
|
||
Me.txt_Dias.TabIndex = 8
|
||
Me.txt_Dias.Text = "0"
|
||
Me.txt_Dias.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||
'
|
||
'opt_All
|
||
'
|
||
Me.opt_All.AutoSize = True
|
||
Me.opt_All.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.opt_All.Location = New System.Drawing.Point(8, 77)
|
||
Me.opt_All.Name = "opt_All"
|
||
Me.opt_All.Size = New System.Drawing.Size(96, 17)
|
||
Me.opt_All.TabIndex = 7
|
||
Me.opt_All.TabStop = True
|
||
Me.opt_All.Text = "Ambos criterios"
|
||
Me.opt_All.UseVisualStyleBackColor = True
|
||
'
|
||
'opt_Days
|
||
'
|
||
Me.opt_Days.AutoSize = True
|
||
Me.opt_Days.Checked = True
|
||
Me.opt_Days.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.opt_Days.Location = New System.Drawing.Point(8, 33)
|
||
Me.opt_Days.Name = "opt_Days"
|
||
Me.opt_Days.Size = New System.Drawing.Size(100, 17)
|
||
Me.opt_Days.TabIndex = 6
|
||
Me.opt_Days.TabStop = True
|
||
Me.opt_Days.Text = "D<EFBFBD>as sin operar:"
|
||
Me.opt_Days.UseVisualStyleBackColor = True
|
||
'
|
||
'opt_NeverOp
|
||
'
|
||
Me.opt_NeverOp.AutoSize = True
|
||
Me.opt_NeverOp.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.opt_NeverOp.Location = New System.Drawing.Point(8, 55)
|
||
Me.opt_NeverOp.Name = "opt_NeverOp"
|
||
Me.opt_NeverOp.Size = New System.Drawing.Size(101, 17)
|
||
Me.opt_NeverOp.TabIndex = 5
|
||
Me.opt_NeverOp.Text = "Sin operaciones"
|
||
Me.opt_NeverOp.UseVisualStyleBackColor = True
|
||
'
|
||
'gpoBox
|
||
'
|
||
Me.gpoBox.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.gpoBox.Controls.Add(Me.Label2)
|
||
Me.gpoBox.Controls.Add(Me.DataGrid1)
|
||
Me.gpoBox.Location = New System.Drawing.Point(20, 146)
|
||
Me.gpoBox.Name = "gpoBox"
|
||
Me.gpoBox.Size = New System.Drawing.Size(703, 272)
|
||
Me.gpoBox.TabIndex = 40
|
||
Me.gpoBox.TabStop = False
|
||
'
|
||
'DataGrid1
|
||
'
|
||
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(6, 19)
|
||
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.Size = New System.Drawing.Size(691, 224)
|
||
Me.DataGrid1.TabIndex = 8
|
||
Me.DataGrid1.Text = "C1TrueDBGrid1"
|
||
Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag")
|
||
'
|
||
'cmbProducto
|
||
'
|
||
Me.cmbProducto.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||
Me.cmbProducto.Location = New System.Drawing.Point(6, 19)
|
||
Me.cmbProducto.Name = "cmbProducto"
|
||
Me.cmbProducto.Size = New System.Drawing.Size(277, 21)
|
||
Me.cmbProducto.TabIndex = 41
|
||
'
|
||
'GroupBox2
|
||
'
|
||
Me.GroupBox2.Controls.Add(Me.cmbProducto)
|
||
Me.GroupBox2.Location = New System.Drawing.Point(20, 21)
|
||
Me.GroupBox2.Name = "GroupBox2"
|
||
Me.GroupBox2.Size = New System.Drawing.Size(292, 52)
|
||
Me.GroupBox2.TabIndex = 39
|
||
Me.GroupBox2.TabStop = False
|
||
Me.GroupBox2.Text = "Producto"
|
||
'
|
||
'BntSalir
|
||
'
|
||
Me.BntSalir.BackColor = System.Drawing.Color.White
|
||
Me.BntSalir.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BntSalir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BntSalir.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.BntSalir.Location = New System.Drawing.Point(729, 384)
|
||
Me.BntSalir.Name = "BntSalir"
|
||
Me.BntSalir.Size = New System.Drawing.Size(106, 33)
|
||
Me.BntSalir.TabIndex = 73
|
||
Me.BntSalir.Text = "Cerrar"
|
||
Me.BntSalir.UseCompatibleTextRendering = True
|
||
Me.BntSalir.UseVisualStyleBackColor = True
|
||
'
|
||
'BtnImprimir
|
||
'
|
||
Me.BtnImprimir.BackColor = System.Drawing.Color.White
|
||
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.MidnightBlue
|
||
Me.BtnImprimir.Location = New System.Drawing.Point(729, 343)
|
||
Me.BtnImprimir.Name = "BtnImprimir"
|
||
Me.BtnImprimir.Size = New System.Drawing.Size(106, 33)
|
||
Me.BtnImprimir.TabIndex = 72
|
||
Me.BtnImprimir.Text = "Exportar"
|
||
Me.BtnImprimir.UseCompatibleTextRendering = True
|
||
Me.BtnImprimir.UseVisualStyleBackColor = True
|
||
'
|
||
'BtnLimpiar1
|
||
'
|
||
Me.BtnLimpiar1.BackColor = System.Drawing.Color.White
|
||
Me.BtnLimpiar1.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.BtnLimpiar1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BtnLimpiar1.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.BtnLimpiar1.Location = New System.Drawing.Point(729, 302)
|
||
Me.BtnLimpiar1.Name = "BtnLimpiar1"
|
||
Me.BtnLimpiar1.Size = New System.Drawing.Size(106, 33)
|
||
Me.BtnLimpiar1.TabIndex = 71
|
||
Me.BtnLimpiar1.Text = "Limpiar"
|
||
Me.BtnLimpiar1.UseCompatibleTextRendering = True
|
||
Me.BtnLimpiar1.UseVisualStyleBackColor = True
|
||
'
|
||
'btnConsulta
|
||
'
|
||
Me.btnConsulta.BackColor = System.Drawing.Color.White
|
||
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.MidnightBlue
|
||
Me.btnConsulta.Location = New System.Drawing.Point(729, 261)
|
||
Me.btnConsulta.Name = "btnConsulta"
|
||
Me.btnConsulta.Size = New System.Drawing.Size(106, 33)
|
||
Me.btnConsulta.TabIndex = 70
|
||
Me.btnConsulta.Text = "Buscar"
|
||
Me.btnConsulta.UseCompatibleTextRendering = True
|
||
Me.btnConsulta.UseVisualStyleBackColor = True
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.AutoSize = True
|
||
Me.Label2.Location = New System.Drawing.Point(6, 246)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(63, 13)
|
||
Me.Label2.TabIndex = 74
|
||
Me.Label2.Text = "Resultados:"
|
||
'
|
||
'DormatAccount
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||
Me.BackColor = System.Drawing.Color.White
|
||
Me.ClientSize = New System.Drawing.Size(860, 430)
|
||
Me.Controls.Add(Me.BntSalir)
|
||
Me.Controls.Add(Me.BtnImprimir)
|
||
Me.Controls.Add(Me.BtnLimpiar1)
|
||
Me.Controls.Add(Me.btnConsulta)
|
||
Me.Controls.Add(Me.GroupBox2)
|
||
Me.Controls.Add(Me.gpoBox)
|
||
Me.Controls.Add(Me.GroupBox3)
|
||
Me.Controls.Add(Me.GroupBox1)
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.MinimizeBox = False
|
||
Me.Name = "DormatAccount"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "Cuentas Dormidas"
|
||
Me.GroupBox3.ResumeLayout(False)
|
||
Me.GroupBox3.PerformLayout()
|
||
Me.GroupBox1.ResumeLayout(False)
|
||
Me.GroupBox1.PerformLayout()
|
||
Me.gpoBox.ResumeLayout(False)
|
||
Me.gpoBox.PerformLayout()
|
||
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me.GroupBox2.ResumeLayout(False)
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
Dim clCmp As clsComplejo = New clsComplejo
|
||
Dim clProducto As clsComplejo = New clsComplejo 'Para llenar combo Producto
|
||
Dim BanProducto As Boolean
|
||
Public Shared _IdProducto, _IdTransaccion, _NoCuenta As String 'Para pasar los valos al sp de detalles Dormat Account
|
||
|
||
Private Enum spConsulta As Integer
|
||
|
||
porDias = 0
|
||
sinOperaciones = 1
|
||
porAmbos
|
||
|
||
End Enum
|
||
|
||
Private Sub DormatAccount_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
BanProducto = False
|
||
clProducto.sbLlenaCombo("spLlenaComboProducto", cmbProducto)
|
||
cmbProducto.SelectedIndex = -1
|
||
|
||
''Me.Width = 900
|
||
End Sub
|
||
|
||
|
||
Private Sub Exportar()
|
||
|
||
'llama a las rutinas para exportar a excel
|
||
Try
|
||
If clCmp.ds.Tables.Count = 0 Then
|
||
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
||
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
If clCmp.ds.Tables(0).Rows.Count > 65000 Then
|
||
MessageBox.Show("El n<>mero de filas a exportar excede el n<>mero permitido de filas en Excel", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
Dim Resul As DialogResult
|
||
Resul = MessageBox.Show("Este proceso requerir<69> algunos minutos, <20>Desea continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||
If Resul = DialogResult.Yes Then
|
||
Dim copyDS As DataSet = clCmp.ds.Copy()
|
||
'Quitamos las siguientes columnas para no exportarlas
|
||
'copyDS.Tables(0).Columns.Remove("Id_Producto")
|
||
'Creo una instancia de la clase aExcel
|
||
Dim clsExcel As aExcel = New aExcel
|
||
clsExcel.Titulo = Me.Text
|
||
'Utilizo la funcion ExportDataset de la clase aExcel
|
||
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS - DormatAccount - Exportar", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub refrescar()
|
||
'Limpia Controles
|
||
|
||
'Combo Producto
|
||
Me.cmbProducto.SelectedIndex = -1
|
||
'Me.cmbProducto.DataSource = Nothing
|
||
'Me.cmbProducto.Items.Clear()
|
||
'Datagrid
|
||
Me.DataGrid1.DataSource = Nothing
|
||
Me.DataGrid1.DataBindings.Clear()
|
||
'clCmp.ds.Tables(0).Rows.Clear()
|
||
'El nombre de grupo (por aqui se ponen los numeros de rows del grid)
|
||
Me.txtCliente.Text = ""
|
||
Me.txt_Dias.Text = ""
|
||
Label2.Text = "Resultados: "
|
||
'Establece las banderas a false para q se puedan cargar los combos otra vez
|
||
BanProducto = False
|
||
End Sub
|
||
|
||
Private Sub cmbProducto_DropDown(ByVal sender As Object, ByVal e As System.EventArgs)
|
||
'Llena Combo producto utilizando el procedimiento almacenado "spLlenaComboProductoAlias"
|
||
If BanProducto = False Then
|
||
clProducto.sbLlenaCombo("spLlenaComboProductoAlias", cmbProducto)
|
||
End If
|
||
BanProducto = True
|
||
End Sub
|
||
|
||
|
||
'Reemplaza a la rutina anterior que era una mugre. sbBuscar
|
||
Public Sub sbBuscar2()
|
||
Dim sAuditoria As String
|
||
|
||
Try
|
||
|
||
If opt_Days.Checked Or opt_All.Checked Then
|
||
If Trim(txt_Dias.Text) = "" Or Not IsNumeric(txt_Dias.Text) Then
|
||
MessageBox.Show("Es necesario proporcionar el n<>mero de d<>as a considerar.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
txt_Dias.Focus()
|
||
Exit Sub
|
||
End If
|
||
End If
|
||
|
||
If cmbProducto.Text = "" Then
|
||
MessageBox.Show("Es necesario seleccionar un Producto.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Exit Sub
|
||
End If
|
||
|
||
Dim SQL As String
|
||
|
||
SQL = ""
|
||
Dim producto As Integer = cmbProducto.SelectedValue
|
||
If producto = 2 Then
|
||
producto = 3
|
||
End If
|
||
|
||
SQL = "spS_DormatAccount " & producto
|
||
sAuditoria = "Consulta de todas las Cuentas Dormidas sin filtrar."
|
||
|
||
If opt_All.Checked = True Then
|
||
sAuditoria = "Consulta de Cuentas Dormidas que no han operado; con las cuentas que no han operado en " & txt_Dias.Text & " d<>as. (Ambos criterios)"
|
||
SQL = SQL & ",3," & txt_Dias.Text
|
||
ElseIf opt_NeverOp.Checked Then
|
||
sAuditoria = "Consulta de Cuentas Dormidas que no han operado."
|
||
SQL = SQL & ",2"
|
||
|
||
ElseIf opt_Days.Checked Then
|
||
sAuditoria = "Consulta de Cuentas Dormidas que no han operado en " & txt_Dias.Text & " d<>as"
|
||
SQL = SQL & ",1," & txt_Dias.Text
|
||
End If
|
||
|
||
'SQL = SQL & " order by"
|
||
'SQL = SQL & " ActividadCtas.Cuenta"
|
||
|
||
'----
|
||
Dim ds As New DataSet
|
||
clCmp = New clsComplejo
|
||
ds = clCmp.fdtDataSet(SQL)
|
||
'----
|
||
Me.DataGrid1.DataSource = ds.Tables(0)
|
||
'----
|
||
|
||
|
||
If ds.Tables(0).Rows.Count = 0 Then
|
||
Label2.Text = "Resultados: 0"
|
||
Exit Sub
|
||
End If
|
||
|
||
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In DataGrid1.Splits(0).DisplayColumns
|
||
col.AutoSize()
|
||
Next
|
||
|
||
Me.DataGrid1.Columns(6).NumberFormat = "Currency"
|
||
Me.DataGrid1.Splits(0).DisplayColumns(5).FetchStyle = True
|
||
Me.DataGrid1.Splits(0).DisplayColumns(2).FetchStyle = True
|
||
'Me.DataGrid1.SetDataBinding(ds, "Tabla")
|
||
Dim Cont As Integer = ds.Tables(0).Rows.Count
|
||
Label2.Text = "Resultados: " & Cont
|
||
sAuditoria = Mid(sAuditoria, 1, 8000)
|
||
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, My.Computer.Name, "Minds Cliente", sAuditoria)
|
||
|
||
''Auditoria
|
||
Dim ClassAud As New ClassMyUtils
|
||
Dim sTextoAud As String
|
||
sTextoAud = "Producto: " & cmbProducto.Text & ". " & sAuditoria
|
||
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
|
||
''Fin de auditoria
|
||
|
||
Catch er As Exception
|
||
MessageBox.Show(er.Message, "MINDS - DormatAccount - sbBuscar", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub OcultaColums()
|
||
'sub que oculta columnas al usuario
|
||
Try
|
||
If clCmp.ds.Tables.Count <> 0 Then
|
||
clCmp.OcultarColumna("Id_Producto")
|
||
End If
|
||
Catch er As Exception
|
||
MessageBox.Show(er.Message, "MINDS - DormatAccount - OcultaColums", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Function consultarOpciones(nombreProducto As String, noOpcionSP As spConsulta, noDias As Integer) As String
|
||
Dim spOpciones As String
|
||
|
||
Select Case nombreProducto
|
||
|
||
Case "BANCATRADICIONAL"
|
||
|
||
spOpciones = "sp_CtasDormidaBT " & noOpcionSP & "," & noDias
|
||
|
||
Case "BANCAINTERNACIONAL"
|
||
|
||
spOpciones = "sp_CtasDormidaBI " & noOpcionSP & "," & noDias
|
||
|
||
Case "MERCADODECAPITALES"
|
||
|
||
spOpciones = "sp_CtasDormidaMCapitales " & noOpcionSP & "," & noDias
|
||
|
||
Case "CREDITO"
|
||
|
||
spOpciones = "sp_CtasDormidaCredito " & noOpcionSP & "," & noDias
|
||
|
||
Case "DIVISAS"
|
||
|
||
spOpciones = "sp_CtasDormidaDivisas " & noOpcionSP & "," & noDias
|
||
|
||
End Select
|
||
|
||
Return spOpciones
|
||
End Function
|
||
|
||
Private Sub btnConsulta_Click(sender As System.Object, e As System.EventArgs) Handles btnConsulta.Click
|
||
sbBuscar2()
|
||
End Sub
|
||
|
||
Private Sub BtnLimpiar1_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar1.Click
|
||
refrescar()
|
||
End Sub
|
||
|
||
Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs) Handles BtnImprimir.Click
|
||
Exportar()
|
||
End Sub
|
||
|
||
Private Sub BntSalir_Click(sender As System.Object, e As System.EventArgs) Handles BntSalir.Click
|
||
Me.Close()
|
||
End Sub
|
||
End Class
|