SAP技巧之修改自帶搜尋幫助為自定資料集

2022-12-01 14:04:06

序

HELLO ,這裡是百里,一個學習中的ABAPER,在SAP開中傳統會經常遇到選擇螢幕,正常系統自帶的資料元素可以解決大部分資料搜尋幫助的問題,但是一些自開發,或者使用者客製化的選擇螢幕就會出現搜尋幫助不存在的情況.此時需要自行建立選擇幫助.本案例將詳細介紹F4,選擇幫助的使用方式.

什麼是F4搜尋幫助

在標準的SAP中，提供了大量的資料元素型別，我們定義選擇螢幕時候只要參考表標準資料資料元素，就提供自帶的選擇幫助資料。我們增加的F4選擇幫助就是參考標準的製作的。

技術介紹

我們呼叫函數F4IF_INT_TABLE_VALUE_REQUEST ,傳輸取數內表,到 value_tab

設定對應匹配欄位值 retfield ,然後設定對應的LOW 或者 HIGH 取數值 DYNPROFIELD .

FORM f_Create_username .  
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'  
  EXPORTING  
*   DDIC_STRUCTURE         = ' '  
    retfield               = 'USNAM'  
*   PVALKEY                = ' '  
  DYNPPROG               = SY-REPID  
  DYNPNR                 = SY-DYNNR  
  DYNPROFIELD            = 's_name-low'  
*   STEPL                  = 0  
*   WINDOW_TITLE           =  
*   VALUE                  = ' '  
   VALUE_ORG              = 'S'  
*   MULTIPLE_CHOICE        = ' '  
*   DISPLAY                = ' '  
*   CALLBACK_PROGRAM       = ' '  
*   CALLBACK_FORM          = ' '  
*   CALLBACK_METHOD        =  
*   MARK_TAB               =  
* IMPORTING  
 " USER_RESET             = 'S'  
  tables  
    value_tab              =     gt_Data  
*   FIELD_TAB              =  
*   RETURN_TAB             =  
*   DYNPFLD_MAPPING        =  
 EXCEPTIONS  
   PARAMETER_ERROR        = 1  
   NO_VALUES_FOUND        = 2  
   OTHERS                 = 3  
          .  
IF sy-subrc <> 0.  
* Implement suitable error handling here  
ENDIF.  
ENDFORM.

範例展示

本案例內容為自建表,對應1000螢幕內的選擇螢幕取數介紹. 通過給LOW 和 HIGH 設定對應的值跳出對應的選擇資料.

資料準備

tables  : znametable1 .  
data : gs_data  TYPE  znametable1 .  
data : gt_Data TYPE TABLE of znametable1 .  
sELECT-OPTIONS : s_name for  znametable1-name  .  
SELECT-OPTIONS : s_age for  znametable1-age  .

選擇螢幕幫助

at SELECTION-SCREEN on VALUE-REQUEST FOR s_name-low . 
PERFORM f_Create_username . 
at SELECTION-SCREEN on VALUE-REQUEST FOR s_name-high .
PERFORM f_Create_username .

獲取資料及呼叫函數

FORM f_get_username .  
SELECT  NAME   AGE    INTO CORRESPONDING FIELDS OF TABLE  gt_Data FROM znametable1  .  
ENDFORM.  
*&---------------------------------------------------------------------*  
*& Form f_Create_username  
*&---------------------------------------------------------------------*  
*& text  
*&---------------------------------------------------------------------*  
*& -->  p1        text  
*& <--  p2        text  
*&---------------------------------------------------------------------*  
FORM f_Create_username .  
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'  
  EXPORTING  
*   DDIC_STRUCTURE         = ' '  
    retfield               = 'NAME'  
*   PVALKEY                = ' '  
  DYNPPROG               = SY-REPID  
  DYNPNR                 = SY-DYNNR  
  DYNPROFIELD            = 's_name-low'  
*   STEPL                  = 0  
*   WINDOW_TITLE           =  
*   VALUE                  = ' '  
   VALUE_ORG              = 'S'  
*   MULTIPLE_CHOICE        = ' '  
*   DISPLAY                = ' '  
*   CALLBACK_PROGRAM       = ' '  
*   CALLBACK_FORM          = ' '  
*   CALLBACK_METHOD        =  
*   MARK_TAB               =  
* IMPORTING  
 " USER_RESET             = 'S'  
  tables  
    value_tab              =     gt_Data  
*   FIELD_TAB              =  
*   RETURN_TAB             =  
*   DYNPFLD_MAPPING        =  
 EXCEPTIONS  
   PARAMETER_ERROR        = 1  
   NO_VALUES_FOUND        = 2  
   OTHERS                 = 3  
          .  
IF sy-subrc <> 0.  
* Implement suitable error handling here  
ENDIF.  
ENDFORM.