Article Details
Id:18450
Product:finPOWER Connect
Type:NEW
Version:3.04.01
Opened:02/08/2021
Closed:02/08/2021
Released:31/08/2021
Job: J027126

Equifax NZ; updated Credit Bureau Business Layer code

The Credit Bureau service "Equifax NZ" has been updated to modernise the underlying code.

This makes it easier to script service requests, see below for a code example:

Dim Client As finClient
Dim Request As ISCreditEnquiryRequest_EquifaxNZ_BusinessReportStandard
Dim Response As ISCreditEnquiryResponse_EquifaxNZ_BusinessReportStandard

' Load Client
Client = finBL.CreateClient
If Client.Load("[ClientId]") Then
  
Else
  Main = False
End If

If Main Then
  ' Create Request
  Request = finBL.CreditBureau.Service_EquifaxNZ.CreateRequest_BusinessReportStandard()

  ' Update Request from Client
  If finBL.CreditBureau.UpdateCreditEnquiryRequestFromClient(Request, Client) Then
    Main = finBL.CreditBureau.UpdateCreditEnquiryRequestOptions(request, client) 
  Else
    Main = False
  End If  
End If

If Main Then
  With Request
    .Amount = 25000
  End With

  If finBL.CreditBureau.Service_EquifaxNZ.ExecuteBusinessReportStandard(Request, Response) Then
    finBL.DebugWatch(Response)
  Else
    Main = False
  End If  
End If