本文共 2126 字，大约阅读时间需要 7 分钟。

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.

转载地址：http://wfmaf.baihongyu.com/