员工信息代码

*&-------------------------------------------------------------------

--*

*&ReportZRHCM_BASICDATA

*&

*&-------------------------------------------------------------------

--*

*&

*&

*&-------------------------------------------------------------------

--*

REPORT

zrhcm_basicdatalove with you tfboys.

*--------------------------------------------------------------------

-*

*

说明

:

记录修改历史记录

*

*

修改人，修改日期电视剧夜来香，修改原因，传输请求号

*

*--------------------------------------------------------------------

-*

ICLUDEzrhcm_basicdata_modify_log爱你爱到不怕死.

*--------------------------------------------------------------------

-*

*

说明

:

定

义

表

*

*--------------------------------------------------------------------

-*

TABLES:pernr.

ODES

:peras.

IFOTYPES:

0000,

0001,

0002韩国金曲,

0006最爱 杨宗纬 歌词,

0016你的柔情,

0022张智成 暗恋,

0105,

0185,

0529,052

今生共相伴,054下雨天 歌词.

*--------------------------------------------------------------------

-*

*

说明

:

定义相关变量、内表

*

*--------------------------------------------------------------------

-*

1/

11

TYPES:BEGIOFtyp_tab蓝精灵之歌歌词,

stext1LIKEhrp1000-stext,"

第一层部门

objid1TYPE

hrobjid神医相师,"

第一层部门

id

stext2

LIKEhrp1000-stext初恋这件小事国语版下载,"

第二层部门

objid2TYPEhrobjid,"

第二层部门

id

stextLIKEhrp1000-stext,"

第三层部门

objidTYPEhrobjid娘子军连歌,"

第三层部门

id

stext4LIKEhrp1000-stext,"

第四层部门

objid4TYPEhrobjiddolphin,"

第四层部门

id

stext5LIKEhrp1000-stext,"

第五层部门

objid5TYPEhrobjid佛痛,"

第五层部门

id

stext6LIKEhrp1000-stext,"

第六层部门

objid6TYPEhrobjid,"

第六层部门

id

stext7LIKEhrp1000-stext轻音少女歌曲,"

第七层部门

objid7TYPEhrobjidnokia250,"

第七层部门

id

pernrLIKEp0001-pernr马诺车震门,"

工号

enameLIKEp0001-ename天空是蔚蓝窗外有千纸鹤是什么歌,"

姓名

gesch(2)TYPEc,"

性别

gbdatLIKEp0002-gbdat,"

出生日期

icnumLIKEp0185-icnum,"

身份证

natioLIKEt005t-landx,"

国籍

gbortLIKEp0002-gbort,"

籍贯

famstLIKEt502t-ftext,"

婚姻状态

rackyLIKEt505s-ltext,"

民族

slabsLIKEt519t-stextrealtimelove,"

最高学历

pcodeLIKEt7cn5r-ptext,"

政治面貌

locatLIKEp0006-locatnew face,"

户籍地址

locat1LIKEp0006-locat,"

现住地址

phoneLIKEp0105-usrid,"

手机号码

cellLIKEp0105-usrid,"

固定电话

zorgehLIKEhrp1000-stext,"

直接部门

orgehLIKEp0001-orgeh阿哥阿广场舞,"

直属部门

id

plansTYPEplans陈瑞 白狐,"

职位

idtitleLIKEhrp1000-stext,"

职位

zsscjlikehrp9102-zsscj,"

职位层级

zzjdjlikehrp9102-zzjdj不要说话歌词,"

职位等级

cttypLIKEt547s-cttxt,"

合同类别

contyLIKEt7cn2y-tytxt混沌武士ed,"

社保类型

zzsumTYPEi,"

计数EDOFtyp_tab爱乘以无限大歌词.

DATA:gitb_tabTYPESTADARDTABLEOFtyp_tab死神ed28,

gwa_tabTYPEtyp_tab.

2/11

DATA:gt_hrp1000TYPEhrp1000OCCURS100WITHHEADERLIE

谢天笑 幻觉,

gt_hrp9102TYPEhrp9102OCCURS100WITHHEADERLIE

台湾男同视频free radio,

gt_t502tTYPEt502tOCCURS100WITHHEADERLIE

泰国电视剧卧底警花,

gt_t505sTYPEt505sOCCURS100WITHHEADERLIE

,

gt_t005tTYPEt005tOCCURS100WITHHEADERLIE

,

gt_t527xTYPEt527xOCCURS100WITHHEADERLIE

