InfoType 0008 간접평가모듈 금액 조회 로직

기본급(PA0008) 간접평가지시자(IND01,02,03..) 가 찍혀있는 임금유형의 금액 조회를 위한 로직입니다.

1. Source Code

[#M_더보기|접기|

FORM get_data_wage_type_table  USING ps_list LIKE gs_list

                                               pv_lgaxx

                                 CHANGING cv_betxx.

  DATA: ls_ppbwla TYPE pbwla.

  DATA: lt_ppbwla TYPE TABLE OF pbwla.

  CLEAR: lt_ppbwla.

  CALL FUNCTION ‘RP_FILL_WAGE_TYPE_TABLE’

    EXPORTING

      begda                        = ps_list-begda

      endda                        = ps_list-endda

      infty                        = ‘0008’

      pernr                        = ps_list-pernr

    TABLES

      ppbwla                       = lt_ppbwla

    EXCEPTIONS

      error_at_indirect_evaluation = 1

      OTHERS                       = 2.

* 중국에서 임금유형별 구간데이터로 발생하여 로직변경(2015.04.14).

*  READ TABLE lt_ppbwla INTO ls_ppbwla WITH KEY lgart = pv_lgaxx.

  LOOP AT lt_ppbwla INTO ls_ppbwla WHERE lgart EQ pv_lgaxx

                                              AND begda LE ps_list-endda

                                              AND endda GE ps_list-endda.

    IF sy-subrc = 0.

      cv_betxx = ls_ppbwla-betrg.

      EXIT.

    ENDIF.

  ENDLOOP

_M#]

 – 결과 데이터가 IMG 설정에 따른 단일건 여러건 추출되는 확인이 필요합니다..