BOM Item Changes

LOOP AT it_temp.

CLEAR : it_stko, it_stpo.

REFRESH it_stpo.

CALL FUNCTION 'CSAP_MAT_BOM_OPEN'

EXPORTING

MATERIAL = it_temp-matnr

PLANT = it_temp-werks

BOM_USAGE = it_temp-stlan

• ALTERNATIVE =

VALID_FROM = it_temp-datuv

• CHANGE_NO =

• REVISION_LEVEL =

• FL_NO_CHANGE_DOC = ' '

IMPORTING

O_STKO = it_stko

FL_WARNING = FL_WARNING

TABLES

T_STPO = it_stpo

EXCEPTIONS

ERROR = 1.

SORT it_data by stlnr idrnk.

LOOP AT it_stpo.

clear it_data.

READ TABLE it_data with key stlnr = it_stpo-bom_no

idrnk = it_stpo-component BINARY SEARCH.

if sy-subrc eq 0.

if not it_stpo-supplyarea is initial and it_stpo-issue_loc is not initial.

• it_stpo-issue_loc = it_data-lgort.

• it_stpo-supplyarea = it_data-prvbe.

move space to it_stpo-issue_loc.

move space to it_stpo-supplyarea.

endif.

CALL FUNCTION 'CSAP_BOM_ITEM_MAINTAIN'

EXPORTING

I_STPO = it_stpo

• FL_DEP_ALE_CONFORM = ' '

IMPORTING

O_STPO = mo_stpo "inserted

FL_WARNING = FL_WARNING

EXCEPTIONS

ERROR = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

call function 'FORMAT_MESSAGE'

exporting

id = sy-msgid

lang = sy-langu

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

importing

msg = g_msg

exceptions

others = 0.

if sy-msgty = 'E'.

write : / g_msg.

endif.

ENDIF.

endif.

ENDLOOP.

call function 'CSAP_MAT_BOM_CLOSE'

importing

fl_warning = fl_warning

exceptions

error = 1.