联芯科技ERP项目-技术文档-HR-023-人工成 本年度奖金包调账汇总表-V1.0-20090924

DATE\@"yyyy-MM-dd"2009-09-25Version1.0PAGE1联芯科技ERP项目 DATE\@"M/d/yyyy"9/25/2009Version1.0 联芯科技ERP项目开发规格书第I部分:需求模块MACROBUTTONCheckIt_CheckBox£MM MACROBUTTONCheckIt_CheckBox£PP MACROBUTTONCheckIt_CheckBox£SD MACROBUTTONCheckIt_CheckBox£FI MACROBUTTONCheckIt_CheckBox£CO ■HRMACROBUTTONCheckIt_CheckBox£其它Spec编号ZLC_SPEC_HR_023短描述人工成本年度奖金包调账汇总表类型MACROBUTTONUnCheckIt_Radiobutton报表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表单MACROBUTTONCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONUnCheckIt_RadiobuttonHigh/关键 MACROBUTTONCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选用户MACROBUTTONNextCell陈志硕要求日期2009-9-15预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能文档变更历史版本号文档维护时间姓名简要的描述1．02009-陈志硕创建2009-09-24徐世兵增加技术说明文档

第II部分:详细功能描述目的：将调账汇总表发给财务，由财务进行针对奖金包的调账功能描述:通过读取系统中人工成本每月分摊比例计算得出半年度、年度分摊比例运行频率MACROBUTTONCheckIt_Radiobutton任何时间MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton两周MACROBUTTONUnCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：运行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自动MACROBUTTONCheckIt_Radiobutton批处理MACROBUTTONCheckIt_Radiobutton在线处理输出方式MACROBUTTONCheckIt_Radiobutton屏幕输出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONUnCheckIt_Radiobutton文件输出MACROBUTTONCheckIt_Radiobutton其它：打印机类型纸张大小语言选择屏幕：报表/表单的字段顺序字段名称字段技术名称字段描述特殊需求1工资核算范围2周期核算选择月份的范围非周期核算（除年终奖外）选择除年终奖外的非周期核算工资日期多选3年终奖年终奖发放日期程序用到的表表描述字段名称字段描述PA0027KBU01公司代码KST01成本中心KPR01百分比AUF01内部订单逻辑关系：工资核算范围为多选项，可以进行多选。对应人员数据仅针对tcode:pc_payresult中“历经期”、“所在期间”为空的RT表，且RT表中的工资项4001年度奖金为非零或非空的人员。工号—所有针对第2条逻辑的人员工号。姓名--姓名—根据工号，将字段PA0002-NACHN与字段PA0002-NACHN合并显示。成本中心、内部订单、已过账奖金总额—以非周期核算或周期核算的最后一天为查询日期，PA0001-ABKRS下为“L1”、“L2”、“L3”的人员。通过Tcode：pc_payresult找出历经期间、所在期间（月份）在“开始时间”与“结束时间”范围内的CO表，以及历经期、所在期间为空的且历经期开始与历经期结束与非周期核算相等时间的CO表。周期核算表中的（2003月度奖金+3001月度奖金(扣减)）*CO表中对应比例（结果四舍五入，保留2位小数），放入成本中心、内部订单、实际年度奖金总额—对应每个工号，将其“已过账奖金包总额”加和*年终奖的CO表中对应的成本中心、内部订单的比例。（四舍五入，保留2位小数）年度奖金调账金额—实际年度奖金总额-已过账奖金总额。（正负号保留）工会经费调账金额—年度奖金调账金额*2%。（正负号保留）备注：增加工号与姓名是为了便于前期测试，在最后需要将工号与姓名删除，所有成本中心与内部订单相同的项进行累加。样张：

