Calculating the value of a planning fee

You can direct Infor Operations and Regulations to calculate the value of a fee using a fee value formula. For example, you could write a formula that charges a base filing fee of $100.00 plus an extra $1.00 for every $2000.00 of construction value. You specify a fee value formula when you define a fee type. You first select Formula from the "Value" list in the Fee Type dialog box.

Fee value formulas use the oPlanningApp object (an instance of the Hansen.CDR.Planning.iPlanningApplication class) to set Value to a decimal value. For more information about this object and for sample code, click the Information tab in the Formula Editor.

Examples

This formula sets the value of a fee as a combination of a $20.00 base value and 1% of the declared value. The formula uses the round() method to round the value to two decimal places.


Value = 20 + (oPlanningApp.DeclaredValuation.round(oPlanningApp.DeclaredValuation,2)*.01)

This formula assesses one $50.00 fee for any construction associated with a commercial structure, and a $30.00 fee for all other occupancy types.


value = 0
If (oPlanningApp.OccupancyType.Code.ToUpper = "COMMERCIAL") Then
  Value = 50
Else
  Value = 30
End If

This formula assesses a sliding-scale fee based on the declared value for an application. It uses the round() method to round the value to two decimal places.


value = 0
If oPlanningApp.DeclaredValuation <= 50000 Then
  Value = 100
Else If oPlanningApp.DeclaredValuation > 50000 and oPlanningApp.DeclaredValuation <= 150000 Then
  Value = oPlanningApp.DeclaredValuation.round(oPlanningApp.DeclaredValuation, 2) / 1000 * .50
Else If oPlanningApp.DeclaredValuation > 150000 and oPlanningApp.DeclaredValuation <= 250000 Then
  Value = oPlanningApp.DeclaredValuation.round(oPlanningApp.DeclaredValuation, 2) / 1000 * .45
Else
  Value = oPlanningApp.declaredvaluation.round(oPlanningApp.DeclaredValuation, 2) / 1000 * .35
End If

This formula assesses a $10.00 per hour handling fee for extra work done by any employee.


value = 0
dim oApplicationEmployee as Hansen.CDR.Planning.IApplicationEmployee
For Each oApplicationEmployee in oPlanningApp.ApplicationEmployees
  Value += oApplicationEmployee.TotalHours*10
Next oApplicationEmployee