Sap Funcion Para Obtener Los Subordinados En Om

Ejecutar la transaccion se37
Dar el nombre de la función ZRH_OM_OM y el grupo de funciones



En la pestaña de Cód.fte. colocar el siguiente código.
function zrh_om_om.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" VALUE(UNAME) LIKE SY-UNAME DEFAULT SY-UNAME
*" VALUE(FECHA_OM) LIKE SY-DATUM DEFAULT SY-DATUM
*"TABLES
*" TABLA_SALIDA STRUCTURE ZRH_OM_PERMI
*"----------------------------------------------------------------------

* uname like sy-uname default sy-uname.

try_date = fecha_om.
clear tabla_salida. refresh tabla_salida.
clear gat_struc.refresh gat_struc.
clear t77pr_tab.refresh t77pr_tab.
clear obj_tab.refresh obj_tab.
if fecha_om = ''.
try_date = sy-datum.endif.
allez = 'X'.
profl = ''.
if try_date is initial.
try_date = sy-datum.
endif.

if not ( profl is initial ).
profl_or_user = 'p'.
select * from t77pr into table t77pr_tab
where profl eq profl.
else.
profl_or_user = 'u'.
call function 'HR_GET_BUSINESS_ADD_IN'
exporting
exit_name = exit_name2
* FLT_VAL=
importing
is_implemented = is_implemented
changing
instance = profl_badi_exit .

if is_implemented = true.
call method profl_badi_exit->get_t77pr_tab
exporting
uname = uname
importing
t77pr_tab = t77pr_tab
out_flag = out_flag
exceptionsno_profile_found = 4.

endif.

if out_flag eq space.

select single * from t77ua where uname eq uname.
if sy-subrc = 0.
select * from t77ua where uname eq uname.
select * from t77pr into t77pr_wa
where profl eq t77ua-profl.
append t77pr_wa to t77pr_tab.
endselect.
endselect.
else.select * from t77ua where uname eq 'SAP*'.
select * from t77pr into t77pr_wa
where profl eq t77ua-profl.
append t77pr_wa to t77pr_tab.
endselect.
endselect.
endif.

endif.

endif.

loop at t77pr_tab into t77pr_wa.
perform fill_gat_struc using uname t77pr_wa.
endloop.

if not obj_tab[] isinitial.
perform re77s0(mstt77s0) using 'PLOGI' 'ADAYS'
plogi_adays subrc.
if subrc 0.
plogi_adays = 0.
endif.
endif.
loop at obj_tab.

profl = obj_tab-struct77pr-profl.
profline = obj_tab-struct77pr.
if plogi_adays 0.
if obj_tab-sbegd > date_low.
obj_tab-sbegd = obj_tab-sbegd - plogi_adays.endif.
if obj_tab-sendd < date_high.
obj_tab-sendd = obj_tab-sendd + plogi_adays.
endif.
endif.
perform build using obj_tab-struct77pr-plvar
obj_tab-struct77pr-otype
obj_tab-struct77pr-objid
obj_tab-struct77pr-wegid
obj_tab-struct77pr-svectobj_tab-struct77pr-depth "NADBJAK001260
obj_tab-sbegd
obj_tab-sendd
obj_tab-struct77pr-maint
obj_tab-struct77pr-profl
obj_tab-struct77pr-pfunc
obj_tab-struct77pr-lfdnr
obj_tab-struct77pr-ssignobj_tab-struct77pr-pdate.
endloop.

delete gat_struc where otype ne 'P'.
* delete gat_struc where vbegda gt try_date.
* delete gat_struc where vendda lt try_date.
sort gat_struc by objid.
delete adjacent duplicates from gat_struc comparing objid.

loop at gat_struc .
tabla_salida-objid = gat_struc-objid.
append tabla_salida .
clear tabla_salida.
endloop....