ABAP基础一：ALV样例

REPORT zly_report.

*********Report Demo****************************************
*本程序主要将普通的ALV报表做拆分讲解
*一个简单的ALV包括以下一个部分
*1.数据定义部分:这部分用来定义全局变量,包括表,结构,工作区,宏,变量等
*2.选择屏幕定义部分:这部分是用来定义选择屏幕,包括屏幕的布局等
*3.数据处理部分:这部分包括数据查询和数据处理两块,根据不同的需求和查询条件将查询结果处理,最红汇总到需要展示的内表种
*4.字段目录设置:这部分是设置ALV需要展示的字段,字段描述以及alv的属性等
*5.数据展示:调用alv函数,展示内表数据
*6.功能处理:对ALV特定功能处理

*********数据定义部分***************************************

TABLES:zhsb_order_index."用tables关键字定义一个全局的工作区/结构
TYPES:BEGIN OF ty_show,
        guid         TYPE crmt_object_guid,
        object_id    TYPE crmt_object_id_db,
        process_type TYPE crmt_process_type,
        description  TYPE crmt_process_description,
        posting_date TYPE crmt_posting_date,
        sales_org    TYPE crmt_sales_org,
        created_by   TYPE crmt_created_by,
        provider     TYPE bu_partner,
        stat_user    TYPE crm_j_status,
        zzzserialno  TYPE zserialno,
        zzzmodeno    TYPE zmodeno,
        zzfld00000n  TYPE zdtel00003y,
        name_org1    TYPE bu_nameor1,
        name_org2    TYPE bu_nameor2,
        country      TYPE land1,
        region       TYPE regio,
        city1        TYPE ad_city1,
        street       TYPE ad_street,
      END OF ty_show,
      BEGIN OF ty_but000,
        partner    TYPE bu_partner,
        name_org1  TYPE bu_nameor1,
        name_org2  TYPE bu_nameor2,
        addrnumber TYPE ad_addrnum,
      END OF ty_but000,
      BEGIN OF ty_adrc,
        addrnumber TYPE ad_addrnum,
        country    TYPE land1,
        region     TYPE regio,
        city1      TYPE ad_city1,
        street     TYPE ad_street,
      END OF ty_adrc.

DATA:gt_show   TYPE TABLE OF ty_show, "展示的内表
     gw_show   LIKE LINE OF gt_show, "数据处理对应的工作区
     vt_show   TYPE TABLE OF ty_show, "临时表
     gt_but000 TYPE TABLE OF ty_but000, "相关表
     gw_but000 LIKE LINE OF gt_but000, "相关表的工作区
     gt_adrc   TYPE TABLE OF ty_adrc, "相关表
     gw_adrc   LIKE LINE OF gt_adrc. "相关表的工作区

DATA:gt_fieldcat TYPE lvc_t_fcat, "字段目录内表
     gs_fieldcat LIKE LINE OF gt_fieldcat, "字段目录工作区
     ls_layout   TYPE lvc_s_layo. "布局

DATA:lr_grid TYPE REF TO cl_gui_alv_grid.

DATA:gt_event TYPE slis_t_event,
     gw_event LIKE LINE OF gt_event.

DATA:gw_grid_setting TYPE lvc_s_glay.

DEFINE append_fieldcat .
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname = &1."字段
  gs_fieldcat-scrtext_l = &2."显示的描述
  gs_fieldcat-outputlen = &3."输出长度
  gs_fieldcat-no_zero = &4."不显示前导0
*  gs_fieldcat-just = 'C'."居中对齐,R,L
  IF &1 = 'ZZZSERIALNO'.
    gs_fieldcat-edit = 'X'.
  ENDIF.
  APPEND gs_fieldcat TO gt_fieldcat.
END-OF-DEFINITION.

*********选择屏幕************************************************

SELECTION-SCREEN:BEGIN OF BLOCK blk01 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_id FOR zhsb_order_index-object_id,
               s_type FOR zhsb_order_index-process_type,
               s_date FOR zhsb_order_index-posting_date,
               s_sale FOR zhsb_order_index-sales_org.
SELECTION-SCREEN END OF BLOCK blk01.
SELECTION-SCREEN:BEGIN OF BLOCK blk02 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_prv FOR zhsb_order_index-provider.
SELECTION-SCREEN END OF BLOCK blk02.

START-OF-SELECTION.
**********数据处理*************************************************
  PERFORM frm_get_data."数据查询
  PERFORM frm_pro_data."数据处理

  PERFORM frm_set_field."设置字段目录,布局

  PERFORM frm_show.

