Dynproの作成手順
Dynpro Id:9010
＊▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼TOP▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼＊
＊テーブルコントロール定義
CONTROLS:TAB9010 TYPE TABVIEW USING SCREEN ‘9010’.
＊テーブルコントロール定義
TYPES:
BEGIN OF TYP_TAB9010,
FIELD1(10) TYPE C,
FIELD2(4) TYPE C,
FIELD3 TYPE SY-DATUM,
FIELD4 TYPE P(8),
…
END OF TYP_TAB9010.
DATA:
GTD_TAB9010 TYPE STANDARD TABLE OF TYP_TAB9010,
GTH_TAB9010 LIKE LINES OF GTD_TAB9010,
GST_TAB9010 LIKE LINES OF GTD_TAB9010.
＊▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲TOP▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲＊
＊▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼Dynpro 9010▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼＊
PROCESS BEFORE OUTPUT.
MODULE INIT_SCREEN_9010.
MODULE FILL_OTHERS.
LOOP WITH CONTROL TAB9010.
MODULE FILL_TAB9010.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP WITH CONTROL TAB9010.
MODULE MODIFY_TAB9010.
ENDLOOP.
MODULE USER_COMMAND_9010.
MODULE INIT_SCREEN_9010.
＊①ステータス設定
SET PF-STATUS ‘ST_9010’.
＊②表題設定
SET TITLEBAR ‘TITLE_9010’.
＊③テーブルコントロール行数設定
TAB9010-LINES = LINES( GTD_TAB9010).
＊④カーソル設定(エラー発生など)
SET CURSOR FIELD GWK_CURSOR_FIELD LINES GWK_CURSOR_LINE.
CLEAR: GWK_CURSOR_FIELD,
GWK_CURSOR_LINE.
ENDMODULE.
MODULE FILL_OTHERS.
＊ヘッダ部名称の取得など
＊テーブルコントロール項目(金額など)の合計値の計算など
※合計値がMODULE FILL_TAB9010にて計算する場合、テーブルコントロール現在
表示行の値のみ合計され、スクロール移動することで、合計値が動的に表示
ENDMODULE.
MODULE FILL_TAB9010.
＊テーブルコントロールにデータ読込
CLEAR: GTH_TAB9010.
READ TABLE GTD_TAB9010 INTO GTH_TAB9010 INDEX TAB9010-CURRENT-LINE
＊画面制御
LOOP AT SCREEN.
IF SCREEN-NAME = ‘XXXX’.
…
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE MODIFY_TAB9010.
＊データチェック
＊テーブルコントロールのデータ編集
MODIFY GTD_TAB9010 FROM GTH_TAB9010 INDEX TAB9010-CURRENT_LINE
TRANSPORTING FIELD1 FIELD2…
※非表示項目はTRANSPORTINGの後ろで指定しないで
ENDMODULE.
MODULE USER_COMMAND_9010.
＊エラー発生(GWK_ERR=TRUE)後、再度Enter押下する時、入力制御解除する為に、ユーザコメントをクリアしなければいけない
IF GWK_ERR = TRUE.
CLEAR: GWK_UCOMM,
GWK_ERR.
ELSE.
GWK_UCOMM = SY-UCOMM.
ENDIF.
＊ユーザコメント
CASE GWK_UCOMM.
WHEN ‘&SAVE’.
WHEN ‘BACK’ OR ‘CANCEL’.
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN.
WHEN ‘END’.
LEAVE PROGRAM.
…
ENDCASE.
ENDMODULE.
＊▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲Dynpro 9010▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲＊
※Dynpro中、金額(符号(+、-)付き)項目の定義について
項目の「テキスト」に「_______________V」を設定する