FUNCTION CO_TA_TCOKO_READ.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(ARBGE) TYPE  TCOKO-ARBGE
*"  EXPORTING
*"     VALUE(TCOKO_WA) TYPE  TCOKO
*"  EXCEPTIONS
*"      NOT_FOUND
*"----------------------------------------------------------------------

* Это стандартный выбор вида движения материала
IF TCOKO-ARBGE NE ARBGE.
    SELECT SINGLE * FROM TCOKO INTO TCOKO_WA WHERE ARBGE EQ ARBGE.
    IF SY-SUBRC NE 0.
       RAISE NOT_FOUND.
    ENDIF.
ENDIF.


* Вместо этого ты примерно так можешь реализовать свой алгоритм замены ВД
if arbge = 'IWO1'.
   data: begin of wa_afvg_bt.
            include structure afvgb.
   data:    indold like sy-tabix.
   data: end of wa_afvg_bt.
   Data: i1 type I,
         I2 type i.

   Data: it_afvg  like wa_afvg_bt occurs 0 with header line,
         Wa_resbd like resbd.

   field-symbols: <fs_afvg> type table,
                  <fs_resbd> type any.

   assign ('(SAPLCOBO)afvg_bt[]') to <fs_afvg>.  I1 = sy-subrc.
   assign ('(SAPLCOMK)resbd')     to <fs_resbd>. I2 = sy-subrc.
Endif.

if i1 = 0 and i2 = 0 and arbge = 'IWO1'.
* Здесь реализация твоего алгоритма
  append lines of <fs_afvg> to it_afvg.
  wa_resbd  = <fs_resbd>.
* it_afvg – таблица операций с ключами (it_afvg-STEUS)
* wa_resbd – структура для вводимого компонента,
*            здесь номер операции есть wa_resbd-vornr
* По номеру операции wa_resbd-vornr ищешь в it_afvg ключ STEUS
* и дальше уже формируешь свой ВД, здесь я думаю тебе лучше
* создать свою таблицу, где будет соответствие ключа и ВД         
* ...
Else.
*  Стандартный выбор ВД
   IF TCOKO-ARBGE NE ARBGE.
      SELECT SINGLE * FROM TCOKO INTO TCOKO_WA WHERE ARBGE EQ ARBGE.
      IF SY-SUBRC NE 0.
         RAISE NOT_FOUND.
      ENDIF.
   ENDIF.

Endif.


ENDFUNCTION.