client/Reportes/DormatAccount.vb

562 lines
23 KiB
VB.net
Raw Blame History

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