client/Reportes/DormatAccount.vb

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