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 an application 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 oProjectApp object (an instance of the Hansen.CDR.Project.iProjectApplication class) to set AddMaxFee to either True or False. If the formula returns True, Infor Operations and Regulations adds the maximum inspection fee to the application. If the formula returns False, Infor Operations and Regulations 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.Project.IInspection
dim lCounter as Integer = 0

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

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

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

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

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