Regarding payroll report abap hr

Question

hi experts
i have developed one payroll report for indian payroll
its working fine for  For View payroll periods like PC00 M99 CWTR - Wage type reporter
i have used HRCM PAYROLL RESULTS GET this function module to fetch payroll results.
Problem is
my end user asking in view payroll perids like PC00 M99 CWTR - Wage type reporter 
plz tell me the alternative procedure for fetching in view payroll perids.
please send me sample payroll report
thanks advance

Answer 1

have a go at using this base code.
data: go_prr type ref to cl_hrpay99_prr_4_pnp_reps,
      gt_pernr_pr type h99_hr_pay_result_tab,
      go_pernr_pr type ref to cl_hr_pay_result_gb,
      g_retro     type h99_add_retroes,
      im_pnpabkrs type hrpy_tt_abkrs.
tables: pernr,
        t512t.
select-options r_lgart for t512t-lgart.
parameters:   p_inper  radiobutton group g1,
              p_frper  radiobutton group g1.
field-symbols <pernr_pr> type ref to cl_hr_pay_result.
field-symbols <wa_rt>    type pc207.
field-symbols <wa_crt>   type pc208.
start-of-selection.
  im_pnpabkrs = pnpabkrs[].
  if not p_inper is initial.
    g_retro = 'X'.
  else.
    g_retro = ' '.
  endif.
Call the method that gets the payroll info
  call method cl_hrpay99_prr_4_pnp_reps=>get_instance
    exporting
      im_pn_begda             = pn-begda
      im_pn_endda             = pn-endda
      im_ipview               = g_retro        "In period
      im_pnpabkrs             = im_pnpabkrs    "For sepecif payroll areas only
      im_molga                = '08'
      im_add_retroes_to_rgdir = g_retro        "In period Retors
    importing
      ex_prr                  = go_prr
    exceptions
      invalid_entries         = 1.
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  write:/ 'Payroll Results from RT Table'.
  skip.
  write: / 'Emp No  ',
           'For Pd',
           'In PER',
           'S',
           'WTs ',
           '              AMOUNT',
           '                 RATE',
           '                UNITS',
           'FP PAY',
           'IN PAY'.
get pernr.
get the actual payments
  call method go_prr->get_pernr_payr_results_allin1
    exporting
      im_pernr                 = pernr-pernr
    importing
      ex_pernr_payroll_results = gt_pernr_pr
    exceptions
      others                   = 1.
  check sy-subrc = 0.
  loop at gt_pernr_pr assigning <pernr_pr>.
    go_pernr_pr ?= <pernr_pr>.
    loop at go_pernr_pr->inter-rt assigning <wa_rt>.
      check <wa_rt>-lgart in r_lgart.
Paid 'In Period' subtract any item that is a part payment
      if not p_inper is initial.
        if go_pernr_pr->period-srtza = 'P'.
          <wa_rt>-anzhl = <wa_rt>-anzhl * -1.
          <wa_rt>-betrg = <wa_rt>-betrg * -1.
          <wa_rt>-betpe = <wa_rt>-betpe * -1.
        endif.
        write : / pernr-pernr,
                  go_pernr_pr->period-fpper, go_pernr_pr->period-inper,
                  go_pernr_pr->period-srtza, <wa_rt>-lgart, <wa_rt>-betrg, <wa_rt>-betpe,
                  <wa_rt>-anzhl,
                 go_pernr_pr->inter-versc-abkrs, '   ', go_pernr_pr->inter-versc-iabkrs.
      else.
This part is 'For Period'
        check go_pernr_pr->period-srtza = 'A'.
        write : / pernr-pernr,
                 go_pernr_pr->period-fpper, go_pernr_pr->period-inper,
                 go_pernr_pr->period-srtza, <wa_rt>-lgart, <wa_rt>-betrg, <wa_rt>-betpe,
                <wa_rt>-anzhl ,
                 go_pernr_pr->inter-versc-abkrs, '  ', go_pernr_pr->inter-versc-iabkrs.
      endif.
    endloop.
  endloop.
Jules