Public Class frmTransferenciaInfo

    Dim notAuditoria As ClassMyUtils

    Private Sub c1GridDatos_Click(sender As System.Object, e As System.EventArgs) Handles cgDatosTransInter.Click

    End Sub

    Private Sub c1GridDatos_DoubleClick(sender As Object, e As System.EventArgs) Handles cgDatosTransInter.DoubleClick

        If Me.cgDatosTransInter.RowCount > 0 Then

            'cgDatosTransInter.Splits(0).ce

            Dim objTransfe As New transferenciaInternacional(cgDatosTransInter.Columns("IDTRANSFERENCIA").Value,
                                                             cgDatosTransInter.Columns("FECHA").Value,
                                                         cgDatosTransInter.Columns("CAMPO1").Value,
                                                         cgDatosTransInter.Columns("CAMPO2").Value,
                                                         cgDatosTransInter.Columns("CAMPO3").Value)


            Dim frmActualizarDatos As New frmModificarTransfeInfo
            frmActualizarDatos.Text = "Modificar Datos de Transferencia de Información"
            frmActualizarDatos.objTransferenciaInt = objTransfe
            frmActualizarDatos.txtC1.Text = objTransfe.campo1
            frmActualizarDatos.txtC2.Text = objTransfe.campo2
            frmActualizarDatos.txtC3.Text = objTransfe.campo3

            frmActualizarDatos.ShowDialog()


        End If

    End Sub

    Private Sub frmTInternacional_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        notAuditoria = New ClassMyUtils
        notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 125, 28, "Ingreso a Reporte de Transferencia de Información")
        notAuditoria = Nothing

        cboMes.Items.Add("Enero")
        cboMes.Items.Add("Febrero")
        cboMes.Items.Add("Marzo")
        cboMes.Items.Add("Abril")
        cboMes.Items.Add("Mayo")
        cboMes.Items.Add("Junio")
        cboMes.Items.Add("Julio")
        cboMes.Items.Add("Agosto")
        cboMes.Items.Add("Septiembre")
        cboMes.Items.Add("Octubre")
        cboMes.Items.Add("Noviembre")
        cboMes.Items.Add("Diciembre")



        Dim aYear As Integer = Year(Now)

        For i As Integer = 0 To 6
            cboYear.Items.Add(aYear + 3 - i)
        Next

    End Sub

    Private Sub btnConsultar_Click(sender As System.Object, e As System.EventArgs)
        Dim consultar As New clsComplejo

        Dim mes As String = IIf(cboMes.SelectedIndex <> -1, cboMes.SelectedIndex + 1, "NULL")

        Dim year As String = IIf(cboYear.SelectedIndex <> -1, cboYear.Text, "NULL")

        consultar.fdtDataSetTabla("sp_TransferenciaInternacional " & mes & "," & year)
        cgDatosTransInter.SetDataBinding(consultar.ds, "Tabla")

        If cgDatosTransInter.RowCount > 0 Then

            notAuditoria = New ClassMyUtils
            notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 122, 28, "Consulta: MES=" & cboMes.Text & " AÑO=" & cboYear.Text)
            notAuditoria = Nothing

        Else
            notAuditoria = New ClassMyUtils
            notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 122, 28, "Conuslta: NO genero datos.")
            notAuditoria = Nothing

            MsgBox("No se encuentran datos para mostrar.")
        End If

    End Sub

End Class