user-exit или BADI при сохранении входящей поставки

legatus

Всем привет.

Возникла необходимость при сохранении входящей поставки нужно заполнять поле в таблицу EIKP.
Подскажите пожалуйста user-exit или BADI.

MantiCore1977

BADI DELIVERY_PUBLISH метод PUBLISH_AFTER_SAVE?

legatus

я как понял что данный метод срабатывает после сохранения данных в базе.
Получается нужно будет еще раз сделать изменение, например, с помощью пакетного ввода?

Обнаружил, что если пользователь не заходил в заголовок поставки на вкладку "Внешняя торговля/пошлина" и не заносил данные, то в таблицу EIKP не будет заполнено (LIKP-EXNUM будет пустым).

MantiCore1977

тогда возможно подойдет BADI LE_SHP_DELIVERY_PROC
или посмотреть все BADI LE_SHP*, хоть что-то должно подойти

legatus

Добавил свою обработку в user-exit USEREXIT_SAVE_DOCUMENT_PREPARE (FORM USEREXIT_SAVE_DOCUMENT_PREPARE программа sapmv50a).

Пример кода:

Code:

DATA: ls_xeikp    TYPE eikpvb.
DATA: ls_t001w    TYPE t001w.
DATA: lv_updkz    TYPE updkz.
FIELD-SYMBOLS:
  <lt_xeikp>      TYPE STANDARD TABLE,
  <ls_xeikp>      TYPE eikpvb,
  <ls_xlikp>      TYPE likpvb,
  <ls_xlips>      TYPE lipsvb.


READ TABLE xlikp ASSIGNING <ls_xlikp> WITH KEY vbeln = likp-vbeln.
CHECK sy-subrc = 0.
READ TABLE xlips ASSIGNING <ls_xlips> WITH KEY vbeln = likp-vbeln.
CHECK sy-subrc = 0.

CHECK <ls_xlikp>-updkz <> 'D'. " проверка, что не удаляем вх.поставку

ASSIGN ('(SAPLV50E)XEIKP[]') TO <lt_xeikp>.
CHECK sy-subrc = 0.

IF <lt_xeikp> IS INITIAL.
  lv_updkz = 'I'.
ELSE.
  lv_updkz = 'U'.
ENDIF.

CASE lv_updkz.
  WHEN 'I'. " данные по внешней торговли не найдены -> добавляем

    CLEAR ls_xeikp.
    ls_xeikp-mandt = sy-mandt.

    " получение системного номера внешней торговли
    CALL FUNCTION 'NUMBER_GET_NEXT'
      EXPORTING
        nr_range_nr = '01'
        object      = 'EXPIMP'
      IMPORTING
        number      = ls_xeikp-exnum.

    SELECT SINGLE * INTO ls_t001w FROM t001w WHERE werks = <ls_xlips>-werks.
    IF sy-subrc = 0.
      ls_xeikp-aland = ls_t001w-land1.
    ENDIF.

    ls_xeikp-text1 = 'TEST_CREATE'.

    ls_xeikp-updkz = lv_updkz.
    APPEND ls_xeikp TO <lt_xeikp>.

    <ls_xlikp>-exnum = ls_xeikp-exnum.
    <ls_xlikp>-expkz = 'X'.

  WHEN 'U'. " данные по внешней торговли имеются -> обновляем

    ls_xeikp-text1 = 'TEST_UPDATE'.
    <ls_xeikp>-updkz = lv_updkz.

ENDCASE.

Touch

Здравствуйте!

А как сделать чтобы при добавление записи в EIKP еще и поле LIKP-EXNUM обновлялось?

Есть ФМ EXPIMP_DOCUMENT_UPDATE, но он подходит только для обновления таблиц EKKO и MKPF.

Правила форума

user-exit или BADI при сохранении входящей поставки

Кто сейчас на конференции