ConneXionUpdateCompany Method

public ConneXionResult UpdateCompany(
	Company oCompany
)

Public Function UpdateCompany ( 
	oCompany As Company
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oCompany As New ConneXion.Company
Dim oResult As ConneXion.ConneXionResult

oCompany.TAMUserName = "EXEC"
oCompany.TAMPassword = "PSWD"
oCompany.EntityID = "GNG"

oResult = oConneXion.FindCompany(oCompany)

If oResult.Success Then
    oCompany.TAMUserName = "EXEC"
    oCompany.TAMPassword = "PSWD"
    oCompany.EntityID = "GNG"
    oCompany.Phone = "815-654-0978"

    oResult = oConneXion.UpdateCompany(oCompany)

    If oResult.Success = True Then
        MessageBox.Show("Update 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 Company is false. " & oResult.Description & ".")
End If