HR开发 读取员工工资

1、使用函数读取员工工资。

　①数据结构工资结果

DATA: GT_RGDIR     TYPE TABLE OF PC261 ,
      GS_RGDIR     TYPE PC261 ,
      GT_PAYRESULT TYPE PAYCN_RESULT ,
      GS_RT        TYPE PC207 ,
      GV_NR        TYPE PC261-SEQNR.

GET PERNR.
  CALL FUNCTION 'CU_READ_RGDIR'
    EXPORTING
      PERSNR                   = PERNR-PERNR
*     BUFFER                   =
*     NO_AUTHORITY_CHECK       = ' '
*   IMPORTING
*     MOLGA                    =
    TABLES
      IN_RGDIR                 = GT_RGDIR
   EXCEPTIONS
     NO_RECORD_FOUND          =
     OTHERS                   =
            .
  CALL FUNCTION 'CD_READ_LAST'
    EXPORTING
      BEGIN_DATE      = PN-BEGDA
      END_DATE        = PN-ENDDA
    IMPORTING
      OUT_SEQNR       = GV_NR
    TABLES
      RGDIR           = GT_RGDIR
    EXCEPTIONS
      NO_RECORD_FOUND =
      OTHERS          = .
  IF SY-SUBRC = .
    CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'
      EXPORTING
*      CLUSTERID                          = 'CN'
        EMPLOYEENUMBER                     = PERNR-PERNR
        SEQUENCENUMBER                     = GV_NR
*     READ_ONLY_BUFFER                   = ' '
*     READ_ONLY_INTERNATIONAL            = ' '
*     ARC_GROUP                          = ' '
*     CHECK_READ_AUTHORITY               = 'X'
*     FILTER_CUMULATIONS                 = 'X'
*     CLIENT                             =
*   IMPORTING
*     VERSION_NUMBER_PAYVN               =
*     VERSION_NUMBER_PCL2                =
      CHANGING
        PAYROLL_RESULT                     = GT_PAYRESULT
     EXCEPTIONS
       ILLEGAL_ISOCODE_OR_CLUSTERID       =
       ERROR_GENERATING_IMPORT            =
       IMPORT_MISMATCH_ERROR              =
       SUBPOOL_DIR_FULL                   =
       NO_READ_AUTHORITY                  =
       NO_RECORD_FOUND                    =
       VERSIONS_DO_NOT_MATCH              =
       ERROR_READING_ARCHIVE              =
       ERROR_READING_RELID                =
       OTHERS                             =
              .
  ENDIF.

  LOOP AT GT_PAYRESULT-INTER-RT INTO GS_RT .
    WRITE:/GS_RT-LGART GS_RT-BETRG .
  ENDLOOP.

②表类型工资结果。

DATA: RESULT_TAB    TYPE HRPAY99_TAB_OF_RESULTS,
      RESULT_HEADER TYPE PAY99_RESULT,
      RT_HEADER     TYPE LINE OF HRPAY99_RT,
      RGDIR         LIKE PC261 OCCURS  WITH HEADER LINE,
      PERIOD        TYPE PC261-INPER.
SELECT-OPTIONS: S_STATUS FOR RESULT_HEADER-EVP-SRTZA
                DEFAULT 'A'.

START-OF-SELECTION.
  SELECT SINGLE * FROM T549A
          WHERE ABKRS = PNPXABKR.
  PERIOD = PN-PAPER.  

GET PERNR .
  CALL FUNCTION 'PYXX_GET_EVALUATION_PERIODS'
    EXPORTING
      CLUSTERID                     = 'CN'
      EMPLOYEENUMBER                = PERNR-PERNR
*     BONUS_DATE                    =
      INPER_MODIF                   = T549A-PERMO
      INPER                         = PERIOD
*     PAY_TYPE                      =
*     PAY_IDENT                     =
*     READ_ONLY_INTERNATIONAL       =
    TABLES
      RGDIR                         = RGDIR
      EVALUATED_PERIODS             = RESULT_TAB
*   EXCEPTIONS
*     NO_PAYROLL_RESULTS            = 1
*     NO_ENTRY_FOUND_ON_CU          = 2
*     IMPORT_ERROR                  = 3
*     OTHERS                        = 4
            .
IF SY-SUBRC <> .
  ELSE.
    LOOP AT RESULT_TAB INTO RESULT_HEADER.
      CHECK S_STATUS.
      WRITE:/ 'FOR PERIOD',
              RESULT_HEADER-INTER-VERSC-FPPER,
              RESULT_HEADER-INTER-VERSC-ABKRS,
            / 'IN-PERIOD',
              RESULT_HEADER-INTER-VERSC-INPER,
              RESULT_HEADER-INTER-VERSC-IABKRS.
      LOOP AT RESULT_HEADER-INTER-RT INTO RT_HEADER.
        WRITE: RT_HEADER-LGART, RT_HEADER-BETRG.
      ENDLOOP.
    ENDLOOP.
  ENDIF.

2、GET PAYROLL 获取。

TABLES: PYORGSCREEN , PYTIMESCREEN.
NODES: PAYROLL TYPE PAYCN_RESULT .

GET PERNR .

GET PAYROLL .
*    PAYROLL-EVP-FPPER
*    PAYROLL-EVP-INPER
  DATA WA_RT LIKE LINE OF PAYROLL-INTER-RT .
  LOOP AT PAYROLL-INTER-RT INTO WA_RT.
    WRITE: /  WA_RT- LGART,  WA_RT-BETRG .
  ENDLOOP.