*END-OF-SELECTION."非逻辑数据库不需要

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_get_data .
  "取主表数据
  SELECT  guid
          object_id
          process_type
          description
          posting_date
          sales_org
          created_by
          provider
          stat_user
          zzzserialno
          zzzmodeno
          zzfld00000n
    INTO CORRESPONDING FIELDS OF TABLE gt_show
    FROM zhsb_order_index
    WHERE object_id IN s_id
    AND   process_type IN s_type
    AND   posting_date IN s_date
    AND   sales_org IN s_sale
    AND   provider IN s_prv.

  "临时表数据准备
  vt_show[] = gt_show[].
  SORT vt_show BY provider.
  DELETE ADJACENT DUPLICATES FROM vt_show COMPARING provider.
  DELETE vt_show WHERE provider = ''.

  IF vt_show[] IS NOT INITIAL.
    "取副表数据
    SELECT but000~partner
           but000~name_org1
           but000~name_org2
           but020~addrnumber
      INTO TABLE gt_but000
      FROM but000
      INNER JOIN but020
      ON but000~partner = but020~partner
      FOR ALL ENTRIES IN vt_show
      WHERE but000~partner = vt_show-provider.

    IF gt_but000[] IS NOT INITIAL.
      "取副表数据
      SELECT addrnumber
        country
        region
        city1
        street
        INTO TABLE gt_adrc
        FROM adrc
        FOR ALL ENTRIES IN gt_but000
        WHERE addrnumber = gt_but000-addrnumber.
    ENDIF.

    REFRESH:vt_show[].
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_PRO_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_pro_data .

  LOOP AT gt_show INTO gw_show.
    READ TABLE gt_but000 INTO gw_but000 WITH KEY partner = gw_show-provider.
    IF sy-subrc = 0.
      gw_show-name_org1 = gw_but000-name_org1.
      gw_show-name_org2 = gw_but000-name_org2.
      READ TABLE gt_adrc INTO gw_adrc WITH KEY addrnumber = gw_but000-addrnumber.
      IF sy-subrc = 0.
        gw_show-country = gw_adrc-country.
        gw_show-region = gw_adrc-region.
        gw_show-city1 = gw_adrc-city1.
        gw_show-street = gw_adrc-street.
      ENDIF.
    ENDIF.
    MODIFY gt_show FROM gw_show.
  ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_FIELD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_set_field .
  append_fieldcat:'OBJECT_ID'             '服务单号'               10   'X',
                  'PROCESS_TYPE'          '单据类型'               4    '',
                  'DESCRIPTION'           '单据描述'               40   '',
                  'POSTING_DATE'          '创建日期'               10   '',
                  'SALES_ORG'             '销售组织'               14   '',
                  'CREATED_BY'            '创建用户'               12   '',
                  'PROVIDER'              '服务商'                 10   'X',
                  'STAT_USER'             '单据状态'               5    '',
                  'ZZZSERIALNO'           '序列号'                 30   '',
                  'ZZZMODENO'             '型号'                   40   '',
                  'ZZFLD00000N'           '服务类型'               2    '',
                  'NAME_ORG1'             '服务商名称1'            40   '',
*                  'NAME_ORG2'             '服务商名称2'            40   '',
                  'COUNTRY'               '国家'                   3    '',
                  'REGION'                '省份'                   3    '',
                  'CITY1'                 '城市'                   40   '',
                  'STREET'                '街道'                   60   ''.

  ls_layout-cwidth_opt    = 'X'. "优化列宽选项是否设置
  ls_layout-zebra                = 'X'.

  gw_event-form = 'DATA_CHANGED_METHOD'.
  gw_event-name = 'DATA_CHANGED'.
  APPEND gw_event TO gt_event.

  gw_grid_setting-edt_cll_cb = 'X'.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_SHOW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_show .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'PRM_SET_STATUS'
      i_callback_user_command  = 'PRM_USER_COMMAND'
      is_layout_lvc            = ls_layout
      it_fieldcat_lvc          = gt_fieldcat[]
      i_grid_settings          = gw_grid_setting
*     I_GRID_TITLE             = LV_TITLE
      i_default                = 'X'
      i_save                   = 'A'
      it_events                = gt_event[]
    TABLES
      t_outtab                 = gt_show
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.
FORM prm_set_status USING rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'ZSTAT'.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lr_grid.

ENDFORM.
FORM prm_user_command USING p_ucomm    LIKE sy-ucomm
                        p_selfield TYPE slis_selfield.

  CHECK p_ucomm = '&IC1'.

  READ TABLE gt_show INTO gw_show INDEX p_selfield-tabindex.
  IF sy-subrc = 0.
  ENDIF.
ENDFORM.
FORM data_changed_method
              USING pa_data_changed TYPE REF TO cl_alv_changed_data_protocol .
  DATA:
    l_it_data TYPE         lvc_t_modi,
    l_wa_data LIKE LINE OF l_it_data.
  FIELD-SYMBOLS:<lv_field> TYPE any.

  l_it_data = pa_data_changed->mt_mod_cells.

  CHECK l_it_data IS NOT INITIAL.

  LOOP AT pa_data_changed->mt_mod_cells INTO l_wa_data.
    READ TABLE gt_show INTO gw_show INDEX l_wa_data-row_id.
    IF sy-subrc = 0.
      ASSIGN COMPONENT l_wa_data-fieldname OF STRUCTURE gw_show TO <lv_field>.
      IF sy-subrc = 0.
        <lv_field> = l_wa_data-value.
        MODIFY gt_show FROM gw_show INDEX l_wa_data-row_id.
      ENDIF.
    ENDIF.
  ENDLOOP.

  CALL METHOD lr_grid->refresh_table_display.
ENDFORM.                    " DATA_CHANGED_METHOD