Payroll Reconciliation Report - HR ABAP --- Urgent

Question

Hi Guys,
I am having a doubt regarding a standard report very commonly used in HR Reporting in SAP.
How does it selects the Payroll Results from the cluster ? Based on which date ...?
Is it Check Date/Payment date or some other date ?
Actually I have a requirement where i need to fetch the amount for a wagetype.
In this I need to fetch the values of that wage type based on the check date, i.e. when the company has paid the amount to the person.
I have to fetch the amount of this wage type for all the payroll runs :
1 - Regular
2 - Retro.
3 - Offcycle.
I have used the Payroll Reconciliation Report and exporting the final total table which has all the results for the wage type selected on the selection screen for the person between a particular start date and end date.
But I want to be sure that this way I will get the accurate results.
If anyone has any idea or know any link to follow please help me out.

Answer 1

Hi ,
sample code..
LOOP AT fp_i_final INTO l_wa_final.
FORM read_rgdir USING    fp_v_pernr    TYPE persno
                CHANGING fp_i_rgdir    TYPE ty_t_rgdir.
                        fp_i_errorlog   TYPE ty_t_errorlog.
*-- Local Declaration
DATA: l_wa_errorlog TYPE ty_errorlog. " Errorlog Work Area
*---->  FM for Read routines for cluster CD
  CALL FUNCTION 'CU_READ_RGDIR'
    EXPORTING
      persnr          = fp_v_pernr
    TABLES
      in_rgdir        = fp_i_rgdir
    EXCEPTIONS
      no_record_found = 0
      OTHERS          = 0.
*---> Cluster Directory details for Payroll
*---> Results is initial for perticular employee then continue .
    IF l_i_rgdir IS INITIAL.
      CONTINUE.
    ENDIF.
*----> Off-cycle dates
    IF cb_ocy NE l_c_x.
    ELSE.
*---> Off-cycle dates
      IF s_bondt-low IS NOT INITIAL AND
         s_bondt-high IS NOT INITIAL .
        DELETE l_i_rgdir WHERE fpbeg LT s_bondt-low  OR
                               fpend GT s_bondt-high.
      ENDIF.
    ENDIF.
*----> Check the ARRRES check box
    IF cb_arr = l_c_x.
*---> Delete the cluster directory details from check date and check the low date.
      IF NOT s_paydt-low IS INITIAL.
        DELETE l_i_rgdir WHERE paydt LT s_paydt-low .
      ENDIF.
*---> Delete the cluster directory details from check date and check the high and low dates.
      IF NOT s_paydt-low IS INITIAL AND
         NOT s_paydt-high IS INITIAL.
        DELETE l_i_rgdir WHERE paydt LT s_paydt-low OR
                               paydt GT s_paydt-high .
      ENDIF.
    ENDIF.
*-- Get the Payroll details for all Personnel Numbers entered
*-- on Selection Screen
    LOOP AT l_i_rgdir INTO l_wa_rgdir.
*---> Check for the flag
      IF l_wa_rgdir-srtza NE l_c_p AND
         l_wa_rgdir-srtza NE l_c_o .
*----> Sub-Routine to get the Payroll results into the
*----> Payroll RESULTS Table
*-- Local Declaration
  DATA: l_wa_errorlog TYPE ty_errorlog. " Errorlog Work Area
*----> FM to get Payroll Results table
  CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'
    EXPORTING
      employeenumber               = fp_v_pernr
      sequencenumber               = fp_v_seqnr
     read_only_international      = c_x
    CHANGING
      payroll_result               = fp_i_payresult
    EXCEPTIONS
      illegal_isocode_or_clusterid = 1
      error_generating_import      = 2
      import_mismatch_error        = 3
      subpool_dir_full             = 4
      no_read_authority            = 5
      no_record_found              = 6
      versions_do_not_match        = 7
      error_reading_archive        = 8
      error_reading_relid          = 9
      OTHERS                       = 10.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
           INTO l_wa_errorlog-line.
