联芯科技ERP项目-技术文档-HR-007-试用期到期及合同到期通知单-20090916

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_007短描述试用期及合同到期通知单类型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-6-20预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能文档变更历史版本号文档维护时间姓名简要的描述102009-6-25陈志硕初建

第II部分:详细功能描述目的：每月可自动导出试用期到期及合同到期提醒通知书，告知对象为各二级组织单元经理功能描述:每月15日自动弹出到期提醒，并可同时导出下月试用期到期人员名单及下下月合同到期人员名单。运行频率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打印MACROBUTTONCheckIt_Radiobutton文件输出MACROBUTTONUnCheckIt_Radiobutton其它：打印机类型纸张大小语言程序用到的表表描述字段名称字段描述Pa0001WERKS人事范围PERNR人员号ORGEH组织单位PERSG员工组Pa3211YYSYJS试用期结束日期PERNR人员号PA0002NACHN姓VORNA名PERNR人员号PA0016CTEDT合同结束日期PERNR人员号Hrp1003ZZ1003B组织单位级别PA0000MASSN操作类型BEGDA开始日期PERNR人员号HRP1001RSIGN关系规格RELAT对象间的关系逻辑关系：运行报表时需考虑其权限对象，根据操作人员分配的权限对象P_PCR进行人员的检索。根据操作报表人员权限取出所有人员,同时系统跳出窗口提供人事范围WERKS进行复选框(把所有人事范围(除员工组PERSG为4的)都列出来),根据人事范围及操作用户的权限取出所有人员的人员编号(PERNR)根据人员编号PERNR通过表PA3211找到试用期结束日期YYSYJS,通过试用期结束日期减当期日期小于等于62天,放入表试用期项目中,通过员工编号在表pa0002找到PERNR放入员工编号,NACHN+VORNA放入姓名,根据员工编号在PA0001找到组织单位ORGEH在表HRP1000中找到文本描述放入所在部门,再通过ORGEH在表HRP1003中找到ZZ1003B判断是否3或4,如果是就把前面取出的所在部门复制到二级部门,如果不是,根据ORGEH在表HRP1001中找与ORGEH关于RSIGN为ARELAT为002的组织单位，重复此操作直至通过ORGEH在表HRP1003中找到ZZ1003B判断是3或4，将文本放入二级部门.最后把试用期结束时间放入试用期到期时间栏.根据人员编号PERNR通过表PA0016找到最新合同结束日期CTEDT,通过合同结束日期减当前日期小于等于93天,放入表合同到期项目中,通过员工编号在表pa0002找到PERNR放入员工编号,NACHN+VORNA放入姓名,根据员工编号在PA0001找到组织单位ORGEH在表HRP1000中找到文本描述放入所在部门,再通过ORGEH在表HRP1003中找到ZZ1003B判断是否3或4,如果是就把前面取出的所在部门复制到二级部门,如果不是,根据ORGEH在表HRP1001中找与ORGEH关于RSIGN为ARELAT为002的组织单位，重复此操作直至通过ORGEH在表HRP1003中找到ZZ1003B判断是3或4，将文本放入二级部门.最后把合同结束时间放入合同到期时间栏.通过报表弹出此信息后可以根据试用期到期和合同到期信息可打印预览下面所需要的通知单,并打可打印.以下为试用期及合同到期通知单所列字段:（1）--根据当前系统的年份确定此字段内容。（3）-根据上表中二级部门进行汇总,员工在PA0001中的人事范围WERKS为D300时填入对应人员的二级部门，当对应人员编号的pa9015中ZZ9015B为02、03、04、05、06、07时，填入“总经理”。员工在PA0001中的人事范围WERKS为D310时填入“总经理”。（4）--根据当前的系统的年份确定此字段内容。(如果当前时间为2009年12月,填入2010年)（5）--根据当前的系统的月份确定此字段内容。填入月份值为下月月份。(如果当前时间为2009年12月,填入2010年1月)（6）--根据当前的系统的月份确定此字段内容。填入月份值为下下月月份。(同上)（7）--根据上表中二级部门进行汇总,员工在PA0001中的人事范围WERKS为D300时填入对应人员的二级部门，当对应人员的pa9015中ZZ9015B为02、03、04、05、06、07时，不填入内容。当人事范围D310时不填入内容。（8）--同第5步。（9）--根据第7步得到的各二级部门(及总经理)进人员进行汇总分类试用期到期人员(如果有多个二级部门,需要每个二级部门生成一个表),同时把员工的人员编号和姓名(和上表取法一致),取上表中的所在部门放入此处,取PA3211试用期开始时间YYSYKS至试用期结束时间YYSYJS.所在部门,对于取到人员如果在一个人事范围内可以根据第7步出来结果进行归集,如果是第7步是总经理,那需要判断所有人员是否在同一个人事范围内,如果不是就需要拆成两张表打印,否则可以在一张表上打印.（10）--同第6步(11)根据第7步得到的各二级部门(及总经理)进人员进行汇总分类劳动合同到期人员(如果有多个二级部门,需要每个二级部门生成一个表),同时把员工的人员编号和姓名(和上表取法一致),取上表中的所在部门放入此处,取PA0016最新一条信息合同开始时间BEGDA至合同结束时间CTEDT.所在部门,对于取到人员如果在一个人事范围内可以根据第7步出来结果进行归集,如果是第7步是总经理,那需要判断所有人员是否在同一个人事范围内,如果不是就需要拆成两张表打印,否则可以在一张表上打印.（12）--系统年份，系统月份，15日（13）--系统年份，系统月份，22日（14）--最后根据打印人员的人事范围为D300，显示联芯科技有限公司，人事范围为D310，显示联芯科技有限公司北京分公司根据读取的所有人员编号PERNR通过表PA0016查找是否有相关信息,把没有信息的人员编号全部取出来,放入入职未签合同项目:通过员工编号在表pa0002找到PERNR放入员工编号,NACHN+VORNA放入姓名,根据员工编号在PA0001找到组织单位ORGEH在表HRP1000中找到文本描述放入所在部门,再通过ORGEH在表HRP1003中找到ZZ1003B判断是否3或4,如果是就把前面取出的所在部门复制到二级部门,如果不是,根据ORGEH在表HRP1001中找与ORGEH关于RSIGN为ARELAT为002的组织单位，重复此操作直至通过ORGEH在表HRP1003中找到ZZ1003B判断是3或4，将文本放入二级部门.最后根据员工编号在表PA0000中找到操作类型MASSN为Z1的一条信息的开始时间BEGDA放入入职时间,样张：

