设中国护士网为首页 | 中国护士网专注于知识的分享,因为专注,所以更好！
分享到：

首页 > SAP HR资源网

从管理者桌面调用人事事务代码

来源：  作者：saplogon

FUNCTION ZRH_MWB_APPRAISAL_CREATE
******************************************************************
*IMPORTING
*  VALUE(ACT_FCODE) TYPE MWB_FCODE
*  VALUE(ACT_PLVAR) TYPE PLVAR
*  VALUE(ACT_OTYPE) TYPE OTYPE
*  VALUE(ACT_OBJID) TYPE REALO
*  VALUE(ACT_BEGDA) TYPE BEGDATUM DEFAULT SY-DATUM
*  VALUE(ACT_ENDDA) TYPE ENDDATUM DEFAULT '99991231'
*EXPORTING
*  VALUE(ACT_PROGNAME) LIKE SY-REPID
*  VALUE(ACT_SCREEN_NO) LIKE SY-DYNNR
*TABLES
*  ACT_OBJECTS STRUCTURE HRSOBJID
*EXCEPTIONS
*  FCODE_NOT_VALID
******************************************************************
DATA:INSERT   LIKE RSYST-FCODE VALUE 'MOD'.           " OR 'DIS' FOR DISPLAY

DATA:VALIDITYBEGIN LIKE OBJEC-BEGDA
DATA:EMPLOYEENUMBER LIKE OBJEC-REALO.
DATA:VALIDITYENDDA LIKE OBJEC-ENDDA.

VALIDITYBEGIN = ACT-BEGDA.
VALIDITYEND = ACT_ENDDA.
EMPLOYEENUMBER = ACT_OBJID.

SET PARAMETER ID 'ITP' FIELD '0006'.                 " It is the infotype
SET PARAMETER ID 'SUB' FIELD SUBTYPE.                " Subtype
SET PARAMETER ID 'BEG' FIELD VALIDITYBEGIN.          " Begin date
SET PARAMETER ID 'PER' FIELD EMPLOYEENUMBER.         " Employee Number
SET PARAMETER ID 'END' FIELD VALIDITYEND.            " End date   
SET PARAMETER ID 'FCD' FIELD INSERT.                 " Action type: maintain or display

CALL TRANSACTION 'PA30' AND SKIP FIRST SCREEN.       " Call transaction as you want

ENDFUNCTION.