NEW1.06.06 · Released 29 January 2013
NEWfinPOWER Connect
Released in
1.06.06
29 January 2013
  1. Opened6 Nov 2012
  2. Closed9 Jan
  3. Released29 Jan
Article 10833 Job J010669

Credit Enquiry; Business layer updated and new 'ExecuteCreditEnquiryPost' Script event added

A new 'ExecuteCreditEnquiryPost' Script event has been added. This is executed after a Credit Enquiry has been performed and allows custom functionality such as saving the Credit Bureau File Id to a Client's User Data as per the example below:

Dim Client As finClient
Dim Request As ISCreditEnquiryRequest
Dim Response As ISCreditEnquiryResponse
Dim ServiceId As String

' Assume Success
Main = True

' Handle Events
Select Case eventId
  Case "ExecuteCreditEnquiryPost"
    ' Runs after the Credit Enquiry has been executed
    Request = DirectCast(source, ISCreditEnquiryRequest)
    ServiceId = DirectCast(contextdata1, String)
    Response = DirectCast(contextdata2, ISCreditEnquiryResponse)
      
    ' Update Client to record Bureau File Id
    If Len(Request.ClientId) <> 0 Then
      Dim Client2 As finClient 
       
      ' Load Client
      Client2 =  finBL.CreateClient()
      Main = Client2.Load(request.ClientId)
        
      ' Update
      If Main Then
        ' Update
        Client2.UserData.SetString("LatestCreditBureauFileId", Response.CreditBureauFileId)
          
        ' Save
        Main = Client2.Save()
      End If
    End If
End Select

Client Logs created via a Credit Enquiry now have a Source value of CreditEnquiry (500).