第III部分:技术说明ProgramnameZ_HR_EXEC_CONTRACT_NOTICETransactioncodeZHR007AuthorizationObjectZP_ORGINFormFormnameN/AOutputtypeN/AFormroutineN/A程序逻辑：1.PERFORMAUTHORITY_CHECK."人事范围检查AUTHORITY-CHECKOBJECT'ZP_ORGIN'ID'PERSA'FIELDS_WERKS-LOW.IFSY-SUBRC=0.ELSE.DELETES_WERKS.CLEAR:S_WERKS.ENDIF.ENDLOOP.IFS_WERKS[]ISINITIAL.MESSAGEI002(Z_1)WITH'没有权限进行查看'.LEAVELIST-PROCESSING.ENDIF.2.PERFORMFRM_GET_DATA"数据选取2.1主体部分数据选择SELECTDISTINCTPA0001~WERKS"人事范围T500P~NAME1"人事范围文本PA0001~PERNR"人员编号PA0001~ORGEH"组织单位HRP1000~STEXT"组织描述PA0001~PERSG"员工组PA0002~NACHN"姓PA0002~VORNA"名INTOCORRESPONDINGFIELDSOFTABLEGT_HRCONFROMPA0001INNERJOINPA0002ONPA0001~PERNR=PA0002~PERNRINNERJOINT500PONPA0001~WERKS=T500P~PERSAINNERJOINHRP1000ONHRP1000~OBJID=PA0001~ORGEHWHEREWERKSINS_WERKSANDHRP1000~PLVAR='01'"组织的计划版本ANDHRP1000~OTYPE='O'"组织的对象类型ANDPA0001~PERSG<>'4'"员工组ANDPA0001~BEGDA<=SY-DATUMANDPA0001~ENDDA>=SY-DATUM.2.2数据处理2.21试用期到期日处理SELECTSINGLEYYSYJSINTOGS_HRCON-YYSYJSFROMPA3211WHEREPERNR=GS_HRCON-PERNRANDBEGDA<=SY-DATUMANDENDDA>=SY-DATUM.CLEAR:L_DAY.L_DAY=GS_HRCON-YYSYJS-SY-DATUM.IFL_DAY<=62ANDL_DAY>0.GS_HRCON-YYSYJS=GS_HRCON-YYSYJS.ELSE.GS_HRCON-YYSYJS='00000000'.ENDIF.2.22合同到期日处理

