`POPUP_GET_VALUES` - 弹窗取值

 data: lt_svals type table of sval with header line,
      lv_ret_code.

  lt_svals-tabname = 'LIKP'.
  lt_svals-fieldname = 'VBELN'.
  lt_svals-value = gs_de_header-vbeln.
  APPEND it_value.

 CALL FUNCTION 'POPUP_GET_VALUES'
    EXPORTING
      popup_title = '交货单输入'
    IMPORTING
      returncode  = lv_ret_code
    TABLES
      fields      = lt_svals.

 IF lv_ret_code IS  NOT INITIAL.
    MESSAGE '操作已取消' TYPE 'S'.
    RETURN.
 ENDIF.

 READ TABLE it_svals WITH KEY fieldname = 'VBELN'.
 IF sy-subrc <> 0 OR wa_value-value IS INITIAL.
   MESSAGE '操作已取消' TYPE 'S'.
   RETURN.
 ENDIF.
posted @ 2020-06-18 14:01  不要摘树叶  阅读(569)  评论(0)    收藏  举报