Z_SEARCH_HELP_FSX

还没有实现根据屏幕其他字段筛选搜索数据

*&---------------------------------------------------------------------*
*& Report  Z_SEARCH_HELP_FSX
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z_search_help_fsx.

DATA:BEGIN OF s_find,
       dispo  LIKE marc-dispo,
       dsnam  LIKE t024d-dsnam,
     END OF s_find.

CALL SCREEN 100.

*&---------------------------------------------------------------------*
*&      Module  help_mod  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE help_mod INPUT.

  DATA: selectfield  LIKE help_info-fieldname,
        it_fields    LIKE help_value OCCURS 0 WITH HEADER LINE,
        select_value LIKE help_info-fldvalue,
        ld_tabix     LIKE sy-tabix.
  DATA screen_field LIKE dynpread OCCURS 0 WITH HEADER LINE.
  DATA : BEGIN OF it_value OCCURS 0,
            dispo  LIKE t024d-dispo,
            dsnam  LIKE t024d-dsnam,
          END OF it_value.

  REFRESH: it_value, it_fields,screen_field.
*
  SELECT dispo dsnam
    INTO TABLE it_value
    FROM t024d
   WHERE werks = '1000'.

  it_fields-tabname = 'T024D'.
  it_fields-fieldname = 'DISPO'.
  it_fields-selectflag = 'X'.
  APPEND it_fields. CLEAR it_fields.
  it_fields-tabname = 'T024D'.
  it_fields-fieldname = 'DSNAM'.
  it_fields-selectflag = ' '.
  APPEND it_fields. CLEAR it_fields.
*
  CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
    EXPORTING
      selectfield  = selectfield
    IMPORTING
      ind          = ld_tabix
      select_value = select_value
    TABLES
      fields       = it_fields
      full_table   = it_value.
*
  screen_field-fieldname = 'S_FIND-DISPO'.
  WRITE select_value TO screen_field-fieldvalue LEFT-JUSTIFIED.
  APPEND screen_field.
  READ TABLE it_value WITH KEY dispo = select_value.
  screen_field-fieldname = 'S_FIND-DSNAM'.
  WRITE it_value-dsnam TO screen_field-fieldvalue LEFT-JUSTIFIED.
  APPEND screen_field.

  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      dyname     = sy-cprog
      dynumb     = '0100'
    TABLES
      dynpfields = screen_field.

ENDMODULE.                 " help_mod  INPUT

 

 

**逻辑流

 

PROCESS BEFORE OUTPUT.
* MODULE STATUS_0100.
*
PROCESS AFTER INPUT.

* MODULE USER_COMMAND_0100.

 

PROCESS ON VALUE-REQUEST.

  FIELD s_find-dispo MODULE help_mod.

 

**屏幕字段

只有一个MRP控制者字段S_FIND-DISPO