SAP ABAP 人事报表案例

小钟不想敲代码

已于 2023-07-20 15:43:35 修改

阅读量5k

点赞数 2

分类专栏： SAP ABAP 文章标签： SAP ABAP

于 2023-07-20 15:42:21 首次发布

本文链接：https://blog.csdn.net/weixin_46370595/article/details/131831465

版权

SAP ABAP 专栏收录该内容

5 篇文章 1 订阅

订阅专栏

一、前言

根据员工工号和身份证号，查询员工操作状态是入职和在入职的员工信息
查询字段：工号,姓名,操作类型（文本）,组织单位（文本）,职位（文本）,职务（文本）,身份证号
数据表：PA0000、PA0001、PA0185(身份证号)、PA0002(民族，省份，籍贯)

二、编码

1、主报表

*&---------------------------------------------------------------------*
*& Report ZDEMO_ZLM
*&---------------------------------------------------------------------*
*&PA0000、PA0001、PA0185(身份证号)、PA0002（民族、省份、籍贯）
*&入职01、在入职09
*&工号、操作类型、操作类型文本、组织单位、职位、职务、转文本,身份证号
*&查询条件：工号、身份证、人事范围、员工子组、人事子范围、员工组
*&---------------------------------------------------------------------*
REPORT zdemo_zlm01.

INCLUDE zdemo_zlm01_top.
*INCLUDE zdemo_zlm_top."数据定义
INCLUDE zdemo_zlm01_scr.
*INCLUDE zdemo_zlm_scr."选择屏幕
INCLUDE zdemo_zlm01_frm.
*INCLUDE zdemo_zlm_frm."功能定义

START-OF-SELECTION.

*** 取数方式一
  PERFORM frm_get_data.  " 表连接取数

  PERFORM frm_alv_display.

END-OF-SELECTION.

2、数据定义

*&---------------------------------------------------------------------*
*& 包含               ZDEMO_ZLM_TOP
*&工号、操作类型、操作类型文本、组织单位、职位、职务、身份证号、PA0002（民族、省份、籍贯）
*&---------------------------------------------------------------------*

TABLES:
  pa0000,pa0001,pa0185,pa0002.

*** 报表结构定义
DATA:
  BEGIN OF gs_item,
    sel      TYPE c,
    pernr    TYPE pa0000-pernr,   "工号
    sname    TYPE pa0001-sname,   "员工姓名
    massn    TYPE pa0000-massn,   "操作类型
    massntxt TYPE string,         "操作类型文本
    orgeh    TYPE pa0001-orgeh,   "组织单位
    orgehtxt TYPE string,         "组织单位文本
    plans    TYPE pa0001-plans,   "职位
    planstxt TYPE string,         "职位文本
    stell    TYPE pa0001-stell,   "职务
    stelltxt TYPE string,         "职务文本
    icnum    TYPE pa0185-icnum,   "身份证号
    zmzwb    TYPE pa0002-zmzwb,   "民族
    zhrsfwb  TYPE pa0002-zhrsfwb, "省份
    zhrdjswb TYPE pa0002-zhrdjswb,"籍贯
  END OF gs_item.

DATA:
    gt_item LIKE TABLE OF gs_item.

**** alv *
DATA:
  gs_layout  TYPE lvc_s_layo,
  gs_variant TYPE disvariant,
  gt_fcat    TYPE lvc_t_fcat,
  gs_fcat    LIKE LINE OF gt_fcat.

DEFINE m_range.
  &1-sign   = 'I'.
  &1-option = &2.
  &1-low    = &3.
  &1-high   = &4.
  APPEND &1.
END-OF-DEFINITION.

3、选择屏幕

*  &---------------------------------------------------------------------*
*  & 包含               ZDEMO_ZLM_SCR
*  &查询条件：工号、身份证、人事范围、员工子组、人事子范围、员工组
*  &---------------------------------------------------------------------*

  SELECTION-SCREEN BEGIN OF BLOCK b1k0 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS:

                s_pernr FOR pa0001-pernr NO INTERVALS, "员工号
                s_werks FOR pa0001-werks NO INTERVALS, "人事范围
                s_btrtl FOR pa0001-btrtl NO INTERVALS, "人事子范围
                s_persg FOR pa0001-persg NO INTERVALS, "员工组
                s_persk FOR pa0001-persk NO INTERVALS, "员工子组
                s_icnum FOR pa0185-icnum NO INTERVALS. "身份证号

  SELECTION-SCREEN END OF BLOCK b1k0.

