Расчет затрат по СПП элементу

ZlobenDen

Уважаемые специалист посоветуйте (кто знает) вот что:
Задача, собрать затраты по СПП элементу, у меня есть перечень СПП элементов, контролинговая <я не знать русский языка>, дата. Т.е. мне необходимо повторить действия транзакции "S_ALR_87013545" ну или ей подобной, для этого мне необходимо получить выборку по таблице COVP и одним из основных параметров при выборке является:

OBJNR J_OBJNR CHAR 22 Номер объекта

Этот OBJNR формируется из номера СПП, как именно я не знаю.
Вот к примеру для решения этой задачи для МВЗ вместо СПП я использовал функцию

FUNCTION 'ROMU_OM_CONVERT_TO_OBJNR'

Она формирует OBJNR из МВЗ, а что использовать для СПП я не знаю.
Возможно Вы подскажете более универсальный способ.
Заранее благодарю!

sibrin

Может PSBW_GET_OBJNR_FOR_WBS подойдёт?

ZlobenDen

Я полдня бился за это преобразованием.

OlegDm

Если совсем по простому, то OBJNR для СПП - это PRPS-OBJNR

ROKO

ZlobenDen написал(а):

Этот OBJNR формируется из номера СПП, как именно я не знаю.

Название OBJNR формируется путем склеивания полей OBART KEY01 KEY02 .... KEY07, указанным в таблице БД TBo00 по виду объекта OBART.

Так для СПП-элемента вид объекта будет PR. Для номера СПП-элемента будет соответствовать номер объекта, полученный склеиванием вида объекта PR и поля KEY01. В качестве KEY01 будет браться поле PSPNR таблицы БД PRPS.

ZlobenDen написал(а):

Вот к примеру для решения этой задачи для МВЗ вместо СПП я использовал функцию

FUNCTION 'ROMU_OM_CONVERT_TO_OBJNR'

Она формирует OBJNR из МВЗ, а что использовать для СПП я не знаю.
Возможно Вы подскажете более универсальный способ.
Заранее благодарю!

В качестве функционального модуля могу предложить:

Code:

CALL FUNCTION 'OBJECT_NUMBER_READ_PR'
        EXPORTING
          pspnr  = pspnr  "Номер СПП элемента
        IMPORTING
          objnr  = objnr   "Номер объекта
        EXCEPTIONS
          OTHERS = 0. 

или для любых видов объектов:

Code:

CONCATENATE 'OBJECT_NUMBER_READ_' l_obart INTO l_funcname.
  PERFORM check_tfdir USING l_funcname  CHANGING l_rcode.
FORM check_tfdir USING    value(v_funcname)
                 CHANGING r_subrc.
*
  STATICS: s_funcname LIKE tfdir-funcname.
*
  CLEAR r_subrc.
*
    SELECT SINGLE funcname INTO s_funcname
       FROM tfdir WHERE funcname = v_funcname.
    IF sy-subrc > 0.
      r_subrc = 2.
    ENDIF.
  ENDIF.
ENDFORM.
  IF r_subrc ne 2.
    CALL FUNCTION l_funcname
         EXPORTING
              objnr       = v_objnr
         IMPORTING
              e_objectkey = <l_objkey>
         EXCEPTIONS
              not_found   = 1.
  ELSE.
    CALL FUNCTION 'OBJECT_KEY_GET_GENERIC'
         EXPORTING
              i_objnr          = v_objnr
         IMPORTING
              e_objectkey      = <l_objkey>
         EXCEPTIONS
              object_not_found = 1.

  ENDIF.

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

Расчет затрат по СПП элементу

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