员工信息代码.doc

*&-*&ReportZRHCM_BASICDATA*&*&-*&*&*&-*REPORTzrhcm_basicdata.*-*说明:记录修改历史记录*修改人，修改日期，修改原因，传输请求号*-*INCLUDEzrhcm_basicdata_modify_log.*-*说明:定义表*-*TABLES:pernr.NODES:peras.INFOTYPES:0000,0001,0002,0006,0016,0022,0105,0185,0529,0532,0534.*-*说明:定义相关变量、内表*-*TYPES:BEGINOFtyp_tab,stext1LIKEhrp1000-stext,第一层部门objid1TYPEhrobjid,第一层部门idstext2LIKEhrp1000-stext,第二层部门objid2TYPEhrobjid,第二层部门idstext3LIKEhrp1000-stext,第三层部门objid3TYPEhrobjid,第三层部门idstext4LIKEhrp1000-stext,第四层部门objid4TYPEhrobjid,第四层部门idstext5LIKEhrp1000-stext,第五层部门objid5TYPEhrobjid,第五层部门idstext6LIKEhrp1000-stext,第六层部门objid6TYPEhrobjid,第六层部门idstext7LIKEhrp1000-stext,第七层部门objid7TYPEhrobjid,第七层部门idpernrLIKEp0001-pernr,工号enameLIKEp0001-ename,姓名gesch(2)TYPEc,性别gbdatLIKEp0002-gbdat,出生日期icnumLIKEp0185-icnum,身份证natioLIKEt005t-landx,国籍gbortLIKEp0002-gbort,籍贯famstLIKEt502t-ftext,婚姻状态rackyLIKEt505s-ltext,民族slabsLIKEt519t-stext,最高学历pcodeLIKEt7cn5r-ptext,政治面貌locatLIKEp0006-locat,户籍地址locat1LIKEp0006-locat,现住地址phoneLIKEp0105-usrid,手机号码cellLIKEp0105-usrid,固定电话zorgehLIKEhrp1000-stext,直接部门orgehLIKEp0001-orgeh,直属部门idplansTYPEplans,职位idtitleLIKEhrp1000-stext,职位zsscjlikehrp9102-zsscj,职位层级zzjdjlikehrp9102-zzjdj,职位等级cttypLIKEt547s-cttxt,合同类别contyLIKEt7cn2y-tytxt,社保类型zzsumTYPEi,计数ENDOFtyp_tab.DATA:gitb_tabTYPESTANDARDTABLEOFtyp_tab,gwa_tabTYPEtyp_tab.DATA:gt_hrp1000TYPEhrp1000OCCURS100WITHHEADERLINE,gt_hrp9102TYPEhrp9102OCCURS100WITHHEADERLINE,gt_t502tTYPEt502tOCCURS100WITHHEADERLINE,gt_t505sTYPEt505sOCCURS100WITHHEADERLINE,gt_t005tTYPEt005tOCCURS100WITHHEADERLINE,gt_t527xTYPEt527xOCCURS100WITHHEADERLINE,gt_t547sTYPEt547sOCCURS100WITHHEADERLINE,gt_t7cn2yTYPEt7cn2yOCCURS100WITHHEADERLINE,gt_t7cn5rTYPEt7cn5rOCCURS100WITHHEADERLINE.INCLUDEzhcm_top.*-*说明:定义选择屏幕*-*PARAMETERS:p_layoutTYPEdisvariant-variant.*-*说明:处理选择屏幕字段事件*-*ATSELECTION-SCREENONpnpbegda.ATSELECTION-SCREENONVALUE-REQUESTFORp_layout.PERFORMfrm_f4_layoutsUSINGcl_salv_layout=restrict_noneCHANGINGp_layout.*-*说明:初始化事件*-*INITIALIZATION.*-*说明:定义页眉、页尾*-*top-of-page*top-of-pageduringline-selection*end-of-page*-*说明:数据检索*-*START-OF-SELECTION.REFRESH:gt_hrp1000,gt_hrp9102.PERFORMfrm_init_data.GETperas.PERFORMfrm_sel_data.END-OF-SELECTION.CALLMETHODzawhr_comm=frm_alv_outputEXPORTINGiv_repid=sy-repidiv_stats=STANDARD_FULLSCREENiv_layout=p_layoutchangingit_tab=gitb_tab.*-*说明:交互式功能控制*-*ATUSER-COMMAND.ATLINE-SELECTION.*&-*&FormFRM_SEL_DATA*-*-p1text*P_IF_SALV_C_LAYOUT=RESTRICT_NONtext*f4_layouts(s_key=ls_keyrestrict=i_restrict).c_layout=ls_layout-layout.ENDFORM.frm_F4_LAYOUTS*&-*&FormFRM_LEVELO_GET*&-*text*-*-P_LS_P0001_ORGEHtext*-*FORMfrm_levelo_getUSINGp_org.CONSTANTS:lcns_wegidTYPEgdstr-wegidVALUEORGA-UP,lcns_objid(5)VALUEOBJID,lcns_stext(5)VALUESTEXT.DATA:litb_strcTYPEstrucOCCURS60WITHHEADERLINE.FIELD-SYMBOLS:TYPEANY.DATA:lv_str(6).DATA:lv_levelLIKEstruc-level,lv_newlevelLIKEstruc-level,lv_clevel.lv_level=2.*组织数据CALLFUNCTIONRH_STRUC_GETEXPORTINGact_otype=Oact_objid=p_orgact_wegid=lcns_wegid*ACT_INT_FLAG=*act_plvar=01act_begda=pn-begdaact_endda=pn-endda*ACT_TDEPTH=0*ACT_TFLAG=X*ACT_VFLAG=Xauthority_check=*TEXT_BUFFER_FILL=*BUFFER_MODE=*IMPORTING*ACT_PLVAR=TABLES*RESULT_TAB=*RESULT_OBJEC=result_struc=litb_strcEXCEPTIONSno_plvar_found=1no_entry_found=2OTHERS=3.IFsy-subrc0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.SORTlitb_strcBYlevelDESCENDING.LOOPATlitb_strcWHEREotypeEQOANDobjid=cns_toporg.*CHECKlitb_strc-objidINgr_levelo.lv_newlevel=litb_strc-level-1.gwa_tab-objid1=litb_strc-objid.SELECTSINGLEstextINTOgwa_tab-stext1FROMhrp1000WHEREobjidEQlitb_strc-objidANDlanguEQsy-languANDbegdaLEpn-enddaANDenddaGEpn-begdaANDotypeEQOANDplvarEQ01.EXIT.ENDLOOP.IFsy-subrcEQ0.DOlv_newlevelTIMES.READTABLElitb_strcWITHKEYotype=Olevel=lv_newlevel.IFsy-subrcEQ0.lv_clevel=lv_level.CONCATENATElcns_objidlv_clevelINTOlv_str.ASSIGNCOMPONENTlv_strOFSTRUCTUREgwa_tabTO.IFsy-subrcEQ0.=litb_strc-objid.ENDIF.CONCATENATElcns_stextlv_clevelINTOlv_str.ASSIGNCOMPONENTlv_strOFSTRUCTUREgwa_tabTO.IFsy-subrcEQ0.SELECTSINGLEstextINTOFROMhrp1000WHEREobjidEQlitb_strc-objidANDlanguEQsy-languANDbegdaLEpn-enddaANDenddaGEpn-begdaANDotypeEQOANDplvarEQ01.ENDIF.ELSE.EXIT.ENDIF.lv_newlevel=lv_newlevel-1.lv_level=lv_level+1.ENDDO.ENDIF.ENDFORM.FRM_LEVELO_GET*&-*&FormFRM_INIT_DATA*-*-p1text*-p2text*-*FORMfrm_init_data.SELECT*INTOTABLEgt_t502tFROMt502tWHEREsprslEQsy-langu.婚姻状态SELECT*INTOTABLEgt_t505sFROMt505sWHEREsprslEQsy-languANDmolgaEQ28.民族SELECT*INTOTABLEgt_t005tFROMt005tWHEREsprasEQsy-langu.国籍SELECT*INTOTABLEgt_t527xFROMt527xWHEREsprslEQsy-languANDbegdaLEpn-enddaANDenddaGEpn-endda.直属部门SELECT*INTOTABLEgt_hrp1000FROMhrp1000WHEREotypeEQSANDbegdaLEpn-enddaANDenddaGEpn-enddaANDlanguEQsy-langu.职位SELECT*INTOTABLEgt_hrp9102FROMhrp9102WHEREotypeEQSANDbegdaLEpn-enddaANDenddaGEpn-endda.职级SELECT*INTOTABLEgt_t547sFROMt547sWHEREsprslEQsy-langu.合同类别SELECT*INTOTABLEgt_t7cn2yFROMt7cn2yWHEREsprslEQsy-langu.社保类型SELECT*INTOTABLEgt_t7cn5rFROM