SAP EHS

BAPI

BAPI BAPI_BUS1240_CREATE - Trn. CBIH82

BADI EHSI_IA_BAPI para extensiones

  method IF_EX_EHSI_IA_BAPI~TRANSFER_EXTENSIONTAB_2_APITAB.

      DATA: wa_extension   TYPE bapiparex,
        ext_value(960) TYPE c,
        wa_action       TYPE CCIHS_ACHAPI,
        l_ref          TYPE REF TO data.

  FIELD-SYMBOLS: <l_struc> TYPE ANY,
                 <l_field> TYPE ANY.

  loop at I_EXTENSION_IN_TAB into wa_extension where structure = 'ZMIESTRUCTURA' .
    AT NEW structure.
      CREATE DATA l_ref TYPE (wa_extension-structure).
      ASSIGN l_ref->* TO <l_struc>.
    ENDAT.
    ext_value = wa_extension-valuepart1.
    MOVE ext_value TO <l_struc>.

    read TABLE X_API_ACTION_TAB into wa_action with key acid = wa_extension-valuepart2.
    if sy-subrc = 0.
      MOVE-CORRESPONDING <l_struc> to wa_action.
      modify X_API_ACTION_TAB from wa_action index sy-tabix.
   endif.
  ENDLOOP.
  endmethod.