集合搜索帮助

供应商和客户集合搜索帮助:

集中检索帮助         ZSH_FI_KUR_LIF1
Short description    客户供应商组合搜索帮助

user-exit:
ZGL_ACCT_F4_EXIT_SET_GET

parameters:
BUKRS 
LIFNR 
KUNNR 


included search helps:(
每个都要点击按钮"Param.Assighnment")
DEBIA 客户 (一般)
DEBID 客户(按公司代码)
KREDA 供应商 (一般)
KREDI 按国家/公司代码的供应商

ZGL_ACCT_F4_EXIT_SET_GET的代码:

FUNCTION zgl_acct_f4_exit_set_get.
* Local fields

  FIELD-SYMBOLS:
         TYPE shlp_descr_t,
           TYPE LINE OF shlp_descr_t-interface,
       TYPE LINE OF shlp_descr_t-fieldprop.
  DATA:
      ktopl    LIKE t004-ktopl.

  DATA:p_flag(1).
* For SELONE only
  CHECK callcontrol-step = 'RETTOP'.

 LOOP AT shlp-fieldprop ASSIGNING  WHERE fieldname =  'LIFNR'  .

    p_flag = -shlpoutput.

  ENDLOOP.

  CHECK p_flag = '' .

  LOOP AT shlp-interface ASSIGNING  WHERE shlpfield =  'LIFNR'  .
    -shlpfield = 'KUNNR'.

  ENDLOOP.

  CLEAR .

  LOOP AT shlp-fieldprop ASSIGNING  WHERE fieldname =  'KUNNR'  .

    -shlpoutput = 'X'.

  ENDLOOP.







ENDFUNCTION.



*