Question

abap编成：公司代码：_____________(可以通过F4选择输入)：什么意思

Answer 1

二楼太夸张了吧，代码都贴出来了！
楼主，这个地方的意思是，你按F4(快捷键，键盘上的F4)，会出来一个列表，列出了你所在系统里有效的公司代码，你可以双击你需要的公司代码，这样这个公司代码就会出现在_____________里。

Answer 2

一般的报表程序，定义选择画面 参照一下语句：
TABLES:T001.
PARAMETERS: P_BUKRS TYPE T001-BUKRS.
SELECT-OPTIONS S_BUKRS FOR T001-BUKRS.

如果是SCREEN编程，在你定义的画面控件的属性（搜索帮助）处填写C_T001
这样就OK啦~

Answer 3

SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_BUKRS FOR ZTTREAS011-BUKRS OBLIGATORY,"公司代码
               S_BLDAT FOR ZTTREAS011-BLDAT,"凭证日期
               S_BUDAT FOR ZTTREAS011-BUDAT,"记账日期
               S_EBELN FOR ZTTREAS011-EBELN,"合同号
               S_ANBWA FOR ZTTREAS011-ANBWA."业务类型
SELECTION-SCREEN END OF BLOCK A.

*-------------------------------------------------------------------*
* AT SELECTION-SCREEN
*-------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ANBWA-LOW.
  CLEAR:TAB_G_ANBWA,TAB_G_ANBWA[].
*所存的数据
  SELECT JYTYPE AS ANBWA
         JYTXT
  FROM ZTTREAS006
  INTO TABLE TAB_G_ANBWA
  WHERE BUKRS IN S_BUKRS
    AND JYTYPE <> ''.
  SORT TAB_G_ANBWA BY ANBWA.
  DELETE ADJACENT DUPLICATES FROM TAB_G_ANBWA COMPARING ANBWA.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD    = 'ANBWA'
      DYNPPROG    = SY-REPID
      DYNPNR      = SY-DYNNR
      DYNPROFIELD = 'S_ANBWA'
      VALUE_ORG   = 'S'
    TABLES
      VALUE_TAB   = TAB_G_ANBWA[].

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ANBWA-HIGH.

  CLEAR:TAB_G_ANBWA,TAB_G_ANBWA[].
  SELECT JYTYPE AS ANBWA
         JYTXT
  FROM ZTTREAS006
  INTO TABLE TAB_G_ANBWA
  WHERE BUKRS IN S_BUKRS
    AND JYTYPE <> ''.
  SORT TAB_G_ANBWA BY ANBWA.

  DELETE ADJACENT DUPLICATES FROM TAB_G_ANBWA COMPARING ANBWA.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD    = 'ANBWA'
      DYNPPROG    = SY-REPID
      DYNPNR      = SY-DYNNR
      DYNPROFIELD = 'S_ANBWA'
      VALUE_ORG   = 'S'
    TABLES
      VALUE_TAB   = TAB_G_ANBWA[].

PARAMETERS: p_date TYPE sy-datum ,
            p_bukrs LIKE t001-bukrs ,
            p_str(10).

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE screen-name.
      WHEN ‘P_DATE’ OR ‘P_BUKRS’.
        screen-input = 0.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date.
  CALL FUNCTION ‘F4_DATE’
    IMPORTING
      select_date = p_date.
  LEAVE SCREEN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs.
  CALL FUNCTION ‘F4IF_FIELD_VALUE_REQUEST’
    EXPORTING
      tabname     = ‘T001′
      fieldname   = ‘BUKRS’
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = ‘P_BUKRS’
      display     = ‘F’.   ” <– Force

Answer 4

要在选择屏幕的时候带有Search help。