ALV报表——选择屏幕变量赋值

ABAP选择屏幕变量赋值

运行效果：

代码：

************************************************************************

* Program Name      :

* Descriptions      :

* T-Code            :

* Updates Tables    :

* Input  Parameters :

* Output Parameters :

* Return Codes      :

* Special Logic     :

* Includes          :

************************************************************************

* Modification Log

************************************************************************

*   Date   Ver. Programmer   Descriptions

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

* 2011 01.01  Original Create

*

************************************************************************

REPORT ZMMRTEST.

***********************************************************************

* Tables Definitions

************************************************************************

*TABLES:.

************************************************************************

TABLES: mard.

* Data Definitions

************************************************************************

************************************************************************

* Includes Module

************************************************************************

************************************************************************

* Selection Screen

************************************************************************

PARAMETERS: p_werks LIKE marc-werks DEFAULT ''.

SELECT-OPTIONS: s_date FOR sy-datum,  "日期范围

                         s_matnr FOR mard-matnr,

                         s_lgort  FOR mard-lgort.

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

 PERFORM screen_data.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

END-OF-SELECTION.

FORM screen_data.

  DATA:  lt_mdlg  LIKE mdlg occurs  WITH HEADER LINE.

  DATA: l_firstday_tm TYPE sy-datum, "本月第一天

            l_lastday_lm TYPE sy-datum, "上个月最后一天

            l_firstday_lm TYPE sy-datum. "上个月第一天

  CONCATENATE sy-datum+() '' INTO l_firstday_tm.

  l_lastday_lm = l_firstday_tm - .

  CONCATENATE l_lastday_lm+() '' INTO l_firstday_lm.

  "上个月范围

  s_date-sign     = 'I'.

  s_date-option = 'BT'.

  s_date-low = l_firstday_lm.

  s_date-high = l_lastday_lm.

  APPEND s_date.CLEAR s_date.

  "单一值物料

  s_matnr-sign = 'I'.

  s_matnr-option = 'EQ'.

  s_matnr-low = 'ATBA3002-XX'.

  APPEND s_matnr.CLEAR s_matnr.

  s_matnr-sign = 'I'.

  s_matnr-option = 'EQ'.

  s_matnr-low = 'C60011-14-BT'.

  APPEND s_matnr.CLEAR s_matnr.

  IF p_werks = ''.

    SELECT * INTO TABLE lt_mdlg

                 FROM mdlg

                 WHERE berid = '2000_ND'.

  ELSEIF p_werks = ''.

    SELECT * INTO TABLE lt_mdlg

                 FROM mdlg

                 WHERE berid = '3000_ND'.

  ENDIF.

  "不包含单一值

  LOOP AT lt_mdlg.

    s_lgort-sign = 'E'.

    s_lgort-option = 'EQ'.

    s_lgort-low = lt_mdlg-lgort.

    APPEND s_lgort.CLEAR s_lgort.

  ENDLOOP.

ENDFORM.