Centrix NZ; added support for retrieval of existing Reports where available

Public Function Main(parameters As ISKeyValueList) As Boolean

  Dim EnquiryNumber As String
  Dim Request As ISCreditEnquiryRequest
  Dim Response As ISCreditEnquiryResponse

  ' Assume Success
  Main = True

  ' Initialise
  ' NOTE : Insert the Enquiry Number here
  EnquiryNumber = "" 

  ' Create the Request
  If Main Then
    Request = finBL.CreditBureau.CreateCreditEnquiryRequest("CentrixNZ", "Consumer Product Enquiry Previous Report", iseProductClass.CreditEnquiry)
  End If

  ' Set the Request Enquiry Number
  If Main Then
    If Request Is Nothing Then
      Main = False
    Else
      Select Case TypeName(Request)
        Case "ISCreditEnquiryRequest_CentrixNZ_ConsumerCreditReportProductsPreviousReport"
          With DirectCast(request, ISCreditEnquiryRequest_CentrixNZ_ConsumerCreditReportProductsPreviousReport)
            .EnquiryNumber = EnquiryNumber
          End With
        Case Else
          Main = False
      End Select
    End If
  End If

  ' Execute the Request
  If Main Then
    Main = finBL.CreditBureau.ExecuteCreditEnquiry(Request, Response)
  End If

  ' Output Response Details
  If Main Then
    Select Case TypeName(Response)
      Case "ISCreditEnquiryResponse_CentrixNZ_IndividualProduct"
        finBL.DebugPrint("*** Success ***")
        With DirectCast(Response, ISCreditEnquiryResponse_CentrixNZ_IndividualProduct)
          finBL.DebugPrintFormat("Date: {0}", .EnquiryNZDate)
          finBL.DebugPrintFormat("Reference: {0}", .EnquiryReference)
          finBL.DebugPrintFormat("Enquiry Number: {0}", .EnquiryId)
        End With
      Case Else
        Main = False
    End Select
  End If
  
  If Not Main Then
    finBL.DebugPrint("*** Failed ***")
  End If

End Function