选择屏幕搜索帮助实现多值添加（转）

 

  TABLES: ZTBXYZH, ZTBXYZHI ,ZTBXYZCASETABSM.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS S_NR     FOR ZTBXYZH-BXYZNR..
SELECT-OPTIONS S_CASE   FOR ZTBXYZH-CASENAME..
SELECT-OPTIONS S_TYPE   FOR ZTBXYZH-PLATE..

SELECTION-SCREEN END OF BLOCK B1.

  AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NR-LOW.

  PERFORM SUB_HELP_NR USING S_NR-LOW.

  FORM SUB_HELP_NR  USING UV_NR.

  DATA:  L_ROW      LIKE SY-TABIX,

         LT_SYSTEMS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.
  DATA   RETURN_TAB LIKE TABLE OF  DDSHRETVAL  WITH HEADER LINE.
*
  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      TABNAME           = 'ZTBXYZH'   "数据字典中的表明
      FIELDNAME         = 'BXYZNR'  "数据字典中的字段名
      SEARCHHELP        = 'ZTBXYZH_HELP'
    TABLES
      RETURN_TAB        = RETURN_TAB
    EXCEPTIONS
      FIELD_NOT_FOUND   = 1
      NO_HELP_FOR_FIELD = 2
      INCONSISTENT_HELP = 3
      NO_VALUES_FOUND   = 4
      OTHERS            = 5.

*取出屏幕行

  READ TABLE RETURN_TAB INDEX 1.

  CHECK SY-SUBRC = 0.

  DATA LS_BATCH TYPE ZTBXYZH.

  SELECT SINGLE * INTO LS_BATCH
  FROM ZTBXYZH
   WHERE BXYZNR =   RETURN_TAB-FIELDVAL.

  UV_NR = RETURN_TAB-FIELDVAL.

  LT_SYSTEMS-FIELDNAME  = 'S_TYPE-LOW'.
  LT_SYSTEMS-FIELDVALUE = LS_BATCH-TYPE.
  APPEND LT_SYSTEMS.

  LT_SYSTEMS-FIELDNAME  = 'S_CASE-LOW'.
  LT_SYSTEMS-FIELDVALUE = LS_BATCH-CASENAME.
  APPEND LT_SYSTEMS.

  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      DYNAME               = SY-REPID
      DYNUMB               = SY-DYNNR
    TABLES
      DYNPFIELDS           = LT_SYSTEMS
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 1
      INVALID_DYNPROFIELD  = 2
      INVALID_DYNPRONAME   = 3
      INVALID_DYNPRONUMMER = 4
      INVALID_REQUEST      = 5
      NO_FIELDDESCRIPTION  = 6
      UNDEFIND_ERROR       = 7
      OTHERS               = 8.
  IF SY-SUBRC <> 0.

  ENDIF.

ENDFORM.                    " SUB_HELP_NR