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

1. Source Code

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