*-- Populate Errorlog Int table
    APPEND l_wa_errorlog TO fp_i_errorlog.
    CLEAR  l_wa_errorlog.
  ENDIF.
*----> Check the check boxs are either ARRRS,Deductions are not taken and Off-cycle.
        IF ( cb_arr = l_c_x AND cb_ded = l_c_x AND cb_ocy = l_c_x ) OR
           ( cb_arr = l_c_x AND cb_ocy = l_c_x ) OR ( cb_ded = l_c_x AND cb_ocy = l_c_x ).
*----> Check for the Normal Run, Retroactive run and off-cycle run.
*---> Check the Normal run in pc_payresult
          IF ( l_wa_rgdir-fpper EQ l_wa_rgdir-inper AND
               l_wa_rgdir-ocrsn IS INITIAL AND  l_wa_rgdir-inocr IS INITIAL ) OR
*----> Check the Retroactive run pc_payresult
             ( ( l_wa_rgdir-fpper NE l_wa_rgdir-inper ) AND
               ( l_wa_rgdir-ocrsn IS INITIAL ) AND ( l_wa_rgdir-inocr IS INITIAL ) ) OR
*----> Check the Off-cycle run pc_payresult
             ( ( l_wa_rgdir-fpper NE l_wa_rgdir-inper ) AND
               ( l_wa_rgdir-ocrsn IS NOT INITIAL  ) OR ( l_wa_rgdir-inocr IS NOT INITIAL ) ).
*---> Get the Amount for particular Wagetype based on Wagetype
*---> entered on selection screen
  CLEAR l_wa_lgart.
  LOOP AT fp_p_lgart INTO l_wa_lgart.
   SORT fp_l_i_payresult-inter-rt BY lgart.
    CLEAR l_wa_rt.
*---> Read the rt cluster results based on the wage type
    LOOP AT fp_l_i_payresult-inter-rt INTO l_wa_rt WHERE lgart = l_wa_lgart-lgart.
      l_wa_final-betrg =  l_wa_rt-betrg.
      l_wa_final-lgart =  l_wa_lgart-lgart.
*---> Read the fp_i_vendor internal table based on wage type and
*---> append the lifnr and ernam value to final internal table.
      SORT fp_i_vendor BY lgart.
      CLEAR l_wa_vendor.
      READ TABLE fp_i_vendor INTO l_wa_vendor WITH KEY lgart = l_wa_lgart-lgart BINARY SEARCH.
      IF sy-subrc EQ 0.
       l_wa_final-lifnr = l_wa_vendor-lifnr.
       l_wa_final-crenr = l_wa_vendor-ernam.
     ENDIF.
        l_v_lifnr = l_wa_vendor-lifnr.
        l_v_crenr = l_wa_vendor-ernam.
      ENDIF.
      l_wa_final-lifnr = l_v_lifnr.
      l_wa_final-crenr = l_v_crenr.
      CLEAR : l_v_crenr,l_v_lifnr.
      APPEND  l_wa_final TO i_final1.
*---> Modify the tax authority to final internal table .
      SORT fp_l_i_payresult-nat-tcrt BY lgart.
      CLEAR l_wa_tcrt.
*---> Read the tcrt cluster results based on the wage type and
*---> Get the tax id and tax authority from tcrt cluster.
      READ TABLE fp_l_i_payresult-nat-tcrt INTO l_wa_tcrt
                                WITH KEY lgart = l_wa_final-lgart BINARY SEARCH.
      IF sy-subrc = 0.
        READ TABLE i_final1 INTO l_wa_final WITH KEY lgart = l_wa_tcrt-lgart."l_wa_final-lgart.
        IF sy-subrc = 0.
          l_wa_final-txcmp =  l_wa_tcrt-txcmp.
          l_wa_final-taxau =  l_wa_tcrt-taxau.
          MODIFY i_final1 FROM l_wa_final INDEX sy-tabix.
        ENDIF.
      ENDIF.
    ENDLOOP.
