1

通常の画面の1つにあるフィールドに対して、通常のSELECT-OPTIONSの機能を使用しようとしています。

DesignerでそのI/Oフィールドのすべての属性を調べましたが、何も見つかりませんでした。

複数選択の機能がいくつか提供されているのを見ましたが、完全ではありません。つまり、プロンプト内では、F4を使用して範囲を視覚的に選択することができなくなりました。

私が達成しようとしていることは可能ですか？

4

2 に答える 2

4

あなたが使用することができます

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECT-OPTIONS so_foo FOR baz-baz.
SELECTION-SCREEN END OF SCREEN 100.

次に、生成された画面をプログラムの従属画面領域に含めます。

于 2012-11-12T17:44:43.913 に答える
3

汎用モジュールFREE_SELECTIONS_INITと を組み合わせて使用​​することができますFREE_SELECTIONS_DIALOG。(これは、dynpro に配置したボタンからトリガーできます)。汎用モジュールは少し複雑ですが、オンライン文書があります。

レポート選択画面から選択オプションをシミュレートするように Dynpro を拡張するには、選択したデータの最初の行から低い値と高い値を表示できます。

以下に、開始するための例を示します (FREE_SELECTIONS_DIALOG実際、汎用モジュールのドキュメントにはサンプル コードが含まれています)。

report  ztest_free_seldiag.

data: lv_selid type RSDYNSEL-SELID.
data: lt_fld type table of RSDSFIELDS.
data: ls_fld type RSDSFIELDS.

ls_fld-tablename = 'T001'.
ls_fld-fieldname = 'BUKRS'.
append ls_fld to lt_fld.

call function 'FREE_SELECTIONS_INIT'
  EXPORTING
    KIND                           = 'F'
  IMPORTING
    SELECTION_ID                   = lv_selid
  TABLES
    FIELDS_TAB                     = lt_fld
 EXCEPTIONS
   FIELDS_INCOMPLETE              = 1
   FIELDS_NO_JOIN                 = 2
   FIELD_NOT_FOUND                = 3
   NO_TABLES                      = 4
   TABLE_NOT_FOUND                = 5
   EXPRESSION_NOT_SUPPORTED       = 6
   INCORRECT_EXPRESSION           = 7
   ILLEGAL_KIND                   = 8
   AREA_NOT_FOUND                 = 9
   INCONSISTENT_AREA              = 10
   KIND_F_NO_FIELDS_LEFT          = 11
   KIND_F_NO_FIELDS               = 12
   TOO_MANY_FIELDS                = 13
   DUP_FIELD                      = 14
   FIELD_NO_TYPE                  = 15
   FIELD_ILL_TYPE                 = 16
   DUP_EVENT_FIELD                = 17
   NODE_NOT_IN_LDB                = 18
   AREA_NO_FIELD                  = 19
   OTHERS                         = 20.
if sy-subrc <> 0.
* Implement suitable error handling here
  exit.
endif.

call function 'FREE_SELECTIONS_DIALOG'
  exporting
    selection_id                  = lv_selid
    TITLE                         = 'Select Company Code'
    AS_WINDOW                     = 'X'
    TREE_VISIBLE                  = ' '
* IMPORTING
*   WHERE_CLAUSES                 =
*   EXPRESSIONS                   =
*   FIELD_RANGES                  =
*   NUMBER_OF_ACTIVE_FIELDS       =
  tables
    fields_tab                    = lt_fld
 EXCEPTIONS
   INTERNAL_ERROR                = 1
   NO_ACTION                     = 2
   SELID_NOT_FOUND               = 3
   ILLEGAL_STATUS                = 4
   OTHERS                        = 5.
if sy-subrc <> 0.
  BREAK-POINT.
  exit.
endif.
于 2012-11-13T06:51:22.980 に答える