91 lines
3.2 KiB
VB.net
91 lines
3.2 KiB
VB.net
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 |