Вопрос стиля =)

Mystic_you

Хотелось бы услышать ответ в основном от знающих HR, как корректнее проверять связь

запросом

Code:

  SELECT SINGLE sobid FROM hrp1001
    INTO lv_sobid
  WHERE plvar = gp_plvar AND
    otype = 'S' AND
    objid = p_objid AND
    rsign = 'B' AND
    relat = '007' AND
    sclas = 'C'.

или вызовом ФМ

Code:

   CALL FUNCTION 'RH_STRUC_GET'
      EXPORTING
        act_otype              = 'S'
        act_objid              = p_objid
        act_wegid              = 'B007'
*       ACT_INT_FLAG           =
       ACT_PLVAR              = gp_plvar
       ACT_BEGDA              = gp_date
       ACT_ENDDA              = gp_date
*     TABLES
*       RESULT_TAB             =
       RESULT_OBJEC           = lt_objec
       RESULT_STRUC           = lt_struc
     EXCEPTIONS
       NO_PLVAR_FOUND         = 1
       NO_ENTRY_FOUND         = 2
       OTHERS                 = 3
              .

XXX_:)

Если не со стороны HR а просто со стороны абапера читающего чужой код, второй вариант предпочтетильнее, т.к. сразу видно что вы делаете, а вот по select без коментариев непонятно.(хотя напрямую в таблицы работает быстрее)

Mystic_you

Спасибо, оперативно так

Дело в том что "просто абапер" все равно не поймет что он получает в таблице lt_struc . Подожду что скажут HR-щики.

sy-uname

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

Хотелось бы услышать ответ в основном от знающих HR, как корректнее проверять связь

запросом

Code:

  SELECT SINGLE sobid FROM hrp1001
    INTO lv_sobid
  WHERE plvar = gp_plvar AND
    otype = 'S' AND
    objid = p_objid AND
    rsign = 'B' AND
    relat = '007' AND
    sclas = 'C'.

или вызовом ФМ

Code:

   CALL FUNCTION 'RH_STRUC_GET'
      EXPORTING
        act_otype              = 'S'
        act_objid              = p_objid
        act_wegid              = 'B007'
*       ACT_INT_FLAG           =
       ACT_PLVAR              = gp_plvar
       ACT_BEGDA              = gp_date
       ACT_ENDDA              = gp_date
*     TABLES
*       RESULT_TAB             =
       RESULT_OBJEC           = lt_objec
       RESULT_STRUC           = lt_struc
     EXCEPTIONS
       NO_PLVAR_FOUND         = 1
       NO_ENTRY_FOUND         = 2
       OTHERS                 = 3
              .

Предпочитаю ФМ.
Тем более что в вашем случае в запросе не участвуют даты (правда ФМ то же с дамповой ошибкой написан). А это не правильно.
Вместо RH_STRUC_GET можно просто прочитать ИТ1001 через RH_READ_INFTY и проверить наличие соответствующих связей.

ADD1: к преимуществам ФМ можно отнести так-же ещё и то, что они изолируют подробности реализации, от наличия и влиянии различных настроечных таблиц, параметров, разных BAdI, UE, ....

Mystic_you

О, гуру пишуть, клаассс =)

Цитата:

Тем более что в вашем случае в запросе не участвуют даты

вот это труъ. и как это я даты упустил...

Цитата:

(правда ФМ то же с дамповой ошибкой написан).

непринципиально, но интересно какая там ошибка кроме того что TABLES закомментировано

Цитата:

Вместо RH_STRUC_GET можно просто прочитать ИТ1001 через RH_READ_INFTY и проверить наличие соответствующих связей.

Вот оно решение!

Цитата:

ADD1: к преимуществам ФМ можно отнести так-же ещё и то, что они изолируют подробности реализации, от наличия и влиянии различных настроечных таблиц, параметров, разных BAdI, UE, ....

Ну это само собой, абстракция и все такое. Вопрос возник потому что параметры запроса абсолютно те же самые что и у ФМ. В общем, через RH_READ_INFTY ИТ 1001 будет самое то.

Спасибо.

sy-uname

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

Цитата:

(правда ФМ то же с дамповой ошибкой написан).

непринципиально, но интересно какая там ошибка кроме того что TABLES закомментировано

...

Ну так этого вполне достаточно чтобы выпась в дамп по отсутствующим импортным параметрам RESULT_OBJEC и RESULT_STRUC . Хотя репорт вполне может активироваться без ошибок.

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

Вопрос стиля =)

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