HRPAYROLL薪资报表案例.docVIP

HR 薪资报表案例 一 、程序定义 二、屏幕初始化字段查询 逻辑数据库的T-CODE : SLDB PNP逻辑数据库的定义界面 屏幕的初始字段信息 二、程序代码描述 REPORT??ZHR_SAMPLE.TABLES:?pernr,pyorgscreen,?pytimescreen. NODES:?payroll?TYPE?pay99_result.*?T512T表为工资信息项描述TABLES:?t512t.DATA:?wa_rt?LIKE?LINE?OF?payroll-inter-rt. “工资结果集DATA:?wa_crt?LIKE?LINE?OF?payroll-inter-crt.”累计工资结果集DATA:?wa_wpbp?LIKE?LINE?OF?payroll-inter-wpbp.”工作中心 基本支付信息Data:?g_result_counter?type?i.DATA?mylist?LIKE??pc261?OCCURS?0?.”簇目录（工资发放结果的输入输出表）DATA?wa_mylist?LIKE?LINE?OF?mylist.DATA?pay?TYPE?REF?TO?cl_pay.??全局类对象，专门通过PNP获取薪资数据的类INITIALIZATION.*?屏幕初始化*----------------------------------------GET?pernr.*?人员信息的选择??WRITE:?/?Currently?working?on:(021),?pernr-pernr.??g_result_counter?=?0.*-------------------------------------- *出发get事件，获取员工工资信息GET?payroll.?g_result_counter?=??g_result_counter?+?1.*?打印员工信息??WRITE:?/?*****************************************************.??WRITE:?/?序号?=?,????payroll-evp-seqnr,???????????所在时期?=,???payroll-inter-versc-inper,???????????用于时期?=,??payroll-inter-versc-fpper,???????????支付日期?=,??payroll-inter-versc-paydt.??LOOP?AT?payroll-inter-wpbp?INTO?wa_wpbp.????WRITE:???/?人事范围?=,??wa_wpbp-werks,???????????????人事子范围?=,??wa_wpbp-btrtl.??ENDLOOP.??SKIP?1.??LOOP?AT?payroll-inter-rt?INTO?wa_rt.????SELECT?SINGLE?*?FROM?t512t????????????????WHERE?sprsl?EQ?sy-langu????????????????AND???molga?EQ?payroll-inter-versc-molga????????????????AND???lgart?EQ?wa_rt-lgart.????WRITE:?/?wa_rt-lgart,?????????????t512t-lgtxt,?????????????wa_rt-betrg?CURRENCY???payroll-inter-versc-waers.??ENDLOOP.??SKIP?1.??WRITE:?/?累计:(020).??LOOP?AT?payroll-inter-crt?INTO?wa_crt.????SELECT?SINGLE?*?FROM?t512t????????????????WHERE?sprsl?EQ?sy-langu????????????????AND???molga?EQ?payroll-inter-versc-molga????????????????AND???lgart?EQ?wa_crt-lgart.????WRITE:?/?wa_crt-lgart,”工资项?????????????t512t-lgtxt, “获取工资项的长文本信息?????????????wa_crt-betrg?CURRENCY???payroll-inter-versc-waers.”工资金额??ENDLOOP.GET?pernr?LATE.”内循环结束后?