1

2

3

4

5

6

7

8

9

10

11

12

13

*数据准备

*常规定义变量，内表结构，工作区，内表，包。。。。

你的代码

*系统变量准备

*如layout，fieldcat 等 系统变量

你的代码

*选择屏幕

你的代码

*INITIALIZATION

*at SELECTION-SCREEN .

"START-OF-SELECTION

"End-OF-SELECTION .

“子例程及自定义宏

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

TABLES : MARA .

*数据准备

"定义结构

TYPES : BEGIN OF gw_Data ,

    MATNR TYPE MATNR ,

    MEINS TYPE MEINS ,

    MAKTX TYPE MAKTX ,

  end of gw_Data .

"定义工作区及内表

data : gs_data TYPE gw_Data .

data :gt_data TYPE table of gw_Data .

"alv 数据

*--------------------------------------------------------------------*

*  通用ALV变量

*--------------------------------------------------------------------*

DATA: wa_layout   TYPE lvc_s_layo.

DATA:wa_fieldcat TYPE lvc_s_fcat,

     gt_fieldcat TYPE lvc_t_fcat.

DATA:gs_glay TYPE  lvc_s_glay.

DATA : gv_error TYPE c.

DATA : BS1 TYPE C.

1

2

3

SELECTION-SCREEN BEGIN OF BLOCK BLOCK  WITH FRAME TITLE TEXT-001 .

  PARAMETERS  p_p1  TYPE mara-matnr OBLIGATORY.   "料号

  SELECTION-SCREEN END OF BLOCK BLOCK .

1

2

INITIALIZATION  .

%_p_p1_%_app_%-text = '物料号'.  "设定选择屏幕初始化名称

1

2

at SELECTION-SCREEN .

PERFORM check_auth .  "权限检查

1

2

START-OF-SELECTION    .

PERFORM get_DAta  .  "获取数据属性

1

2

End-OF-SELECTION .

PERFORM diaplay_data.   "展示alv

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

"获取数据子程序

FORM get_DAta .

select a~matnr,a~MEINS,b~maktx  

from mara as a inner join makt as b

on a~matnr = b~MATNR where a~ZMATNR = @p_p1 into table @data(lt_outdata) .

ENDFORM .

*展示alv 子程序 直接复制

FORM diaplay_data .

PERFORM set_alv_layout.   "样式设定

PERFORM bulid_fieldcat.   "格式设定

PERFORM call_alv_func.    "alv 函数

ENDFORM.

"样式设定  直接复制

FORM set_alv_layout .

 CLEAR: wa_layout.

 wa_layout-zebra      = 'X'.      "斑马线

 wa_layout-cwidth_opt = 'X'.      "自动列宽

ENDFORM.

"格式设定  固定换数

FORM bulid_fieldcat .

 DEFINE add_col.

*    ADD 1 TO pos.

*    lw_fieldcat-col_pos = pos.

    wa_fieldcat-fieldname = &1.

    wa_fieldcat-ref_field = &2.

    wa_fieldcat-ref_table = &3.

    wa_fieldcat-scrtext_l = &4.

    wa_fieldcat-outputlen = &5.

    wa_fieldcat-no_zero = &6.

    wa_fieldcat-edit = &7.

    wa_fieldcat-edit_mask = &8.

    wa_fieldcat-key = &9.

   CASE  wa_fieldcat-fieldname.

      WHEN 'slbox'.

 wa_fieldcat-checkbox = 'X' .

 wa_fieldcat-edit = 'X' .

  wa_fieldcat-edit_mask = 'X'.

      WHEN OTHERS.

ENDCASE .

    APPEND wa_fieldcat TO gt_fieldcat.

  CLEAR : wa_fieldcat.

  END-OF-DEFINITION.

  REFRESH: gt_fieldcat.

  "add_col 'matnr'     space space '物料号'           space space space space space.

  add_col 'MEINS'     space space '单位'           space space space space space.

  add_col 'maktx'     space space '物料名'           space space space space space.

ENDFORM.

"刷新 固定复制

FORM refresh_alv .

  DATA: lo_grid   TYPE REF TO cl_gui_alv_grid,

        lw_stable TYPE lvc_s_stbl.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

    IMPORTING

      e_grid = lo_grid.

  lw_stable-row = 'X'.

  lw_stable-col = 'X'.

  lo_grid->refresh_table_display(

    EXPORTING

      is_stable = lw_stable

    EXCEPTIONS

      finished  = 1

      OTHERS    = 2 ).

ENDFORM.

"固定,只需要传内表就行

FORM call_alv_func .

  gs_glay-edt_cll_cb = abap_true.     " 选中复选款，立刻触发data changed 事件

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

    EXPORTING

      i_callback_program       = sy-repid           "回调程序

      i_callback_pf_status_set = 'SET_PF_STATUS'

      i_callback_user_command  = 'USER_COMMAND'

            i_grid_settings          = gs_glay

      is_layout_lvc            = wa_layout

      it_fieldcat_lvc          = gt_fieldcat        "需要显示的内表的列

      i_save                   = 'A'

    TABLES

      t_outtab                 =    lt_outdata      "需要显示的数据

    EXCEPTIONS

      program_error            = 1

      OTHERS                   = 2.

  IF sy-subrc <> 0.

  ENDIF.

ENDFORM.

"staus  工具栏 直接复制

FORM set_pf_status USING rt_extab TYPE slis_t_extab.

  DATA : lw_tab LIKE LINE OF rt_extab.

  REFRESH rt_extab.

 SET PF-STATUS 'STD' EXCLUDING rt_extab.

ENDFORM.

"用户事件 ,这里没写. 但是如果设定函数双击会apap dump

FORM user_command  USING r_ucomm LIKE sy-ucomm

                         rs_selfield TYPE slis_selfield.

  CASE r_ucomm.

*   导入

    WHEN '&IMPLE'.

  ENDCASE.

ENDFORM.

"权限检查,按照不同的情况调用不同的函数,这里需要更换.

*&---------------------------------------------------------------------*

*& Form check_auth

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& -->  p1        text

*& <--  p2        text

*&---------------------------------------------------------------------*

FORM check_auth .

"select  SINGLE WERKS, KUNNR  into  @data(ls_t001w) from  t001w  WHERE WERKS  = @p_p1  .

 AUTHORITY-CHECK OBJECT 'M_MSEG_WMB'

  ID 'ACTVT'  DUMMY

  ID 'WERKS' FIELD p_p1 .

IF sy-subrc <> 0.

* Implement a suitable exception handling here

ENDIF.

ENDFORM.