"读取RT表
* 先进行本月模拟工资核算
SUBMIT hcncalc0 " 薪资核算
WITH pnptimr9 EQ pnptimr9
WITH pnptimra EQ pnptimra "'X'
WITH pnppernr EQ pernr-pernr "PNPPERNR "'80004699' "pernr-pernr
WITH pnpxabkr EQ pnpxabkr "pnpxabkr
WITH pnppabrp EQ pnppabrp "'12'
WITH pnppabrj EQ pnppabrj "'2013'
WITH schema EQ p_schema "'CN00' " 蒙东电力工资核算模式
WITH ocrsn EQ ocrsn"工资核算原因
WITH payty EQ p_payty"非周期的工资核算 类型
WITH payid EQ p_payid"非周期的工资核算 标识
WITH bondt EQ p_bondt"非周期的工资核算 日期
* WITH RUECK-AB EQ RUECK-AB
WITH test EQ 'NOUPD/RT/OFF'
WITH tst_on EQ 'X' "测试运行
WITH prt_prot EQ ' '
WITH ecalled EQ 'X' "正式核算
WITH sw_spool EQ ' '
AND RETURN .
IMPORT rt FROM MEMORY ID 'RT'.
FREE MEMORY ID 'RT'.
模拟薪酬核算并输出RT表
于 2024-12-24 09:35:41 首次发布