ABAP AT SELECTION-SCREEN寫F4幫助

 

在選擇屏幕上自定義F4幫助，調用FM : F4IF_INT_TABLE_VALUE_REQUEST

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_zhtbh .  "參考出口合同號
  PERFORM frm_get_zhtbh.

FORM frm_get_zhtbh .
  REFRESH: t_htbh,t_returntab,t_htbh.
  SELECT DISTINCT zhtbh INTO TABLE t_htbh FROM ziebcpjh
  WHERE zhtlx = 'CK'.
  DELETE t_htbh WHERE zhtbh = ''.
  IF t_htbh[] IS INITIAL.
    MESSAGE s000 WITH '系統中沒有此合同號! '.
    LEAVE SCREEN.
  ENDIF.

  SORT t_htbh BY zhtbh DESCENDING.

  IF t_htbh[] IS INITIAL .
    MESSAGE s000 WITH '出口合同不存在！' .
    LEAVE SCREEN.
  ELSE.

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
         retfield         = 'zhtbh'                           "返回字段=F1
         value_org        = 'S'
      TABLES
         value_tab        = t_htbh
         return_tab       = t_returntab
      EXCEPTIONS
         parameter_error = 1
         no_values_found = 2
        OTHERS           = 3.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    READ TABLE t_returntab INDEX 1.
     p_zhtbh = t_returntab-fieldval.
  ENDIF.
ENDFORM.                    " FRM_GET_ZHTBH