Maximum inspection fees

A maximum inspection fee is a fee that is charged for reinspections. For example, you might charge a maximum inspection fee if a license has more than two reinspections.

To configure a maximum inspection fee for an inspection type, specify a formula that determines whether to add the fee in the Maximum Inspection Condition field. You can use either Maximum Inspection Fee Code field or the Maximum Inspection Fee Description field to specify the fee type.

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