Listing 7.14  ZPTB00_OBJ_BTA_ENRICH  Reichert den Geschftsvorfall um technische Infos an
FUNCTION zptb00_obj_bta_enrich.
*"----------------------------------------------------
*"*"Lokale Schnittstelle:
*"  CHANGING
*"     REFERENCE(C_STR_BTA) TYPE  ZPTB00_STR_BTA
*"  EXCEPTIONS
*"      FAILED
*"----------------------------------------------------
  FIELD-SYMBOLS:
    <l_str_item> TYPE zptb00_btaitem.

* enrich header
  c_str_bta-client = sy-mandt.
  CALL FUNCTION 'GUID_CREATE'
      IMPORTING
*       EV_GUID_16       =
*       EV_GUID_22       =
        ev_guid_32       = c_str_bta-id.
  c_str_bta-booked = '1'.

* enrich items
  LOOP AT c_str_bta-tab_item ASSIGNING <l_str_item>.
    <l_str_item>-client = sy-mandt.
    CALL FUNCTION 'GUID_CREATE'
        IMPORTING
*         EV_GUID_16       =
*         EV_GUID_22       =
          ev_guid_32       = <l_str_item>-id.
    <l_str_item>-header_id = c_str_bta-id.
    <l_str_item>-mark = ' '.
  ENDLOOP.
ENDFUNCTION.