,

gt_t547sTYPEt547sOCCURS100WITHHEADERLIE

小凡凡,

gt_t7cn2yTYPEt7cn2yOCCURS100WITHHEADERLIE

,

gt_t7cn5rTYPEt7cn5rOCCURS100WITHHEADERLIE.

ICLUDE

zhcm_top.

*--------------------------------------------------------------------

-*

*

说明

:

定义选择屏幕

*

*--------------------------------------------------------------------

-*

PARAMETERS:p_layoutTYPEdisvariant-variant.

*--------------------------------------------------------------------

-*

*

说明

:

处理选择屏幕字段事件

*

*--------------------------------------------------------------------

-*

*ATSELECTIO-SCREEOpnpbegdabeyonce knowles.

ATSELECTIO-SCREEOVALUE-REQUESTFOR

p_Mfrm_f4_layoutsUSIGcl_salv_layout=>restrict_none

CHAGIG

p_layoutchristopher bailey.

*--------------------------------------------------------------------

-*

*

说明

:

初始化事件

*

*--------------------------------------------------------------------

-*

IITIALIZATIO

乐视颁奖典礼.

*--------------------------------------------------------------------

-*

*

说明

:

定义页眉、页尾

*

*--------------------------------------------------------------------

-*

***top-of-page

***top-of-pageduringline-selection

/11

***end-of-page

*--------------------------------------------------------------------

-*

*

说明

:

数据检索

*

*--------------------------------------------------------------------

-*

H:gt_hrp1000张信哲哪些歌好听,gt_Mfrm_init_data.

GET

Mfrm_sel_data.

ED-OF-SELECTIO.

CALLMETHOD

zawhr_comm=>frm_alv_outputEXPORTIG

iv_repid=sy-repid

iv_stats='STADARD_FULLSCREE'

iv_layout=p_layoutchanging

it_tab=gitb_tab

.

*--------------------------------------------------------------------

-*

*

说明

:

交互式功能控制

*

*--------------------------------------------------------------------

-*

ATUSER-COMMAD蹦吧啦dj.

ATLIE

-SELECTIO好彩论坛.

*&-------------------------------------------------------------------

--*

*&FormFRM_SEL_DATA

*--------------------------------------------------------------------

--*

*-->p1text

*<--p2text

*--------------------------------------------------------------------

--*

4/

11

FORM

frm_sel_:ls_p0000WHEREbegdaLEpn-enddaADenddaGE

诗歌朗诵背景音乐大全.EDLOOP

陈珊妮.IFsy-subrcEQ0

.

gwa_tab-pernr=pernr-pernr."

编号

gwa_tab-zzsum=1

.LOOPATp0001WHEREbegdaLEpn-enddaADenddaGEpn-begda.

gwa_tab-ename=p0001-enamelouisarmstrong."

姓名

gwa_tab-orgeh=p0001-orgeh.

"

直属部门

BLEp0001ITOls_p0001

M

frm_levelo_getUSIGls_0002-gesch='1'新易贷."

性别

gwa_tab-gesch='男

'传奇王菲.ELSEIFp0002-gesch=

'2'.

gwa_tab-gesch='女'.EDIF风筝歌词.

gwa_tab-gbdat=p0002-gbdat.

"

出生日期

gwa_tab-gbort=p0002-gbort再次重逢的世界.

"

籍贯p0006

WHEREbegdaLEpn-endda

ADenddaGEpn-begda西班牙狂想曲.

'2'.

gwa_tab-locat=p0006-locat滴答滴铃声."

户籍地址WHE'1'.

gwa_tab-locat1=p0006-locat半透明的墙歌词."

居住地址

P穿越时空爱上你 rta.

READTABLEp054IDEX1.

READTABLEgt_t7cn5rWITH

KEY

pcode=-subrc=0

welcometothejungle.

gwa_tab-pcode=gt_BLEp0185WITHKEYictyp='01'.

5/

11IFsy-subrc=0

.

gwa_tab-icnum=p0185-icnum."

身份证号码BLEp0105WITHKEYsubty='MPH'

.IFsy-subrc=0

.

gwa_tab-phone=p0105-usrid."

手机号码BLEp0105WITHKEYsubty='CELL'

黄河源头.IFsy-subrc=0

.

gwa_tab-cell=p0105-usrid陈赫qq."

固定电话BLEgt_t502tWITHKEYfamst=p0002-famst."

婚姻状态IFsy-subrcEQ0

