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

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