聯(lián)芯科技ERP項(xiàng)目-技術(shù)文檔-HR-023-人工成 本年度獎(jiǎng)金包調(diào)賬匯總表-V1.0-20090924

DATE\@"yyyy-MM-dd"2009-09-25Version1.0PAGE1聯(lián)芯科技ERP項(xiàng)目 DATE\@"M/d/yyyy"9/25/2009Version1.0 聯(lián)芯科技ERP項(xiàng)目開(kāi)發(fā)規(guī)格書(shū)第I部分:需求模塊MACROBUTTONCheckIt_CheckBox￡MM MACROBUTTONCheckIt_CheckBox￡P(guān)P MACROBUTTONCheckIt_CheckBox￡SD MACROBUTTONCheckIt_CheckBox￡FI MACROBUTTONCheckIt_CheckBox￡CO ■HRMACROBUTTONCheckIt_CheckBox￡其它Spec編號(hào)ZLC_SPEC_HR_023短描述人工成本年度獎(jiǎng)金包調(diào)賬匯總表類型MACROBUTTONUnCheckIt_Radiobutton報(bào)表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表單MACROBUTTONCheckIt_Radiobutton流程增強(qiáng)MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton數(shù)據(jù)轉(zhuǎn)移需求優(yōu)先級(jí)MACROBUTTONUnCheckIt_RadiobuttonHigh/關(guān)鍵 MACROBUTTONCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell陳志碩要求日期2009-9-15預(yù)計(jì)開(kāi)發(fā)天數(shù)（由功能顧問(wèn)與開(kāi)發(fā)顧問(wèn)評(píng)估）必填_____天是否有標(biāo)準(zhǔn)功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標(biāo)準(zhǔn)功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標(biāo)準(zhǔn)功能文檔變更歷史版本號(hào)文檔維護(hù)時(shí)間姓名簡(jiǎn)要的描述1．02009-陳志碩創(chuàng)建2009-09-24徐世兵增加技術(shù)說(shuō)明文檔

第II部分:詳細(xì)功能描述目的：將調(diào)賬匯總表發(fā)給財(cái)務(wù)，由財(cái)務(wù)進(jìn)行針對(duì)獎(jiǎng)金包的調(diào)賬功能描述:通過(guò)讀取系統(tǒng)中人工成本每月分?jǐn)偙壤?jì)算得出半年度、年度分?jǐn)偙壤\(yùn)行頻率MACROBUTTONCheckIt_Radiobutton任何時(shí)間MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton兩周MACROBUTTONUnCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：運(yùn)行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自動(dòng)MACROBUTTONCheckIt_Radiobutton批處理MACROBUTTONCheckIt_Radiobutton在線處理輸出方式MACROBUTTONCheckIt_Radiobutton屏幕輸出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONUnCheckIt_Radiobutton文件輸出MACROBUTTONCheckIt_Radiobutton其它：打印機(jī)類型紙張大小語(yǔ)言選擇屏幕：報(bào)表/表單的字段順序字段名稱字段技術(shù)名稱字段描述特殊需求1工資核算范圍2周期核算選擇月份的范圍非周期核算（除年終獎(jiǎng)外）選擇除年終獎(jiǎng)外的非周期核算工資日期多選3年終獎(jiǎng)年終獎(jiǎng)發(fā)放日期程序用到的表表描述字段名稱字段描述PA0027KBU01公司代碼KST01成本中心KPR01百分比AUF01內(nèi)部訂單邏輯關(guān)系：工資核算范圍為多選項(xiàng)，可以進(jìn)行多選。對(duì)應(yīng)人員數(shù)據(jù)僅針對(duì)tcode:pc_payresult中“歷經(jīng)期”、“所在期間”為空的RT表，且RT表中的工資項(xiàng)4001年度獎(jiǎng)金為非零或非空的人員。工號(hào)—所有針對(duì)第2條邏輯的人員工號(hào)。姓名--姓名—根據(jù)工號(hào)，將字段PA0002-NACHN與字段PA0002-NACHN合并顯示。成本中心、內(nèi)部訂單、已過(guò)賬獎(jiǎng)金總額—以非周期核算或周期核算的最后一天為查詢?nèi)掌?，PA0001-ABKRS下為“L1”、“L2”、“L3”的人員。通過(guò)Tcode：pc_payresult找出歷經(jīng)期間、所在期間（月份）在“開(kāi)始時(shí)間”與“結(jié)束時(shí)間”范圍內(nèi)的CO表，以及歷經(jīng)期、所在期間為空的且歷經(jīng)期開(kāi)始與歷經(jīng)期結(jié)束與非周期核算相等時(shí)間的CO表。周期核算表中的（2003月度獎(jiǎng)金+3001月度獎(jiǎng)金(扣減)）*CO表中對(duì)應(yīng)比例（結(jié)果四舍五入，保留2位小數(shù)），放入成本中心、內(nèi)部訂單、實(shí)際年度獎(jiǎng)金總額—對(duì)應(yīng)每個(gè)工號(hào)，將其“已過(guò)賬獎(jiǎng)金包總額”加和*年終獎(jiǎng)的CO表中對(duì)應(yīng)的成本中心、內(nèi)部訂單的比例。（四舍五入，保留2位小數(shù)）年度獎(jiǎng)金調(diào)賬金額—實(shí)際年度獎(jiǎng)金總額-已過(guò)賬獎(jiǎng)金總額。（正負(fù)號(hào)保留）工會(huì)經(jīng)費(fèi)調(diào)賬金額—年度獎(jiǎng)金調(diào)賬金額*2%。（正負(fù)號(hào)保留）備注：增加工號(hào)與姓名是為了便于前期測(cè)試，在最后需要將工號(hào)與姓名刪除，所有成本中心與內(nèi)部訂單相同的項(xiàng)進(jìn)行累加。樣張：

