Доступное количество в заказе клиента

Korvax

Добрый день.
Коллеги, может кто подскажет, ФМ на расчет доступного для поставки количества? Т.е. создаем поставку с заказа клиента, при этом выбирается количество которое осталось поставить, так вот, для этого расчета есть ФМ?
В идеале конечно с указанием сверх/недопоставки.

LKU

Просто проверка доступности - BAPI_MATERIAL_AVAILABILITY.

Korvax

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

LKU

Получается, вам нужно открытое количество по заказу, а не результаты ATP. Оно динамически по потоку документов считается, какой–то один фм к сожалению не подскажу.

Korvax

Да, нужно. То что считается я понимаю, хотелось ФМ найти.

Бородин Игорь

Там довольно хитро считается...
Когда-то давно я бился над этим вопросом, деталей не помню, но Ф.М.BAPI_MATERIAL_AVAILABILITY тогда не устроил. В итоге, чтобы в полной мере воспроизвести стандартную логику проверки, я использовал такой код:

Code:

FORM item_process CHANGING cs_likp      TYPE likp
                           cs_lips      TYPE lips.
  DATA:
    lv_subrc        TYPE sy-subrc,
    lv_atp_type     TYPE les_atp_type,
    lv_lfimg_txt    TYPE sy-msgv1,
    lv_matnr_txt    TYPE sy-msgv1,
    lv_message      TYPE bapi_msg,
    ls_quan_old     TYPE v50t1_set_of_quantity_s,
    ls_quan_new     TYPE v50t1_set_of_quantity_s.

*=======================================================================
* availability checks
*=======================================================================
  CALL FUNCTION 'LE_ATP_GET_VERSION'
    IMPORTING
      atp_type = lv_atp_type.

  MOVE-CORRESPONDING cs_lips TO ls_quan_old.                "#EC ENHOK

  IF lv_atp_type EQ 'O'.
    PERFORM verfuegbarkeit_pruefen
    IN PROGRAM sapfv50v IF FOUND
      USING    ls_quan_old
      CHANGING ls_quan_new
               lv_subrc.
  ELSE.
    PERFORM verfuegbarkeit_pruefen_neu
    IN PROGRAM sapfv50p IF FOUND
      USING    ls_quan_old
      CHANGING ls_quan_new
               lv_subrc.
  ENDIF.

* out of stock -->> continue
  CHECK ls_quan_old-lfimg NE ls_quan_new-lfimg.

  WRITE cs_lips-matnr TO lv_matnr_txt.
  WRITE ls_quan_new-lfimg TO lv_lfimg_txt
   UNIT cs_lips-vrkme LEFT-JUSTIFIED.

  MESSAGE i150(vl)
    WITH lv_lfimg_txt  cs_lips-vrkme  lv_matnr_txt  space
    INTO lv_message.

ENDFORM .

Korvax

Мне не нужна проверка доступности, мне нужно открытое количество по заказу, желательно с учетом недо/сверх поставки.

Smok

Korvax написал:

Мне не нужна проверка доступности, мне нужно открытое количество по заказу, желательно с учетом недо/сверх поставки.

Из спортивного интереса (вдруг пригодится) поискал по заданным критериям стандартные ФМ для заказа. Результат отрицательный.
Похоже для подобной задачи нужно писать свой ФМ используя элементы саповской логики.
Когда реализуете поделитесь с коллегами :wink:

.

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

Доступное количество в заказе клиента

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