76 lines
2.5 KiB
VB.net
76 lines
2.5 KiB
VB.net
Imports CLIENTE.VariablesGlobales
|
|
|
|
Public Class frmModificarDolaresEfec
|
|
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, "Dolares en Efectivo 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, "Dolares en Efectivo 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, "Entro Modificar Datos Dolares en Efectivo")
|
|
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 |