Calculating whether to charge the maximum inspection fee

You can direct Infor Public Sector to calculate whether a maximum inspection fee is added to a license using a maximum inspection condition formula. A maximum inspection fee is a fee that is charged after a certain number of reinspections have been conducted. For example, you could write a formula that adds a maximum inspection fee for each health inspection after the second reinspection.

Maximum inspection condition formulas use the oLicenseApp object (an instance of the Hansen.CDR.BusinessLicense.iLicenseApplication class) to set AddMaxFee to either True or False. If the formula returns True, Infor Public Sector adds the maximum inspection fee to the license. If the formula returns False, Infor Public Sector doesn't add the fee. For more information about this object and for sample code, click the Information tab in the Formula Editor.

AddMaxFee = False
dim oInsp as Hansen.CDR.BusinessLicense.IInspection
dim lCounter as Integer = 0

For Each oInsp in oLicenseApp.Inspections
   If oInsp.InspectionType.Code.toUpper = "HEALTH" Then
     lCounter += 1
   End If
next oInsp

If lCounter > 3 then
  AddMaxFee = True
End If

AddMaxFee = False
dim oInsp as Hansen.CDR.BusinessLicense.IInspection
dim lCounter as Integer = 0

For Each oInsp in oLicenseApp.Inspections
   If oInsp.InspectionType.Code.toUpper = "FIRE" Then
     lCounter += 1
   End If
next oInsp

If lCounter > 2 then
  AddMaxFee = True
End If