ABAP f4帮助输入多个值

Posted 2020-09-12 Rainystuday

*----------------------------------------------------------------------
*  INITIALIZATION
*----------------------------------------------------------------------
INITIALIZATION.
* 初始化数据
  PERFORM frm_initial.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR: zw_laufd .
  PERFORM frm_f4_laufd USING zw_laufd .



*&---------------------------------------------------------------------*
*&      Form  FRM_F4_LAUFD
*&---------------------------------------------------------------------*
FORM frm_f4_laufd  USING  zw_laufd.
  DATA: BEGIN OF tlaufk OCCURS 1.
          INCLUDE STRUCTURE ilaufk.
  DATA: END OF tlaufk.

  REFRESH tlaufk.
  tlaufk-laufk = space.
  tlaufk-sign  = ‘I‘.
  APPEND tlaufk.

  CALL FUNCTION ‘F4_ZAHLLAUF‘
    EXPORTING
      f1typ            = ‘D‘
      f2nme            = ‘F110V-LAUFI‘
    IMPORTING
      laufd            = f110v-laufd
      laufi            = f110v-laufi
      nothing_selected = xf4_c1
    TABLES
      laufk            = tlaufk.
  zw_laufd = f110v-laufd.
  IF xf4_c1 IS INITIAL.

  ENDIF.

  DATA:lt_dynpread TYPE dynpread OCCURS 0 WITH HEADER LINE.

  lt_dynpread-fieldname = ‘ZW_LAUFI‘.
  lt_dynpread-fieldvalue = f110v-laufi.
  APPEND lt_dynpread.

  CALL FUNCTION ‘DYNP_VALUES_UPDATE‘
    EXPORTING
      dyname               = sy-cprog
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = lt_dynpread
    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.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.                    " FRM_F4_LAUFD