Credit Enquiry; New Script event added to allow options to be set

Dim Client As finClient
Dim Request As ISCreditEnquiryRequest
Dim RequestOption As ISKeyValueListItem
Dim ServiceId As String

' Assume Success
Main = True

' Handle Events
Select Case eventId
  Case "RequestRefreshOptions"
    ' Runs when the finCreditBureau.UpdateCreditEnquiryRequestOptions method is called via a Script or the Credit Enquiry wizard (when the 'Options' page is displayed)
    Client = DirectCast(contextData2, finClient)
    Request = DirectCast(source, ISCreditEnquiryRequest)
    ServiceId = DirectCast(contextdata1, String)

    ' Update Options
    With Request
      .EnquiryAmount = 123.45
      .EnquiryPurpose = "Credit Review"
      .AccountType = "28 Day Account"
      .ApplicantType = "Guarantor"
      .EnquiryReference = "my reference"

      ' Other Options (set all Boolean options to True)
      For Each RequestOption In Request.RequestOptions
        If TypeOf RequestOption.Value Is Boolean Then
          RequestOption.Value = True
        End If
      Next
    End With

End Select