`

sap选择屏幕中的搜索帮助

 
阅读更多

 在标准程序中增加两个parameters

 parameters:     p_matcat   like ausp-atwrt .
parameters:     p_concat   like cawn-atwrt .

然后在initialization后加入

 at selection-screen on value-request for p_matcat.
  perform f4_for_matcat using 'N_MATERIAL_CAT'.
at selection-screen on value-request for p_concat.
  perform f4_for_matcat using 'N_TECH_CONTROL'.

接下来的form

 form f4_for_matcat using iv_var type api_vali-atnam .
     " f4 help material category  control catagory
data: gs_features like klvmera,
      gt_features like table of klvmera,
      gs_values   like api_vali,
      gt_values   like table of api_vali.

  call function 'CLME_FEATURE_ATTR_OF_CLASS_ALL'
      exporting
        class             = 'N_QA_CLASS'
        classtype         = '001'
        language          = sy-langu
        key_date          = sy-datum
        with_values       = 'X'
        i_sorted_by_class = 'X'
      tables
        tfeatures         = gt_features
        tvalues           = gt_values
      exceptions
        class_not_found   = 1
        no_authority      = 2
        others            = 3.
    if sy-subrc <> 0.
      ...
    endif.
** About F4 help
databegin of gs_f4tab,
        atnam like cabn-atnam,
        atwrt like cawn-atwrt,
        atwtb like cawnt-atwtb,
      end of gs_f4tab,
      gt_f4    like table of gs_f4tab.
 clear: gt_f4, gt_f4[].
    loop at gt_values into gs_values
                      where atnam = iv_var.
      gs_f4tab-atnam = gs_values-atnam.
      gs_f4tab-atwrt = gs_values-atwrt.
      gs_f4tab-atwtb = gs_values-atwtb.
      append gs_f4tab to gt_f4.
      clear: gs_f4tab, gs_values.
    endloop.

   call function 'F4IF_INT_TABLE_VALUE_REQUEST'
      exporting
        retfield        = 'ATWRT'
        dynpprog        = sy-repid
        dynpnr          = sy-dynnr
        value_org       = 'S'
      tables
        value_tab       = gt_f4
      exceptions
        parameter_error = 0
        no_values_found = 0
        others          = 0.
   endform.

还有一种做法就是在se11里面建立search help 这个网上比较常见一些

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics