Объекты заказа - как обработать при сохранении ?

volkovas

Доброго дня!

Не подскажете ексит или бади в котором можно обрабатывать Объекты
(ЕО например) включенные в заказ на одноименной закладке. Делать это надо при сохранении.

Ексит с такой входной структурой я не нашел. :roll:

Спасибо.

OlegDm

Что значит - "обрабатывать"?

Если только просмотреть, то можно в любом экзите, срабатывающем при сохранении, например в БАДИ/МЕТОДЕ WORKORDER_UPDATE/AT_SAVE написать нечто подобное:

Code:

method IF_EX_WORKORDER_UPDATE~AT_SAVE.

  case is_header_dialog-autyp.
    when '30'. " Заказ ТОРО

*      Получение списка объектов при сохранении
      data: lt_briwol type standard table of riwol,
            ls_briwol type riwol.

      field-symbols: <fs_briwol>    type table.

      assign ('(SAPLIWOL)briwol[]') to <fs_briwol>.

      if sy-subrc = 0.
*       В lt_briwol присвоенные объекты      
        lt_briwol[] = <fs_briwol>[].
      endif.

  Endcase.

endmethod.

volkovas

Цитата:

Что значит - "обрабатывать"?

Да - просмотреть и в зависимости от этих данныъ выполнить код.
Спасибо, OlegDM , вы как всегда помогли.

А без ассайна никак ?

OlegDm

volkovas написал(а):

...
А без ассайна никак ?

не знаю, может и есть какой экзит, но например в том же IWO10009 (Заказ ТОРО: проверка клиента к моменту "Сохранение") этих данных нет.

OlegDm

Вот еще вариант, в качестве примера расширение IWO10009, ФМ EXIT_SAPLCOIH_009:

Code:

*----------------------------------------------------------------------*
*   INCLUDE ZXWOCU07 (К моменту сохранения)                            *
*----------------------------------------------------------------------*

*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(CAUFVD_IMP) LIKE  CAUFVD STRUCTURE  CAUFVD
*"     VALUE(TRTYP) LIKE  TC10-TRTYP
*"  EXPORTING
*"     REFERENCE(RELEASE_ORDER) TYPE  XFLAG

data: lt_riwol type standard table of riwol with header line.

*
* В LT_RIWOL БУДЕТ СПИСОК ОБЪЕКТОВ
*
CALL FUNCTION 'IWOL_CALL_OBJECT_LIST'
  EXPORTING
    I_AKTYP              = TRTYP
    I_INITIAL            = 'X'
    I_CAUFVD             = CAUFVD_IMP
*   I_CONFIRM            =
* IMPORTING
*   E_OKCODE             =
*   E_EXIST              =
 TABLES
   I_RIWOL              = lt_riwol
 EXCEPTIONS
   NO_OBJECT_LIST       = 1
   OTHERS               = 2.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

volkovas

Хмм... а 'IWOL_CALL_OBJECT_LIST' считает объекты ? они же не сохранены .. надо <я не знать русский языка>

Объекты заказа - как обработать при сохранении ?

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