View Source

This topic describes how the developer created the VBScript rule to determine if a checked-in vehicle requires scheduled maintenance (oil change or major servicing) based on the vehicle's last service mileage, the vehicle's current mileage, and the maintenance interval. A scheduled maintenance service ticket is created in addition to any damage service ticket created in an earlier step.

Place a rule-based step on the Process Flow's Design tab.
- See Creating Process Flow Steps for more information on adding steps to the process flow.
In the Properties area, enter the step's Name and enter the step's description on the Description tab:
- Name: Check Rental Agreement Return Mileage
- Description: This step will compare the Rental Agreement's Return Mileage against the Vehicle's assigned Maintenance Schedule to determine if Scheduled Maintenance is required.
Click the Rule tab and select VBScript as the Rule Type.

Enter the VBScript that provides the step's logic. Use the Available Objects and references (accessible from the Scripting toolbar) as necessary.

See Writing Process Flow Step Rules for more information on writing process flow scripts.

The full text of the VBScript for this rule appears below.

Try
  If oProperties.GetProperty("RAObject") Is Nothing Then
     oResultCode.Value = "FAILED"
  Else
          ' set resultcode to END now, and if determined that it should be SERVICED, it will be changed below
          oResultCode.Value = "END"
   Dim oRentalAgreementGE As Aptify.Framework.BusinessLogic.GenericEntity.AptifyGenericEntityBase
   oRentalAgreementGE = CType(oProperties.GetProperty("RAObject"), Aptify.Framework.BusinessLogic.GenericEntity.AptifyGenericEntityBase)
          Dim currentMiles As System.Int32 = CInt(oRentalAgreementGE.GetValue("ReturnMileage")) 
          Dim oApp As New Aptify.Framework.Application.AptifyApplication (oDataAction.UserCredentials) 
          'Get service intervals for this Vehicle's Maintence Schedule
          Dim sSQL As System.String
          sSQL = "SELECT OilChangeServiceMileage, MajorTuneUpMileage " & _ 
                "FROM " & oApp.GetEntityBaseDatabase("Maintenance Schedules") & ".." & oApp.GetEntityBaseView("Maintenance Schedules") & " ms " & _
                "INNER JOIN " & oApp.GetEntityBaseDatabase("Vehicle Models") & ".." & oApp.GetEntityBaseView("Vehicle Models") & " vm ON vm.MaintScheduleID = ms.ID " & _ 
                "INNER JOIN " & oApp.GetEntityBaseDatabase("Vehicles") & ".." & oApp.GetEntityBaseView("Vehicles") & " v ON v.ModelID = vm.ID " & _
                "INNER JOIN " & oApp.GetEntityBaseDatabase("Rental Agreements") & ".." & oApp.GetEntityBaseView("Rental Agreements") & " ra ON ra.VehicleID = v.ID " & _
                "WHERE ra.VehicleID = " & oRentalAgreementGE.GetValue("VehicleID").ToString 
          Dim dt As System.Data.DataTable = oDataAction.GetDataTable(sSQL)
          Dim oilMiles As System.Int32 = CInt(dt.Rows(0).Item("OilChangeServiceMileage"))
          Dim tuneMiles As system.Int32 = CInt(dt.Rows(0).Item("MajorTuneUpMileage")) 
          'Get last Maintenance Service for this vehicle
          sSQL = "SELECT TOP 1 VehicleMileage " & _
                 "FROM " & oApp.GetEntityBaseDatabase("Service Tickets") & ".." & oApp.GetEntityBaseView("Service Tickets") & " st " & _
                  "WHERE st.VehicleID = " & oRentalAgreementGE.GetValue("VehicleID").ToString & _
                  " AND st.ServiceType = 'Scheduled Maintenance' " & _
                  "ORDER BY st.VehicleMileage DESC"
          Dim lastService As System.Int32 = CInt(oDataAction.ExecuteScalar(sSQL)) 
          'Determine if Maintenance is required
          Dim servicesNeeded As System.String 
          If lastService < oilMiles*(currentMiles\oilMiles) Then
                 ' the last maintenance record is earlier than the last required
                 ' oil change for this vehicle, so it is due for an oil change
                 oResultCode.Value = "SERVICE"
                 servicesNeeded = "Oil Change Required"
          End If 
          If lastService < tuneMiles*(currentMiles\tuneMiles) Then
                 ' the last maintenance record is earlier than the last required
                 ' major tune up for this vehicle, so it is due for a tune up
                 oResultCode.Value = "SERVICE" 
                 servicesNeeded &= IIf(servicesNeeded = "", "", System.Environment.NewLine).ToString
                 servicesNeeded &= "Major TuneUp Required"
           End If 
   'Set Property for servicesNeeded to be passed to next step
   If servicesNeeded <> "" Then
           oProperties.AddProperty("servicesNeeded", servicesNeeded)
   End If
  End If
 Catch ex As System.Exception
 oResultCode.Value = "FAILED"
 Aptify.Framework.ExceptionManagement.ExceptionManager.Publish(ex)