第III部分:技術(shù)說(shuō)明ProgramnameZ_HR_EXEC_APPORTIONMENT_ADJUSTTransactioncodeZHR023AuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：選擇屏幕：1．FORMAUTHORITY_CHECK."人事范圍檢查檢查權(quán)限對(duì)象ZP_ORGIN看當(dāng)前操作者是否有輸入的人事范圍的數(shù)據(jù)的讀取權(quán)限AUTHORITY-CHECKOBJECT'ZP_ORGIN'ID'PERSA'FIELDS_WERKS-LOW.IFSY-SUBRC=0.ELSE.MESSAGEE002(Z_1)WITH'沒(méi)有權(quán)限進(jìn)行查看'.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."選擇屏幕數(shù)據(jù)驗(yàn)證屏幕輸入是否有效，查詢條件是否滿足IFP_PABRPISINITIALORP_PABRJISINITIALORP_PABRP1ISINITIALORP_PABRJ2ISINITIAL.MESSAGEI002(Z_1)WITH'人工成本分?jǐn)?，期間從期間至需輸入值'.LEAVELIST-PROCESSING.ENDIF.4.PERFORMFRM_GET_DETAIL."數(shù)據(jù)選取處理4.1選取日期范圍內(nèi)，非Z0的員工信息，并保證員工號(hào)唯一SELECTDISTINCTPERNRBEGDAENDDAFROMPA0001INTOTABLEGT_PERNRWHEREABKRSINS_ABKRSANDABKRS<>'Z0'ANDBEGDA<=P_DATEANDENDDA>=P_DATE.SORTGT_PERNRBYPERNR.DELETEADJACENTDUPLICATESFROMGT_PERNRCOMPARINGPERNR.4.2循環(huán)員工表GT_PERNR，取員工的工資簇信息，對(duì)周期核算添加對(duì)應(yīng)的數(shù)據(jù)到gt_co,對(duì)非周期、周期的工資項(xiàng)進(jìn)行計(jì)算添加GT_PERNR0，并使gt_co表和GT_PERNR0能對(duì)應(yīng)。并處理有CO無(wú)工資項(xiàng)，有工資項(xiàng)無(wú)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'."添加周期性核算內(nèi)表GS_CO-INT=INT.APPENDGS_COTOGT_CO.APPENDGS_COTOGT_CO2.ENDIF.CLEAR:GS_C01,GS_CO.ENDLOOP.IFZTYPE<>'X'."同一個(gè)工資族中沒(méi)有CO表RT不考慮CONTINUE.ENDIF."應(yīng)付獎(jiǎng)金（周期）LOOPATGT_PAYROLL-INTER-RTINTOGS_RTWHERELGART='2003'ORLGART='3001'.YTYPE='X'.LV_SUM2=LV_SUM2+GS_RT-BETRG.ENDLOOP."應(yīng)付獎(jiǎng)金（非周期）LOOPATGT_PAYROLL-INTER-RTINTOGS_RTWHERELGARTBETWEEN'4001'AND'4003'.YTYPE='X'.LV_SUM3=LV_SUM3+GS_RT-BETRG.ENDLOOP."應(yīng)付獎(jiǎng)金（周期+非周期）LOOPATGT_PAYROLL-INTER-RTINTOGS_RTWHERELGARTBETWEEN'4001'AND'4003'ORLGART='2003'ORLGART='3001'.YTYPE='X'.LV_SUM4=LV_SUM4+GS_RT-BETRG.ENDLOOP."數(shù)據(jù)處理（有CO表沒(méi)有rt表不考慮）IFYTYPE<>'X'.LOOPATGT_COINTOGS_CO.READTABLEGT_CO2INTOGS_CO2WITHKEYPERNR=GS_CO-PERNR"員工號(hào)KBUNN=GS_CO-KBUNNKSTNN=GS_CO-KSTNNAUFNN=GS_CO-AUFNNKPRNN=GS_CO-KPRNN.IFSY-SUBRC=0.DELETEGT_CO.ENDIF.ENDLOOP.ENDIF."添加處理表用于計(jì)算已過(guò)賬獎(jiǎng)金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對(duì)每個(gè)人的獎(jiǎng)金總額進(jìn)行匯總。并取得總金額存入GT_PERNR1SORTGT_PERNR0BYPERNRLV_SUM4.LOOPATGT_PERNR0INTOGS_PERNR0.ATENDOFPERNR.READTABLEGT_PERNR0INTOGS_PERNR0INDEXSY-TABIX.APPENDGS_PERNR0TOGT_PERNR1.ENDAT.ENDLOOP.4.4對(duì)數(shù)據(jù)進(jìn)行合并處理從GT_PERNR1和GT_PERNR取得對(duì)應(yīng)核算期間和總獎(jiǎng)金金額。并計(jì)算按周期核算次數(shù)得到分?jǐn)偙壤齃OOPATGT_COINTOGS_CO."合并年度獎(jiǎng)金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處理分?jǐn)偙壤淖詈笠还P為100減去上面之后保證分?jǐn)偙壤蜑?00.DATA:KPRNNTYPEKPRNN."分?jǐn)偙壤奂覮OOPATGT_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對(duì)非周期進(jìn)行處理PERFORMFRM_ADD_FZHOUQI.取得每個(gè)對(duì)應(yīng)CO表中RT表的BETWEEN'4001'AND'4003'之和。4.7進(jìn)行輸出前，相關(guān)計(jì)算。LOOPATGT_COINTOGS_CO.GS_CO-BETRG=GS_CO-BETRG2*GS_CO-KPRNN/100."獎(jiǎng)金包=周期金額*CO表比例GS_CO-BETRG4=GS_CO-BETRG7*GS_CO-KPRNN1/100."計(jì)算獎(jiǎng)金=總獎(jiǎng)金金額*分?jǐn)偙壤鼼S_CO-BETRG5=GS_CO-BETRG4-GS_CO-BETRG."調(diào)賬金額GS_CO-BETRG6=GS_CO-BETRG5*2/100."18. 是否在職—以非周期核算或周期核算的最后一天為查詢?nèi)掌冢琍A0001-ABKRS為"“L1”、“L2”、“L3”時(shí)為在職，為“Z0”時(shí)為非在職"內(nèi)部訂單描述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處理調(diào)賬金額最后累加值等于0DATA:BETRG5(12)TYPEPDECIMALS3,"調(diào)賬金額BETRG6(12)TYPEPDECIMALS3."工會(huì)調(diào)賬金額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