Добрый день!
Иногда возникает необходимость добавления дополнительных полей в оперзапросе (я консультант).
Например, требуется вывести квалификации сотрудника по табельному номеру. Квалификаций (скажем, по иностранным языкам) может быть несколько.
Пишу кодировку для поля ZZ_QUAL1:
Code:
CONSTANTS: scale_id TYPE T77SP_DESCR-scale_id VALUE '00000007'. "шкала квалификаций для ин.языков
DATA:
sobids TYPE TABLE OF HRSOBID WITH HEADER LINE,
profile TYPE TABLE OF HRPE_PROFQ WITH HEADER LINE.
REFRESH: sobids, profile.
sobids-plvar = '01'.
sobids-otype = 'P'.
sobids-sobid = p0003-pernr.
APPEND sobids.
CALL FUNCTION 'RHPP_Q_PROFILE_READ'
EXPORTING
BEGDA = SY-DATUM
ENDDA = SY-DATUM
CHECK_NOTE = 'X'
TABLES
OBJECTS = sobids
PROFILE = profile.
LOOP AT profile WHERE scale_id = scale_id.
zz_qual1 = profile-ttext.
ENDLOOP.
IF SY-SUBRC <> 0.
Однако оперзапрос заходит в этот кусок кода всего один раз, хотя в profile может лежать куча записей. Как их вывести все построчно?
Спасибо!