ALV 搜索帮助

SE11建立F4

原因代码

FUNCTION zfi_rstgr_search_exit.
*"----------------------------------------------------------------------
*"*"局部接口：
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCT
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     VALUE(SHLP) TYPE  SHLP_DESCR
*"     VALUE(CALLCONTROL) TYPE  DDSHF4CTRL
*"----------------------------------------------------------------------

  DATA: BEGIN OF ls_record.
          INCLUDE STRUCTURE seahlpres.
  DATA: END OF ls_record.
  DATA: lv_line TYPE i.

  IF callcontrol-step   =   'DISP' .
    LOOP AT record_tab INTO ls_record.
      lv_line = sy-tabix.
      IF ls_record+3(4) NE '3009'.
        IF ls_record+7(1) NE 'X' AND ls_record+7(1) NE 'Y'.
          DELETE record_tab INDEX lv_line.
        ENDIF.
        IF ls_record+7(3) EQ 'Y98' OR ls_record+7(3) EQ 'Y99'.
          DELETE record_tab INDEX lv_line.
        ENDIF.
      ENDIF.

      CLEAR lv_line.
    ENDLOOP.
  ENDIF.



ENDFUNCTION.

建立视图