Hi there,
LOOP AT lt_sc_unit INTO ls_sc_unit.
CLEAR: ls_matlwh, ls_matlwhx.
* Vullen en toevoegen van structuur ext_matlwh (tabel /SAPAPO/MATLWH)
* Verplichte velden tbv. correcte verwerking
ls_matlwh-method = ls_sc_unit-upd_code_matlwh.
ls_matlwh-ext_matnr = lv_extmatnr.
ls_matlwh-ext_entity = ls_sc_unit-scguid_ext.
ls_matlwh-scutype = '1001'.
ls_matlwh-ext_entitled = ls_sc_unit-entitled.
ls_matlwh-ptdetind = '01'.
ls_matlwh-put_stra = '0001'.
ls_matlwh-ccind = 'C'.
APPEND ls_matlwh TO lt_matlwh.
* Verplichte velden tbv. correcte verwerking
ls_matlwhx-method = ls_sc_unit-upd_code_matlwh.
ls_matlwhx-ext_matnr = lv_extmatnr.
ls_matlwhx-ext_entity = ls_sc_unit-scguid_ext.
ls_matlwhx-scutype = '1001'.
ls_matlwhx-ext_entitled = ls_sc_unit-entitled.
* Data-velden / scherm-velden
ls_matlwhx-ptdetind = 'X'.
ls_matlwhx-put_stra = 'X'.
ls_matlwhx-ccind = 'X'.
APPEND ls_matlwhx TO lt_matlwhx.
* Vullen en toevoegen van structuur ext_matlwhst (tabel /SAPAPO/MATLWHST)
* Verplichte velden tbv. correcte verwerking
CLEAR: ls_matlwhst, ls_matlwhstx.
ls_matlwhst-method = ls_sc_unit-upd_code_matlwhst.
ls_matlwhst-ext_matnr = lv_extmatnr.
ls_matlwhst-ext_entity = ls_sc_unit-scguid_ext.
ls_matlwhst-scutype = '1001'.
ls_matlwhst-ext_entitled = ls_sc_unit-entitled.
* Data-velden / scherm-velden
ls_matlwhst-lgtyp = '0001'.
APPEND ls_matlwhst TO lt_matlwhst.
ls_matlwhstx-method = ls_sc_unit-upd_code_matlwhst.
ls_matlwhstx-ext_matnr = lv_extmatnr.
ls_matlwhstx-ext_entity = ls_sc_unit-scguid_ext.
ls_matlwhstx-scutype = '1001'.
ls_matlwhstx-ext_entitled = ls_sc_unit-entitled.
* Data-velden / scherm-velden
ls_matlwhstx-lgtyp = 'X'.
APPEND ls_matlwhstx TO lt_matlwhstx.
ENDLOOP.
* Schrijf de gevulde structuren weg tbv. de verwerking
et_matlwh = lt_matlwh.
et_matlwhx = lt_matlwhx.
et_matlwhst = lt_matlwhst.
et_matlwhstx = lt_matlwhstx.
