Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *Код проверки.
- *Возникла проверка: добавить сообщение в EX_MESSAGES, выставить флаг повторной проверки позиции EX_RECHECK_ITEM
- *Коды деблокирования:
- *K1 - Галка, был деблокирован ранее.
- *K2 - деблокируется в настоящий момент.
- *K3
- *Нужно отменить К2.
- *Определение кода:
- DATA
- : lo_state TYPE REF TO if_release_state_mm
- , lt_state_codes TYPE merel_t_codes
- .
- * Получить объект состояния
- im_req_item->if_releasable_mm~get_data( IMPORTING ex_state = lo_state ).
- "Если можно сбросить деблокирование,
- IF lo_state->can_reset_release( ).
- "Читаются коды
- lt_state_codes = lo_state->get_state( ).
- "Последняя строка содержит код текущего деблокирования
- READ TABLE lt_state_codes
- ASSIGNING FIELD-SYMBOL(<state_code>)
- INDEX lines( lt_state_codes ).
- IF sy-subrc IS INITIAL.
- "Сбросить деблокирование
- lo_state->reset_release( im_code = <state_code>-rel_code ).
- ENDIF.
- ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement