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 case 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 oCase object (an instance of the Hansen.CDR.CodeEnforcement.iCase class) to set AddMaxFee to either True or False. If the formula returns True, Infor Public Sector adds the maximum inspection fee to the case. 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.

dim oInsp as Hansen.CDR.CodeEnforcement.IInspection
dim lCounter as Integer = 0

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

If lCounter > 2 then
  AddMaxFee = True
Else
   AddMaxFee = False
End If

dim oInsp as Hansen.CDR.CodeEnforcement.IInspection
dim lCounter as Integer = 0

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

If lCounter > 3 then
  AddMaxFee = True
Else
   AddMaxFee = False
End If