LOOP AT LT_PERNR INTO LW_PERNR.CLEAR lt_rgdir.lv_pernr = LW_PERNR-objid.
* 获取工资记录CALL FUNCTION 'CD_READ_RGDIR'EXPORTINGpersnr = lv_pernrTABLESin_rgdir = lt_rgdirEXCEPTIONSno_record_found = 1OTHERS = 2.IF lt_rgdir[] IS INITIAL.CONTINUE.ENDIF.LOOP AT lt_rgdir INTO ls_rgdir WHERE fpbeg >= L_BEGDAAND fpend <= L_ENDDAAND srtza = 'A'.CLEAR LW_DATA.* 读取工资簇IDCALL FUNCTION 'PYXX_GET_RELID_FROM_PERNR'EXPORTINGemployee = lv_pernrIMPORTINGrelid = lv_relidmolga = lv_molgaEXCEPTIONSerror_reading_infotype_0001 = 1error_reading_molga = 2error_reading_relid = 3OTHERS = 4.* 读取工资记录CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'EXPORTINGclusterid = lv_relidemployeenumber = lv_pernrsequencenumber = ls_rgdir-seqnrCHANGINGpayroll_result = ls_payroll_resultEXCEPTIONSillegal_isocode_or_clusterid = 1error_generating_import = 2import_mismatch_error = 3subpool_dir_full = 4no_read_authority = 5no_record_found = 6versions_do_not_match = 7error_reading_archive = 8error_reading_relid = 9OTHERS = 10.LOOP AT ls_payroll_result-inter-rt INTO ls_rt .IF ls_rt-lgart = '/550'. "实发工资LW_DATA-ZSFGZ = ls_rt-betrg.ENDIF.IF ls_rt-lgart = '/101'. "应发工资LW_DATA-ZYFGZ = ls_rt-betrg.ENDIF.CLEAR ls_rt.ENDLOOP.IF LW_DATA IS INITIAL.CONTINUE.ENDIF.LW_DATA-pernr = LW_PERNR-objid.LW_DATA-ZYEAR = ls_rgdir-fpbeg+0(4).COLLECT LW_DATA INTO LT_DATA.CLEAR ls_rgdir.ENDLOOP.ENDLOOP.
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！
