client/Reportes/FRAuditoria.vb

Public Class FRAuditoria

    Public SQL As String
    Dim SQL2 As String

    Private Sub FRAuditoria_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim CLASSCOM As New clsComplejo
        Dim index As Integer


        CLASSCOM = New clsComplejo
        SQL = "sp_ConsultarUsuarios  "
        CLASSCOM.sbLlenaCombo(SQL, cmbUsuario)

        CLASSCOM = New clsComplejo
        SQL = "sp_CosultarTodoAuditoria "
        CLASSCOM.fdtDataSetTabla(SQL)

        'cmbSuceso.Items.Clear()

        'For index = 0 To CLASSCOM.ds.Tables(0).Rows.Count - 1
        '    cmbSuceso.Items.Add(CLASSCOM.ds.Tables(0).Rows(index).Item(0).ToString)
        'Next


        'cmbSuceso.DataSource = CLASSCOM.ds.Tables(0).Columns(0)

        'CLASSCOM.sbLlenaComboESP(SQL, Me.cmbSuceso, "NOMBRE")


        'CLASSCOM = New clsComplejo
        'SQL = "spTablasAuditoria "
        'CLASSCOM.sbLlenaComboESP(SQL, Me.CboTabla, "NOMBRE")

        'CLASSCOM = New clsComplejo
        'SQL = "spConMovimiento "
        'CLASSCOM.sbLlenaComboESP(SQL, Me.cboMOv, "NOMBRE")

        cmbUsuario.SelectedIndex = -1
        cmbSuceso.SelectedIndex = -1


    End Sub

    Public Sub sbBuscar()
        Dim CLCMP As New clsComplejo
        Dim VarComodin As Long
        'Dim SQL As String

        Try
            If clsVaribles.lbDemo = True Then Exit Sub

            Dim SQL2 As String
            'armaquery()

            SQL2 = "sp_CosultarAuditoria " & "'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'," &
                    IIf(cmbUsuario.Text <> "", cmbUsuario.SelectedValue, "NULL") & "," & IIf(cmbSuceso.SelectedValue <> Nothing, cmbSuceso.SelectedValue, "NULL")

            CLCMP.fdtDataSetTabla(SQL2)

            Me.GridCentral.SetDataBinding(CLCMP.ds, "Tabla")
            GridCentral.Columns(4).NumberFormat = "g"

            Me.GridCentral.Visible = True

            Dim Cont As Integer
            Cont = CLCMP.ds.Tables(0).Rows.Count
            LblNumReg.Text = "Numero de Registros : " & Cont

        Catch er As Exception
            MessageBox.Show("Error al Buscar " & er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


    Private Sub armaquery()
        Dim CLCMP As New clsComplejo
        Dim VarComodin As Long

        SQL2 = "ConAuditoria '" & CLCMP.ObtenFecha(dtpFechaInicio.Value.Date, "YYYYMMDD") & "','" & CLCMP.ObtenFecha(dtpFechaFin.Value.Date, "YYYYMMDD") & "'"

        If Me.cmbUsuario.Text <> "" Then
            SQL2 = SQL2 & " ," & cmbUsuario.SelectedValue
        Else
            SQL2 = SQL2 & " , 0"
        End If

        If Me.cmbSuceso.Text <> "" Then
            SQL2 = SQL2 & " , " & cmbSuceso.SelectedValue
        Else
            SQL2 = SQL2 & " ,0 "
        End If


        If Me.cboMOv.Text <> "" Then
            SQL2 = SQL2 & " , '" & cboMOv.Text & "'"
        Else
            SQL2 = SQL2 & " , ''"
        End If

    End Sub
    Private Sub Exportar()
        Dim CLCMP As New clsComplejo
        Try

            'armaquery()
            'CLCMP.fdtDataSetTabla(SQL2)
            If clsVaribles.lbDemo = True Then Exit Sub

            'Dim copyDS As DataSet = GridCentral.DataSource.Copy()

            If GridCentral.RowCount = 0 Then
                MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else

                    Dim Resul As DialogResult
                    Resul = MessageBox.Show("Este proceso puede tardar varios minutos, <20>Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If Resul = DialogResult.Yes Then
                        'Creamos una copia del dataset
                    Dim copyDS As DataSet = GridCentral.DataSource.Copy()
                        'Quitamos las siguientes columnas para no exportarlas
                        'AU.ID_AUDITORIA,AU.ID_USUARIO,U.USUARIO,SU.CDESC_SUSC DESCRIPCION,AU.FECHAUDI 'FECHA AUDITORIA' ,AU.PCNAME"

                        'copyDS.Tables(0).Columns.Remove("ID_AUDITORIA")
                        'copyDS.Tables(0).Columns.Remove("ID_USUARIO")
                        'copyDS.Tables(0).Columns.Remove("DESCRIPCION")
                        'copyDS.Tables(0).Columns.Remove("FECHA AUDITORIA")
                        'copyDS.Tables(0).Columns.Remove("PCNAME")
                        'copyDS.Tables(0).Columns.Remove("funcionario")
                        'copyDS.Tables(0).Columns.Remove("beneficiario")
                        'copyDS.Tables(0).Columns.Remove("ordenante")
                        'copyDS.Tables(0).Columns.Remove("hora")
                        'copyDS.Tables(0).Columns.Remove("idtransaccion")
                        'Creo una instancia de la clase aExcel
                        Dim clsExcel As aExcel = New aExcel
                        'Obtenemos el nombre o el titulo del form
                        clsExcel.Titulo = Me.Text
                        'Utilizo la funcion ExportDataset de la clase aExcel
                        clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
                    End If
                End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub refrescar()
        If clsVaribles.lbDemo = True Then Exit Sub

        'Combo SUCESO
        Me.cmbSuceso.SelectedIndex = -1
        Me.cmbUsuario.SelectedIndex = -1
        Me.cboMOv.SelectedIndex = -1


        'Grid
        'Me.GridCentral.Visible = False
        Me.GridCentral.DataSource = Nothing
        Me.GridCentral.DataBindings.Clear()

        'etiqueta
        Me.LblNumReg.Text = ""

    End Sub

    Private Sub cmbSuceso_DropDown(sender As Object, e As System.EventArgs) Handles cmbSuceso.DropDown
        cmbSuceso.DataSource = Nothing

        If cmbUsuario.SelectedValue <> Nothing Then

            Dim Classcom = New clsComplejo
            SQL = "sp_ConsultarSuceso " & cmbUsuario.SelectedValue
            Classcom.sbLlenaCombo(SQL, cmbSuceso)

        End If

    End Sub

    Private Sub cmbSuceso_DropDownClosed(sender As Object, e As System.EventArgs) Handles cmbSuceso.DropDownClosed
        
    End Sub

    'Private Sub cmbSuceso_DropDownClosed(sender As Object, e As System.EventArgs) Handles cmbSuceso.DropDownClosed
    '    cboMOv.SelectedIndex = -1
    '    CboTabla.SelectedIndex = -1
    '    cboMOv.SelectedIndex = -1
    '    CboTabla.SelectedIndex = -1
    'End Sub

    Private Sub cmbSuceso_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSuceso.SelectedIndexChanged

    End Sub

    Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub btnConsulta_Click(sender As System.Object, e As System.EventArgs)
        sbBuscar()
    End Sub

    Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs)
        refrescar()
    End Sub


    'Private Sub cboMOv_DropDownClosed(sender As Object, e As System.EventArgs) Handles cboMOv.DropDownClosed
    '    cmbSuceso.SelectedIndex = -1
    '    cmbSuceso.SelectedIndex = -1
    'End Sub

    'Private Sub CboTabla_DropDownClosed(sender As Object, e As System.EventArgs) Handles CboTabla.DropDownClosed
    '    cmbSuceso.SelectedIndex = -1
    '    cmbSuceso.SelectedIndex = -1
    'End Sub

    Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs)
        Exportar()
    End Sub

    Private Sub tlbInusualesDivisas_ButtonClick(sender As System.Object, e As System.Windows.Forms.ToolBarButtonClickEventArgs)

    End Sub

    Private Sub btnConsulta_Click_1(sender As Object, e As EventArgs) Handles btnConsulta.Click
        sbBuscar()
    End Sub

    Private Sub BtnLimpiar_Click_1(sender As Object, e As EventArgs) Handles BtnLimpiar.Click
        refrescar()
    End Sub

    Private Sub BtnImprimir_Click_1(sender As Object, e As EventArgs) Handles BtnImprimir.Click
        Exportar()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BntSalie.Click
        Close()
    End Sub
End Class