动态选择屏幕

不是自创的，群里大神分享的，应该是QA32，QA16等程序里都有的。

 

*&---------------------------------------------------------------------*
*& Report  ZLYTEST_SCREEN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZLYTEST_SCREEN.
DATA: LV_SELECTION_ID TYPE                   RSDYNSEL-SELID,
      LT_TABLES_TAB   TYPE STANDARD TABLE OF RSDSTABS,
      LS_TABLES_TAB   TYPE                   RSDSTABS.
DATA: LT_FIELDS_TAB    TYPE STANDARD TABLE OF RSDSFIELDS,
      LT_WHERE_CLAUSES TYPE                   RSDS_TWHERE,
      GS_WHERE_CLAUSES LIKE LINE OF           LT_WHERE_CLAUSES.
DATA:GT_ZTSD_LSXY TYPE TABLE OF ZTSD_LSXY.
DATA:LV_TABNAME TYPE TABNAME VALUE 'ZTSD_LSXY'.
"可以多个表，字段等
LS_TABLES_TAB-PRIM_TAB = LV_TABNAME.
APPEND LS_TABLES_TAB TO LT_TABLES_TAB.
CALL FUNCTION 'FREE_SELECTIONS_INIT'
  EXPORTING
    KIND                     = 'T'
  IMPORTING
    SELECTION_ID             = LV_SELECTION_ID
  TABLES
    TABLES_TAB               = LT_TABLES_TAB
  EXCEPTIONS
    FIELDS_INCOMPLETE        = 1
    FIELDS_NO_JOIN           = 2
    FIELD_NOT_FOUND          = 3
    NO_TABLES                = 4
    TABLE_NOT_FOUND          = 5
    EXPRESSION_NOT_SUPPORTED = 6
    INCORRECT_EXPRESSION     = 7
    ILLEGAL_KIND             = 8
    AREA_NOT_FOUND           = 9
    INCONSISTENT_AREA        = 10
    KIND_F_NO_FIELDS_LEFT    = 11
    KIND_F_NO_FIELDS         = 12
    TOO_MANY_FIELDS          = 13
    DUP_FIELD                = 14
    FIELD_NO_TYPE            = 15
    FIELD_ILL_TYPE           = 16
    DUP_EVENT_FIELD          = 17
    NODE_NOT_IN_LDB          = 18
    AREA_NO_FIELD            = 19
    OTHERS                   = 20.
IF SY-SUBRC EQ 0.
  CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
    EXPORTING
      SELECTION_ID    = LV_SELECTION_ID
      TITLE           = '选择'
      FRAME_TEXT      = '查询条件'
      AS_WINDOW       = 'X'
    IMPORTING
      WHERE_CLAUSES   = LT_WHERE_CLAUSES
    TABLES
      FIELDS_TAB      = LT_FIELDS_TAB
    EXCEPTIONS
      INTERNAL_ERROR  = 1
      NO_ACTION       = 2
      SELID_NOT_FOUND = 3
      ILLEGAL_STATUS  = 4
      OTHERS          = 5.
  IF SY-SUBRC EQ 0.
    CLEAR GS_WHERE_CLAUSES.

  ENDIF.
ENDIF.

"根据不同的查询表，将查询参数一次加入各个表
READ TABLE LT_WHERE_CLAUSES INTO GS_WHERE_CLAUSES
      WITH KEY TABLENAME = LV_TABNAME.
IF SY-SUBRC = 0.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_ZTSD_LSXY
  FROM ZTSD_LSXY WHERE ZJLH <> '' AND (GS_WHERE_CLAUSES-WHERE_TAB) .
ENDIF.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM = SY-REPID
    I_STRUCTURE_NAME   = 'ZTSD_LSXY'
  TABLES
    T_OUTTAB           = GT_ZTSD_LSXY
  EXCEPTIONS
    PROGRAM_ERROR      = 1
    OTHERS             = 2.
IF SY-SUBRC <> 0.
ENDIF.