Конфигурируемый материал

dev403k

Есть проблема:
Необходимо для любого материала через BAPI (ФМ) заполнить поле "КонфигурирМатериал"
Поле MARC-STDPD.
Смотрела 'BAPI_MATERIAL_SAVEDATA' - нет такого поля.
Подскажите как это можно сделать.
Заранее спасибо.

Besa

По-моему поднимался уже подобный вопрос, некоторые отказываются от BAPI_MATERIAL_SAVEDATA в пользу MATERIAL_MAINTAIN_DARK(этот ФМ вызывается внутри SAVEDATA). Попробуйте его использовать.

dev403k

Попробовала. Ничего не получилось.
Проанализировала: Внутри модуля поле STDPD (КонфигурМтрл) при любых условиях чистится.

Запустила DEBUGGER и там поставила полю STDPD значение :shock:

. В MM03 это поле я увидела заполненым. Но кнопка "Оценка варианта" не активна.
Как создать оценку материала - не знаю.
:cry:

Удав

Используйте пакетный ввод на MM02.
Но для корректного использования необходимо, чтобы материалы создавались по одной методике (строка с ракурсом ППМ3 при выборе ракурса всегда располагается на одном месте).

Alexgo

Коллеги, подниму тему.
Также стоит вопрос обновления MARC-STDPD в программе.
В BAPI_MATERIAL_SAVEDATA этого поля нет, пробуем так:

Code:

   CALL FUNCTION 'MATERIAL_SAVE_CONFIGURATION'
            EXPORTING
              material             = matnr
              plant                  = werks
              conf_matl_plant  = stdpd
            IMPORTING
              return          = ls_return.

Внутри MATERIAL_SAVE_CONFIGURATION запускается MATERIAL_MAINTAIN_DARK.
После выполнения в return попадает сообщение об успешном изменении материала, но поле не обновляется. (COMMIT после вызова ФМ делается).

Никто не сталкивался? Может быть есть альтернативные варианты?

dev403k

Искала много и все зря. Написала пакетный ввод на MM02 - все работает.

Alexgo

Пакетный ввод на lsmw?
С этим проблема, что состав предшествующих ракурсов должен быть одинаков.
Если отличается то пакетных вводов нужно тоже несколько

dev403k

У меня логика выполнния следующая: (другого на тот момент придумать не смогла)
1) Выполнить CALL FUNCTION 'BAPI_OBJCL_GETCLASSES' для материала по 001 классу
2)Выполнить

Code:

DATA: BEGIN OF classification OCCURS 0,
        classtype(3),                 " 13  Вид класса
        classnumber(18),              " 14 Номер класса
        charname(30),                 " 15 Имя признака
        charvalue(30),                " 16 Значение признака
      END OF classification.

 CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
      EXPORTING
        objectkey       = материал
        objecttable     = 'MARA'
        classnum        = classnum    из пункта 1)
        classtype       = classtype     из пункта 1)
      TABLES
        allocvaluesnum  = numtab
        allocvalueschar = chatab
        allocvaluescurr = curtab
        return          = rettab.
    LOOP AT chatab.
      classification-classtype   = alloclist-classtype.
      classification-classnumber = alloclist-classnum.
      classification-charname    = chatab-charact.
      classification-charvalue   = chatab-value_neutral.
      APPEND classification.
    ENDLOOP.

3) затем пакетник:
Для экрана 0109
*******

Code:

 "    окно ввода конфигурации
  PERFORM bdc_dynpro      USING 'SAPLCEI0'              '0109'.
  PERFORM bdc_field       USING 'BDC_CURSOR'            'RCTMS-MWERT(01)'.
  PERFORM bdc_field       USING 'BDC_OKCODE'            '=BACK'.
  LOOP AT classification WHERE classtype EQ '001'.
    ADD 1 TO line. UNPACK line TO line.
    CONCATENATE 'RCTMS-MNAME(' line ')' INTO fname1.
    CONCATENATE 'RCTMS-MWERT(' line ')' INTO fname2.
    PERFORM bdc_field     USING   fname1  classification-charname.
    PERFORM bdc_field     USING   fname2  classification-charvalue.
  ENDLOOP.
****
CALL TRANSACTION 'MM02'...

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

Конфигурируемый материал

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