在这里插入图片描述

4、功能定义（重点）

*&---------------------------------------------------------------------*
*& 包含               ZDEMO_ZLM_FRM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form FRM_ALV_DISPLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*

FORM frm_get_data .

  SELECT
    p0~pernr"员工号
    p0~massn"操作类型
    p1~icnum"身份证号
  INTO CORRESPONDING FIELDS OF TABLE gt_item
  FROM pa0000 AS p0
  INNER JOIN pa0185 AS p1 ON p0~pernr = p1~pernr
  WHERE p0~massn IN ('01' , '09')
  AND p0~endda = '99991231'
  AND p1~icnum IN s_icnum
  AND p0~pernr IN s_pernr.

  SORT gt_item BY pernr."排序

  IF gt_item[] IS NOT INITIAL."检查gt_item的内部表或数组是否为空或未初始化

**** 组织单位、职位、职务(编码)、姓名 *
    SELECT pernr,subty,objps,sprps,endda,begda,seqnr,orgeh,plans,stell,sname INTO TABLE @DATA(lt_pa0001)
     FROM pa0001 FOR ALL ENTRIES IN @gt_item "将内部表的条目作为条件应用于数据检索
     WHERE pernr = @gt_item-pernr
     AND endda = '99991231'.

**** 查询组织单位名称
    SELECT stext,objid
    INTO TABLE @DATA(lt_orgeh)
    FROM hrp1000
    FOR ALL ENTRIES IN @lt_pa0001
    WHERE otype = 'O'"对象类型
    AND   objid =  @lt_pa0001-orgeh"对象标识
    AND endda = '99991231'.

**** 查询职位名称
    SELECT stext,objid
    INTO TABLE @DATA(lt_plans)
    FROM hrp1000
    FOR ALL ENTRIES IN @lt_pa0001
    WHERE otype = 'S'
    AND   objid = @lt_pa0001-plans
    AND endda = '99991231'.

**** 查询职务名称
    SELECT stext,objid
    INTO TABLE @DATA(lt_stell)
    FROM hrp1000
    FOR ALL ENTRIES IN @lt_pa0001
    WHERE otype = 'C'
    AND   objid = @lt_pa0001-stell
    AND endda = '99991231'.

**** 民族、省份、籍贯 *
    SELECT pernr,subty,objps,sprps,endda,begda,seqnr,zmzwb,zhrsfwb,zhrdjswb INTO TABLE @DATA(lt_pa0002)
      FROM pa0002 FOR ALL ENTRIES IN @gt_item
     WHERE pernr = @gt_item-pernr
     AND endda = '99991231'.

*使用 BINARY SEARCH 之前，需要对数据进行排序
    SORT lt_pa0001 BY pernr.
    SORT lt_pa0002 BY pernr.

  ENDIF.

  LOOP AT gt_item ASSIGNING FIELD-SYMBOL(<gs_item>)."遍历gt_item中的元素并使用字段符号<gs_item>来访问每个元素的字段值

**** 操作类型描述赋值 *
    IF <gs_item>-massn = '01'.
      <gs_item>-massntxt = '入职'.
    ELSEIF <gs_item>-massn = '02'.
      <gs_item>-massntxt = '转正'.
    ELSEIF <gs_item>-massn = '03'.
      <gs_item>-massntxt = '调动'.
    ELSEIF <gs_item>-massn = '04'.
      <gs_item>-massntxt = '离职'.
    ELSEIF <gs_item>-massn = '05'.
      <gs_item>-massntxt = '退休'.
    ELSEIF <gs_item>-massn = '06'.
      <gs_item>-massntxt = '返聘'.
    ELSEIF <gs_item>-massn = '07'.
      <gs_item>-massntxt = '不在岗'.
    ELSEIF <gs_item>-massn = '08'.
      <gs_item>-massntxt = '返岗'.
    ELSEIF <gs_item>-massn = '09'.
      <gs_item>-massntxt = '在入职'.
    ELSE.
      <gs_item>-massntxt = '退休'.
    ENDIF.

**** 部门编码、职位编码、职务编码、姓名赋值 *
*在内部表lt_pa0001中查找匹配pernr值的行，并将找到的行中的orgeh...等字段值赋给<gs_item>-orgeh等字段
    READ TABLE lt_pa0001 INTO DATA(ls_pa0001) WITH KEY pernr = <gs_item>-pernr BINARY SEARCH.
    IF sy-subrc = 0.
      <gs_item>-orgeh = ls_pa0001-orgeh.
      <gs_item>-plans = ls_pa0001-plans.
      <gs_item>-stell = ls_pa0001-stell.
      <gs_item>-sname = ls_pa0001-sname.
    ENDIF.