*---Crt
   SORT fp_l_i_payresult-inter-crt BY lgart.
    CLEAR l_wa_crt.
*---> Read the crt cluster results based on the wage type
    LOOP AT fp_l_i_payresult-inter-crt INTO l_wa_crt
                               WHERE  lgart = l_wa_lgart-lgart.
     l_wa_final-betrg =  l_wa_crt-betrg.
      l_wa_final-lgart =  l_wa_lgart-lgart.
      IF ( l_wa_crt-cumty = l_c_y ) OR ( l_wa_crt-cumty = l_c_k )
      OR ( l_wa_crt-cumty = l_c_d ).
        l_wa_final-ytd =  l_wa_crt-betrg.
      ELSEIF
      ( l_wa_crt-cumty = l_c_f ) OR ( l_wa_crt-cumty = l_c_m ).
        l_wa_final-mtd =  l_wa_crt-betrg.
      ELSEIF
      ( l_wa_crt-cumty = l_c_h ) OR ( l_wa_crt-cumty = l_c_q ).
        l_wa_final-qtd =  l_wa_crt-betrg.
      ENDIF.
      SORT fp_i_vendor BY lgart.
      CLEAR l_wa_vendor.
      READ TABLE fp_i_vendor INTO l_wa_vendor WITH KEY lgart = l_wa_lgart-lgart BINARY SEARCH.
      IF sy-subrc EQ 0.
       l_wa_final-lifnr = l_wa_vendor-lifnr.
       l_wa_final-crenr = l_wa_vendor-ernam.
     ENDIF.
        l_v_lifnr = l_wa_vendor-lifnr.
        l_v_crenr = l_wa_vendor-ernam.
      ENDIF.
      l_wa_final-lifnr = l_v_lifnr.
      l_wa_final-crenr = l_v_crenr.
      CLEAR : l_v_crenr,l_v_lifnr.
      APPEND  l_wa_final TO i_final1 .
*---> Modify the tax authority to final internal table .
      SORT fp_l_i_payresult-nat-tcrt BY lgart.
      CLEAR l_wa_tcrt.
*---> Read the tcrt cluster results based on the wage type and
*---> Get the tax id and tax authority from tcrt cluster.
      READ TABLE fp_l_i_payresult-nat-tcrt INTO l_wa_tcrt
                                WITH KEY lgart = l_wa_final-lgart BINARY SEARCH.
      IF sy-subrc = 0.
        READ TABLE i_final1 INTO l_wa_final WITH KEY lgart = l_wa_tcrt-lgart."l_wa_final-lgart.
        IF sy-subrc = 0.
          l_wa_final-txcmp =  l_wa_tcrt-txcmp.
          l_wa_final-taxau =  l_wa_tcrt-taxau.
          MODIFY i_final1 FROM l_wa_final INDEX sy-tabix.
        ENDIF.
      ENDIF.
      CLEAR : l_wa_crt.
    ENDLOOP.
*---DDNTK
   SORT fp_l_i_payresult-inter-ddntk BY lgart.
    CLEAR l_wa_ddntk.
*---> Read the ddntk cluster results based on the wage type
    LOOP AT fp_l_i_payresult-inter-ddntk INTO l_wa_ddntk
                               WHERE lgart = l_wa_lgart-lgart .
      l_wa_final-betrg =  l_wa_ddntk-betrg.
      l_wa_final-lgart =  l_wa_lgart-lgart.
*---> Read the fp_i_vendor internal table based on wage type and
*---> append the lifnr and ernam value to final internal table.
      SORT fp_i_vendor BY lgart.
      READ TABLE fp_i_vendor INTO l_wa_vendor WITH KEY lgart = l_wa_lgart-lgart BINARY SEARCH.
      IF sy-subrc EQ 0.
       l_wa_final-lifnr = l_wa_vendor-lifnr.
       l_wa_final-crenr = l_wa_vendor-ernam.
     ENDIF.
        l_v_lifnr = l_wa_vendor-lifnr.
        l_v_crenr = l_wa_vendor-ernam.
      ENDIF.
      l_wa_final-lifnr = l_v_lifnr.
      l_wa_final-crenr = l_v_crenr.
      CLEAR : l_v_crenr,l_v_lifnr.
      APPEND  l_wa_final TO i_final1 .
