Calculating whether to charge a maximum inspection fee

You can direct Infor Public Sector to calculate whether a maximum inspection fee is added to an application using a maximum inspection condition formula. A maximum inspection fee is a fee that is charged for reinspections. For example, you could write a formula that adds a maximum inspection fee if an elevator application has more than two Safety reinspections.

Maximum inspection condition formulas use the oUseApp object (an instance of the Hansen.CDR.Use.iUseApplication class) to set AddMaxFee to either True or False. If the formula returns True, Infor Public Sector adds the maximum inspection fee to the application. 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.UseApplication.IInspection
dim lCounter as Integer = 0

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

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

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

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

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