ConneXionUpdateEmployee Method

public ConneXionResult UpdateEmployee(
	Employee oEmployee
)

Public Function UpdateEmployee ( 
	oEmployee As Employee
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oEmployee As New ConneXion.Employee
Dim oResult As ConneXion.ConneXionResult

oEmployee.TAMUserName = "EXEC"
oEmployee.TAMPassword = "PSWD"
oEmployee.EntityID = "GRASUL1"

oResult = oConneXion.FindEmployee(oEmployee)

If oResult.Success = False Then
    MessageBox.Show("FindEmployee is false, so Update can't be done")
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " &
        oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
Else
    oEmployee.TAMUserName = "EXEC"
    oEmployee.TAMPassword = "PSWD"
    oEmployee.EntityID = "GRASUL1"
    oEmployee.Salary = 40000D

    oResult = oConneXion.UpdateEmployee(oEmployee)

    If oResult.Success Then
        MessageBox.Show("Update Employee is successful")
        txtResult.Text = oResult.Description
    Else
        txtResult.Text = "Update Employee is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " &
        oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
    End If
End If