HI Experts! [appraisal report]

Question

hi all ,
i m in creating Appraisal Report , generally we take data frm pa0025 , but this is empty as there is no data in that table.
so i use HRT1045 and HRP1045 using TABNR , i got fields- rating , creation date, start date and end date.
then pa0001 , i got fields - sname [appraisee] , persg.
but problem is that i might not able to join appraisee name with corresponding rating.
[HRT1045 & HRP1045 ] CANT JOIN   WITH    [PA0001]
Regards,
Rahul

Answer 1

Hi
Use the fun module <b>'RHPA_APPRAISEES_APP_READ'</b> to get the appraisal data.
see the sample code
Internal Table for Performance Appraisal Data
data: begin of app1_tab occurs 0,
        year(4) type     c,            " Year
        appr(35) type    c,            " Appraisal
      end of app1_tab.
Internal table for retreiving Employee Appraisals
data  app_in_tab  like hrsobid occurs 0 with header line .
data  app_out_tab like hrpe_profa  occurs 0 with header line .
start-of-selection.
Get PERNR from LDB
get pernr.
Get the Performance Appraisal data
      perform get_app_data.
*&      Form  get_app_data
Get the Performance Appraisal Data from Infotype
form get_app_data.
  clear: v_cyear, v_year1, v_year2, v_year3, v_year4,
         v_year5, v_year6, v_ayear, v_date2, v_date3.
  v_cyear = sy-datum+0(4) - 1.
  v_year1 = v_cyear - 1.
  v_year2 = v_cyear - 2.
  v_year3 = v_cyear - 3.
  v_year4 = v_cyear - 4.
  v_year5 = v_cyear - 5.
  v_year6 = v_cyear - 6.
  concatenate v_cyear c_date2+4(4) into v_date2.
  concatenate v_year6 c_date1+4(4) into v_date3.
  clear: app_in_tab, app_out_tab.
  refresh: app_in_tab, app_out_tab.
  app_in_tab-plvar = c_01.
  app_in_tab-otype = c_p.
  app_in_tab-sobid = pernr-pernr.
  append app_in_tab.
Get Appraisals data from Respective Infotypes
  call function 'RHPA_APPRAISEES_APP_READ'
   exporting
     begda               =   v_date3
     endda               =   v_date2
  WITH_STEXT          = 'X'
  WITH_ADD_INFO       = 'X'
    tables
      appraisees          = app_in_tab
      appraisals          = app_out_tab
   exceptions
     no_authority        = 1
     undefined           = 2
     others              = 3
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  sort app_out_tab  by sobid vbegd vendd appraisal_adate descending .
  delete adjacent duplicates from app_out_tab
            comparing  sobid vbegd vendd.
  loop at app_out_tab where appraisal_histo = 'X' .
    condense app_out_tab-appraisal_result.
    app1_tab-year = app_out_tab-vendd+0(4).
    app1_tab-appr = app_out_tab-appraisal_result_text.
    append app1_tab.
    clear app1_tab.
  endloop.
  sort app1_tab by year descending.
  loop at app1_tab.
    app_tab-pernr    = pernr-pernr.
    move-corresponding  app1_tab to app_tab.
    append app_tab.
    clear: app1_tab, app_tab.
  endloop.
  refresh app1_tab.
  sort app_tab by pernr.
  delete app_tab where year = ' ' and appr = ' ' .
endform.          "get_app_data
Reward points if useful
Regards
Anji