ConneXionUpdateFinanceCompany Method

public ConneXionResult UpdateFinanceCompany(
	FinanceCompany oFinanceCompany
)

Public Function UpdateFinanceCompany ( 
	oFinanceCompany As FinanceCompany
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oResult As New ConneXion.ConneXionResult
Dim oFinance As New ConneXion.FinanceCompany

oFinance.TAMUserName = "EXEC"
oFinance.TAMPassword = "PSWD"
oFinance.EntityID = "AFCOPR1"

oResult = oConneXion.FindFinanceCompany(oFinance)

If oResult.Success Then
    oFinance.TAMUserName = "EXEC"
    oFinance.TAMPassword = "PSWD"
    oFinance.EntityID = "AFCOPR1"
    oFinance.Email = "mstoller@afco.com"

    oResult = oConneXion.UpdateFinanceCompany(oFinance)
    If oResult.Success Then
        MessageBox.Show("Update Finance Company is Successful")
    Else
        txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf &
            "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
    End If
Else
    MessageBox.Show("Find Finance Company is false. " & oResult.Description & ".")
End If