Текущее время: Пн, июн 23 2025, 13:09

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Работы/услуги и деривация
СообщениеДобавлено: Ср, окт 01 2008, 14:33 
Менеджер
Менеджер

Зарегистрирован:
Вт, дек 06 2005, 17:52
Сообщения: 559
У нас в деривации участвует группа материалов, которую мы получаем из ОЗМ, настроен соответствующий шаг деривации и все вроде работает.

Появилась задача использовать в деривации группу материалов из услуг (вернее, ОЗУ - тр. АС02), всякий раз, когда эта услуга используется и вызывается деривация (например, в заявке/заказе на поставку, заказе ТОРО, если там участвуют работы/услуги).

Как из расширения SAPLFMDT дотянутся до услуги? Я, в принципе, нащупал, где в памяти хранится каталог услуг при всех вышеперечисленных действиях, но нет уверенности, что данные там будут в любом случае и хотелось бы придумать что-то более цивильное.

Есть какие-то идеи?


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, окт 01 2008, 15:18 
Ассистент
Ассистент

Зарегистрирован:
Чт, авг 14 2008, 13:33
Сообщения: 44
Откуда: Москва
Для вытаскивания контировки работ/услуг из контракта для заказа делаю примерно так:

CASE I_COBL-VORGN.
.......
WHEN 'RMBE'. " создается MM-заказ
ASSIGN ('(SAPMM06E)EKPO') TO <EKPO>.
IF SY-SUBRC = 0.
MOVE-CORRESPONDING <EKPO> to w_ZFMDERIVE.
ELSE.
* заказ по сбытовой заявке
* ASSIGN ('(SAPLMEPO)EKPO') TO <EKPO>.
ASSIGN ('(SAPLMEPO)FEKPO') TO <EKPO>.
IF SY-SUBRC = 0.
w_ZFMDERIVE-KONNR = <EKPO>-KONNR.
w_ZFMDERIVE-KTPNR = <EKPO>-KTPNR.
ELSE.
* MM-заказ по контракту:
SELECT SINGLE KONNR KTPNR FROM EKPO
INTO CORRESPONDING FIELDS OF w_ZFMDERIVE
WHERE EBELN = I_COBL-AWKEY
AND EBELP = I_COBL-AWPOS(5).
IF w_ZFMDERIVE IS INITIAL.
* MM-заказ по заявке (данные из контракта):
ASSIGN ('(SAPLMLSK)COMSRV') TO <COMS>.
IF SY-SUBRC = 0.
w_ZFMDERIVE-KONNR = <COMS>-PLN_EBELN.
w_ZFMDERIVE-KTPNR = <COMS>-PLN_EBELP.
ELSE.
SELECT SINGLE BANFN BNFPO FROM EKPO
INTO CORRESPONDING FIELDS OF v_ZFMDERIVE
WHERE EBELN = I_COBL-AWKEY
AND EBELP = I_COBL-AWPOS(5).

SELECT SINGLE KONNR KTPNR FROM EBAN
INTO CORRESPONDING FIELDS OF w_ZFMDERIVE
WHERE BANFN = v_ZFMDERIVE-BANFN
AND BNFPO = v_ZFMDERIVE-BNFPO.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* для контировки работ/услуг:
SELECT ZEKKN FROM EKKN INTO w_ZFMDERIVE-EKKN
WHERE EBELN = w_ZFMDERIVE-KONNR
AND EBELP = w_ZFMDERIVE-KTPNR.
ENDSELECT.
.......
ENDCASE.


Принять этот ответ
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB