ConneXionFindPoliciesForCustomer Method

public ConneXionResult FindPoliciesForCustomer(
	Policy Policy,
	ref Policy[] Policies
)

Public Function FindPoliciesForCustomer ( 
	Policy As Policy,
	ByRef Policies As Policy()
) As ConneXionResult

Dim oConneXionPolicy As New ConneXion.ConneXion
Dim oResult As ConneXion.ConneXionResult
Dim oPolicy As New ConneXion.Policy
Dim oPolicies() As ConneXion.Policy

oPolicy.TAMUserName = "EXEC"
oPolicy.TAMPassword = "PSWD"
oPolicy.LicenseKey = "1234567  1"
oPolicy.TAMCentralAgency = "DEMOAG1"

oPolicy.ClientID = "ADLEDE1"

oResult = oConneXionPolicy.FindPoliciesForCustomer(oPolicy, oPolicies)

If oResult.Success = False Then
  txtPolicyResult.Text = "FindPoliciesForCustomer is false. " & oResult.Number & " " & oResult.Description & ". " & oResult.TAMErrorNumber & " " & oResult.TAMDescription
Else
  txtPolicyResult.Text = "FindPoliciesForCustomer is successful. " & oResult.Description & oResult.TAMDescription
  dgrdPolicyView.DataSource = oPolicies
End If