组织架构 ppome维护,ppose查看
业务处理 PA30
权限 OOSP
修改组织 po10
RH_STRUC_GET 的参数需要去 表 t778a 找对应的参数
查看组织修改记录 RHCDOC_DISPLAY
查看人事事件修改记录 YRHCDOC_DISPLAY
扫描源代码(rs_abap_source_scan)
清缓存
CALL FUNCTION 'RH_CLEAR_PLOG_TAB'.
CALL FUNCTION 'RH_CLEAR_BUFFER'.
搜索帮助
FIELD pxxxx-xxx:
SELECT * FROM t530 WHERE massn = 'xx'
AND massg = pxxxx-xxx
ON INPUT
whenever not found send errormessage,
SELECT * FROM t530t WHERE sprsl = syst-langu
AND massn = 'xx'
AND massg = pxxxx-xxx
INTO t530t
whenever not found no-MESSAGE.
* 获取组织全路径文本
DATA:lt_objec_ld TYPE STANDARD TABLE OF objec,
ls_objed TYPE objec,
lt_struc_ld TYPE STANDARD TABLE OF struc,
ls_struc TYPE struc.
CHECK iv_orgeh IS NOT INITIAL.
CALL FUNCTION 'RH_STRUC_GET'
EXPORTING
act_otype = 'O'
act_objid = iv_orgeh
act_wegid = 'ORGA-UP'
act_plvar = '01'
act_begda = sy-datum
act_endda = sy-datum
authority_check = ''
TABLES
result_objec = lt_objec_ld
result_struc = lt_struc_ld
EXCEPTIONS
no_plvar_found = 1
no_entry_found = 2
OTHERS = 3.
SORT lt_struc_ld BY level DESCENDING .
LOOP AT lt_struc_ld INTO ls_struc.
AT FIRST.
CONTINUE.
ENDAT.
READ TABLE lt_objec_ld INTO ls_objed WITH KEY objid = ls_struc-objid.
IF ev_orgeh_t_all IS INITIAL .
ev_orgeh_t_all = ls_objed-stext.
ELSE.
ev_orgeh_t_all = ev_orgeh_t_all && '/' && ls_objed-stext.
ENDIF.
CLEAR:ls_struc,ls_objed.
ENDLOOP.
READ TABLE lt_pnnnn TRANSPORTING NO FIELDS WITH KEY infty = '0016'.