下载文档原格式
职工花名册(标准模板)1. 背景职工花名册是一份记录公司所有员工信息的文档。
它包括每位员工的基本信息，如姓名、职位、入职日期和员工编号等。
花名册的制作和更新有助于公司管理人力资源，提供及时准确的员工信息。
2. 文档要求- 文档使用标准模板，确保格式一致性。
- 文档至少包括以下字段：- 员工编号- 姓名- 性别- 职位- 入职日期- 所属部门- 可根据需要添加其他相关字段，如联系方式、工作地点等。
3. 制作步骤3.1 准备模板- 根据公司需求，创建合适的职工花名册模板。
- 确保模板中包含上述所需字段。
- 模板格式清晰简洁，方便信息录入和浏览。
3.2 收集员工信息- 从相关部门或人力资源部门收集员工信息。
- 确保信息收集准确完整，包括姓名、性别、职位、入职日期和所属部门等重要信息。
3.3 填写花名册- 将收集到的员工信息按照模板要求填写到职工花名册中。
- 根据员工信息的正确性和准确性进行核对，确保填写正确。
4. 更新管理4.1 入职新员工- 当有新员工入职时，及时更新职工花名册，添加新员工信息。
- 确保信息录入准确，避免信息遗漏或错误。
4.2 离职员工处理- 当有员工离职时，及时将其信息从职工花名册中删除。
- 同步更新员工状态，确保花名册的准确性。
4.3 定期审核- 定期对职工花名册进行审核，核对员工信息的准确性和完整性。
- 如有错误或遗漏，及时进行修正。
5. 保密性和数据安全- 职工花名册包含员工的重要信息，要严格保密。
- 建议将职工花名册保存在安全的服务器或数据库中，只授权特定人员访问。
6. 总结职工花名册是一份重要的人力资源管理文档，有助于公司管理和维护员工信息的准确性。
制作标准模板，并通过定期更新和审核，可以确保花名册的有效性和高质量。
同时，注意保密性和数据安全，确保员工信息不被泄露或滥用。
员工点名册一、基本信息公司名称：XXX有限公司公司地址：XXX市XXX区XXX路XXX号成立时间：XXXX年XX月XX日经营范围：XXX、XXX、XXX等组织结构：总经理办公室、人力资源部、财务部、生产部、市场部、技术部等二、员工名单1. 张三，男，25岁，人力资源部，新员工，联系方式：XXX。
2. 李四，女，28岁，财务部，资深员工，联系方式：XXX。
3. 王五，男，32岁，生产部，中层管理人员，联系方式：XXX。
4. 赵六，女，27岁，市场部，新员工，联系方式：XXX。
5. 刘七，男，35岁，技术部，资深员工，联系方式：XXX。
6. 钱八，女，30岁，人力资源部，中层管理人员，联系方式：XXX。
7. 孙九，男，29岁，生产部兼市场部，新员工，联系方式：XXX。
8. 周十，女，34岁，财务部兼技术部，资深员工，联系方式：XXX。
三、岗位职责1. 张三：人力资源管理工作，包括招聘、培训、绩效考核等。
2. 李四：财务管理工作，包括会计、出纳、税务等。
3. 王五：生产管理工作，包括生产计划、生产现场管理、质量监控等。
4. 赵六：市场调研、开拓及客户关系管理。
5. 刘七：技术研发、技术支持及售后服务。
6. 钱八：人力资源管理工作中的员工关系处理、薪酬福利管理等。
7. 孙九：生产与市场工作的结合，负责生产与市场的协调与沟通。
8. 周十：财务管理与技术工作的结合，负责财务与技术的协调与沟通。
四、绩效考核标准及奖惩制度1. 绩效考核标准：根据员工的工作完成情况、工作质量、工作效率等方面进行综合评价。
2. 奖惩制度：表现优秀的员工将给予奖金、晋升等奖励；表现不佳的员工将给予批评、扣发奖金等处罚。
五、注意事项1. 员工应按时上下班，遵守公司规章制度。
2. 员工应积极工作，勇于承担责任，提高工作效率。
3. 员工应保持良好的工作态度和精神状态，避免出现消极怠工等现象。
4. 员工之间应保持良好的沟通与协作，共同完成工作任务。
公司员工花名册模板一、引言花名册是每个公司都必备的员工信息管理工具，它记录了公司所有员工的基本信息，并起到了统一管理、查找、查询员工信息的作用。
为了提高工作效率，许多公司采用花名册模板来快速建立并维护员工花名册。
本文将介绍一个公司员工花名册模板的基本要素和使用方法。
二、公司员工花名册模板的基本要素1. 员工个人信息员工个人信息是花名册的核心内容，包括员工的姓名、性别、出生日期、身份证号码、婚姻状况、联系电话、邮箱地址等。
这些信息是公司对员工进行个体化管理和联系的重要基础。
2. 员工部门信息员工部门信息记录了员工所属部门的名称和编号，这有助于快速定位员工的工作范围和职责。
此外，还可以追踪员工在不同部门之间的变动和调动情况。
3. 员工职位信息员工职位信息记录了员工的职位名称和职位级别，这有助于了解员工在公司内部的职业发展和晋升情况。
同时，职位信息也有助于公司进行薪酬管理和绩效考核。
4. 员工入职信息员工入职信息包括员工的入职日期、试用期结束日期、薪资待遇、入职资料等。
这些信息可以帮助公司进行员工的福利管理和培训发展计划。
5. 员工离职信息员工离职信息记录了员工的离职日期、离职原因、是否签订离职协议等。
这些信息可作为公司扩大或减少员工规模时的参考依据，还有助于评估公司的员工流动情况。
三、公司员工花名册模板的使用方法1. 下载合适的员工花名册模板可以从互联网上下载或购买成熟的员工花名册模板，确保模板的格式和内容满足公司的需求。
花名册模板通常可以在Excel或其他电子表格软件中进行编辑和管理。
2. 输入员工个人信息在花名册模板中，按照所定义的字段，逐个输入员工的个人信息，确保信息的准确性和完整性。
对于某些人事管理软件，也可以通过导入数据或批量添加的方式来快速录入员工信息。
3. 更新员工信息在员工入职、晋升、离职等变动时，及时更新员工花名册中的相关信息。
保持花名册的及时性和准确性，有助于提高人力资源管理的效率和可靠性。
HR⼈员花名册报表创建程序时要设置逻辑数据库以下例⼦为PNPCE数据库主逻辑*&---------------------------------------------------------------------**& Report ZHRPA001*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ZHRPA001 MESSAGE-ID ZSAP_HR NO STANDARD PAGE HEADING.TABLES: PERNR.NODES:PERAS.INFOTYPES : 0000,0001,0002,0006,0007,0016,0022,0041,0105,0185,0009,3527,3529,9002,9003,9006,9018,9019,9021,9022,9504.TYPE-POOLS : SLIS.*&---------------------------------------------------------------------** INCLUDE*&---------------------------------------------------------------------*INCLUDE ZHRI0001D1.INCLUDE ZHRPA001_DATA.INCLUDE ZHRPA001_SCL.INCLUDE ZHRPA001_FRM.INCLUDE ZHRPA001_EXL.*----------------------------------------------------------------------** INITIALIZATION 选择屏幕初始化处理*----------------------------------------------------------------------*INITIALIZATION.PNPSTAT2-LOW = '3'.APPEND PNPSTAT2.*----------------------------------------------------------------------** START-OF-SELECTION*----------------------------------------------------------------------*START-OF-SELECTION.PERFORM FRM_READ_TEXT.GET PERAS.PERFORM FRM_GET_DATA.END-OF-SELECTION."获取部门PERFORM FRM_PROCESS_DATA."更改⽇期格式PERFORM FRM_PROCESS_DAT.PERFORM FRM_INDICATOR." USING'' I_PROG. "界⾯友好PERFORM FRM_DISPLAY_ALV.View Code包含⽂件ZHRI0001D1*&---------------------------------------------------------------------**& 包含 ZHRI0001D1*&---------------------------------------------------------------------**&---------------------------------------------------------------------**& Include ZHRI0001D1*&---------------------------------------------------------------------*INCLUDE OLE2INCL.DEFINE MCR_MESSAGE.CASE sy-subrc.WHEN 0.WHEN OTHERS.MESSAGE e000WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDCASE.END-OF-DEFINITION.DATA: APPLICATION TYPE OLE2_OBJECT,WORKBOOK TYPE OLE2_OBJECT,SHEET TYPE OLE2_OBJECT,COLUMNS TYPE OLE2_OBJECT,W_COMMENT TYPE OLE2_OBJECT,W_SHAPE TYPE OLE2_OBJECT,ROWS TYPE OLE2_OBJECT,H_F TYPE OLE2_OBJECT, " FONTCELLS1 TYPE OLE2_OBJECT,* ADD FOR CELLS COLORSELECTIONT TYPE OLE2_OBJECT,INTERIOR TYPE OLE2_OBJECT,BORDERS TYPE OLE2_OBJECT,* END ADDCELLS TYPE OLE2_OBJECT,PAG_BREAK TYPE OLE2_OBJECT.DATA: G_6_PAGENO TYPE I VALUE 0. "当前页码，⽤于分页DATA: G_6_PAGENO_COPY TYPE I VALUE 0. "*DATA: P_FILENAME TYPE SAPB-SAPPFAD,DATA: P_FILENAME TYPE STRING,G_6_PATH TYPE STRING.DATA: G_6_ROW TYPE I , "默认⼀次粘贴1000⾏G_6_ROW_BEGIN TYPE I , "开始粘贴的⾏ G_6_LEFT TYPE STRING,G_6_RIGHT TYPE STRING.RANGES: GI_LINE FOR SY-TABIX.TYPES: BEGIN OF TYP_S_SENDERLINE ,LINE(4096) TYPE C,END OF TYP_S_SENDERLINE.TYPES: TYP_T_SENDER TYPE TYP_S_SENDERLINE OCCURS0. DATA: ITB_EXCEL_TAB TYPE TYP_S_SENDERLINE OCCURS0 . DATA: WA_EXCEL TYPE TYP_S_SENDERLINE .DATA: G_6_SEPARATOR TYPE C.View Code包含⽂件ZHRPA001_DATA*&---------------------------------------------------------------------**& 包含 ZHRPA001_DATA*&---------------------------------------------------------------------*DATA : BEGIN OF GT_OUT OCCURS0,CELLCOLOR TYPE LVC_T_SCOL, "单元格颜⾊PERNR TYPE PA0000-PERNR, "⼈员编号USRID1 TYPE PA0105-USRID, "⼯号CNAME TYPE PA0002-CNAME, "姓名GESCH TYPE PA0002-GESCH, "性别GESCH2(2) TYPE C, "性别textBUKRS TYPE CHAR40, "公司代码ORGEH TYPE PA0001-ORGEH, "部门代码ORGTX TYPE T527X-ORGTX,ZZ_YJJG TYPE CHAR100, "集团ZZ_YJJG2 TYPE CHAR40, "⼀级机构中⽂描述ZZ_YJJG3 TYPE CHAR40, "⼆级机构中⽂描述ZZ_YJJG4 TYPE CHAR100, "三级机构中⽂描述ZZ_YJJG5 TYPE CHAR100, "四级机构中⽂描述PLANS(40) TYPE C, "职位PLANSN TYPE P0001-PLANS, "职位编码ZZ_GWZU TYPE PA9002-ZZ_ZWZZ, "职族ZZ_GWZL TYPE P9504-ZZ_GWZL, "职类ZZ_ZZZJ TYPE PA9002-ZZ_ZZZJ, "职级ZZ_ZJSJBH(8) TYPE C, "直线汇报⼈编号ZZ_ZJSJ(8) TYPE C, "直线汇报⼈ZZ_DSBHBH(8) TYPE C, "导师编号ZZ_DSBH(8) TYPE C, "导师STAT2(6) TYPE C, "员⼯状态SJZZRQ TYPE DATS, "实际转正⽇期SJZZRQ1 TYPE CHAR20, "实际转正⽇期SFYZZ(2) TYPE C, "是否转正标识DAT01 TYPE DATS, "⼊职时间DAT011 TYPE CHAR20, "⼊职时间DAT02 TYPE DATS, "预计转正时间DAT021 TYPE CHAR20, "预计转正时间DAT03 TYPE DATS, "⾸次参加⼯作⽇期DAT031 TYPE CHAR20, "⾸次参加⼯作⽇期BEGDA2 TYPE PA9003-BEGDA, "离职时间BEGDA21 TYPE CHAR20, "离职时间SUBTY(12) TYPE C, "学历SLABS(10) TYPE C, "学位INSMO(4) TYPE C, "学习⽅式XXXS(4) TYPE C,FACH3 TYPE PA3529-FACH3, "所学专业INSTI TYPE PA0022-INSTI, "院校培训机构名称ENDDA2 TYPE CHAR20,"PA0022-ENDDA, "毕业时间ZZ_HDZC TYPE PA9019-ZZ_HDZC, "获得职称ZZ_ZCDJ TYPE CHAR10, "职称级别USETO TYPE PA0185-USETO, "⾝份证失效⽇期USETO1 TYPE CHAR20, "⾝份证失效⽇期GBDAT TYPE DATS, "出⽣⽇期GBDAT1 TYPE CHAR20, "出⽣⽇期DISP_AGE TYPE I, "年龄FAMST(4) TYPE C, "婚姻状况ZZ_MZT TYPE DDTEXT, "民族⽂本LOCAT TYPE PA0006-LOCAT, "户⼝所在地HUKOT(6) TYPE C, "户⼝性质ZZ_ZPQD(12) TYPE C, "招聘来源PERSG(8) TYPE C, "员⼯组PERSK(22) TYPE C, "员⼯⼦组CTTYP(12) TYPE C, "合同类型ZZ_QXLX(18) TYPE C, "合同期限分类BEGDA3 TYPE CHAR20, "本期合同开始⽇期ENDDA3 TYPE CHAR20, "本期合同结束⽇期SHAGE TYPE I, "社会⼯龄SLAGE(5) TYPE C, "司龄LOCAT2 TYPE PA0006-LOCAT, "驻外地区ZZ_CZGZD(50) TYPE C, "常驻⼯作地点ZZ_SJGZD(40) TYPE C, "实际⼯作地点LOCAT3 TYPE PA0006-LOCAT, "社保缴纳地KOSTL TYPE PA0001-KOSTL, "发薪成本中⼼号LOCAT4 TYPE PA0006-LOCAT, "现家庭住址USRID TYPE PA0105-USRID, "联系⽅式USRID2 TYPE PA0105-USRID, "电⼦邮件ZZ_JJLXR TYPE PA0105-USRTY, "紧急联系⼈USRID3 TYPE PA0105-USRID, "紧急联系⼈联系⽅式BEGDA4 TYPE DATS, "最后⼯作⽇期BEGDA41 TYPE CHAR20, "最后⼯作⽇期ZZ_JCFS TYPE PA0016-ZZ_JCFS, "解除合同⽅式MASSG(80) TYPE C, "操作原因ZZ_LZXL(80) TYPE C, "离职原因BEGDA5 TYPE PA0022-BEGDA,ENDDA4 TYPE PA0022-ENDDA,ZZ_JGCJ TYPE CHAR40,ZZ_ZGSF TYPE GBDEP, "籍贯省份ZZ_ZGSFMS(50) TYPE C, "籍贯省份描述ZZ_GSDM TYPE BUKRS,ZZ_GSDMT TYPE CHAR50,ZZ_LWSSGS TYPE ZZ_LWSSGS, "⽤⼯形式SNO TYPE I, "序号ZWECK TYPE PA0009-ZWECK, "开户⾏BKREF TYPE PA0009-BKREF, "银⾏账号SCHKZ TYPE PA0007-SCHKZ, "⼯作班次ABKRS TYPE PA0001-ABKRS, "⼯资范围ZGSYX TYPE PA0105-USRID, "公司邮箱END OF GT_OUT.DATA : BEGIN OF GT_0027 OCCURS0. "成本中⼼0027 INCLUDE STRUCTURE P0027.DATA : END OF GT_0027.DATA: GT_HRP9504 TYPE TABLE OF HRP9504,GT_HRP9502 TYPE TABLE OF HRP9502,GT_PA0002 TYPE TABLE OF PA0002,GT_T527X TYPE TABLE OF T527X,GT_ZHR_LZYY TYPE TABLE OF ZHR_LZYY.* GT_9504 TYPE TABLE OF ZHR_GWGF.DATA: GT_OBJID LIKE TABLE OF ZHRS_ORGEH WITH HEADER LINE. DATA GT_T500P LIKE TABLE OF T500P WITH HEADER LINE.DATA GT_T001 LIKE TABLE OF T001 WITH HEADER LINE.DATA GT_HRP1000 LIKE TABLE OF HRP1000 WITH HEADER LINE. DATA GT_HRP1000A LIKE TABLE OF HRP1000 WITH HEADER LINE. DATA GT_PA0041 LIKE TABLE OF PA0041 WITH HEADER LINE. DATA GT_ZHR_CZDD LIKE TABLE OF ZHR_CZDD WITH HEADER LINE. DATA LT_T501T LIKE TABLE OF T501T WITH HEADER LINE.DATA LT_T503T LIKE TABLE OF T503T WITH HEADER LINE.DATA LT_T530T LIKE TABLE OF T530T WITH HEADER LINE.DATA LT_DD07T LIKE TABLE OF DD07T WITH HEADER LINE.DATA LT_T547S LIKE TABLE OF T547S WITH HEADER LINE.DATA LT_T517T LIKE TABLE OF T517T WITH HEADER LINE.DATA LT_T519T LIKE TABLE OF T519T WITH HEADER LINE.DATA LT_BNKA_BF LIKE TABLE OF BNKA_BF WITH HEADER LINE. DATA LT_T005U LIKE TABLE OF T005U WITH HEADER LINE.DATA LT_0000 LIKE TABLE OF PA0000 WITH HEADER LINE.DATA LT_PA0022 LIKE TABLE OF PA0022 WITH HEADER LINE. DATA LT_PA3529 LIKE TABLE OF PA3529 WITH HEADER LINE. DATA: GT_CELLCOLOR TYPE LVC_T_SCOL,GS_CELLCOLOR TYPE LVC_S_SCOL.*---ALV 相关定义DATA: GT_FIELD TYPE LVC_T_FCAT,GS_FIELD TYPE LVC_S_FCAT.GS_FIELD2 TYPE LVC_S_FCAT.DATA: GS_LAYOUT TYPE LVC_S_LAYO.DATA: GR_GRID TYPE REF TO CL_GUI_ALV_GRID.DATA LV_0000 TYPE DATS.*---EXL导出相关DATA : BEGIN OF GT_EXL OCCURS0,PERNR TYPE PA0000-PERNR, "⼈员编号USRID1 TYPE PA0105-USRID, "⼯号CNAME TYPE PA0002-CNAME, "姓名GESCH TYPE PA0002-GESCH, "性别GESCH2(2) TYPE C, "性别textBUKRS TYPE CHAR40, "公司代码ORGEH TYPE PA0001-ORGEH, "部门代码ORGTX TYPE T527X-ORGTX,ZZ_YJJG TYPE CHAR100, "集团ZZ_YJJG2 TYPE CHAR40, "⼀级机构中⽂描述ZZ_YJJG3 TYPE CHAR40, "⼆级机构中⽂描述ZZ_YJJG4 TYPE CHAR100, "三级机构中⽂描述ZZ_YJJG5 TYPE CHAR100, "四级机构中⽂描述PLANS(40) TYPE C, "职位PLANSN TYPE P0001-PLANS, "职位编码ZZ_GWZU TYPE PA9002-ZZ_ZWZZ, "职族ZZ_GWZL TYPE P9504-ZZ_GWZL, "职类ZZ_ZZZJ TYPE PA9002-ZZ_ZZZJ, "职级ZZ_ZJSJBH(8) TYPE C, "直线汇报⼈编号ZZ_ZJSJ(8) TYPE C, "直线汇报⼈ZZ_DSBHBH(8) TYPE C, "导师编号ZZ_DSBH(8) TYPE C, "导师STAT2(6) TYPE C, "员⼯状态SJZZRQ1 TYPE CHAR20, "实际转正⽇期SFYZZ(2) TYPE C, "是否转正标识* DAT01 TYPE DATS, "⼊职时间DAT011 TYPE CHAR20, "⼊职时间* DAT02 TYPE DATS, "预计转正时间DAT021 TYPE CHAR20, "预计转正时间* DAT03 TYPE DATS, "⾸次参加⼯作⽇期DAT031 TYPE CHAR20, "⾸次参加⼯作⽇期* BEGDA2 TYPE PA9003-BEGDA, "离职时间BEGDA21 TYPE CHAR20, "离职时间SUBTY(12) TYPE C, "学历SLABS(10) TYPE C, "学位INSMO(4) TYPE C, "学习⽅式XXXS(4) TYPE C,FACH3 TYPE PA3529-FACH3, "所学专业INSTI TYPE PA0022-INSTI, "院校培训机构名称ENDDA2 TYPE CHAR20,"PA0022-ENDDA, "毕业时间 ZZ_HDZC TYPE PA9019-ZZ_HDZC, "获得职称ZZ_ZCDJ TYPE CHAR10, "职称级别ICNUM TYPE PA0185-ICNUM, "⾝份证USETO1 TYPE CHAR20, "⾝份证失效⽇期* GBDAT TYPE DATS, "出⽣⽇期GBDAT1 TYPE CHAR20, "出⽣⽇期DISP_AGE TYPE I, "年龄FAMST(4) TYPE C, "婚姻状况ZZ_MZT TYPE DDTEXT, "民族⽂本LOCAT TYPE PA0006-LOCAT, "户⼝所在地HUKOT(6) TYPE C, "户⼝性质ZZ_ZPQD(12) TYPE C, "招聘来源PERSG(8) TYPE C, "员⼯组PERSK(22) TYPE C, "员⼯⼦组CTTYP(12) TYPE C, "合同类型ZZ_QXLX(18) TYPE C, "合同期限分类BEGDA3 TYPE CHAR20, "本期合同开始⽇期ENDDA3 TYPE CHAR20, "本期合同结束⽇期SHAGE TYPE I, "社会⼯龄SLAGE(5) TYPE C, "司龄LOCAT2 TYPE PA0006-LOCAT, "驻外地区ZZ_CZGZD(50) TYPE C, "常驻⼯作地点ZZ_SJGZD(40) TYPE C, "实际⼯作地点LOCAT3 TYPE PA0006-LOCAT, "社保缴纳地KOSTL TYPE PA0001-KOSTL, "发薪成本中⼼号LOCAT4 TYPE PA0006-LOCAT, "现家庭住址USRID TYPE PA0105-USRID, "联系⽅式USRID2 TYPE PA0105-USRID, "电⼦邮件ZZ_JJLXR TYPE PA0105-USRTY, "紧急联系⼈USRID3 TYPE PA0105-USRID, "紧急联系⼈联系⽅式* BEGDA4 TYPE DATS, "最后⼯作⽇期BEGDA41 TYPE CHAR20, "最后⼯作⽇期ZZ_JCFS TYPE PA0016-ZZ_JCFS, "解除合同⽅式MASSG(80) TYPE C, "操作原因ZZ_LZXL(80) TYPE C, "离职原因BEGDA5 TYPE PA0022-BEGDA,ENDDA4 TYPE PA0022-ENDDA,ZZ_JGCJ TYPE CHAR40,ZZ_ZGSFMS(50) TYPE C, "籍贯省份描述ZZ_GSDM TYPE BUKRS,ZZ_GSDMT TYPE CHAR50,ZZ_LWSSGS TYPE ZZ_LWSSGS, "⽤⼯形式SNO TYPE I, "序号ZWECK TYPE PA0009-ZWECK, "开户⾏BKREF TYPE PA0009-BKREF, "银⾏账号SCHKZ TYPE PA0007-SCHKZ, "⼯作班次ABKRS TYPE PA0001-ABKRS, "⼯资范围ZGSYX TYPE PA0105-USRID, "公司邮箱END OF GT_EXL.DEFINE MCR_MESSAGE.CASE SY-SUBRC.WHEN 0.WHEN OTHERS.MESSAGE E000(ZSAP_HR)WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDCASE.END-OF-DEFINITION.DATA: I_PROG TYPE I,I_PROG2 TYPE I.View Code包含⽂件ZHRPA001_SCL*&---------------------------------------------------------------------**& 包含 ZHRPA001_SCL*&---------------------------------------------------------------------*SELECTION-SCREEN BEGIN OF BLOCK BKA WITH FRAME TITLE TEXT-B01. SELECT-OPTIONS: P_DAT FOR SY-DATUM NO-EXTENSION.SELECT-OPTIONS: P_LZRQ FOR SY-DATUM NO-EXTENSION.SELECT-OPTIONS: P_SFYZZ FOR GT_OUT-SFYZZ NO-EXTENSION NO INTERVALS. SELECTION-SCREEN END OF BLOCK BKA .AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SFYZZ-LOW.PERFORM FRM_SEARCH_HELP_FOR_PSTEN.*添加屏幕搜索帮助FORM FRM_SEARCH_HELP_FOR_PSTEN .TYPES:BEGIN OF TY_STR_VALUE_TAB,STAT TYPE JEST-STAT, "审批状态判断条件END OF TY_STR_VALUE_TAB.DATA: LT_VALUE_TAB TYPE TABLE OF TY_STR_VALUE_TAB,LS_VALUE_TAB TYPE TY_STR_VALUE_TAB.CLEAR LT_VALUE_TAB.APPEND LS_VALUE_TAB TO LT_VALUE_TAB.LS_VALUE_TAB-STAT = '是'.APPEND LS_VALUE_TAB TO LT_VALUE_TAB.LS_VALUE_TAB-STAT = '否'.APPEND LS_VALUE_TAB TO LT_VALUE_TAB.CALL FUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'EXPORTING* DDIC_STRUCTURE = ' 'RETFIELD = 'STAT'"搜索帮助内表要输出的的帮助字段名* PVALKEY = 'SPZT'DYNPPROG = SY-REPID "程序名DYNPNR = SY-DYNNR "屏幕号DYNPROFIELD = 'P_SFYZZ'"存储返回值* STEPL = 0* WINDOW_TITLE =* VALUE = ' 'VALUE_ORG = 'S'* MULTIPLE_CHOICE = ' '* DISPLAY = ' '* CALLBACK_PROGRAM = ' '* CALLBACK_FORM = 'cb_form'* CALLBACK_METHOD =* MARK_TAB =* IMPORTING* USER_RESET =TABLESVALUE_TAB = LT_VALUE_TAB* FIELD_TAB = lt_value_tab* RETURN_TAB =* DYNPFLD_MAPPING =EXCEPTIONSPARAMETER_ERROR = 1NO_VALUES_FOUND = 2IF SY-SUBRC <> 0.* Implement suitable error handling hereENDIF.ENDFORM.View Code包含⽂件ZHRPA001_FRM*&---------------------------------------------------------------------**& 包含 ZHRPA001_FRM*&---------------------------------------------------------------------**&---------------------------------------------------------------------**& Form FRM_GET_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------*FORM FRM_GET_DATA.DATA: LV_YEARS TYPE I,LV_YEARS2 TYPE I,LV_YEARS3 TYPE I.DATA: LV_MONTH TYPE I.DATA: LV_SILING TYPE P DECIMALS 2.DATA: MESSAGE_HANDLER TYPE REF TO IF_HRPA_MESSAGE_HANDLER. DATA LV_BEGDA TYPE BEGDA.DATA LV_ENDDA TYPE ENDDA.DATA LV_ENDDA02 TYPE ENDDA.DATA LV_VDATE TYPE DATS.CHECK PERNR-PERNR NE'90010175'.CHECK PERNR-PERNR NE'90010176'.IF PN-BEGDA = '18000101'AND PN-ENDDA = '99991231'.LV_BEGDA = SY-DATUM.LV_ENDDA = SY-DATUM.ELSE.LV_BEGDA = PN-BEGDA.LV_ENDDA = PN-ENDDA.ENDIF.*---⼈员编号GT_OUT-PERNR = PERNR-PERNR.*---⼯作班次RP_PROVIDE_FROM_LAST P0007 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.GT_OUT-SCHKZ = P0007-SCHKZ.ENDIF.*----P0009相关RP_PROVIDE_FROM_LAST P0009 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.GT_OUT-BKREF = P0009-BKREF.READ TABLE LT_BNKA_BF WITH KEY BANKL = P0009-BANKL.IF SY-SUBRC = 0.GT_OUT-ZWECK = LT_BNKA_BF-BANKA.ENDIF.ENDIF.*----P0000相关RP_PROVIDE_FROM_LAST P0000 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.IF P0000-STAT2 = '0'.GT_OUT-STAT2 = '离职'. "⼈员状态GT_OUT-BEGDA2 = P0000-BEGDA. "离职⽇期GT_OUT-BEGDA4 = P0000-BEGDA - 1. "最后⼯作⽇期READ TABLE LT_T530T WITH KEY MASSG = P0000-MASSG.IF SY-SUBRC = 0.GT_OUT-MASSG = LT_T530T-MGTXT. "操作原因ENDIF.ELSEIF P0000-STAT2 = '1'.GT_OUT-STAT2 = '不活动'. "⼈员状态ELSEIF P0000-STAT2 = '2'.GT_OUT-STAT2 = '退休'. "⼈员状态ELSEIF P0000-STAT2 = '3'.GT_OUT-STAT2 = '在职'. "⼈员状态CLEAR GT_OUT-MASSG.ENDIF.IF P0000-STAT2 = '0'.EXPORTINGDATE = GT_OUT-BEGDA2DAYS = '1'MONTHS = 0SIGNUM = '-'YEARS = 0IMPORTINGCALC_DATE = LV_VDATE.CALL FUNCTION'ZHR_ZJZW_STEST'EXPORTINGPERNR = PERNR-PERNRBEGDA = LV_VDATEENDDA = LV_VDATEIMPORTINGSTEXT = GT_OUT-PLANS "职位ZZ_ZWBM = GT_OUT-PLANSN. "职位编码ELSE.CALL FUNCTION'ZHR_ZJZW_STEST'EXPORTINGPERNR = PERNR-PERNRBEGDA = PN-BEGDAENDDA = PN-ENDDAIMPORTINGSTEXT = GT_OUT-PLANS "职位ZZ_ZWBM = GT_OUT-PLANSN. "职位编码ENDIF.ENDIF.RP_PROVIDE_FROM_LAST P0001 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.GT_OUT-ZZ_GSDM = P0001-WERKS. "公司代码READ TABLE GT_T500P WITH KEY PERSA = P0001-WERKS.IF SY-SUBRC = 0.GT_OUT-ZZ_GSDMT = GT_T500P-NAME1.ENDIF.GT_OUT-ABKRS = P0001-ABKRS. "⼯资范围ENDIF.*---PA0001相关RP_PROVIDE_FROM_LAST P0016 SPACE PN-BEGDA PN-ENDDA.RP_PROVIDE_FROM_LAST P0001 SPACE PN-BEGDA PN-ENDDA.IF P0001-ORGEH IS INITIAL.SORT P0001 BY BEGDA DESCENDING.READ TABLE P0001 INDEX 2.* gt_out-orgeh = p0001-orgeh.ENDIF.GT_OBJID-OBJID = P0001-ORGEH.APPEND GT_OBJID.READ TABLE GT_T001 WITH KEY BUKRS = P0016-ZZ_HTGS.IF SY-SUBRC = 0.GT_OUT-BUKRS = GT_T001-BUTXT.ENDIF.GT_OUT-ORGEH = P0001-ORGEH. "部门代码GT_OUT-ZZ_LWSSGS = P0001-ZZ_LWSSGS. "劳务所属公司IF GT_OUT-ZZ_LWSSGS = ''.GT_OUT-ZZ_LWSSGS = '⾃有'.ENDIF.READ TABLE GT_HRP1000 WITH KEY OTYPE = 'O'OBJID = GT_OUT-ORGEH.IF SY-SUBRC = 0.GT_OUT-ORGTX = GT_HRP1000-STEXT.ENDIF.READ TABLE GT_ZHR_CZDD WITH KEY ZZ_CZDBM = P0001-ZZ_CZGZD. IF SY-SUBRC = 0.GT_OUT-ZZ_CZGZD = GT_ZHR_CZDD-ZZ_CZDMC.ENDIF."实际⼯作地RP_PROVIDE_FROM_LAST P0006 '04' PN-BEGDA PN-ENDDA.GT_OUT-ZZ_SJGZD = P0006-LOCAT.GT_OUT-KOSTL = P0001-KOSTL. "发薪成本中⼼号READ TABLE LT_T501T WITH KEY PERSG = P0001-PERSG.IF SY-SUBRC = 0.GT_OUT-PERSG = LT_T501T-PTEXT.ENDIF.READ TABLE LT_T503T WITH KEY PERSK = P0001-PERSK.GT_OUT-PERSK = LT_T503T-PTEXT.ENDIF.* ENDIF.*---P0027相关READ TABLE GT_0027 WITH KEY PERNR = PERNR-PERNR.IF SY-SUBRC = 0.GT_OUT-KOSTL = GT_0027-KST01. "个⼈成本中⼼覆盖部门成本中⼼ENDIF.LOOP AT P0000 WHERE MASSN = 'ZB'.IF P0000-BEGDA IS NOT INITIAL.GT_OUT-SJZZRQ = P0000-BEGDA.GT_OUT-SJZZRQ1 = P0000-BEGDA.ENDIF.ENDLOOP.IF GT_OUT-SJZZRQ IS INITIAL.CALL FUNCTION'HR_ECM_GET_DATETYP_FROM_IT0041'EXPORTINGPERNR = GT_OUT-PERNRKEYDT = LV_BEGDADATAR = '04'MESSAGE_HANDLER = MESSAGE_HANDLERIMPORTINGDATE = GT_OUT-SJZZRQ.IF GT_OUT-SJZZRQ IS NOT INITIAL.GT_OUT-SJZZRQ1 = GT_OUT-SJZZRQ.ENDIF.* READ TABLE GT_PA0041 WITH KEY pernr = pernr-pernr.* IF SY-SUBTY = 0.* gt_out-sjzzrq = GT_PA0041-DAT04.* ENDIF.ENDIF.IF GT_OUT-SJZZRQ < SY-DATUM AND GT_OUT-SJZZRQ <> '00000000'.GT_OUT-SFYZZ = '是'.ELSE.GT_OUT-SFYZZ = '否'.ENDIF.*---PA0002相关RP_PROVIDE_FROM_LAST P0002 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.GT_OUT-ZZ_DSBHBH = P0002-ZZ_DSBH.READ TABLE LT_DD07T WITH KEY DOMVALUE_L = P0002-ZZ_MZDOMNAME = 'ZZ_MZ'.IF SY-SUBRC = 0.GT_OUT-ZZ_MZT = LT_DD07T-DDTEXT.ENDIF.READ TABLE LT_0000 WITH KEY PERNR = GT_OUT-ZZ_DSBHBH.IF SY-SUBRC = 0.CLEAR: GT_CELLCOLOR, GS_CELLCOLOR.GS_CELLCOLOR-FNAME = 'ZZ_DSBHBH'. "定位⾏中需要上⾊的单元格GS_CELLCOLOR-COLOR-COL = 6. "颜⾊种类GS_CELLCOLOR-COLOR-INT = 1. "颜⾊浅深GS_CELLCOLOR-COLOR-INV = 1. "相反：⽂字显⽰颜⾊,单元格背景不显⽰APPEND GS_CELLCOLOR TO GT_CELLCOLOR.GT_OUT-CELLCOLOR = GT_CELLCOLOR.* CLEAR: GT_CELLCOLOR, GS_CELLCOLOR.GS_CELLCOLOR-FNAME = 'ZZ_DSBH'. "定位⾏中需要上⾊的单元格GS_CELLCOLOR-COLOR-COL = 6. "颜⾊种类GS_CELLCOLOR-COLOR-INT = 1. "颜⾊浅深GS_CELLCOLOR-COLOR-INV = 1. "相反：⽂字显⽰颜⾊,单元格背景不显⽰APPEND GS_CELLCOLOR TO GT_CELLCOLOR.GT_OUT-CELLCOLOR = GT_CELLCOLOR.ENDIF.READ TABLE GT_PA0002 INTO DATA(GS_PA0002) WITH KEY PERNR = P0002-ZZ_DSBH. IF SY-SUBRC = 0.GT_OUT-ZZ_DSBH = GS_PA0002-NACHN.ENDIF.GT_OUT-CNAME = P0002-NACHN. "姓名IF P0002-GESCH EQ1.GT_OUT-GESCH2 = '男'. "性别ELSEIF P0002-GESCH EQ2.GT_OUT-GESCH2 = '⼥'.ENDIF.GT_OUT-GBDAT = P0002-GBDAT. "出⽣⽇期GT_OUT-FAMST = '未婚'. "婚姻状态ELSEIF P0002-FAMST = 1.GT_OUT-FAMST = '已婚'.ELSEIF P0002-FAMST = 2.GT_OUT-FAMST = '离婚'.ELSEIF P0002-FAMST = 3.GT_OUT-FAMST = '丧偶'.ELSEIF P0002-FAMST = 4.GT_OUT-FAMST = '⽆'.ENDIF.READ TABLE LT_DD07T WITH KEY DOMVALUE_L = P0002-ZZ_ZPQDDOMNAME = 'ZZ_ZPQD'.IF SY-SUBRC = 0.GT_OUT-ZZ_ZPQD = LT_DD07T-DDTEXT.ENDIF.GT_OUT-ZZ_ZGSF = P0002-GBDEP. "籍贯省份READ TABLE LT_T005U WITH KEY BLAND = GT_OUT-ZZ_ZGSF.IF SY-SUBRC = 0.GT_OUT-ZZ_ZGSFMS = LT_T005U-BEZEI.ENDIF.ENDIF."调⽤函数获取年龄CALL FUNCTION'HR_99S_INTERVAL_BETWEEN_DATES'EXPORTINGBEGDA = P0002-GBDATENDDA = SY-DATUMIMPORTINGC_YEARS = LV_YEARS.GT_OUT-DISP_AGE = LV_YEARS. "年龄*---PA9002相关RP_PROVIDE_FROM_LAST P9002 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.GT_OUT-ZZ_GWZU = P9002-ZZ_ZWZZ."职族GT_OUT-ZZ_ZZZJ = P9002-ZZ_ZZZJ."职级ENDIF.*---PA9021相关RP_PROVIDE_FROM_LAST P9021 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.CLEAR GS_PA0002.GT_OUT-ZZ_ZJSJBH = P9021-ZZ_ZJSJ.READ TABLE LT_0000 WITH KEY PERNR = GT_OUT-ZZ_ZJSJBH.IF SY-SUBRC = 0.CLEAR: GT_CELLCOLOR, GS_CELLCOLOR.GS_CELLCOLOR-FNAME = 'ZZ_ZJSJBH'. "定位⾏中需要上⾊的单元格GS_CELLCOLOR-COLOR-COL = 6. "颜⾊种类GS_CELLCOLOR-COLOR-INT = 1. "颜⾊浅深GS_CELLCOLOR-COLOR-INV = 1. "相反：⽂字显⽰颜⾊,单元格背景不显⽰APPEND GS_CELLCOLOR TO GT_CELLCOLOR.GT_OUT-CELLCOLOR = GT_CELLCOLOR.GS_CELLCOLOR-FNAME = 'ZZ_ZJSJ'. "定位⾏中需要上⾊的单元格GS_CELLCOLOR-COLOR-COL = 6. "颜⾊种类GS_CELLCOLOR-COLOR-INT = 1. "颜⾊浅深GS_CELLCOLOR-COLOR-INV = 1. "相反：⽂字显⽰颜⾊,单元格背景不显⽰APPEND GS_CELLCOLOR TO GT_CELLCOLOR.GT_OUT-CELLCOLOR = GT_CELLCOLOR.ENDIF.READ TABLE GT_PA0002 INTO GS_PA0002 WITH KEY PERNR = P9021-ZZ_ZJSJ. GT_OUT-ZZ_ZJSJ = GS_PA0002-NACHN. "直线汇报⼈ENDIF.*---PA9006相关* rp_provide_from_last p9006 space pn-begda pn-endda.* IF pnp-sw-found = 1.* READ TABLE gt_pa0002 INTO gs_pa0002 WITH KEY pernr = p9006-zz_dsbh.* gt_out-zz_dsbh = gs_pa0002-nachn. "导师* ENDIF.*---⼊职⽇期CALL FUNCTION'HR_ECM_GET_DATETYP_FROM_IT0041'EXPORTINGPERNR = GT_OUT-PERNRKEYDT = LV_BEGDADATAR = '01'MESSAGE_HANDLER = MESSAGE_HANDLERIMPORTINGDATE = GT_OUT-DAT01.*---⾸次参加⼯作⽇期CALL FUNCTION'HR_ECM_GET_DATETYP_FROM_IT0041'EXPORTINGPERNR = GT_OUT-PERNRKEYDT = LV_BEGDADATAR = '02'MESSAGE_HANDLER = MESSAGE_HANDLERIMPORTINGDATE = GT_OUT-DAT02.FREE MESSAGE_HANDLER.*---预计转正时间CALL FUNCTION'HR_ECM_GET_DATETYP_FROM_IT0041'EXPORTINGPERNR = GT_OUT-PERNRKEYDT = LV_BEGDADATAR = '03'MESSAGE_HANDLER = MESSAGE_HANDLERIMPORTINGDATE = GT_OUT-DAT03.FREE MESSAGE_HANDLER.*---PA9003相关RP_PROVIDE_FROM_LAST P9003 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.* GT_OUT-BEGDA2 = P9003-BEGDA. "离职⽇期* GT_OUT-BEGDA4 = P9003-BEGDA - 1. "最后⼯作⽇期READ TABLE GT_ZHR_LZYY INTO DATA(GS_ZHR_LZYY) WITH KEY ZZ_LZXLBM = P9003-ZZ_LZXL. IF SY-SUBRC = 0.GT_OUT-ZZ_LZXL = GS_ZHR_LZYY-ZZ_LZXLMS. "离职原因ENDIF.ENDIF.IF GT_OUT-STAT2 = '在职'.CLEAR GT_OUT-ZZ_LZXL.ENDIF.*---PA3529相关教育信息的字段都从0022中取出CLEAR LT_PA3529.READ TABLE LT_PA3529 WITH KEY PERNR = GT_OUT-PERNR.IF SY-SUBRC = 0.GT_OUT-FACH3 = LT_PA3529-FACH3."所学专业ENDIF.* rp_provide_from_last p3529 space pn-begda pn-endda.* IF pnp-sw-found = 1.* gt_out-fach3 = p3529-fach3."所学专业* ENDIF.IF GT_OUT-ENDDA4 <> '00000000'.LV_ENDDA02 = GT_OUT-ENDDA4. "最后⼯作⽇期ELSE.LV_ENDDA02 = SY-DATUM.ENDIF.*---调⽤函数获取社会⼯龄CALL FUNCTION'HR_99S_INTERVAL_BETWEEN_DATES'EXPORTINGBEGDA = GT_OUT-DAT03ENDDA = LV_ENDDA02IMPORTINGC_YEARS = LV_YEARS2.GT_OUT-SHAGE = LV_YEARS2.*---调⽤函数获取司龄CALL FUNCTION'HR_99S_INTERVAL_BETWEEN_DATES'EXPORTINGBEGDA = GT_OUT-DAT01ENDDA = LV_ENDDA02IMPORTINGC_MONTHS = LV_MONTH.LV_SILING = LV_MONTH / 12.GT_OUT-SLAGE = LV_SILING.*---PA0016相关RP_PROVIDE_FROM_LAST P0016 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.READ TABLE LT_T547S WITH KEY CTTYP = P0016-CTTYP.IF SY-SUBRC = 0.GT_OUT-CTTYP = LT_T547S-CTTXT.ENDIF.IF P0016-ZZ_QXLX = 10.ELSEIF P0016-ZZ_QXLX = 20.GT_OUT-ZZ_QXLX = '⽆固定期限劳动合同'.ELSEIF P0016-ZZ_QXLX = 90.GT_OUT-ZZ_QXLX = '其他'.ENDIF.GT_OUT-ZZ_JCFS = P0016-ZZ_JCFS."解除合同⽅式ENDIF.*---PA3527相关RP_PROVIDE_FROM_LAST P3527 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1.IF P3527-HUKOT = 1.GT_OUT-HUKOT = '⾮农业户⼝'. "户⼝性质ELSEIF P3527-HUKOT = 2.GT_OUT-HUKOT = '农业户⼝'.ELSEIF P3527-HUKOT = 3.GT_OUT-HUKOT = '其他'.ENDIF.ENDIF.*---PA0022相关* RP_PROVIDE_FROM_LAST P0022 SPACE PN-BEGDA PN-ENDDA.CLEAR LT_PA0022.READ TABLE LT_PA0022 WITH KEY PERNR = GT_OUT-PERNR.IF SY-SUBRC = 0.READ TABLE LT_T517T WITH KEY SLART = LT_PA0022-SUBTY.IF SY-SUBRC = 0.GT_OUT-SUBTY = LT_T517T-STEXT.ENDIF.GT_OUT-ENDDA2 = LT_PA0022-ZZ_BYSJ. "毕业时间GT_OUT-INSTI = LT_PA0022-INSTI. "院校/培训机构名称GT_OUT-BEGDA5 = LT_PA0022-BEGDA.IF LT_PA0022-ZZ_ZGXW = '01'.READ TABLE LT_T519T WITH KEY SLABS = LT_PA0022-SLABS.IF SY-SUBRC = 0.GT_OUT-SLABS = LT_T519T-STEXT.ENDIF.ENDIF.READ TABLE LT_DD07T WITH KEY DOMVALUE_L = LT_PA0022-ZZ_XXXSDOMNAME = 'ZZ_XXXS'.IF SY-SUBRC = 0.GT_OUT-XXXS = LT_DD07T-DDTEXT.ENDIF.ENDIF.* LOOP AT p0022 WHERE zz_zgxl = '01'.* IF p0022-zz_zgxl = '01'.** READ TABLE lt_t517t WITH KEY slart = p0022-subty.* IF sy-subrc = 0.* gt_out-subty = lt_t517t-stext.* ENDIF.** gt_out-endda2 = p0022-zz_bysj. "毕业时间* gt_out-insti = p0022-insti. "院校/培训机构名称* gt_out-begda5 = p0022-begda.* ENDIF.** IF p0022-zz_zgxw = '01'.* READ TABLE lt_t519t WITH KEY slabs = p0022-slabs.* IF sy-subrc = 0.* gt_out-slabs = lt_t519t-stext.* ENDIF.** ENDIF.** READ TABLE lt_dd07t WITH KEY domvalue_l = p0022-zz_xxxs* domname = 'ZZ_XXXS'.* IF sy-subrc = 0.* gt_out-xxxs = lt_dd07t-ddtext.* ENDIF.** ENDLOOP.********************************************************************************READ TABLE GT_HRP9504 INTO DATA(GS_HRP9504) WITH KEY OBJID = P0001-PLANS. IF SY-SUBRC = 0.* gt_out-zz_gwzu = gs_hrp9504-zz_gwzu. "职族GT_OUT-ZZ_GWZL = GS_HRP9504-ZZ_GWZL. "职类描述IF GS_HRP9504-ZZ_GWZL = '01'.GT_OUT-ZZ_GWZL = '⾼层管理'.ELSEIF GS_HRP9504-ZZ_GWZL = '02'.GT_OUT-ZZ_GWZL = '中层管理'.ENDIF.ENDIF.LOOP AT P9019 WHERE ZZ_SFZGZC = '01'.GT_OUT-ZZ_HDZC = P9019-ZZ_HDZC."获得职称GT_OUT-ZZ_ZCDJ = P9019-ZZ_ZCDJ."职称级别CASE P9019-ZZ_ZCDJ.WHEN '01'.GT_OUT-ZZ_ZCDJ = '教授级'.WHEN '02'.GT_OUT-ZZ_ZCDJ = '正⾼级'.WHEN '03'.GT_OUT-ZZ_ZCDJ = '⾼级'.WHEN '04'.GT_OUT-ZZ_ZCDJ = '中级'.WHEN '05'.GT_OUT-ZZ_ZCDJ = '初级'.ENDCASE.ENDLOOP.SORT P0185 BY SUBTY.RP_PROVIDE_FROM_LAST P0185 SPACE PN-BEGDA PN-ENDDA.GT_OUT-ICNUM = P0185-ICNUM.IF P0185-USETO IS NOT INITIAL.GT_OUT-USETO = P0185-USETO.GT_OUT-USETO1 = P0185-USETO+0(4) && '/' && P0185-USETO+4(2) && '/' && P0185-USETO+6(2). ENDIF.SORT P0006 BY ANSSA.LOOP AT P0006 WHERE ANSSA = '01'OR ANSSA = '05'OR ANSSA = '06'OR ANSSA = '02'.IF P0006-ANSSA = '01'.GT_OUT-LOCAT = P0006-LOCAT."户⼝所在地ELSEIF P0006-ANSSA = '06'.GT_OUT-LOCAT2 = P0006-LOCAT."驻外地区ELSEIF P0006-ANSSA = '05'.GT_OUT-LOCAT3 = P0006-LOCAT."社保缴纳地ELSEIF P0006-ANSSA = '02'.GT_OUT-LOCAT4 = P0006-LOCAT."现住家庭地址ENDIF.ENDLOOP.RP_PROVIDE_FROM_LAST P0016 SPACE PN-BEGDA PN-ENDDA.IF PNP-SW-FOUND = 1..GT_OUT-BEGDA3 = P0016-BEGDA."本期合同开始⽇期GT_OUT-ENDDA3 = P0016-CTEDT."本期合同结束⽇期ENDIF.LOOP AT P0105 WHERE USRTY = '01'OR USRTY = '03'OR USRTY = '04'OR USRTY = '06'OR USRTY = '05'. IF P0105-USRTY = '01'.GT_OUT-USRID = P0105-USRID. "联系⽅式ELSEIF P0105-USRTY = '03'.GT_OUT-USRID3 = P0105-USRID. "紧急联系⼈电话GT_OUT-ZZ_JJLXR = P0105-ZZ_JJLXRDH."紧急联系⼈ELSEIF P0105-USRTY = '04'.GT_OUT-USRID2 = P0105-USRID. "电⼦邮件ELSEIF P0105-USRTY = '06'.GT_OUT-USRID1 = P0105-USRID. "档案编号ELSEIF P0105-USRTY = '05'.GT_OUT-ZGSYX = P0105-USRID.ENDIF.ENDLOOP."如果⼊职⽇期为空则取0000 ZAIF GT_OUT-DAT01 = '00000000'.CLEAR P0000.READ TABLE P0000 WITH KEY MASSN = 'ZA'.IF SY-SUBRC = 0.GT_OUT-DAT01 = P0000-BEGDA.ENDIF.ENDIF.GT_OUT-DAT011 = GT_OUT-DAT01.GT_OUT-DAT021 = GT_OUT-DAT02.GT_OUT-BEGDA21 = GT_OUT-BEGDA2.GT_OUT-GBDAT1 = GT_OUT-GBDAT.GT_OUT-DAT031 = GT_OUT-DAT03.GT_OUT-BEGDA41 = GT_OUT-BEGDA4.IF GT_OUT-USRID2 IS NOT INITIAL.GT_OUT-USRID2 = TO_LOWER( GT_OUT-USRID2 ).ENDIF.IF GT_OUT-ZGSYX IS NOT INITIAL.GT_OUT-ZGSYX = TO_LOWER( GT_OUT-ZGSYX ).ENDIF.。
花名册范本1.求一份公司全体人员的档案表格格式全体人员的档案表，可以用excel表格将员工的信息统一整理起来，便于查阅。
涵盖内容包括所在部门，姓名，性别，出生日期，年龄，户籍所在地，居住地，就职时间，婚姻状况，教育程度，联系电话，紧急联系人，紧急联系人电话。
可参考以下格式：拓展资料档案的防护基本要求1.1档案防护内容应包括外围护结构的保温、隔热，温湿度要求，防潮、防水、防日光及紫外线照射，防尘、防污染、防有害生物（霉、虫、鼠等）和安全防范等。
1.2温湿度要求应根据档案的重要性和载体等因素区别对待。
1.3音像、缩微、电子文件等非纸质档案贮存库设计，除应符合本规范有关规定外，尚应根据使用保管的特殊要求进行设计。
“档案”一词1、“档案”一词来源于清初。
持此观点者的依据，一是见诸于清初文人杨宾所作的《柳边纪略》一书，其第三卷载：“边外文字，多书于木，往来传递者曰‘牌子’，以削木片若牌故也；存贮多年者曰‘档案’，曰‘档子’，以积累多、贯皮条挂壁若档故也。
然今文字之书于纸者，亦呼之谓‘牌子’、‘档子’矣。
”二是见诸于《康熙起居注》一书，其中有“部中无档案”之语。
注：“档案”一词即便来源于清初，也是清代的汉语词汇，并非来源清代的一定就是“满语”。
“档”字为汉语固有词汇，《正字通》：俗谓横木框档。
本义：器物上用以分格或撑的横木条。
用横木间隔，存放案牍，再将“档”与“案”合做一词为“档案”，才符合汉字词语的发展规律。
怎么可能是满语？2、“档案”一词来源于远古，出现在清朝之前。
持此观点者主要有：（1）侯传学提出《周礼注疏》中有“副当”之说：“写副当以授六官。
”（王荣声、王玉声认为“副当”之“当”并非“档案”，而是副词，应释为“将”。
）（2）王金玉等人提出“宋代‘架阁文字’即为‘档案’”之说，还进一步考证明初即有“档案”的称谓，其证据是明初所撰的《明实录》，其上载有：“（洪武二十五年正月）庚子日，据刑部近来因户部文档不明，着本部办理拿问该属官吏等情具奏，帝降旨：‘匡正迟速，非隐匿粮饷则勿问。
花名册表格模板
在学校、社团、企业等组织中，花名册是一种非常重要的管理工具。
它记录了
组织成员的基本信息，方便管理者进行统一管理和联系。
为了方便大家使用，我们特别设计了一份花名册表格模板，以便各种组织可以根据自己的需求进行定制。
首先，花名册表格模板包括了基本的个人信息栏，如姓名、性别、出生日期、
联系方式等。
这些信息是花名册的基础，也是组织管理的核心内容。
通过这些信息，管理者可以清楚地了解每个成员的基本情况，为日常管理提供便利。
除了基本的个人信息外，花名册表格模板还可以根据实际需求添加其他栏目。
比如，在学校的花名册中，可以添加学号、专业、班级等信息；在企业的花名册中，可以添加职务、工号、入职日期等信息。
这样一来，花名册不仅可以用于日常管理，还可以用于统计分析和信息查询。
另外，花名册表格模板还可以根据实际情况进行美化和定制。
我们提供了多种
样式和颜色可供选择，用户可以根据自己的喜好和组织的风格进行定制。
这样一来，花名册不仅可以起到实际的管理作用，还可以成为组织的一种形象展示。
总的来说，花名册表格模板是一种非常实用的管理工具。
它不仅方便了管理者
进行统一管理和联系，还可以根据实际需求进行定制和美化。
我们希望这份花名册表格模板能够为各种组织带来便利，让管理工作更加高效和便捷。
如果您对我们的花名册表格模板感兴趣，欢迎联系我们进行咨询和定制。
我们
将竭诚为您提供最优质的服务，让您的组织管理更加便利和高效。
让我们共同努力，让花名册成为组织管理的得力助手！。
