client/frmModificarTransfeInfo.vb

76 lines
2.6 KiB
VB.net
Raw Normal View History

Imports CLIENTE.VariablesGlobales
Public Class frmModificarTransfeInfo
Dim notAuditoria As ClassMyUtils
Public objTransferenciaInt As transferenciaInternacional
Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click
Me.Close()
End Sub
Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click
If validar() Then
Dim guardarDatos As New clsComplejo
Dim sql As String
Dim msjError As String = ""
notAuditoria = New ClassMyUtils
notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 125, 28, "Transferncia de Información Datos Anteriores: IDTRANSFERENCIA=" & objTransferenciaInt.idTransfencia &
",FECHA=" & objTransferenciaInt.fechaTransferencia & ",CAMPO1=" & objTransferenciaInt.campo1 & ",CAMPO2=" & objTransferenciaInt.campo2 &
",CAMPO3=" & objTransferenciaInt.campo3)
sql = "sp_CargarTransfeInternacional " & objTransferenciaInt.idTransfencia & ",'" & txtC1.Text & "','" & txtC2.Text &
"','" & txtC3.Text & "'"
msjError = guardarDatos.fnInserta(sql)
If msjError = "" Then
notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 125, 28, "Transferncia de Información Datos Actuales: IDTRANSFERENCIA=" & objTransferenciaInt.idTransfencia &
",FECHA=" & objTransferenciaInt.fechaTransferencia & ",CAMPO1=" & txtC1.Text & ",CAMPO2=" & txtC2.Text &
",CAMPO3=" & txtC3.Text)
notAuditoria = Nothing
MsgBox("Operación correcta.")
Me.Close()
Else
notAuditoria = Nothing
End If
End If
End Sub
Private Sub frmModificarTI_Load(sender As Object, e As System.EventArgs) Handles Me.Load
notAuditoria = New ClassMyUtils
notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 125, 28, "Entrada Modificar Datos Transferencia Internacional")
notAuditoria = Nothing
End Sub
Private Function validar() As Boolean
If txtC1.Text = "" Then
txtC1.Focus()
Return False
End If
If txtC2.Text = "" Then
txtC2.Focus()
Return False
End If
If txtC3.Text = "" Then
txtC3.Focus()
Return False
End If
Return True
End Function
End Class