Тексты из квалификации

AnnaEremenko

Помогите, люди добрые!
Как вытащить данные по названию квалификации и характеристике к ней на определенный OBJID? Нужно в отчете вывести вредные условия труда(%), а они как раз в характеристике этой храняться (первые два символа). Вот откуда мне их найти? Лазила по всяким программкам, где используется структура HRPE_PROFQ и нашла такой ФМ: RHPP_Q_PROFILE_READ, он он почему-то не работает. Ошибку никакую не выдает (sy-subrc = 0), но таблицу profile не заполняет. А в транзакции PPPM тексты есть. :?:

Почему-то в форуме по модулю HR мне не помогли (пусть и жду помощи за такой короткий срок). :cry:

Он

Таблицу OBJECTS заполнили?

Удав

В PPPM как раз вызывается ФМ RHPP_Q_PROFILE_READ - и прекрасно работает

Посмотрите заполнение всех полей таблицы OBJECTS перед вызовом.
В случае с
PLVAR = 01
OTYPE = P
SOBID = ваш OBJID

все должно получиться

Он

Вот, вот! Много раз им пользовался - работало! :wink:

AnnaEremenko

Вы знаете, я в HR ну совершеннейшая ноль. Вроде OBJECTS - это структура, а не таблица. А как заполнить эту структуру? В смысле ручками данные занести или она заполняется каким-то спец.способом?
У меня PLVAR = 01 OTYPE = A.
Завтра обязательно попробую.

Он

Да нет, таблица(Описана в разделе TABLES). А заполняется программно в коде... вставляете то что вы написали + идентификатор объекта в рабочую область wa_objects, потом APPEND wa_objexts TO OBJEСTS.

AnnaEremenko

Ну, если посмотреть код, то получается, что заполняю.

Code:

  LOOP AT p1001 WHERE begda <= pc-begda
                  AND endda >= pc-begda.

    gd_plvar = p1001-plvar.
    gd_otype = p1001-otype.
    gd_objid = p1001-objid.
    gd_begda = pc-begda.
    gd_endda = pc-endda.
    g_subrc = sy-subrc.
*   read the qualifications profile now!
    PERFORM data_read_qualifications TABLES qual_act
                                   USING gd_plvar
                                         gd_otype
                                         gd_objid
                                         gd_begda
                                         gd_endda
                                         g_subrc.

    EXIT.
  ENDLOOP.


FORM data_read_qualifications TABLES p_profile " structure hrpe_profq
                              USING  value(p_plvar) LIKE p1000-plvar
                                     value(p_otype) LIKE p1000-otype
                                     value(p_objid) LIKE p1001-sobid
                                     value(p_begda) LIKE p1000-begda
                                     value(p_endda) LIKE p1000-endda
                                     p_subrc LIKE sy-subrc.
* tables
  DATA: sobids  LIKE hrsobid OCCURS 0 WITH HEADER LINE.
  DATA: profile LIKE hrpe_profq OCCURS 0 WITH HEADER LINE.

* progress indicator
  CALL FUNCTION 'RH_DISPLAY_PROGRESS_INDICATOR'
       EXPORTING
            messg_nr   = '102'
*           MESSG_TEXT =
       EXCEPTIONS
            OTHERS     = 0.


* fill object table
  sobids-plvar = p_plvar.
  sobids-otype = p_otype.
  sobids-sobid = p_objid.
  APPEND sobids.

* read qualifications
  CALL FUNCTION 'RHPP_Q_PROFILE_READ'
       EXPORTING
            begda            = p_begda
            endda            = p_endda
*           WITH_STEXT       = 'X'
*           WITH_QK_INFO     = 'X'
            check_note       = 'X'
       TABLES
            objects          = sobids
*           ERR_OBJECTS      =
            profile          = profile
       EXCEPTIONS
            no_authority     = 1
            wrong_otype      = 2
            object_not_found = 3
            undefined        = 4
            OTHERS           = 5.
  IF sy-subrc = 0.
    p_profile   = profile.             "because of extended check
    p_profile[] = profile[].
  ENDIF.
  p_subrc = sy-subrc.
ENDFORM.                               " DATA_READ_QUALIFICATIONS

Я это все скопировала из программы SAPLRHPP PBO для экрана 2101. В итоге таблица profile[] пустая, sy-subrc = 0. И ошибки нет и данных нет.

AnnaEremenko

Почему у меня такое чувство что дело в дате? Я, получается, присваиваю begda и endda значение текущего дня. А это, скорее всего не правильно. Нужно диапазон присваивать из Р1001?

AnnaEremenko

УРА!!! У меня все получилось!!! Спасибо всем огромное! :mrgreen:

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

Тексты из квалификации

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