How to deal with HR Payroll reports

[former_member182779]

When I first started working with HR programming, I was really freaked out. Logical Databases? Payroll? Infotypes? First time, you get such a shock...the next time, you find that you love HR programming.

What we're going to discuss here, is how get the payroll of an employee for a determined month, and that's an important thing, trust me. Without payroll, the employees don't get paid, and if they know that you are the developer and they didn't get paid because of your app...you're toast.

Anyway, don't get scared I'm gonna try and help you out. I know that there is the usual way to read the payroll, I have used it quite a lot myself.

You must remember to include the logical database PNP and the selection screen 900



TABLES: RP50G,PERNR,PYORGSCREEN,PYTIMESCREEN.NODES: PAYROLL TYPE PAY99_RESULT.INFOTYPES 0001.DATA WA_RT LIKE LINE OF PAYROLL-INTER-RT.DATA MYLIST LIKE  PC261 OCCURS 0 .DATA WA_MYLIST LIKE LINE OF MYLIST.DATA PAY TYPE REF TO CL_PAY.  CREATE OBJECT PAY.  CALL METHOD PAY->READ_RESULT IMPORTING LIST = MYLIST.  CALL METHOD PAY->WRITE_RESULT EXPORTING LIST = MYLIST.GET PAYROLL.  LOOP AT PAYROLL-INTER-RT INTO WA_RT.    CASE WA_RT-LGART.*You read the value and stored in a variable        ENDCASE.  ENDLOOP.GET PERNR.  PROVIDE * FROM P0001  BETWEEN PYBEGDA AND PYENDDA.  ENDPROVIDE.

That's great right? You have the payroll for a month, trimester or even for a year. But what happens when they tell you that, they want the payroll for a month to be compared against the payroll for 6 months back, month by month. That's what happened to me. Of course, you're not going to repeat that loop everytime for every month for every employee. You need something else, something like this.

TABLES: RP50G,PERNR,PYORGSCREEN,PYTIMESCREEN.DATA: IN_RGDIR LIKE PC261 OCCURS 0 WITH HEADER LINE,      WA_RT LIKE PC207 OCCURS 0 WITH HEADER LINE,      SEQNR LIKE PC261-SEQNR,      RESULT TYPE PAY99_RESULT.DATA: M_START LIKE SY-DATUM,      M_END LIKE SY-DATUM.FORM GET_PAYROLL USING P_PERNR M_START M_END.*This FM help us to get the Sequence number used for the*employee on the payroll.  CALL FUNCTION 'CU_READ_RGDIR'       EXPORTING            PERSNR          = P_PERNR       TABLES            IN_RGDIR        = IN_RGDIR       EXCEPTIONS            NO_RECORD_FOUND = 1            OTHERS          = 2.*We read it using two dates, which corresponds to the month *we need  READ TABLE IN_RGDIR WITH KEY FPBEG = M_START                               FPEND = M_END.  SEQNR = IN_RGDIR-SEQNR.*This FM actually reads the payroll and get the information*we need.  CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'       EXPORTING            CLUSTERID                    = 'XX'*In CLUSTERID use the country of your choice            EMPLOYEENUMBER               = P_PERNR            SEQUENCENUMBER               = SEQNR            READ_ONLY_INTERNATIONAL      = 'X'       CHANGING            PAYROLL_RESULT               = RESULT       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            OTHERS                       = 8.*We just need to read the result table.  LOOP AT RESULT-INTER-RT INTO WA_RT.    CASE WA_RT-LGART.      WHEN '9010'.         MOVE WA_RT-BETRG TO T_ANYTABLE-SOMEPAY.    ENDCASE.  ENDLOOP.ENDFORM.

With these two simple FM's, your days of fighting with the payroll are gone.

P.S: It seems that i was forgot to put some important tables...Special thanx to prasanna venkatesh for making me noticed it -;)