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

来源：作者：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.