选择帮助（多选）

PROCESS  ON  VALUE-REQUEST .

  FIELD:ZMS_JTJGI-LGOBE MODULE F4_GET_LGORT.

FORM F4_GET_LGORT.
  DATA:DA_STEPL      LIKE SY-STEPL,
       DYNPRO_VALUES TYPE TABLE OF DYNPREAD  WITH HEADER LINE,
       FIELD_VALUE   LIKE LINE OF DYNPRO_VALUES.
  DATA:    X_CURSF TYPE RILA0C-CURSF,     "Cursor: Feldname
           X_CURSL TYPE RILA0C-CURSL.


  DATA: WA_SHLP       TYPE SHLP_DESCR,
        WA_SHLP_DESCT TYPE SHLP_DESCT,
        FCODE         LIKE SY-UCOMM,
        WA_INTERFACE  LIKE LINE OF WA_SHLP-INTERFACE,
*        WA_FIELDDESCR LIKE LINE OF WA_SHLP-FIELDDESCR,
        WA_FIELDPROP  LIKE LINE OF WA_SHLP-FIELDPROP,
*        WA_SELOPT     LIKE LINE OF WA_SHLP-SELOPT,
        WA_RETVAL     TYPE DDSHRETVAL,
        IT_RETVAL     TYPE STANDARD TABLE OF DDSHRETVAL.
  DATA: SUBRC LIKE SY-SUBRC .
  CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
    EXPORTING
      SHLPNAME = 'ZH_LGORTS'
      SHLPTYPE = 'SH'
    IMPORTING
      SHLP     = WA_SHLP.


  READ TABLE WA_SHLP-INTERFACE INTO WA_INTERFACE WITH KEY SHLPFIELD = 'LGORT'.
  IF SY-SUBRC = 0.
    WA_INTERFACE-VALFIELD = 'X'.
    MODIFY WA_SHLP-INTERFACE FROM WA_INTERFACE INDEX SY-TABIX.
  ENDIF.
  READ TABLE WA_SHLP-INTERFACE INTO WA_INTERFACE WITH KEY SHLPFIELD = 'LGOBE'.
  IF SY-SUBRC = 0.
    WA_INTERFACE-VALFIELD = 'X'.
    MODIFY WA_SHLP-INTERFACE FROM WA_INTERFACE INDEX SY-TABIX.
  ENDIF.
  CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
    EXPORTING
      SHLP          = WA_SHLP
      MULTISEL      = 'X'
    IMPORTING
      RC            = SUBRC
    TABLES
      RETURN_VALUES = IT_RETVAL.
  CHECK SUBRC = 0.
  ZMS_JTJGI-LGORT = ','.
  ZMS_JTJGI-LGOBE = ','.
  LOOP AT IT_RETVAL INTO WA_RETVAL WHERE FIELDNAME = 'LGORT' .
    ZMS_JTJGI-LGORT = ZMS_JTJGI-LGORT && WA_RETVAL-FIELDVAL && ','.
  ENDLOOP.
  LOOP AT IT_RETVAL INTO WA_RETVAL WHERE FIELDNAME = 'LGOBE' .
    ZMS_JTJGI-LGOBE = ZMS_JTJGI-LGOBE && WA_RETVAL-FIELDVAL && ','.
  ENDLOOP.
  REFRESH DYNPRO_VALUES.
  GET CURSOR LINE DA_STEPL.
  MOVE DA_STEPL TO DYNPRO_VALUES-STEPL.
  MOVE 'ZMS_JTJGI-LGOBE' TO DYNPRO_VALUES-FIELDNAME.
  MOVE ZMS_JTJGI-LGOBE TO DYNPRO_VALUES-FIELDVALUE.
  APPEND DYNPRO_VALUES.

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

ENDFORM.