Всем доброго времени суток!
Подскажите пожалуйста, что я делаю не так.
При изменении объема поставки хотя бы в одной позии, нужно проверить, нет ли в какой-либо из позиций LIPS-INSMK = 'S' и если такая позиция в поставке имеется, то нужно во всех позициях проставить 'S'.
Проверку делаю в методе IF_EX_LE_SHP_DELIVERY_PROC~SAVE_DOCUMENT_PREPARE (BADI LE_SHP_DELIVERY_PROC).
Но "S" проставляется только в изменяемой позиции.
Вот код:
Code:
if sy-tcode = 'VL32N'.
data: wa_ylikp like line of ct_ylikp,
wa_ylips like line of ct_ylips,
wa_xlips like line of ct_xlips.
read table ct_ylikp into wa_ylikp index 1.
if wa_ylikp-lfart = 'EL'. " Вид поставки
read table ct_xlips into wa_xlips with key insmk = 'S'.
if sy-subrc = 0.
loop at ct_xlips into wa_xlips.
check wa_xlips-insmk <> 'S'.
read table ct_ylips into wa_ylips with key vbeln = wa_xlips-vbeln
posnr = wa_xlips-posnr.
if sy-subrc <> 0.
clear wa_ylips.
move-corresponding wa_xlips to wa_ylips.
append wa_ylips to ct_ylips.
endif.
wa_xlips-insmk = 'S'.
modify ct_xlips from wa_xlips transporting insmk.
endloop.
sort ct_ylips by vbeln posnr.
endif.
endif.
endif.
Вход
Регистрация
FAQ пользователя
Поиск
