Implement Logic for a Custom Business Object

Implement After Modification event with following fix value functionality:

• Set the key field ID if still initial.

  Hint: Changing Parameter bonusplan enables you to read current node data and change it.

  Hint: You can read existing Bonus Plan data via the CDS View that is named as the Business Object’s Identifier (here: YY1_BONUSPLAN).

  Hint: With the key combination CTRL + Space you can access the very helpful code completion.

  

  
  
  

  * set ID
  IF bonusplan-id IS INITIAL.
     SELECT MAX( id ) FROM yy1_bonusplan INTO @DATA(current_max_id).
     bonusplan-id = current_max_id + 1.
  ENDIF.
  

• Set the Unit of Measure for the Bonus Percentages to P1 which is the code for % (percent)

  * set percentage unit
  bonusplan-lowbonuspercentage_u = bonusplan-highbonuspercentage_u = 'P1'.
  

• Determine and set the Employee Name from the Employee ID

  Hint: Extensibility offers Helper class CL_ABAP_CONTEXT_INFO with method GET_USER_FORMATTED_NAME that needs a user ID to return its formatted name

  * set Employee Name
  IF bonusplan-employeeid IS NOT INITIAL.
     bonusplan-employeename = cl_abap_context_info=>get_user_formatted_name( bonusplan-employeeid ).
  ENDIF.
  

In dependence on following checks, set the isconsistent property.

• Check that ValidityStartDate and ValidityEndDate are set and that ValidityStartDate is earlier in time than ValidityEndDate.
• Check that Factors and Percentages are set correctly (all > 0, Percentages < 100, LowBonusAssignmentFactor < HighBonusAssignmentFactor)
• Check that Employee ID is set

* consistency check START
IF bonusplan-validitystartdate IS INITIAL
 OR bonusplan-validityenddate IS INITIAL
 OR bonusplan-validitystartdate GE bonusplan-validityenddate
 OR bonusplan-lowbonusassignmentfactor IS INITIAL
 OR bonusplan-highbonusassignmentfactor IS INITIAL
 OR bonusplan-lowbonuspercentage_v IS INITIAL
 OR bonusplan-highbonuspercentage_v IS INITIAL
 OR bonusplan-lowbonuspercentage_v GE 100
 OR bonusplan-highbonuspercentage_v GE 100
 OR bonusplan-lowbonusassignmentfactor GE bonusplan-highbonusassignmentfactor
 OR bonusplan-employeeid IS INITIAL.
    bonusplan-isconsistent = abap_false.
ELSE.
    bonusplan-isconsistent = abap_true.
ENDIF.
* consistency check END

1. Being in After Modification logic you can get to Before Save Logic this way:

   • Go Back in application
   • In Tab “Logic”, go to section “Determination and Validation”

2. Implement Before Save event with following functionality

   • If the bonus plan is consistent, it can be continued to save, if not save shall be rejected. In case of save no further processing is needed and logic can be left.

     Hint: Exporting parameter valid must be set to true for save and to false for save rejection

     * decide about save rejection
     IF bonusplan-isconsistent EQ abap_true.
         valid = abap_true.
         RETURN.
     ELSE.
         valid = abap_false.
     ENDIF.
     

   • If the bonus plan is not consistent, write the first found error into the message and end the logic processing.
     These are the possible errors in detail:

     • ValidityStartDate and ValidityEndDate must be set
     • ValidityStartDate must be earlier in time than ValidityEndDate
     • Factors and Percentages must be > 0
     • Percentages must be < 100
     • LowBonusAssignmentFactor must be < HighBonusAssignmentFactor
     • Employee ID must be set

     * consistency error message START
     IF bonusplan-validitystartdate IS INITIAL OR bonusplan-validityenddate IS INITIAL.
         message = 'Validity Period must not be empty.'.
         RETURN.
     ELSEIF bonusplan-validitystartdate GE bonusplan-validityenddate.
         CONCATENATE 'Validity End Date' bonusplan-validityenddate 'must be later than Validity Start Date' bonusplan-validitystartdate '!' INTO message SEPARATED BY space.
         RETURN.
     ENDIF.
     
     IF bonusplan-targetamount_v IS INITIAL.
         message = 'Target Amount must be over 0!'.
         RETURN.
     ENDIF.
     
     IF bonusplan-targetamount_c IS INITIAL.
         message = 'Target Amount Currency must be set!'.
         RETURN.
     ENDIF.
     
     IF bonusplan-lowbonusassignmentfactor IS INITIAL
      OR bonusplan-highbonusassignmentfactor IS INITIAL.
         message = 'Assignment Factors must be over 0!'.
         RETURN.
     ENDIF.
     
     IF bonusplan-lowbonuspercentage_v IS INITIAL
      OR bonusplan-highbonuspercentage_v IS INITIAL.
         message = 'Percentages must be over 0!'.
         RETURN.
     ENDIF.
     
     IF bonusplan-lowbonuspercentage_v GE 100
      OR bonusplan-highbonuspercentage_v GE 100.
         message = 'Percentage must be below 100!'.
         RETURN.
     ENDIF.
     
     IF bonusplan-lowbonusassignmentfactor GE bonusplan-highbonusassignmentfactor.
         message = 'Low Bonus Factor must be smaller than High Bonus Factor!'.
         RETURN.
     ENDIF.
     
     IF bonusplan-employeeid IS INITIAL.
         message = 'Employee ID must be set!'.
         RETURN.
     ENDIF.
     * consistency error message  END
     

3. Publish the Before Save Logic