End Try

The script performs the following function:
- Determines if the RAObject GE object is empty. If so, the rule selects a Result Code of FAILED.
- Sets the Result Code to END. This can be changed later in the rule if it is determined that the vehicle needs servicing.
- Retrieves the current vehicle mileage from the Rental Agreements object.
- Retrieves the Oil Change and Major Tune Up mileage frequencies for the returned vehicle's maintenance schedule from the database.
- Retrieves the vehicle's mileage for the last maintenance service ticket linked to that vehicle from the database.
- Determines if an oil change is required for this vehicle by comparing the vehicle's mileage at the last servicing against the current mileage and the oil change interval. If the vehicle requires an oil change, the rule selects a Result Code of SERVICE and writes "Oil Change Required" to a ServicesNeeded string that will be passed an output to the next step.
- Determines if a major tune up is required for this vehicle by comparing the vehicle's mileage at the last servicing against the current mileage and the major tune up mileage interval. If the vehicle requires a major tune up, the rule selects a Result Code of SERVICE and writes "Major TuneUp Required" to a ServicesNeeded string that will be passed an output to the next step.
- If not blank, adds the ServicesNeeded string to the Process Flow's Context Object (an Output Property) to be used in Step 4. Note that a single vehicle can qualify for an oil change and a tune up in one service ticket. In this case, the ServicesNeeded output will contains both the "Oil Change Required" text and the "Major TuneUp Required" text.
- For debugging purposes, the rule adds the ServicesNeeded string to the Rental Agreement's CheckOutComments field. If ServicesNeeded is blank, the rule adds the "NO SERVICE NEEDED" string to the CheckOutComments field.
- Finally, if the rule fails to execute for another reason, the error is captured by Aptify's Exception Manager for logging and the rule selects the Result Code of FAILED.

Add RAObject as a custom input map to the step's Properties tab.
- RAObject is one of the Process Flow's Input Properties that is populated by the Event Handler when the event fires. By specifying the input map, the rule can retrieve this object from the Process Flow's Context Object. Therefore, the Source for this Input Property is Context Object and the Source is the RAObject object.
Add ServicesNeeded as a custom output property to the step's Output Map tab.
- The text generated for the ServicesNeeded string needs to be passed to the new Service Tickets record (created in Step 4). In order to pass this value to the next step, add the property to the Context Object (that is, use a Destination Type of Context Object). In the figure below, the Output Property name defined in the rule is the same as the Destination name that will be used within the Context Object.
Save the Process Flows record.

Add Step 4. See Creating Step 4: Create Service Ticket for Service Step.

You will return later to this step to configure its Action Map (see Linking Sample Process Flow Steps Together). Aptify recommends waiting to configure the Action Map until later since there are no next steps to link to yet.