玖月奇迹的钢琴多少钱.

gwa_tab-famst=gt_

.READTABLEp0529IDEX1

.READTABLEgt_t505sWITHKEYracky=p0529-racky."

民族IFsy-subrcEQ0

.

gwa_tab-racky=gt_BLEgt_t005tWITHKEYland1=p0002-natio非常爱."

国籍IFsy-subrcEQ0

.

gwa_tab-natio=gt_BLEgt_t527xWITHKEYorgeh=p0001-orgeh."

直属部门IFsy-subrcEQ0

.

gwa_tab-zorgeh=gt_occurred.

gwa_tab-plans=BLEgt_hrp1000WITHKEYobjid=p0001-plans我不是韩国人."

职位IFsy-subrcEQ0

.

gwa_tab-title

=gt_BLEgt_hrp9102withkey

objid=-subrc=0

曾敏杰.

gwa_tab-zsscj=gt_hrp9102-zsscj."

职位层级

6/

11

gwa_tab-zzjdj=gt_hrp9102-zzjdj我们的歌钢琴谱."

职位等级BLEp0016IDEX1

.READTABLEgt_t547sWITHKEY

sprsl=sy-langucttyp=p0016-ctty

p."

合同类别IFsy-subrcEQ0

.

gwa_tab-cttyp=gt_BLEp052IDEX1

selfie.READTABLEgt_t7cn2yWITHKEYsprsl=sy-languinfty='052'

con

br=p052-contyconar=p052-conar广场舞印度美女."

社保类型IFsy-subrcEQ0

ryangosling.

gwa_tab-conty=gt_MAX(slabs)ITOgwa_tab-slabsFROMpa0022WHERE

pernr=

gwa_tab-pernr大海啊故乡原唱."

最高学历SELECTSIGLEstextITOgwa_tab-slabsFROMt519tWHERE

slabs=g

wa_gwa_tabTO

gitb_tb_tabBY

objid1objid2objidobjid4objid5objid6objid7ASCEDIG

.EDIF

.CLEAR:gwa_tab我悄悄地蒙上你的眼睛.

EDFORMorianthi."FRM_SEL_DATA

*&-------------------------------------------------------------------

--*

*&Formfrm_F4_LAYOUTS

*--------------------------------------------------------------------

--*

*-->P_IF_SALV_C_LAYOUT=>RESTRICT_Otext

*<--P_P_LAYOUTtext

*--------------------------------------------------------------------

--*

FORMfrm_f4_layoutsUSIGi_restrictTYPE

salv_de_layout_restriction

CHAGIGc_layoutTYPEdisvariant-variant花篮的花儿香.

7/

11DATA:ls_layoutTYPE

salv_s_layout_info,

ls_keyTYPEsalv_s_layout_key.

ls_key-report=sy-repid.

ls_layout=cl_salv_layout_service=>f4_layouts(

s_key=ls_key

restrict=i_restrict).

c_layout=ls_layout-layout.

EDFORM."frm_F4_LAYOUTS

*&-------------------------------------------------------------------

--*

*&FormFRM_LEVELO_GET

*&-------------------------------------------------------------------

--*

*text

*--------------------------------------------------------------------

--*

*-->P_LS_P0001_ORGEHtext

*--------------------------------------------------------------------

--*

FORMfrm_levelo_getUSIGp_TS:lcns_wegidTYPEgdstr-wegidVALUE'ORGA-UP'

,

lcns_objid(5)VALUE'OBJID'

绝对彼氏,

lcns_stext(5)VALUE'STEXT'

诗情画意虽然美丽.DATA:litb_strcTYPEstrucOCCURS60WITHHEADERLIE

少女时代的浪漫幻想.FIELD-SYMBOLS:TYPEAY

.DATA:lv_str(6

)环颈雉.DATA:lv_levelLIKE

struc-level,

lv_newlevelLIKE

struc-level如果你爱上了别人,

lv_clevel张天宇.

lv_level=2

.

**

组织数据CALLFUCTIO'RH_STRUC_GET'EXPORTIG

act_otype='O'

act_objid=p_org

act_wegid=lcns_wegid

*ACT_IT_FLAG=

*act_plvar='01'

8/

11

act_begda=pn-begda

act_endda=pn-endda

*ACT_TDEPTH=0

*ACT_TFLAG='X'

*ACT_VFLAG='X'

authority_check=''

*TEXT_BUFFER_FILL=

