Code: Alles auswählen.
* QUALIFIKATIONSPROFIL VOM BENUTZER LESEN
data: l_short type short_d.
if t_profile[] is initial.
* READ PERSON
call function 'RH_READ_OBJECT'
exporting
plvar = plan_version
otype = object_type
realo = object_id
importing
short = l_short
stext = object_name
exceptions
not_found = 1
others = 2.
if sy-subrc <> 0.
object_name = object_id.
elseif object_name is initial.
object_name = l_short.
endif.
call function 'RH_GET_OTYPE_TEXT'
exporting
otype = object_type
importing
otext = object_type_text
exceptions
invalid_otype = 1
others = 2.
if sy-subrc <> 0.
object_type_text = object_type.
endif.
* READ PROFILE
if from_date is initial.
from_date = sy-datum.
endif.
if to_date is initial.
to_date = sy-datum.
endif.
call function 'BAPI_QUALIFIC_GETLIST'
exporting
plvar = plan_version
otype = object_type
sobid = object_id
from_date = from_date
to_date = to_date
tables
qualificationprofile = t_profile.
endif.
Code: Alles auswählen.
* Fülle Pers_tab.
LOOP AT i1001.
CLEAR pers_tab.
pers_tab-otype = i1001-sclas.
pers_tab-sobid = i1001-sobid.
IF get_pers_name = 'X'.
sobid = i1001-sobid.
CALL FUNCTION 'RH_READ_OBJECT'
EXPORTING
plvar = plvar
otype = i1001-sclas
* objid = objid
realo = sobid
* ISTAT = ' '
begda = begda
endda = endda
* LANGU = SY-LANGU
* OINTERVAL = 'X'
* STORE = 'X'
* CHECK_STRU_AUTH = 'X'
* READ_DB = ' '
IMPORTING
* obeg =
* oend =
* ostat =
* histo =
short = pers_tab-short
stext = pers_tab-stext
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc > 0.
CONTINUE.
ENDIF.