**** 部门描述字段赋值 *
    READ TABLE lt_orgeh INTO DATA(ls_orgeh) WITH KEY objid = <gs_item>-orgeh BINARY SEARCH.
    IF sy-subrc = 0.
      <gs_item>-orgehtxt = ls_orgeh-stext.
    ENDIF.

**** 职位描述字段赋值 *
    READ TABLE lt_plans INTO DATA(ls_plans) WITH KEY objid = <gs_item>-plans BINARY SEARCH.
    IF sy-subrc = 0.
      <gs_item>-planstxt = ls_plans-stext.
    ENDIF.

**** 职务描述字段赋值 *
    READ TABLE lt_stell INTO DATA(ls_stell) WITH KEY objid = <gs_item>-stell BINARY SEARCH.
    IF sy-subrc = 0.
      <gs_item>-stelltxt = ls_stell-stext.
    ENDIF.


**** 民族、省份、籍贯赋值 *
    READ TABLE lt_pa0002 INTO DATA(ls_pa0002) WITH KEY pernr = <gs_item>-pernr BINARY SEARCH.
    IF sy-subrc = 0.
      <gs_item>-zmzwb = ls_pa0002-zmzwb.
      <gs_item>-zhrsfwb = ls_pa0002-zhrsfwb.
      <gs_item>-zhrdjswb = ls_pa0002-zhrdjswb.
    ENDIF.

  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SET_SCR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&      --> P_
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*& Form FRM_ALV_DISPLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
FORM frm_init_alv_fcat .

  DEFINE m_fcat.

    CLEAR gs_fcat.
    gs_fcat-fieldname = &1.   "内表的字段名
    gs_fcat-coltext   = &2.   "字段描述.
    gs_fcat-edit      = &3.

    gs_fcat-ref_table = &4.
    gs_fcat-ref_field = &5.


    APPEND gs_fcat TO gt_fcat.

  END-OF-DEFINITION.

*** 定义表头字段*
  CLEAR gt_fcat[].

  m_fcat:
        'PERNR' '员工工号' '' '' '',
        'SNAME' '姓名'     '' '' '',
        'MASSNTXT' '操作类型' '' '' '',
        'ORGEHTXT' '组织单位' '' '' '',
        'PLANSTXT' '职位' '' '' '',
        'STELLTXT' '职务' '' '' '',
        'ZMZWB' '民族' '' '' '',
        'ZHRSFWB' '省份' '' '' '',
        'ZHRDJSWB' '籍贯' '' '' '',
        'ICNUM' '身份证号' '' '' ''.

ENDFORM.


*&---------------------------------------------------------------------*
*& Form FRM_ALV_DISPLAY
*&---------------------------------------------------------------------*
*& text  数据显示
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_alv_display .
  DATA:i_grid_settings TYPE  lvc_s_glay.
  gs_layout-zebra = 'X'.
  gs_layout-cwidth_opt = 'X'.
  gs_layout-box_fname = 'SEL'."add
  i_grid_settings-edt_cll_cb  = 'X'."

  PERFORM frm_init_alv_fcat.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'FRM_PF_STATUS_SET'
      i_callback_user_command  = 'FRM_USER_COMMAND'
      is_layout_lvc            = gs_layout
      it_fieldcat_lvc          = gt_fcat[]
      i_default                = 'X'
      i_save                   = 'A'
    TABLES
      t_outtab                 = gt_item
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.

ENDFORM.


FORM frm_pf_status_set USING t_ex_tcode TYPE slis_t_extab.
  DATA:
    lt_fcode TYPE TABLE OF sy-ucomm.


  SET PF-STATUS 'PF9000' EXCLUDING lt_fcode.

ENDFORM.                    "SET_PF_STATUS


FORM html_top_of_page USING document TYPE REF TO cl_dd_document.

ENDFORM.                    "HTML_TOP_OF_PAGE

FORM frm_user_command USING p_ucomm     TYPE sy-ucomm     "响应功能代码
                            p_selfield  TYPE slis_selfield.
  DATA:
    lv_ucomm LIKE sy-ucomm.
  lv_ucomm = p_ucomm.

  DATA: l_result LIKE LINE OF gt_item.

  CLEAR p_ucomm.

  CASE lv_ucomm.
    WHEN '&QD'.


  ENDCASE.

ENDFORM.