第III部分:技术说明ProgramnameZ_HR_EXEC_APPORTIONMENT_ADJUSTTransactioncodeZHR023AuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序逻辑：选择屏幕：1．FORMAUTHORITY_CHECK."人事范围检查检查权限对象ZP_ORGIN看当前操作者是否有输入的人事范围的数据的读取权限AUTHORITY-CHECKOBJECT'ZP_ORGIN'ID'PERSA'FIELDS_WERKS-LOW.IFSY-SUBRC=0.ELSE.MESSAGEE002(Z_1)WITH'没有权限进行查看'.ENDIF.2."日期处理取得周期查询的期间最后一天CONCATENATEP_PABRJP_PABRP'01'INTOGS_DATE.CONCATENATEP_PABRJ2P_PABRP1'01'INTOGE_DATE.CALLFUNCTION'BKK_GET_MONTH_LASTDAY'EXPORTINGI_DATE=GE_DATEIMPORTINGE_DATE=GE_DATE.3.PERFORMSELECTION_CHECK."选择屏幕数据验证屏幕输入是否有效，查询条件是否满足IFP_PABRPISINITIALORP_PABRJISINITIALORP_PABRP1ISINITIALORP_PABRJ2ISINITIAL.MESSAGEI002(Z_1)WITH'人工成本分摊，期间从期间至需输入值'.LEAVELIST-PROCESSING.ENDIF.4.PERFORMFRM_GET_DETAIL."数据选取处理4.1选取日期范围内，非Z0的员工信息，并保证员工号唯一SELECTDISTINCTPERNRBEGDAENDDAFROMPA0001INTOTABLEGT_PERNRWHEREABKRSINS_ABKRSANDABKRS<>'Z0'ANDBEGDA<=P_DATEANDENDDA>=P_DATE.SORTGT_PERNRBYPERNR.DELETEADJACENTDUPLICATESFROMGT_PERNRCOMPARINGPERNR.4.2循环员工表GT_PERNR，取员工的工资簇信息，对周期核算添加对应的数据到gt_co,对非周期、周期的工资项进行计算添加GT_PERNR0，并使gt_co表和GT_PERNR0能对应。并处理有CO无工资项，有工资项无CO记录不输出。ZTYPE='X'.IFSY-TABIX=1ANDGS_RGDIR-FPPER<>'000000'.ZCOUNT=ZCOUNT+1.ENDIF.MOVE-CORRESPONDINGGS_C01TOGS_CO.GS_CO-PERNR=GS_PERNR-PERNR.GS_CO-FPBEG=GS_RGDIR-FPBEG.IFGS_RGDIR-FPPER<>'000000'."添加周期性核算内表GS_CO-INT=INT.APPENDGS_COTOGT_CO.APPENDGS_COTOGT_CO2.ENDIF.CLEAR:GS_C01,GS_CO.ENDLOOP.IFZTYPE<>'X'."同一个工资族中没有CO表RT不考虑CONTINUE.ENDIF."应付奖金（周期）LOOPATGT_PAYROLL-INTER-RTINTOGS_RTWHERELGART='2003'ORLGART='3001'.YTYPE='X'.LV_SUM2=LV_SUM2+GS_RT-BETRG.ENDLOOP."应付奖金（非周期）LOOPATGT_PAYROLL-INTER-RTINTOGS_RTWHERELGARTBETWEEN'4001'AND'4003'.YTYPE='X'.LV_SUM3=LV_SUM3+GS_RT-BETRG.ENDLOOP."应付奖金（周期+非周期）LOOPATGT_PAYROLL-INTER-RTINTOGS_RTWHERELGARTBETWEEN'4001'AND'4003'ORLGART='2003'ORLGART='3001'.YTYPE='X'.LV_SUM4=LV_SUM4+GS_RT-BETRG.ENDLOOP."数据处理（有CO表没有rt表不考虑）IFYTYPE<>'X'.LOOPATGT_COINTOGS_CO.READTABLEGT_CO2INTOGS_CO2WITHKEYPERNR=GS_CO-PERNR"员工号KBUNN=GS_CO-KBUNNKSTNN=GS_CO-KSTNNAUFNN=GS_CO-AUFNNKPRNN=GS_CO-KPRNN.IFSY-SUBRC=0.DELETEGT_CO.ENDIF.ENDLOOP.ENDIF."添加处理表用于计算已过账奖金CLEAR:ZTYPE,YTYPE.REFRESH:GT_CO2.GS_PERNR0-PERNR=GS_PERNR-PERNR.GS_PERNR0-LV_SUM2=LV_SUM2.GS_PERNR0-LV_SUM3=LV_SUM3.GS_PERNR0-ZCOUNT=ZCOUNT.GS_PERNR0-LV_SUM4=LV_SUM4.GS_PERNR0-INT=INT.APPENDGS_PERNR0TOGT_PERNR0.CLEAR:LV_SUM2,LV_SUM3.ENDLOOP.GS_PERNR-ZCOUNT=ZCOUNT.MODIFYGT_PERNRFROMGS_PERNR.CLEAR:GS_PERNR,ZCOUNT,LV_SUM4.4.3对每个人的奖金总额进行汇总。并取得总金额存入GT_PERNR1SORTGT_PERNR0BYPERNRLV_SUM4.LOOPATGT_PERNR0INTOGS_PERNR0.ATENDOFPERNR.READTABLEGT_PERNR0INTOGS_PERNR0INDEXSY-TABIX.APPENDGS_PERNR0TOGT_PERNR1.ENDAT.ENDLOOP.4.4对数据进行合并处理从GT_PERNR1和GT_PERNR取得对应核算期间和总奖金金额。并计算按周期核算次数得到分摊比例LOOPATGT_COINTOGS_CO."合并年度奖金READTABLEGT_PERNR0INTOGS_PERNR0WITHKEYPERNR=GS_CO-PERNRINT=GS_CO-INT.IFSY-SUBRC=0.GS_CO-BETRG2=GS_PERNR0-LV_SUM2.GS_CO-BETRG3=GS_PERNR0-LV_SUM3.ENDIF.READTABLEGT_PERNR1INTOGS_PERNR1WITHKEYPERNR=GS_CO-PERNR.IFSY-SUBRC=0.GS_CO-BETRG7=GS_PERNR1-LV_SUM4.ENDIF.READTABLEGT_PERNRINTOGS_PERNRWITHKEYPERNR=GS_CO-PERNR.IFSY-SUBRC=0.GS_CO-ZCOUNT=GS_PERNR-ZCOUNT.ENDIF.IFGS_CO-ZCOUNT<>0.GS_CO-KPRNN1=GS_CO-KPRNN/GS_CO-ZCOUNT.ENDIF.MODIFYGT_COFROMGS_CO.ENDLOOP.4.5处理分摊比例的最后一笔为100减去上面之后保证分摊比例之和为100.DATA:KPRNNTYPEKPRNN."分摊比例累加LOOPATGT_COINTOGS_CO.READTABLEGT_COINTOGS_COINDEXSY-TABIX.KPRNN=KPRNN+GS_CO-KPRNN1.ATENDOFPERNR.READTABLEGT_COINTOGS_COINDEXSY-TABIX.GS_CO-KPRNN1=100-KPRNN.CLEAR:KPRNN.APPENDGS_COTOGT_CO1.ENDAT.ENDLOOP.LOOPATGT_COINTOGS_CO.ATENDOFPERNR.READTABLEGT_COINTOGS_COINDEXSY-TABIX.READTABLEGT_CO1INTOGS_CO1WITHKEYPERNR=GS_CO-PERNR.GS_CO-KPRNN1=GS_CO-KPRNN1+GS_CO1-KPRNN1.MODIFYGT_COFROMGS_CO.ENDAT.CLEAR:GS_CO,GS_CO1.ENDLOOP.4.6对非周期进行处理PERFORMFRM_ADD_FZHOUQI.取得每个对应CO表中RT表的BETWEEN'4001'AND'4003'之和。4.7进行输出前，相关计算。LOOPATGT_COINTOGS_CO.GS_CO-BETRG=GS_CO-BETRG2*GS_CO-KPRNN/100."奖金包=周期金额*CO表比例GS_CO-BETRG4=GS_CO-BETRG7*GS_CO-KPRNN1/100."计算奖金=总奖金金额*分摊比例GS_CO-BETRG5=GS_CO-BETRG4-GS_CO-BETRG."调账金额GS_CO-BETRG6=GS_CO-BETRG5*2/100."18. 是否在职—以非周期核算或周期核算的最后一天为查询日期，PA0001-ABKRS为"“L1”、“L2”、“L3”时为在职，为“Z0”时为非在职"内部订单描述SELECTSINGLEKTEXTINTOGS_CO-KTEXT1FROMCOASWHEREAUFNR=GS_CO-AUFNN."成本中心描述SELECTSINGLEKTEXTINTOGS_CO-KTEXTFROMCSKTWHERESPRAS=SY-LANGUANDKOSTL=GS_CO-KSTNN.SELECTSINGLEPA0002~NACHN"姓PA0002~VORNA"名INTO(GS_CO-NACHN,GS_CO-VORNA)FROMPA0002WHEREPERNR=GS_CO-PERNRANDPA0002~BEGDA<SY-DATUMANDPA0002~ENDDA>SY-DATUM.CONCATENATEGS_CO-NACHNGS_CO-VORNAINTOGS_CO-NAME.SELECTSINGLEDAT01INTOGS_CO-DAT01FROMPA0041WHEREPERNR=GS_CO-PERNRANDPA0041~BEGDA<SY-DATUMANDPA0041~ENDDA>SY-DATUMANDPA0041~DAR01='01'.MODIFYGT_COFROMGS_CO.CLEAR:GS_CO.ENDLOOP.4.8处理调账金额最后累加值等于0DATA:BETRG5(12)TYPEPDECIMALS3,"调账金额BETRG6(12)TYPEPDECIMALS3."工会调账金额LOOPATGT_COINTOGS_CO.BETRG5=BETRG5+GS_CO-BETRG5.BETRG6=BETRG6+GS_CO-BETRG6.ENDLOOP.SORTGT_COBYPERNR.LOOPATGT_COINTOGS_CO.ATLAST.READTABLEGT_COINTOGS_COINDEXSY-TABIX.GS_CO-BETRG5=GS_C