培训配置雇佣增强问题解决.pdfVIP

*performobjid_request(rhobidf4)using

*

*nvar

*S

*or_repid

*or_dynnr

*

*

*

*dummy.

对已停用的perform进行callfunctionRH_OBJID_REQUEST替换

**

*INCLUDEZP000130*

**

**

*ModuleMOD_PAIINPUT

**

*text

**

MODULEMODULE_PAI_0001INPUT.

*addedbyQuzf

*ForReadingIT1005-positionScaledatatoIT0001-AVSCH.

*DATA:BEGINOFITAB0001OCCURS0.

*INCLUDESTRUCTUREP0001.

*DATA:ENDOFITAB0001.

*DATA:BEGINOFITAB1005OCCURS0.

*INCLUDESTRUCTUREP1005.

*DATA:ENDOFITAB1005.

*DATA:BEGINOFRHOBJECTOCCURS0.

*INCLUDESTRUCTUREHROBJECT.

*DATA:ENDOFRHOBJECT.

*DATA:ZPOSITIONLIKEP0001-NS.

****ReadPDIT1005Data

PERFORMGET_DEFAULT_GANGWEIGONGZI.

*endif.

*endif.

ENDMODULE.MOD_PAIINPUT

**

*ModuleVALUES-ZZN1INPUT

**

*text

**

MODULEVALUES-ZZN1INPUT.

**

DATA:SW_ORGVALUEX.

DATA:FL_SELECTVALUE.

*data:dummylikepspar-ns.

DATA:OR_REPIDLIKESY-REPID,

OR_DYNNRLIKESY-DYNNR.

OR_REPID=SY-REPID.

OR_DYNNR=SY-DYNNR.

LOOPATSCREEN.

CHECKSCREEN-NAME=P0001-ZZNS1.

IFSCREEN-INPUT=1.

FL_SELECT=X.

ENDIF.

ENDLOOP.

IFFL_SELECT=X.

*fieldpositionisreadyforinput

IFSW_ORG=X.

*employeeisintegrated

***modbylu

data:or_objeclikeobjec.XFYAHRK013689

callfunctionRH_OBJID_REQUEST

EXPORTING

plvar=nvar

otype