取得人員兼職職位

 

*&---------------------------------------------------------------------*
*&      Form  GET_POSITION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LT_PERSON  text
*      -->P_LT_P1001  text
*      -->P_LT_P0000_BEGDA  text
*      -->P_LT_P0000_ENDDA  text
*----------------------------------------------------------------------*
FORM get_position  TABLES   lt_person TYPE hrobject_t
                              lt_p1001 TYPE p1001tab
                    USING   p_begda
                            p_endda.

  CLEAR: lt_p1001, lt_p1001[].
  CALL FUNCTION 'HR_HCP_GET_POSITION_FOR_EMPL'        "人員所屬職位
    EXPORTING
      im_objecttab    = lt_person[]
      im_begda        = p_begda
      im_endda        = p_endda
    IMPORTING
      ex_1001_tab     = lt_p1001[]
    EXCEPTIONS
      read_1001_error = 1
      OTHERS          = 2.

ENDFORM.