Функция из разряда полезностей. Можно и самому написать, но грех, не воспользоваться уже кем-то написанным функционалом ;) Возвращает по коду завода и коду бизнес-сферы (если передать), код балансовой единицы которой принадлежит завод и код контроллинговой единицы.
DATA: l_burks LIKE vbak-bukrs_vf,
l_kokrs LIKE vbak-kokrs.
CALL FUNCTION 'SD_GET_KOKRS_BUKRS_FROM_WERKS'
EXPORTING
i_werks = '1000' "Код завода
i_gsber = space "Код бизнес-сферы
IMPORTING
e_bukrs = l_bukrs
e_kokrs = l_kokrs
EXCEPTIONS
plant_not_valid = 1
valuation_area_not_valid = 2
no_kokrs_found = 3
OTHERS = 4.
Как говориться быстро, дешево и сердито ::)