HR_INFOTYPE_OPERATION DEMO

合集 - HCM程序(2)

1.HR_INFOTYPE_OPERATION DEMO2023-07-08

2.ZHR_EMP_INQUIRY-人员信息查询2023-07-08

收起

  DATA: ls_return TYPE bapireturn1. "bapi的返回结果

  LOOP AT <gfs_t_output> ASSIGNING <gfs_s_output>.
    CLEAR:gv_pernr,gv_begda,gv_endda,gv_subty,gv_seqnr,ls_return.
    ASSIGN COMPONENT 'ZSTATUS' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
    IF sy-subrc EQ 0 AND <gfs_field> IS NOT INITIAL AND <gfs_field> NE icon_yellow_light.
      CONTINUE.
    ENDIF.

    ASSIGN COMPONENT 'PERNR' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
    IF sy-subrc EQ 0. gv_pernr = <gfs_field>. ENDIF.
    ASSIGN COMPONENT 'BEGDA' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
    IF sy-subrc EQ 0. gv_begda = <gfs_field>. ENDIF.
    ASSIGN COMPONENT 'ENDDA' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
    IF sy-subrc EQ 0. gv_endda = <gfs_field>. ENDIF.
    ASSIGN COMPONENT 'SUBTY' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
    IF sy-subrc EQ 0. gv_subty = <gfs_field>. ENDIF.
    ASSIGN COMPONENT 'SEQNR' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
    IF sy-subrc EQ 0. gv_seqnr = <gfs_field>. ENDIF.

    CLEAR:<gfs_s_ptype>.
    MOVE-CORRESPONDING <gfs_s_output> TO <gfs_s_ptype>.

    CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
      EXPORTING
        number = gv_pernr
      IMPORTING
        return = ls_return.
    IF ls_return-type NE 'E'.

      CLEAR:ls_return.
      CASE: p_actio.
        WHEN: 'INS'.
          CALL FUNCTION 'HR_INFOTYPE_OPERATION'
            EXPORTING
              infty         = p_infty
              number        = gv_pernr
              subtype       = gv_subty
              validityend   = gv_endda
              validitybegin = gv_begda
              record        = <gfs_s_ptype>
              operation     = p_actio
            IMPORTING
              return        = ls_return.

        WHEN: 'MOD' OR 'DEL'.
          CALL FUNCTION 'HR_INFOTYPE_OPERATION'
            EXPORTING
              infty         = p_infty
              number        = gv_pernr
              subtype       = gv_subty
              validityend   = gv_endda
              validitybegin = gv_begda
              recordnumber  = gv_seqnr
              record        = <gfs_s_ptype>
              operation     = p_actio
            IMPORTING
              return        = ls_return.
      ENDCASE.

      IF ls_return-type EQ 'E'.
        ASSIGN COMPONENT 'ZSTATUS' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
        IF sy-subrc EQ 0.<gfs_field> = icon_red_light. ENDIF.
        ASSIGN COMPONENT 'ZMSG' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
        IF sy-subrc EQ 0.<gfs_field> = ls_return-message. ENDIF.
      ELSE.
        ASSIGN COMPONENT 'ZSTATUS' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
        IF sy-subrc EQ 0.<gfs_field> = icon_green_light. ENDIF.
        ASSIGN COMPONENT 'ZMSG' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
        IF sy-subrc EQ 0.<gfs_field> = '数据操作成功！'. ENDIF.
      ENDIF.

      CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE' "解锁人员号
        EXPORTING
          number = gv_pernr
        IMPORTING
          return = ls_return.

    ELSE.
      ASSIGN COMPONENT 'ZSTATUS' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
      IF sy-subrc EQ 0.<gfs_field> = icon_red_light. ENDIF.
      ASSIGN COMPONENT 'ZMSG' OF STRUCTURE <gfs_s_output> TO <gfs_field>.
      IF sy-subrc EQ 0.<gfs_field> = ls_return-message. ENDIF.
    ENDIF.
  ENDLOOP.