**---> Modify the tax authority to final internal table .
      SORT fp_l_i_payresult-nat-tcrt BY lgart.
      CLEAR l_wa_tcrt.
*---> Read the tcrt cluster results based on the wage type and
*---> Get the tax id and tax authority from tcrt cluster.
      READ TABLE fp_l_i_payresult-nat-tcrt INTO l_wa_tcrt
                                WITH KEY lgart =  l_wa_final-lgart BINARY SEARCH.
      IF sy-subrc = 0.
        READ TABLE i_final1 INTO l_wa_final WITH KEY lgart = l_wa_tcrt-lgart."l_wa_final-lgart.
        IF sy-subrc = 0.
          l_wa_final-txcmp =  l_wa_tcrt-txcmp.
          l_wa_final-taxau =  l_wa_tcrt-taxau.
          MODIFY i_final1 FROM l_wa_final INDEX sy-tabix.
        ENDIF.
      ENDIF.
    ENDLOOP.
*---ARRRS
   SORT fp_l_i_payresult-inter-arrrs BY lgart.
    CLEAR l_wa_arrrs.
*---> Read the arrrs cluster results based on the wage type
    LOOP AT fp_l_i_payresult-inter-arrrs INTO l_wa_arrrs
                               WHERE lgart = l_wa_lgart-lgart .
      l_wa_final-betrg =  l_wa_arrrs-betrg.
      l_wa_final-lgart =  l_wa_lgart-lgart.
      SORT fp_i_vendor BY lgart.
      CLEAR l_wa_vendor.
      READ TABLE fp_i_vendor INTO l_wa_vendor WITH KEY lgart = l_wa_lgart-lgart BINARY SEARCH.
      IF sy-subrc EQ 0.
       l_wa_final-lifnr = l_wa_vendor-lifnr.
       l_wa_final-crenr = l_wa_vendor-ernam.
     ENDIF.
        l_v_lifnr = l_wa_vendor-lifnr.
        l_v_crenr = l_wa_vendor-ernam.
      ENDIF.
      l_wa_final-lifnr = l_v_lifnr.
      l_wa_final-crenr = l_v_crenr.
      CLEAR : l_v_crenr,l_v_lifnr.
      APPEND  l_wa_final TO i_final1 .
**---> Modify the tax authority to final internal table .
      SORT fp_l_i_payresult-nat-tcrt BY lgart.
      CLEAR l_wa_tcrt.
*---> Read the tcrt cluster results based on the wage type and
*---> Get the tax id and tax authority from tcrt cluster.
      READ TABLE fp_l_i_payresult-nat-tcrt INTO l_wa_tcrt
                                WITH KEY lgart = l_wa_final-lgart BINARY SEARCH.
      IF sy-subrc = 0.
        READ TABLE i_final1 INTO l_wa_final WITH KEY lgart = l_wa_tcrt-lgart."l_wa_final-lgart.
        IF sy-subrc = 0.
          l_wa_final-txcmp =  l_wa_tcrt-txcmp.
          l_wa_final-taxau =  l_wa_tcrt-taxau.
          MODIFY i_final1 FROM l_wa_final INDEX sy-tabix.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDLOOP.
          ENDIF.
  ENDLOOP.
**---> Cluster Directory details for Payroll Results is initial
IF l_i_rgdir IS INITIAL.
   MESSAGE i393 .   " no record found for the selection criteria
   LEAVE LIST-PROCESSING .
ENDIF.
*---> Final internal table details for Payroll Results is initial
  IF i_final1 IS INITIAL.
    MESSAGE i393 .   " no record found for the selection criteria
    LEAVE LIST-PROCESSING .
  ENDIF.
If u have any further clarification i will send one sample program..
Navin..