Добрый день.
Кто-нибудь знает, есть ли ФМ, который возвращает остаток на складе на заданную дату.

Тоже здравствуйте.
Хотел бы дополнить данный вопрос, потому что подобная тематика меня тоже уже несколько дней волнует.
Не подскажет ли кто-нибудь технологию, как вообще получить остаток по материалу или задолженность по поставщику на определенную дату? Вроде как есть таблицы MSEG и BSEG и множество с ними связанных, но что там и как хранится - черный ящик, и как это все доставать оттуда - вычисляя опытным путем можно не одну лошадь загнать :shock:

Есть очень мощный отчёт J_3RMOBVED. И там есть юзер-экзит. Запускайте, подключайтесь и выводите те данные и в том виде, как Вам нужно. Правда, работает всё это дело долго... Но правильно.

Спасибо за отчет, но лично мне хотелось бы технологию понять... чтобы потом такие отчеты делать... :?

Хм... технологию? Около 10000 строк кода и несколько лет отладки - вот Вам и технология.

Это называется "Обормотка". Оборотно-сальдовая ведомость.
Есть таблицы MARD (складские запасы, без оценки), MBEW (заводские запасы, с оценкой). Для особых запасов еще берем таблицу QBEW (если нужно в разрезе запасов проектов), для складских запасов партий MCHB.
Берем таблицы инфосистем (S030, S034, и т.д.), считаем остатки на заданную дату.
В качестве отправной точки для расчетов лучше всего брать запасы прошлого периода (меньше вероятность того, что они изменятся за время выполнения обормотки, и пойдет косяк).

Это технология в двух словах, а тонкостей там уйма, перечислять не буду. Одно то, что перемещение материала между складами в пределах одного завода считается бесплатным (а, следовательно, оно таковым остается и в инфосистемах => забиваем на оценку складских запасов либо занимаемся страшным гемором по вычислению стоимости "бесплатных" перемещений ).

ЗЫ. Эртрю в глаза не видел уже больше полугода, работаю на WAS... Могу немного попутать названия таблиц инфосистем.

Очень не рекомендую обращаться к таблицам инфосистем. Не знаю как в 4.7, а в 4.0 глюкавили они по-страшному.

Не знаю, мы в 4.0 собаку на них съели... Обормоток всевозможных наплодили кучу - все на инфосистемах... И все отлично работало и все сходилось.
Хотя свои проблемы, конечно же, были (те же бесплатные движения). Но, если по документам эту инфу - во-первых, проблем еще больше, во-вторых, вычислительные затраты больше на порядок.

Если считать движения по документам, то таблицы
MKPF, MSEG, BKPF, BSEG/BSIM.

При этом следует учитывать, что:
1.) Может происходить как изменение количества без изменения стоимости ("бесплатные" движения, ВДв 301/302 если память не изменяет - бухдокумент не создается), так и изменение стоимости без изменения количества (дооценка и прочее: документ материала не создается, только бухдокумент);
2.) В зависимости от задачи, могут быть нюансы в случае учета движений, произведенных задним числом.

PROGRAM ZTEST LINE-SIZE 100.

TABLES: MARA, MAKT, MSEG, T001W, T001L.

SELECT-OPTIONS: MATNR FOR MARA-MATNR ,
WERKS FOR MSEG-WERKS ,
LGORT FOR MSEG-LGORT.

PARAMETERS: DATE LIKE MARA-ERSDA DEFAULT SY-DATUM OBLIGATORY.


DATA: BEGIN OF ITOG OCCURS 0,
WERKS LIKE MSEG-WERKS,
LGORT LIKE MSEG-LGORT,
MATNR LIKE MSEG-MATNR,
MAKTX LIKE MAKT-MAKTX,
MENGE LIKE MSEG-MENGE,
END OF ITOG.

DATA: HD LIKE BAPI2017_GM_HEAD_02 OCCURS 0 WITH HEADER LINE,
IT LIKE BAPI2017_GM_ITEM_SHOW OCCURS 0 WITH HEADER LINE,
RET LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
TT156 LIKE T156 OCCURS 0 WITH HEADER LINE,
OSTAT LIKE MSEG-MENGE.

RANGES: DP FOR MARA-ERSDA.

CLEAR: HD, IT, RET, DP, TT156, OSTAT.
REFRESH: HD, IT, RET, DP, TT156.

SELECT * FROM T156 APPENDING TABLE TT156.

DP-SIGN = 'I'.
DP-OPTION = 'LT'.
DP-LOW = DATE.
APPEND DP.

CALL FUNCTION 'BAPI_GOODSMVT_GETITEMS'
TABLES
MATERIAL_RA = MATNR
PLANT_RA = WERKS
STGE_LOC_RA = LGORT
PSTNG_DATE_RA = DP
GOODSMVT_HEADER = HD
GOODSMVT_ITEMS = IT
RETURN = RET.
SKIP.

LOOP AT IT.
CLEAR: TT156, OSTAT.
READ TABLE TT156 WITH KEY BWART = IT-MOVE_TYPE.
CASE TT156-SHKZG.
WHEN 'S'. ADD IT-ENTRY_QNT TO OSTAT.
WHEN 'H'. SUBTRACT IT-ENTRY_QNT FROM OSTAT.
ENDCASE.
CLEAR: ITOG.
ITOG-WERKS = IT-PLANT.
ITOG-LGORT = IT-STGE_LOC.
ITOG-MATNR = IT-MATERIAL.
ITOG-MENGE = OSTAT.
COLLECT ITOG.

ENDLOOP.
DELETE ITOG WHERE MENGE = 0.
LOOP AT ITOG.
SELECT SINGLE MAKTX INTO ITOG-MAKTX FROM MAKT WHERE MATNR = ITOG-MATNR.
MODIFY ITOG.
ENDLOOP.
SORT ITOG BY WERKS LGORT MAKTX.
LOOP AT ITOG.
AT NEW WERKS.
CLEAR: T001W.
SELECT SINGLE * FROM T001W WHERE WERKS = ITOG-WERKS.
ULINE.
WRITE:/ ITOG-WERKS COLOR 1, T001W-NAME1 COLOR 1.
ULINE.
ENDAT.
AT NEW LGORT.
CLEAR: T001L.
SELECT SINGLE * FROM T001L WHERE WERKS = ITOG-WERKS
AND LGORT = ITOG-LGORT.
ULINE.
WRITE:/5 ITOG-LGORT COLOR 1 INTENSIFIED OFF,
T001L-LGOBE COLOR 1 INTENSIFIED OFF.
ULINE.
ENDAT.
WRITE:/12 ITOG-MATNR, ITOG-MAKTX, ITOG-MENGE.
ENDLOOP.
ULINE.

Ну, в качестве минимальной оборомотки (без данных оценки и без разбивки на партии) сойдет и этот вариант :-) .

ну передавай доп.параметры в эту функцию и всё будет ОК

Нет под рукой, проверить не могу - спорить не буду .

Спасибо всем большое, за ответы. Идей масса. Будем пытаться.

Со своей стороны тоже хочу выразить большую признательность 111 и ВН за помощь, благодаря вам, мне не придется тратить несколько лет и писать 10000 строк кода, и я смогу потратить это время на посадку дерева, постройку дома, и еще может быть чего-нибудь :D
Будем с Кипятильником на скорость разбираться во всех тонкостях :wink: