SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1.docx

1、SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书第一部分：基本信息(生成新的版本后，以下内容要相应改动)开发类型增强 接口 单据 报表技术工具 Enhancement User Exit BAdI Dialog Interactive list ABAP OO Function group RFC BAPI function Executive Program BDC Table Contents Modification Server file Local file SAPScript Smartforms

2、 Output-only List 模块HR开发机及集团110事务代码ZHRR0014程序IDZHRR0014程序名称国家工作人员登记备案表功能设计者 王丹技术设计者王学会ABAP程序员王学会第二部分： 设计书维护记录 更新日期更新人员简要说明2009-07-07王学会人事主管理部门改为报表导出之后人工输入；工作单位在取值时，如遇到人事范围和人事子范围相同时，取人事子范围。2009-07-09王学会将职务职称中的取数修改成取PA0001中的职务职级第三部分： 技术方案描述3.1业务需求描述根据人员编号、就业状态、人事范围、人事子范围、员工组员工子组 从系统中提取相关字段，生成国家工作人员登记备

3、案表以备查阅3.2技术解决方案1、使用逻辑数据库PERNR获取数据2、使用函数REUSE_ALV_GRID_DISPLAY 展示数据3、使用SMW0 上载的数据模板，将内表的数据导入到数据模板中，打印或者导入到本地3.3 系统简单架构图 第四部分：程序逻辑描述将主要代码功能描述清楚，程序处理逻辑START-OF-SELECTION.RP_SET_DATA_INTERVALP0001PN-BEGDAPN-ENDDA.GETPERNR.PERFORMGET_DATA.END-OF-SELECTION.PERFORMSORT_ITAB.PERFORMALV_DISPLAY.下载通过SMW0上载的模板

4、文件（P_OBJID）到 （P_DEST）指定的本地文件路径下的EXCEL文件里FORMFRM_DOWNLOAD_EXCEL_FROMSERVERUSINGP_OBJIDLIKEWWWDATATAB-OBJIDP_DESTLIKESAPB-SAPPFAD.DATA:LO_OBJDATALIKEWWWDATATAB,LO_MIMELIKEW3MIME,LS_DESTINATIONLIKERLGRAP-FILENAME,LS_OBJNAMTYPESTRING,LI_RCLIKESY-SUBRC,LS_ERRTXTTYPESTRING.CONCATENATEP_OBJID.XLSINTOLS_OBJ

5、NAM.CONDENSELS_OBJNAMNO-GAPS.SELECTSINGLERELIDOBJIDFROMWWWDATAINTOCORRESPONDINGFIELDSOFLO_OBJDATAWHERESRTF2=0ANDRELID=MIANDOBJID=P_OBJID.IFSY-SUBRCNE0ORLO_OBJDATA-OBJIDEQSPACE.CONCATENATE模板文件：LS_OBJNAM不存在，请用TCODE：SMW0进行加载INTOLS_ERRTXT.MESSAGEE000WITHLS_ERRTXT.ENDIF.LS_DESTINATION=P_DEST.CALLFUNCTION

6、DOWNLOAD_WEB_OBJECTEXPORTINGKEY=LO_OBJDATADESTINATION=LS_DESTINATIONIMPORTINGRC=LI_RC.IFLI_RCNE0.CONCATENATE模板文件：LS_OBJNAM下载失败INTOLS_ERRTXT.MESSAGEE000WITHLS_ERRTXT.ENDIF.ENDFORM.ALV自定义工具栏的事件处理FORMALV_USER_COMMANDUSINGR_UCOMMLIKESY-UCOMMRS_SELFIELDTYPESLIS_SELFIELD.CASER_UCOMM.打印WHENPNT.CHECKITABISN

7、OTINITIAL.PERFORMPRINT. 填充excel（输出路径定位C:）PERFORMFRM_PREVIEW. 预览打印格式（功能：EXCEL的打印预览）PERFORMQUIT_EXCEL. 释放并从本地删除EXCEL对象导入到本地文件WHENEXPORT.CHECKITABISNOTINITIAL.PERFORMFILEPATH.获取输出路径(输出路径由用户自己选定)PERFORMPRINT.填充excelPERFORMFREE_EXCEL.保存填充数据、释放excel对象WHENOTHERS.ENDCASE.ENDFORM.FORMPRINT.DATA:LI_MODTYPEI,分

8、页标记，LI_ROWTYPEIVALUE5,excel表从第5行开始填充数据LI_CURRENTROWTYPEIVALUE0,内表当前行数（第。条数据）LS_CURRENTROWTYPESTRING,字符格式的内表当前行数（用于concatenate）LS_LINESTYPESTRING,字符格式的内表行项目数LS_PERCENT(3)TYPEI,数值格式的百分比LS_PERCENT1TYPESTRING,字符格式的百分比LN_PERCENT(3)TYPEN,已处理内表数据的百分比LS_INDCATORTXTTYPESTRING,用于输出的说明LI_CELLTYPEI.DATA:YEAR(4)

9、VALUE0,MONTH(2)VALUE0,DAY(2)VALUE0,DATETYPESTRING.DESCRIBETABLEITABLINESLI_LINES. 如果为事件为打印的话则指定EXCEL模板的本地下载路径（EXCEL文件在打印执行完毕后会被删除）IFSY-UCOMM=PNT.CONCATENATECS_PATHCO_OBJID-SY-DATUM.XLSINTOP_FILENAME.ENDIF.下载模板LS_INDCATORTXT=程序正在下载模板.PERFORMFRM_PROCESS_INDCATORUSINGLS_INDCATORTXT0.从服务器下载EXCEL模板到P_FIL

10、ENAME指定的路径下PERFORMFRM_DOWNLOAD_EXCEL_FROMSERVERUSINGCO_OBJIDP_FILENAME.CHECKNOTP_FILENAMEISINITIAL.LS_INDCATORTXT=程序正在初始化OLE控件.PERFORMFRM_PROCESS_INDCATORUSINGLS_INDCATORTXT0.初始化EXCEL文件，并打开sheet以供填充数据PERFORMINIT_EXCELUSINGP_FILENAME. 将内表的数据填充到本地EXCEL适当的单元格里LOOPATITAB.处理信息提示LI_CURRENTROW=SY-TABIX.LN_

11、PERCENT=(LI_CURRENTROW*100)/LI_LINES.已处理数据的百分比LS_PERCENT1=LS_PERCENT=LN_PERCENT.CONCATENATE已处理LS_PERCENT1%的数据记录，请稍候.INTOLS_INDCATORTXT.PERFORMFRM_PROCESS_INDCATORUSINGLS_INDCATORTXT0.向EXCEL表格行项目填充数据PERFORMFILL_CELLUSINGLI_ROW10ITAB-NUM.序号PERFORMFILL_CELLUSINGLI_ROW20ITAB-NACHN.姓PERFORMFILL_CELLUSING

12、LI_ROW30ITAB-VORNA.名PERFORMFILL_CELLUSINGLI_ROW40ITAB-GBDAT.出生日期PERFORMFILL_CELLUSINGLI_ROW50ITAB-GENER.性别PERFORMFILL_CELLUSINGLI_ROW60ITAB-ICNUM.身份证号PERFORMFILL_CELL_LEFTUSINGLI_ROW70ITAB-GZDW.工作单位PERFORMFILL_CELL_LEFTUSINGLI_ROW80ITAB-STEXT.职务职级PERFORMFILL_CELL_LEFTUSINGLI_ROW90ITAB-HRSTE.人事主管单位PE

13、RFORMFILL_CELL_LEFTUSINGLI_ROW100ITAB-ZZMM.政治面貌PERFORMFILL_CELL_LEFTUSINGLI_ROW110ITAB-ORT01.户口所在地LI_ROW=LI_ROW+1.CLEARITAB.ENDLOOP.CLEARDATE.ENDFORM.第五部分：源程序-复杂性功能实现可贴主要功能代码部分INCLUDEZHRR0014_DATA_DECALRE.数据声明INCLUDEZHRR0014_EXCEL.EXCEL相关数据及程序INCLUDEZHRR0014_GET_DATA.数据获取INCLUDEZHRR0014_ALV_DISPLAY.

14、ALV输出INCLUDEZHRR0014_PRINT.打印及输出相关子程序INCLUDEZHRR0014_EVENT.程序的处理流程*&-*&包括ZHRR0014_DATA_DECALRE*&-*REPORTZHRR0014NOSTANDARDPAGEHEADINGMESSAGE-IDZHR01.TABLES:PERNR,HR主数据报告的标准选HRP1000,HRP1003,T7CN5R,政治面貌文本T001P,子范围文本T500P.人事范围文本INFOTYPES:0000,HR主记录:信息类别0000(事件)0001,人力资源主记录:信息类型0001(原始分配)0002,HR主记录:信息类型

15、0002(人员数据)0006,HR主记录:信息类型0006(地址)0185,HR主记录:信息类型0185Identification0534,人力资源主记录:信息类型0534(党派信息)政治面貌0528,人力资源主记录:信息类型0528（家庭信息）政治面貌1001,9007.HR主记录:信息类别9007专业技术资格等级DATAINDEXTYPEIVALUE0.DATA:BEGINOFITABOCCURS1,定义输出表BOX(1),NUMTYPESTRING,序号NAMETYPESTRING,姓名NACHNLIKEPA0002-NACHN,姓VORNALIKEPA0002-VORNA,名GBDA

16、T(8),出生日期GENER(2),性别ICNUMLIKEPA0185-ICNUM,身份证号GZDWTYPESTRING,工作单位RSFWLIKET500P-NAME1,人事范围RSZFWLIKET001P-BTEXT,人事子范围STEXTTYPESTRING,职务职级HRSTELIKEHRP1000-STEXT,人事主管部门ZZMM(40),政治面貌ORT01LIKEPA0006-ORT01,户口所在地PRIOXLIKEP1001-PRIOX,OBJIDLIKEHRP1000-OBJID,RYPXLIKEP0001-ZZHR_RYPX,PERNRLIKEP0001-PERNR,ENDOFIT

17、AB,WALIKELINEOFITAB.DEFINEM_MESSAGE.CASESY-SUBRC.WHEN0.WHENOTHERS.MESSAGEE000(ZHR01)WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDCASE.END-OF-DEFINITION.SELECTION-SCREEN:BEGINOFBLOCKA1WITHFRAMETITLETEXT-F01.PARAMETERSRSZGBMLIKEHRP1000-STEXT.人事主管部门SELECTION-SCREEN:ENDOFBLOCKA1.*&-*&包括ZHRR0014_EVENT*&-*STAR

18、T-OF-SELECTION.RP_SET_DATA_INTERVALP0001PN-BEGDAPN-ENDDA.GETPERNR.PERFORMGET_DATA.END-OF-SELECTION.PERFORMSORT_ITAB.PERFORMALV_DISPLAY.*&-*&包括ZHRR0014_EXCEL*&-*TYPE-POOLS:OLE2.DATA:P_FILENAMETYPESAPB-SAPPFAD.CONSTANTS:CS_PATH(3)TYPECVALUEC:,CO_OBJIDTYPEWWWDATATAB-OBJIDVALUEZHRR0014,打印格式CI_LINESOFPAG

19、ETYPEIVALUE17,每页打印行数CI_COLUMNSOFPAGETYPEIVALUE11,每页打印列数CI_DATAOFFSET_TOPTYPEIVALUE4,CI_DATAOFFSET_LEFTTYPEIVALUE0,CI_DATAOFFSET_RIGHTTYPEIVALUE2,CI_DATAOFFSET_BUTTOMTYPEIVALUE0,CI_DATALINESTYPEIVALUE14.每页打印数据条数DATA:LI_TOPTYPEI,LI_LEFTTYPEI,LI_RIGHTTYPEI,LI_BUTTOMTYPEI,LC_NUMTYPEI,FLAG_ROWTYPEI,标志行数F

20、LAG_COLTYPEI,标志列数LC_MODTYPEI,记录分页的模余数LI_LINESTYPEI.记录内表条数INCLUDEOLE2INCL.DATA:APPLICATIONTYPEOLE2_OBJECT,WORKBOOKTYPEOLE2_OBJECT,SHEETTYPEOLE2_OBJECT,COLUMNSTYPEOLE2_OBJECT,W_COMMENTTYPEOLE2_OBJECT,W_SHAPETYPEOLE2_OBJECT,ROWSTYPEOLE2_OBJECT,RANGETYPEOLE2_OBJECT,H_FTYPEOLE2_OBJECT,fontCELLS1TYPEOLE2_

21、OBJECT,EXCELTYPEOLE2_OBJECT,CELLSTYPEOLE2_OBJECT.DATA:GI_PAGENOTYPEIVALUE0.CURRENTPAGENODATA:GI_PAGENO_COPYTYPEIVALUE0.CURRENTPAGENODATA:LC_GI_PAGENO_COPY(2)TYPEC.DATA:PAGENOTYPEIVALUE0.DATA:LC_PAGENO(2)TYPEC.DATA:PAGE(6)TYPEC.DATA:I(3)TYPEPDECIMALS2.*&-*&FormFRM_PROCESS_DICATOR*&-*text*-*-TEXTtext*-PERCENTAGEtext*-