Enhance the Business Object Behavior With Unmanaged Internal Numbering

Define the (unmanaged) internal early numbering in the behavior definition

1. Open the behavior definition

   

   ZRAP100_R_TravelTP_### of the Travel entity.

2. Specify the statement provided below just after the statement authorization master( global ), just before the opening curly bracket { as shown on the screenshot.

   ABAP Copy

   early numbering

   The warning message Early Numbering for CREATE ZRAP100_R_TRAVELTP_### is not implemented is now displayed for the statement create;. You can hover the yellow underlined statement to display the message or have a look at the Problems view.

   You can ignore it for now. You will handle it later.

   

3. Delete following statement:

   ABAP Copy

   field ( mandatory : create ) 
   TravelID;

4. Specify the field TravelID as read-only field since it will be set at runtime by the internal early numbering. Info: The static field control is used to restrict properties of particular fields.

   For that, replace the statement

   ABAP Copy

   field ( readonly ) 
   TravelID;

   You can use the ABAP Pretty Printer function (Shift+F1) to format the source code.

   

5. Save

   

   and activate

   

   the changes.

6. To complete the definition, you need to declare the required method in behavior implementation class. You can use the ADT Quick Fix to do that.

   Set the cursor on the statement create; and press Ctrl+1 to open the Quick Assist view.

   Select the entry Add earlynumbering method for create of entity zrap100_i_travel_### in local handler from the dialog to add the FOR NUMBERING method earlynumbering_create to the local handler class lcl_travel of the behavior pool

   

   ZRAP100_BP_TRAVEL_###.

   

   The behavior implementation class

   

   ZRAP100_BP_TRAVEL_### will be enhanced appropriately.

   You are through with the definition of the early numbering and can now go ahead and implement its logic.

7. Save

   

   and activate

   

   the changes.

You will now implement the logic for the unmanaged internal early numbering in behavior implementation class (aka behavior pool)

Please note:
Due to time constraints (and simplification reasons), the proper error handling when using number ranges is not part of this implementation example. Nevertheless, you can find a more comprehensive implementation example of a managed BO with a number range object in the behavior implementation class /DMO/BP_TRAVEL_M located in the package /DMO/FLIGHT_MANAGED. A description of this implementation is provided in the RAP development guide Developing Managed Transactional Apps on the SAP Help Portal.

1. Check the method interface of the method earlynumbering_create in the declaration part of the local handler class lcl_travel.

   For that, set the cursor on the method name and press F2 to open the ABAP Element Info view and examine the full method interface, for example, the importing and changing parameters. You can navigate to the different (derived) types.

   

   Signature of the FOR NUMBERING method for managed business objects:

   • IMPORTING parameter entities - includes all entities for which keys must be assigned

   • Implicit CHANGING parameters (return parameters):

     • mapped - used to provide the consumer with ID mapping information

     • failed - used for identifying the data set where an error occurred

     • reported - used to return messages in case of failure.

   Further reading: Implicit Response Parameters

2. Now go ahead and implement the method earlynumbering_create in the implementation part of the implementation class. First, it must be ensured that the imported Travel entity instances do not yet have an ID set. This must especially be checked when the BO is draft-enabled. For that, remove all instances with a non-initial TravelID from the imported parameter entities which contains all Travel entities for which a key must be assigned. Insert the code snippet provided below into the method implementation and replace all occurrences of the placeholder ### with your group ID.

   ABAP Copy

   DATA:
     entity           TYPE STRUCTURE FOR CREATE ZRAP100_R_TravelTP_###,
     travel_id_max    TYPE /dmo/travel_id,
     " change to abap_false if you get the ABAP Runtime error 'BEHAVIOR_ILLEGAL_STATEMENT'
     use_number_range TYPE abap_bool VALUE abap_false.
   
   "Ensure Travel ID is not set yet (idempotent)- must be checked when BO is draft-enabled
   LOOP AT entities INTO entity WHERE TravelID IS NOT INITIAL.
     APPEND CORRESPONDING #( entity ) TO mapped-travel.
   ENDLOOP.
   
   DATA(entities_wo_travelid) = entities.
   "Remove the entries with an existing Travel ID
   DELETE entities_wo_travelid WHERE TravelID IS NOT INITIAL.

   

3. Get the exact number range for the new ID according to number of relevant Travel entity instances stored in the internal table entities_wo_travelid and determine the current max ID. The number range object /DMO/TRV_M of the ABAP Flight Reference Scenario (located in the package /DMO/FLIGHT_REUSE) is used in the example implementation provided below.

   Please note: All participants are using the same number range object /DMO/TRV_M, therefore, the assigned Travel ID will not be gap-free. For that, enhance the method implementation with the provided code snippet as shown on the screenshot below. As already mentioned, the error handling is kept to the minimum here.

   ABAP Copy

   IF use_number_range = abap_true.
     "Get numbers
     TRY.
         cl_numberrange_runtime=>number_get(
           EXPORTING
             nr_range_nr       = '01'
             object            = '/DMO/TRV_M'
             quantity          = CONV #( lines( entities_wo_travelid ) )
           IMPORTING
             number            = DATA(number_range_key)
             returncode        = DATA(number_range_return_code)
             returned_quantity = DATA(number_range_returned_quantity)
         ).
       CATCH cx_number_ranges INTO DATA(lx_number_ranges).
         LOOP AT entities_wo_travelid INTO entity.
           APPEND VALUE #(  %cid      = entity-%cid
                            %key      = entity-%key
                            %is_draft = entity-%is_draft
                            %msg      = lx_number_ranges
                         ) TO reported-travel.
           APPEND VALUE #(  %cid      = entity-%cid
                            %key      = entity-%key
                            %is_draft = entity-%is_draft
                         ) TO failed-travel.
         ENDLOOP.
         EXIT.
     ENDTRY.
   
     "determine the first free travel ID from the number range
     travel_id_max = number_range_key - number_range_returned_quantity.
   ELSE.
     "determine the first free travel ID without number range
     "Get max travel ID from active table
     SELECT SINGLE FROM zrap100_atrav### FIELDS MAX( travel_id ) AS travelID INTO @travel_id_max.
     "Get max travel ID from draft table
     SELECT SINGLE FROM zrap100_dtrav### FIELDS MAX( travelid ) INTO @DATA(max_travelid_draft).
     IF max_travelid_draft > travel_id_max.
       travel_id_max = max_travelid_draft.
     ENDIF.
   ENDIF.

   Show all 40 lines Show less

   

   Hint: If you get the following error message: ABAP Runtime error ‘BEHAVIOR_ILLEGAL_STATEMENT’ then change the value of the variable use_number_range to abap_false. use_number_range TYPE abap_bool VALUE abap_true.

4. Set the Travel ID for new Travel instances without identifier. Enhance the method implementation with the following code snippet as shown on the screenshot below.

   ABAP Copy

   "Set Travel ID for new instances w/o ID
   LOOP AT entities_wo_travelid INTO entity.
    travel_id_max += 1.
    entity-TravelID = travel_id_max.
   
    APPEND VALUE #( %cid      = entity-%cid
                    %key      = entity-%key
                    %is_draft = entity-%is_draft
                  ) TO mapped-travel.
   ENDLOOP.  

   Remember to regularly use the ABAP Pretty Printer function (Shift+F1) to format your source code.

   

5. Save

   

   and activate

   

   the changes.

You can now preview and test the changes by creating a new travel instance in the travel app.

1. Refresh your application in the browser using F5 if the browser is still open -
   or go to your service binding

   

   ZRAP100_UI_TRAVEL_O4_### and start the Fiori elements App preview for the Travel entity set.

2. Create a new Travel instance.

   

   No dialog for manually entering a Travel ID should be displayed now. The Travel ID will be assigned automatically by the logic you just implemented.