Проверить блокировки объектов

GUGO

Здравствуйте,
Я использую BAPI_PO_CREATE для создания заказа на приобретение. Если во время выполнения этого BAPI другой пользователь займет необходимые объекты (контракт, запись материала), то получаем ошибку типа: "Данные по заводу для материала 0020200145 блокированы пользователем LAVROVA".
Вопрос состоит в том, как мне до вызова BAPI проверять свободны ли нужные объекты и как првильно ждать, пока они освободяться?

holocron

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

Здравствуйте,
Я использую BAPI_PO_CREATE для создания заказа на приобретение. Если во время выполнения этого BAPI другой пользователь займет необходимые объекты (контракт, запись материала), то получаем ошибку типа: "Данные по заводу для материала 0020200145 блокированы пользователем LAVROVA".
Вопрос состоит в том, как мне до вызова BAPI проверять свободны ли нужные объекты и как првильно ждать, пока они освободяться?

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

Mike1

Смотри ФM ENQUEUE_READ.

GUGO

Что такое SM12 я знаю.
Речь идет о програмном способе. Что-то типа функций вида ENQUEUE_*.

GUGO

2Mike1
Насколько я понимаю, эта функция определяет блокировку конкретной отдельной таблицы (например KNB1):

Code:

DATA: GARG LIKE SEQG3-GARG,
  ENQ LIKE SEQG3 OCCURS 1 WITH HEADER LINE.
  
REFRESH ENQ.
  CONCATENATE SY-MANDT KUNNR BUKRS INTO GARG.
  CALL FUNCTION 'ENQUEUE_READ'
       EXPORTING
            GCLIENT               = SY-MANDT
            GNAME                 = 'KNB1'
            GARG                  = GARG
            GUNAME                = SPACE
       TABLES
            ENQ                   = ENQ
       EXCEPTIONS
            COMMUNICATION_FAILURE = 1
            SYSTEM_FAILURE        = 2
            OTHERS                = 3.
  READ TABLE ENQ INDEX 1.
  IF SY-SUBRC = 0.
    MESSAGE S041 WITH KUNNR BUKRS ENQ-GUNAME.
    LEAVE LIST-PROCESSING.
  ENDIF.

GUGO

Как определить какие таблицы понадобятся BAPI_PO_CREATE?
Нельзя ли блокировать (проверять) сразу все связанные объекты?
P.S. кажется я слишком многого захотел :lol:

Mike1

Если не заполнять GNAME и GARG можно получить полный список блокировок.
А количества Z в вашей системе я предсказать не берусь.

РМщик

Может лучше использовать BAPI_PO_CREATE1 ?

Там есть тестовый режим, который и проверит отсуствие блокировок....

GUGO

ToРМщик Огромное спасибо, все работает.
Непонятно только, что я буду делать, когда такой вопрос встанет с Документом движения материала, например?
Ведь предложенный способ весьма спецефичен и не подойдет в других случаях.... :roll:

РМщик

[quote="GUGO"]Непонятно только, что я буду делать, когда такой вопрос встанет с Документом движения материала, например?
[quote]

в BAPI_GOODSMVT_CREATE тоже есть тестовый режим

или я не понял вопроса?

GUGO

Э... Ну в Сапе же есть BAPI, где нет TESTRUN (ну BAPI_BATCH_CREATE вроде бы)...
Я просто хотел узнать можно ли использовать этот способ для других BAPI (там где нет TESTRUN). Например, делая ролбэк если в RETURN встретились сообщения о блокировках.

Возник еще вопрос: что делать, если блокировка есть? Следует ли в цикле (каждые n секунд, но не более m раз) вызывать BAPI в TESTRUN, пока блокировки не снимутся, или есть более правильный способ (например, как-то поставить себя в очередь к объекту и ждать уже события)?

РМщик

после грамотных бапишек - всегда нужен commit work
поэтому можно анализировать результат отработки бапишки

и делать что-то вроде

call function 'BAPI....'
...
...
IMPORTING
DOCNUM = DOCNUM.

If docnum is initial.
rollback work.
else.
commit work.
endif.

или же тоже самое по exception's через sy-subrc

РМщик

а ставить или не ставить в очередь - вопрос не имеет однозначного ответа для ВСЕХ задач.

Вот у нас например, все движения материала через bapi - обязательно становятся в очередь, потому что их слишком много, да и логика движения материала без очереди может нарушиться

GUGO

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

РМщик

Code:

    call function 'TRFC_SET_QUEUE_NAME'
      exporting
        qname  = qname  "Устанавливаем имя очереди
      exceptions
        others = 99.
    if sy-subrc <> 0.
      call function 'Z_.....'
         in background task
       .....
    endif.

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

Проверить блокировки объектов

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