[Решено] Удаление операций

SteelBird

Добрый день, народ!

Как можно из заказа удалить "лишние" операции?
В частности стоит задача "удалить все операции, VORNR котороых меньше заданного".

Если надо чуть подробнее: то вот более полная легенда.

в CO01 на основе заказа 1 был создан заказ 2(скопирован).
Теперь из заказа 2 надо удалить все операции(в CO01 для этого надо нажать F5[обзор операций] и удалить лишние) VORNR которых меньше заданного.
(удалять надо, естественно, из программы ;-)

)

надеюсь на Вашу помощь.

VitalkaFS

Попробуй воспользоваться объектов BAPI ProductionOrder (BUS2005).

SteelBird

VitalkaFS написал:

Попробуй воспользоваться объектов BAPI ProductionOrder (BUS2005).

Смотрел я на эти BAPI...
Но даже копирование заказа пришлось через batch делать.
потому что BAPI_PRODORD_CREATE_FROM_REF, которая должна заниматься копированием говорит мне "дайте мне заказ, который не привязан к материалу"...

а та BAPI, которая BAPI_PRODORD_CHANGE меняет только заголовок заказа

Alex80

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

Добрый день, народ!

Как можно из заказа удалить "лишние" операции?
В частности стоит задача "удалить все операции, VORNR котороых меньше заданного".

Если надо чуть подробнее: то вот более полная легенда.

в CO01 на основе заказа 1 был создан заказ 2(скопирован).
Теперь из заказа 2 надо удалить все операции(в CO01 для этого надо нажать F5[обзор операций] и удалить лишние) VORNR которых меньше заданного.
(удалять надо, естественно, из программы ;-)

)

надеюсь на Вашу помощь.

Code:

DATA:
  gt_methods TYPE TABLE OF bapi_alm_order_method,
  gs_methods TYPE bapi_alm_order_method,
  gt_return TYPE TABLE OF bapiret2.

gs_methods-objecttype = 'OPERATION'.
gs_methods-method     = 'DELETE'.
gs_methods-objectkey  = '0000010000000021'. "AUFNR+VORNR
APPEND gs_methods TO gt_methods.
CLEAR gs_methods.
gs_methods-method = 'SAVE'.
APPEND gs_methods TO gt_methods.

CALL FUNCTION 'BAPI_ALM_ORDER_MAINTAIN'
  TABLES
    it_methods = gt_methods
    return     = gt_return.

LOOP AT gt_return  TRANSPORTING NO FIELDS
  WHERE type CA 'AEX'.
  EXIT.
ENDLOOP.

IF sy-subrc IS NOT INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.

SteelBird

О. Спасибо. буду пробовать!

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

[Решено] Удаление операций

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