HR PAYROLL 薪资报表案例.docx

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