SELECTSINGLEZZ3211AINTOGS_HRCON-CTEDTFROMPA3211WHEREPERNR=GS_HRCON-PERNRANDBEGDA<=SY-DATUMANDENDDA>=SY-DATUM.IFSY-SUBRC=0.L_DAY=GS_HRCON-CTEDT-SY-DATUM.IFL_DAY<=93.GS_HRCON-CTEDT=GS_HRCON-CTEDT.ELSE.GS_HRCON-CTEDT='00000000'.ENDIF.ELSE.SELECTSINGLEBEGDAINTOGS_HRCON-BEGDA"入职时间FROMPA0000WHEREMASSN='Z1'.ENDIF.2.23二级部门处理SELECTSINGLEZZ1003BINTOGS_HRCON-ZZ1003BFROMHRP1003WHEREOBJID=GS_HRCON-ORGEHANDOTYPE='O'ANDPLVAR='01'.IFGS_HRCON-ZZ1003B='3'ORGS_HRCON-ZZ1003B='4'.GS_HRCON-STEXT2=GS_HRCON-STEXT.GS_HRCON-ORGEH2=GS_HRCON-ORGEH.ELSE.DO3TIMES."5级组织CLEAR:L_SOBID.SELECTSINGLESOBIDINTOL_SOBIDFROMHRP1001WHEREOBJID=GS_HRCON-ORGEHANDOTYPE='O'ANDPLVAR='01'ANDRSIGN='A'ANDRELAT='002'.GS_HRCON-ORGEH2=L_SOBID+0(8).SELECTSINGLEZZ1003BINTOGS_HRCON-ZZ1003BFROMHRP1003WHEREOBJID=GS_HRCON-ORGEH2ANDOTYPE='O'ANDPLVAR='01'.IFGS_HRCON-ZZ1003B='3'ORGS_HRCON-ZZ1003B='4'.SELECTSINGLESTEXTINTOGS_HRCON-STEXT2FROMHRP1000WHEREOBJID=GS_HRCON-ORGEH2ANDOTYPE='O'ANDPLVAR='01'.GS_HRCON-ORGEH2=GS_HRCON-ORGEH2.ELSE.GS_HRCON-ORGEH2=''.ENDIF.ENDDO.ENDIF.2.24姓名处理CONCATENATEGS_HRCON-NACHNGS_HRCON-VORNAINTOGS_HRCON-NAME.2.25添加分类字段IFGS_HRCON-YYSYJS<>'00000000'.GS_HRCON1-CHAR='试用期到期'.GS_HRCON1-TYPE='试用期到期'.APPENDGS_HRCON1TOGT_HRCON1.ELSEIFGS_HRCON1-CTEDT<>'00000000'.GS_HRCON1-CHAR='合同到期'.GS_HRCON1-TYPE='合同到期'.APPENDGS_HRCON1TOGT_HRCON1.ELSEIFGS_HRCON-BEGDA<>'00000000'.GS_HRCON1-CHAR='合同未签'.GS_HRCON1-TYPE='入职日期'.APPENDGS_HRCON1TOGT_HRCON1.ENDIF.CLEAR:GS_HRCON,GS_HRCON1.ENDLOOP.2.3整理数据输出2.31排除提前转正IFGS_HRCON1-CHAR='试用期到期'ANDGS_HRCON1-PERNR<>'0