ABAP 省市县级联搜索帮助

在展示ABAP代码之前，先建立自建表ZCHENH006，表中包含两个关键字段 BELNR(地区编码)，SDESC(地区描述)。

编码规则参考：身份证前六位地区编码规则，可参考我另外一篇Blog导入系统：ABAP自动生成身份证及校验。

在导入配置之后，可以参考以下ABAP代码。

 *&---------------------------------------------------------------------*
 *& REPORT  ZCHENH014
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT zchenh014.
 TABLES:zchenh006.
 SELECTION-SCREEN BEGIN OF LINE.
 PARAMETERS:p_sdesc TYPE zchenh006-sdesc DEFAULT '请选择省份信息'.
 PARAMETERS:p_belnr TYPE zchenh006-belnr.

 SELECTION-SCREEN END OF LINE.

 SELECTION-SCREEN BEGIN OF LINE.
 PARAMETERS:p_sdesc1 TYPE zchenh006-sdesc DEFAULT '请选择市信息'.
 PARAMETERS:p_belnr1 TYPE zchenh006-belnr.

 SELECTION-SCREEN END OF LINE.

 SELECTION-SCREEN BEGIN OF LINE.
 PARAMETERS:p_sdesc2 TYPE zchenh006-sdesc DEFAULT '请选择县/区信息'.
 PARAMETERS:p_belnr2 TYPE zchenh006-belnr.
 SELECTION-SCREEN END OF LINE.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_belnr.
   PERFORM frm_f4_get_belnr USING '省' CHANGING p_belnr p_sdesc.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_belnr1.
   PERFORM frm_f4_get_belnr USING '市' CHANGING p_belnr1 p_sdesc1.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_belnr2.
   PERFORM frm_f4_get_belnr USING '县' CHANGING p_belnr2 p_sdesc2.

 AT SELECTION-SCREEN OUTPUT.
   PERFORM frm_modify_screen.

 INITIALIZATION.
 *&---------------------------------------------------------------------*
 *&      Form  frm_f4_get_belnr
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_f4_get_belnr USING p_in CHANGING p_out1 p_out2.
   DATA:lt_field TYPE dfies      OCCURS  WITH HEADER LINE,
        lt_ret   TYPE ddshretval OCCURS  WITH HEADER LINE,
        lt_dyn   TYPE dselc      OCCURS  WITH HEADER LINE.
   DATA:BEGIN OF lt_zchenh006 OCCURS  ,
         sdesc TYPE zchenh006-sdesc, " 省市县代码
         belnr TYPE zchenh006-belnr, " 省市县描述
        END OF lt_zchenh006.
   DATA:lv_belnr().
   IF p_in = '省'.
     SELECT sdesc belnr
       INTO TABLE lt_zchenh006
       FROM zchenh006
       WHERE belnr LIKE '%0000'.
   ENDIF.

   IF p_in = '市'.
     lv_belnr = p_belnr+() && '%'.
     SELECT  sdesc  belnr
       INTO TABLE lt_zchenh006
       FROM zchenh006
     WHERE belnr LIKE lv_belnr
     AND belnr LIKE '%00'
     AND belnr NE  p_in
     AND sdesc NE '县'.
   ENDIF.

   IF p_in = '县'.
     lv_belnr = p_belnr1+() && '%'.
     SELECT sdesc belnr
       INTO TABLE lt_zchenh006
       FROM zchenh006
      WHERE belnr NOT LIKE '%00'
 *       AND belnr NOT LIKE '%01'
        AND belnr  LIKE lv_belnr
        AND belnr  NE  p_belnr1.
   ENDIF.

   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
       retfield         = 'ZCHENH006-BELNR'
       dynpprog         = sy-repid
       dynpnr           = sy-dynnr
       dynprofield      = 'P_BELNR'
       window_title     = '自定义搜索帮助'
       value_org        = 'S'
       callback_program = sy-repid
     TABLES
       value_tab        = lt_zchenh006
       field_tab        = lt_field
       return_tab       = lt_ret
       dynpfld_mapping  = lt_dyn
     EXCEPTIONS
       parameter_error  =
       no_values_found  =
       OTHERS           = .
   LOOP AT lt_ret.
     p_out1 = lt_ret-fieldval.
     SELECT SINGLE sdesc INTO p_out2 FROM zchenh006 WHERE belnr = p_out1.
     IF sy-subrc NE .
       p_out2 = '无效编号'.
     ENDIF.
   ENDLOOP.
 ENDFORM.                    " frm_f4_get_belnr
 *&---------------------------------------------------------------------*
 *&      Form  FRM_MODIFY_SCREEN
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_modify_screen .
   LOOP AT SCREEN.
     CASE screen-name.
       WHEN 'P_SDESC'.
         screen-input = .
         IF  p_sdesc IS INITIAL.
           screen-active = .
         ENDIF.
       WHEN 'P_SDESC1'.
         screen-input = .
         IF  p_sdesc1 IS INITIAL.
           screen-active = .
         ENDIF.
       WHEN 'P_SDESC2'.
         screen-input = .
         IF  p_sdesc2 IS INITIAL.
           screen-active = .
         ENDIF.
     ENDCASE.
     MODIFY SCREEN.
   ENDLOOP.

 ENDFORM.                    " FRM_MODIFY_SCREEN

但是该代码有个瑕疵，每次选择完毕后，需要按下"回车",才能显示完整的地区描述信息。