Advertisement
Guest User

Untitled

a guest
Nov 22nd, 2017
295
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.25 KB | None | 0 0
  1. *Код проверки.
  2. *Возникла проверка: добавить сообщение в EX_MESSAGES, выставить флаг повторной проверки позиции EX_RECHECK_ITEM
  3. *Коды деблокирования:
  4. *K1   - Галка, был деблокирован ранее.
  5. *K2   - деблокируется в настоящий момент.
  6. *K3
  7. *Нужно отменить К2.
  8. *Определение кода:
  9. DATA
  10.       : lo_state       TYPE REF TO if_release_state_mm
  11.       , lt_state_codes    TYPE merel_t_codes
  12.       .
  13. * Получить объект состояния
  14. im_req_item->if_releasable_mm~get_data( IMPORTING ex_state     = lo_state ).
  15. "Если можно сбросить деблокирование,
  16. IF lo_state->can_reset_release( ).  
  17. "Читаются коды
  18.    lt_state_codes = lo_state->get_state( ).
  19. "Последняя строка содержит код текущего деблокирования
  20.      READ TABLE lt_state_codes
  21.           ASSIGNING FIELD-SYMBOL(<state_code>)
  22.                             INDEX lines( lt_state_codes ).
  23.       IF sy-subrc IS INITIAL.
  24. "Сбросить деблокирование
  25.          lo_state->reset_release( im_code = <state_code>-rel_code ).
  26.        ENDIF.
  27.  ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement