Imports CLIENTE.VariablesGlobales

Public Class frmModificarTI
    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 Informacion 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 Internacional 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