*BUFFER_MODE=

*IMPORTIG

*ACT_PLVAR=TABLES

*RESULT_TAB=

*RESULT_OBJEC=

result_struc=litb_strcEXCEPTIOS

no_plvar_found=1

no_entry_found=2OTHERS=

三天三年.IFsy-subrc<>0

花心歌词.

*MESSAGEIDSY-MSGIDTYPESY-MSGTYUMBERSY-MSGO

*

.SORTlitb_strcBYlevelDESCEDIG

exo演唱会.LOOPATlitb_strcWHEREotypeEQ'O'AD

objid=cns_toporg.

*CHECKlitb_strc-objidIgr_levelo梦雨轩.

lv_newlevel=litb_strc-level-1

.

gwa_tab-objid1=litb_SIGLEstextITOgwa_tab-stext1FROM

hrp1000WHEREobjidEQ

litb_strc-objidADlanguEQ

sy-languADbegdaLE

pn-enddaADenddaGE

pn-begdaADotypeEQ'O'ADplvarEQ'01'

唐建平.EXIT

.EDLOOP

.IFsy-subrcEQ0

.DOlv_BLElitb_strcWITHKEYotype='O'

level=lv_-subrcEQ0

早知道爱.

lv_clevel=lv_level.

9/

11COCATEATElcns_objidlv_clevelITO

lv_COMPOETlv_strOFSTRUCTUREgwa_tabTO

.IFsy-subrcEQ0

.

=litb_EATElcns_stextlv_clevelITO

lv_COMPOETlv_strOFSTRUCTUREgwa_tabTO

.IFsy-subrcEQ0

.SELECTSIGLEstextITOFROM

hrp1000WHEREobjidEQ

litb_strc-objidADlanguEQ

sy-languADbegdaLE

pn-enddaADenddaGE

pn-begdaADotypeEQ'O'ADplvarEQ'01'

蒲剧送女.EDIF

萧煌奇 让.ELSE

知己自己.EXIT

.EDIF新还珠格格李晟.

lv_newlevel=lv_newlevel-1

郑源图片.

lv_level=lv_level+

.EDIF.

EDFORM终极一班2下载."FRM_LEVELO_GET

*&-------------------------------------------------------------------

--*

*&FormFRM_IIT_DATA

*--------------------------------------------------------------------

--*

*-->p1text

*<--p2text

*--------------------------------------------------------------------

--*

FORMfrm_init_*ITOTABLEgt_t502tFROM

t502tWHEREsprslEQsy-langu."

婚姻状态SELECT*ITOTABLEgt_t505sFROMt505s

10/

11WHEREsprslEQsy-languADmolgaEQ'28'经典情歌对唱大全."

民族SELECT*ITOTABLEgt_t005tFROM

t005tWHEREsprasEQsy-langu."

国籍SELECT*ITOTABLEgt_t527xFROM

t527xWHEREsprslEQsy-languADbegdaLEpn-enddaADenddaGE

pn-en

dda天黑黑会不会让我忘了你是谁."

直属部门SELECT*ITOTABLEgt_hrp1000FROM

hrp1000WHEREotypeEQ'S'AD

begdaLEpn-enddaAD

enddaGEpn-enddaAD

languEQsy-langu."

职位SELECT*ITOTABLEgt_hrp9102FROM

hrp9102WHEREotypeEQ'S'AD

begdaLEpn-enddaAD

enddaGEpn-endda所以我求求你."

职级SELECT*ITOTABLEgt_t547sFROM

t547sWHEREsprslEQsy-langu梁静茹 一夜长大."

合同类别SELECT*ITOTABLEgt_t7cn2yFROM

t7cn2yWHEREsprslEQsy-langu踮起脚尖爱 洪佩瑜."

社保类型SELECT*ITOTABLEgt_t7cn5rFROM

t7cn5rWHERElanguEQsy-langu."

政治面貌

EDFORM录音室设备."FRM_IIT_DATA

*&-------------------------------------------------------------------

--*

*&

包括

ZHCM_TOP

*&-------------------------------------------------------------------

--*

COSTATS:cns_toporgTYPEorgehVALUE''

,

cns_onlindatetypedatumvalue''

,

cns_lowdatetypedatumvalue''

般若波罗蜜多咒,

cns_highdatetypedatumvalue''

帕格尼尼24首随想曲,

cns_workdateTYPEpDECIMALS2VALUE'21.75'.

11/

11