client/Reportes/FrmReporteAsesorias.vb

Public Class FrmReporteAsesorias
    Dim clCmp As clsComplejo = New clsComplejo



    Private Sub FrmReporteAsesorias_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        Dim clCmp As clsComplejo = New clsComplejo
        clCmp.sbLlenaCombo("spLlenaComboClienteAsesoria", Me.cmbCliente)
        cmbCliente.SelectedIndex = -1
        Dim clCmp2 As clsComplejo = New clsComplejo
        clCmp2.sbLlenaCombo("spLlenaComboPropositoCuentasAsesoria", Me.cmbTipoServicio)
        cmbTipoServicio.SelectedIndex = -1


    End Sub

    Private Sub DBGDetalleAlarmas_DoubleClick(sender As Object, e As EventArgs) Handles DBGDetalleAlarmas.DoubleClick
        Dim FilaActual As Integer
        FilaActual = Me.DBGDetalleAlarmas.Row
        If Me.DBGDetalleAlarmas.RowCount <= 0 Then
            Exit Sub
        End If

        Try
            Dim idCuenta As Integer = DBGDetalleAlarmas.Columns("idcuenta").Text
            Dim SQL As String = ""
            Dim MyDs As New DataSet
            SQL = "sp_ObtieneAlarmasEnAsesoriasPorCuenta  " & idCuenta & " "
            MyDs = clCmp.fdtDataSetTablaESP(SQL)
            Me.C1TrueDBGrid2.DataSource = Nothing
            Me.C1TrueDBGrid2.Columns.Clear()
            Me.C1TrueDBGrid2.Refresh()
            Me.C1TrueDBGrid2.SetDataBinding(MyDs, "Tabla")
            For number As Integer = 0 To C1TrueDBGrid2.Columns.Count - 1
                C1TrueDBGrid2.Splits(0).DisplayColumns(number).AutoSize()
            Next


            lblRegistros.Text = "No. de Registros: " & C1TrueDBGrid2.RowCount
        Catch ex As Exception

        End Try
    End Sub

    Private Sub BtnConsul_Click(sender As Object, e As EventArgs) Handles BtnConsul.Click
        Dim SQL As String = ""
        Dim MyDs As New DataSet
        'spObtieneAlarmasConFiltros
        'sp_ObtieneAlarmasEnAsesorias
        SQL = "spObtieneAlarmasConFiltros "
        If (Convert.ToInt32(cmbCliente.SelectedValue) > 0) Then
            SQL = SQL & Convert.ToInt32(cmbCliente.SelectedValue)
        Else
            SQL += "null"
        End If
        If (Convert.ToInt32(cmbCuenta.SelectedValue) > 0) Then
            SQL = SQL & " , " & Convert.ToInt32(cmbCuenta.SelectedValue)
        Else
            SQL += ",null"
        End If
        If (Convert.ToInt32(cmbTipoServicio.SelectedValue) > 0) Then
            SQL = SQL & " , " & Convert.ToInt32(cmbTipoServicio.SelectedValue)
        Else
            SQL += ",null"
        End If
        ' SQL = "spObtieneAlarmasConFiltros " & Convert.ToInt32(cmbCliente.SelectedValue) & ", " & Convert.ToInt32(cmbCuenta.SelectedValue) & " "

        Try
            MyDs = clCmp.fdtDataSetTablaESP(SQL)
            Me.DBGDetalleAlarmas.DataSource = Nothing
            Me.DBGDetalleAlarmas.Columns.Clear()
            Me.DBGDetalleAlarmas.Refresh()
            Me.DBGDetalleAlarmas.SetDataBinding(MyDs, "Tabla")
            Me.DBGDetalleAlarmas.Splits(0).DisplayColumns(6).Visible = False
            For number As Integer = 0 To DBGDetalleAlarmas.Columns.Count - 1
                DBGDetalleAlarmas.Splits(0).DisplayColumns(number).AutoSize()
            Next
        Catch ex As Exception

        End Try

        Dim ClassAud As New ClassMyUtils
        Dim sTextoAud As String
        sTextoAud = "Reporte de Asesorias "
        If cmbCliente.Text <> "" Then
            sTextoAud = sTextoAud & ", Cliente: " & cmbCliente.Text
        End If
        If cmbCuenta.Text <> "" Then
            sTextoAud = sTextoAud & ", Cuenta: " & cmbCuenta.Text
        End If
        If cmbTipoServicio.Text <> "" Then
            sTextoAud = sTextoAud & ", Tipo Servicio: " & cmbTipoServicio.SelectedValue
        End If
        If sTextoAud.Trim = "Reporte de Asesorias" Then
            sTextoAud = "Reporte general de Asesorias "
        End If
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 130, 24, sTextoAud)

    End Sub

    Private Sub cmbCliente_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbCliente.SelectionChangeCommitted
        Dim clCmp As clsComplejo = New clsComplejo
        clCmp.sbLlenaCombo("spLlenaComboCuentasAsesoria " & Convert.ToInt32(cmbCliente.SelectedValue) & " ", Me.cmbCuenta)
        cmbCuenta.SelectedIndex = -1
    End Sub

    Private Sub cmbCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCliente.SelectedIndexChanged

    End Sub

    Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint

    End Sub

    Private Sub BtnExpor_Click(sender As Object, e As EventArgs) Handles BtnExpor.Click
        Exportar()
    End Sub
    Private Sub Exportar()

        If DBGDetalleAlarmas.DataSource Is Nothing Then
            MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If

        ''Preparo la tabla a exportar
        ''hago una copia por valor de la tabla
        Dim copyDS As DataSet = DBGDetalleAlarmas.DataSource.Copy()  ''clCmp.ds.Copy()
        If copyDS.Tables(0) Is Nothing Then
            MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        If copyDS.Tables(0).Rows.Count = 0 Then
            MessageBox.Show("No existen datos para exportar", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        Dim Resul As DialogResult
        Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Resul = DialogResult.No Then
            Return
        End If

        ''Quito las columnas ocultas del grid.
        Dim i As Integer
        For i = 0 To DBGDetalleAlarmas.Columns.Count - 1
            If Me.DBGDetalleAlarmas.Splits(0).DisplayColumns(i).Visible = False Then
                Dim j As Integer
                For j = 0 To copyDS.Tables(0).Columns.Count - 1
                    If Me.DBGDetalleAlarmas.Splits(0).DisplayColumns(i).Name = copyDS.Tables(0).Columns.Item(j).ColumnName Then
                        copyDS.Tables(0).Columns.Remove(copyDS.Tables(0).Columns.Item(j).ColumnName)
                        Exit For
                    End If
                Next
            End If
        Next

        Try
            Dim sError As String = ""
            ''Inicia Exportacion
            'Creo una instancia de la clase aExcel
            Dim clsExcel As aExcel = New aExcel
            'Obtenemos el nombre o el titulo del form
            clsExcel.Titulo = "Rep. Oper. Inusuales"
            'Utilizo la funcion ExportDataset de la clase aExcel
            clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar

        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Cursor = System.Windows.Forms.Cursors.Default

        Dim ClassAud As New ClassMyUtils
        Dim sTextoAud As String
        sTextoAud = "Exporta reporte de Asesorías "
        ClassAud.RT_Auditoria(clsVaribles.varUsuario, 130, 24, sTextoAud)


    End Sub

    Private Sub BtnRefres_Click(sender As Object, e As EventArgs) Handles BtnRefres.Click
        Me.cmbCliente.SelectedIndex = -1
        Me.cmbCliente.SelectedIndex = -1

        cmbCuenta.DataSource = Nothing
        cmbCuenta.Items.Clear()
        Me.cmbTipoServicio.SelectedIndex = -1
        Me.cmbTipoServicio.SelectedIndex = -1


        Me.DBGDetalleAlarmas.DataSource = Nothing
        Me.DBGDetalleAlarmas.DataBindings.Clear()

    End Sub

    Private Sub BtnSal_Click(sender As Object, e As EventArgs) Handles BtnSal.Click
        Me.Close()
    End Sub
End Class