How to Get Supervisor Id In Headcount Report

Question

Hi Experts,
I am working On Headcount Reports.
I need to get the Supervisor Id to my Report.
By Using HRP1001 am getting the Supervisor ID
by Passing S to OTYPE,
Position to OBJID.
002 to RELAT.
My Problem is If the Supervisor record gets Deleted from the Database(when he/she resigns),we need to Get the Immediate Supervisor to Supervisor Id.
will it be automatically Updated in the Infotypes or we need to Implement any logic.
Your Suggestions will be highly Appreciated.
Thanks,
-Vijay

Answer 1

hi vijay try the below code,
and one thing to tell you if approver resigns it means tht person assigned to tht position had left but tht position exists so u need to check if the approver position is empty or assigned,if empty then u can find out the approver's manager from tht position and then find the person (top approver) assigned to tht position.
Please change or code the IF-Else condition accordingly,it wil serve ur purpose -
DATA: ls_sobid TYPE sobid,    "approver's position
      ls_sobid1 TYPE sobid,  "will contain PErnr of approver
      ls_sobid2 TYPE sobid,   "approver's manager position
      ls_sobid3 TYPE sobid.  "will contain pernr of approver's manager
data: i_plans like pa0001-plans.
i_plans = '50019473'.
    SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid
     WHERE otype = 'S'
     and   plvar = '01'
     AND   objid = i_plans
     AND   endda >= sy-datum
     AND   begda <= sy-datum
     AND   rsign = 'A'
     AND   relat = '002'.
    IF sy-subrc NE 0.
  message e000(000) with 'no approver'.
    else.
   SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid1
   WHERE otype = 'S'                 "position
   AND   plvar = '01'
   AND   objid = ls_sobid
   AND   endda >= sy-datum
   AND   begda <= sy-datum
   AND   rsign = 'A'
   AND   relat = '008'.
   if sy-subrc ne 0.
SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid2
     WHERE otype = 'S'
     and   plvar = '01'
     AND   objid = ls_sobid
     AND   endda >= sy-datum
     AND   begda <= sy-datum
     AND   rsign = 'A'
     AND   relat = '002'.
  SELECT SINGLE sobid FROM hrp1001 INTO ls_sobid3
   WHERE otype = 'S'                 "position
   AND   plvar = '01'
   AND   objid = ls_sobid2
   AND   endda >= sy-datum
   AND   begda <= sy-datum
   AND   rsign = 'A'
   AND   relat = '008'.
    endif.
    ENDIF.
write: 'Approver',ls_sobid1,' ','Approver Manager',ls_sobid3.