Article Details
Id:10832
Product:finPOWER Connect
Type:NEW
Version:1.06.06
Opened:28/11/2012
Closed:09/01/2013
Released:29/01/2013
Job: J010829
High Importance

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

A new Script event has been added to allow the options for a Credit Enquiry request to be set.

This event is called via the new finCreditBureau.UpdateCreditEnquiryRequestOptions method. This is called every time the Options page in the Credit Enquiry wizard is visited.

An example of using this Script event is shown below:

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