Pedido - campos de cliente EXTENSIONIN

FORM F_PREENCHE_EXTENSION .

  data: wa_item         TYPE bapi_te_mepoitem,
        wa_itemX        TYPE bapi_te_mepoitemX,
        lv_solic        type c LENGTH 1,
        ls_final_sol    TYPE zstmm0036 ,
        ls_extension    TYPE bapiparex.
  data: wa_extensionin  TYPE bapiparex.                  "94743-Nov.26

  data: lv_string       type string.


  LOOP AT tg_final_sol into ls_final_sol.

*   Preenche os campos de cliente que nos interessa
    clear wa_item.
    wa_item-po_item       = ls_final_sol-EBELP .
    wa_item-ZZ_SOL_PEDIDO = ls_final_sol-ZZ_SOL_PEDIDO.

    CLEAR lv_string.
    CALL METHOD cl_abap_container_utilities=>fill_container_c
      EXPORTING
        im_value     = wa_item
      IMPORTING
        ex_container = lv_string.

    clear: wa_extensionin .
    wa_extensionin-structure = 'BAPI_TE_MEPOITEM'.
    wa_extensionin-valuepart1 = lv_string.
    APPEND wa_extensionin TO tg_extensionin.



    clear wa_itemX.
    wa_itemX-po_item       = ls_final_sol-EBELP.
    wa_itemX-ZZ_SOL_PEDIDO = abap_true.

    CLEAR lv_string.
    CALL METHOD cl_abap_container_utilities=>fill_container_c
      EXPORTING
        im_value     = wa_itemX
      IMPORTING
        ex_container = lv_string.

    clear: wa_extensionin .
    wa_extensionin-structure = 'BAPI_TE_MEPOITEMX'.
    wa_extensionin-valuepart1 = lv_string.
    APPEND wa_extensionin TO tg_extensionin.

  ENDLOOP.