Необычная проблема при пакетном вводе IW31 (Создание заказа ТОРО)

Sorusat

Создаю ТОРО-заказ для внешних работ (PM03).

В цикле первый заказ создается отлично, а вот начиная со второго получаю следующую проблему:

На первом экране SAPLCOIH/0100 задаю параметры
1. Вид заказа (PM03)
2. Приоритет средний (3)
3. Техническое место

На втором экране (в отличии от первого запуска) НЕ заполняется автоматически блок "Первая операция"!

Соответсвенно, дальше пакетный ввод не идет.

Если я принудительно заполняю этот блок, то после выполнения команды "=VGUE" (Перейти на закладку Операции),
получаю динамическую ошибку "NO_MORE_OPR" из ФМ "CO_IT_OPR_ITAB_GET".

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

Да, это моя первая разработка по модулю ТОРО, поэтому знания по нему пока минимальны.

Besa

Используйте CALL FUNCTION 'BAPI_ALM_ORDER_MAINTAIN'...
С проблемой пакетника тоже можно разобраться, но там много нюансов, и вариантов из-за чего данная ошибка, нужно видеть код и как настроена система + сам дамп.

Sorusat

Я пытался сразу написать с использованием этого BAPI, но насколько я разобрался, там нужно вызывать цепочку BAPI:
1. Создать заявку
2. Создать Ведомость учета услуг/работ (BAPI_ENTRYSHEET_CREATE)
3. Создать заказ ТОРО (BAPI_ALM_ORDER_MAINTAIN)

Поскольку сроки очень сильно поджимают - решил использовать пакетник, а тут - засада...

Куда еще можно попробовать копнуть?

Besa

В ручную все без проблем проходит?
bdcdata правильно заполнена?<<<
если прогон на котором "валится" пакетник поставить первым в цикле то все норм?
updmode = 'L'?
ноты искали по дампу?

Sorusat

Да, вручную все ок, перед циклом удаляю из внутренней таблицы первую запись - второй заказ создается, а на третьем и последующих - ошибка. updmode = 'L' попробовал - не помогло.

Ноты не искал. Чувствую, что придется все-таки разбираться с БАПИ.

Besa

Код покажите.

Sorusat

Code:

    loop at report into rep_line.
      binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '0100'  ok_code = '=IHKZ' ).
      binp->add_field( field = 'AUFPAR-PM_AUFART' value = c_order_type ). "PM03
      binp->add_field( field = 'CAUFVD-PRIOK'     value = '3' ).  "приоритет средний
      binp->add_field( field = 'CAUFVD-TPLNR'     value = rep_line-tplnr ).

      binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '3000'  ok_code = '=VGUE' ).
      binp->write_field( field = 'CAUFVD-GSTRP' value = rep_line-gstrp ).
      binp->write_field( field = 'CAUFVD-GLTRP' value = rep_line-gltrp ).
      binp->add_field(   field = 'CAUFVD-KTEXT' value = rep_line-ktext ).
      binp->add_field(   field = 'CAUFVD-ILART' value = scr0100-ilart ).
      binp->add_field(   field = 'AFVGD-ARBPL'  value = rep_line-arbpl ).
      binp->add_field(   field = 'AFVGD-WERKS'  value = rep_line-werks ).
      binp->add_field(   field = 'AFVGD-STEUS'  value = c_order_type ). "PM03
      binp->add_field(   field = 'AFVGD-INDET'  value = '1' ).  " Расчет продолжительности
      binp->add_field(   field = 'AFVGD-LTXA1'  value = rep_line-ktext ).

      binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '3000'  ok_code = '=PICK' ).
      binp->add_field( field = 'BDC_CURSOR'     value = 'AFVGD-VORNR(01)' ).

      data idx type i.
      idx = 1.

      loop at detail into det_line where tplnr = rep_line-tplnr and gstrp = rep_line-gstrp.

        binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '3000'  ok_code = '/00' ).
        binp->add_field_with_index( field = 'ESLL-SRVPOS' value = det_line-srvpos index = idx ).
        binp->add_field_with_index( field = 'ESLL-MENGE'  value = det_line-menge  index = idx ).
        binp->add_field_with_index( field = 'ESLL-MEINS'  value = det_line-meins  index = idx ).
        binp->add_field_with_index( field = 'ESLL-TBTWR'  value = det_line-brtwr  index = idx ).

        add 1 to idx.

      endloop.

      binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '3000'  ok_code = '=BACK' ).
*     Деблокировать и сохранить
      binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '3000'  ok_code = '=FREI' ).
      binp->add_dynpr( progr = 'SAPLCOIH' dynpr = '3000'  ok_code = '=BU' ).

      binp->call_transaction( tcode = 'IW31' mode = 'N' update_mode = 'L' ).

      call function 'BAPI_TRANSACTION_COMMIT'
       exporting
         wait          = 'X'.

Besa

Не ожидал такое увидеть... Вы чистите табличку bdcdata после каждого прогона?

Sorusat

Да, конечно, табличка чистится в конце метода call_transaction.

Besa

Что если после call_transaction сделать wait up 3 seconds например, то есть пусть система подождет пока все закомитится, именно с заказами ТОРО были такие глюки(через submit выкручивался)... И еще, попробуйте вторую запись прогонять в отладчике с режимом А, как система себя поведет?

Sorusat

Wait не помогли, попробовать что-ли вынести выполнение пакетника в отдельный ФМ?

__Gennady

Посмотрите в отладчике ABAP-память до и после создания первого заказа. Возможно есть чего очистить.
Если второй заказ запустить в видимом режиме - можно избавиться от ошибок?

Sorusat

Характер работы не меняется в зависимости от режима видимости.
Просто в видимом режиме я сразу вижу, что на второй итерации блок "Первая операция" не заполняется автоматически.

__Gennady

Вам 2 варианта:
1 - научиться учитывать отстутсвие автоматического заполнения.
2 - выяснить+устранить причину его отстутствия.

Sorusat

Я заполняю принудительно поля, которые не заполняются автоматически при второй итерации.

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

Необычная проблема при пакетном вводе IW31 (Создание заказа ТОРО)

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