出力イメージ
REPORT ZXXX_TEST.
TYPE-POOLS SLIS.
TABLES : VBAK.
*----------------------------------------------------------------------*
* TYPES定義
*----------------------------------------------------------------------*
* 対象データ用構造
TYPES:
BEGIN OF GTYP_DATA,
VBELN TYPE VBAK-VBELN, " 販売伝票
POSNR TYPE VBAP-POSNR, " 販売伝票明細
KUNNR TYPE VBAK-KUNNR, " 受注先
KUNNR_T TYPE KNA1-NAME1, " 受注先テキスト
VKORG TYPE VBAK-VKORG, " 販売組織
VKORG_T TYPE TVKOT-VTEXT, " 販売組織テキスト
MATNR TYPE VBAP-MATNR, " 品目コード
MATNR_T TYPE MAKT-MAKTX, " 品目コードテキスト
VDATU TYPE VBAK-VDATU, " 指定納期
WERKS TYPE VBAP-WERKS, " プラント
WERKS_T TYPE T001W-NAME1, " プラントテキスト
WAERK TYPE VBAP-WAERK, " 販売伝票通貨
VRKME TYPE VBAP-VRKME, " 販売単位
NETPR TYPE VBAP-NETPR, " 正味価格
KWMENG TYPE VBAP-KWMENG, " 受注数量
NETWR TYPE VBAP-NETWR, " 正味額
END OF GTYP_DATA,
GT_TYP TYPE STANDARD TABLE OF GTYP_DATA,
GS_TYP TYPE GTYP_DATA,
* DLファイルヘッダ行
BEGIN OF GTYP_HEAD,
HEAD_NAME(100) TYPE C,
END OF GTYP_HEAD,
GT_TYP_HEAD TYPE STANDARD TABLE OF GTYP_HEAD,
GS_TYP_HEAD TYPE GTYP_HEAD.
*----------------------------------------------------------------------*
* 定数定義
*----------------------------------------------------------------------*
CONSTANTS:
CON_X(1) TYPE C VALUE ‘X‘, " フラグオン
CNS_DATE_01(2) TYPE C VALUE ‘01‘, " 月初日:01
CNS_MTY_E(1) TYPE C VALUE ‘E‘, " エラータイプ:E
CNS_LANG_J(1) TYPE C VALUE ‘J‘. " 言語:日本語(J)
*----------------------------------------------------------------------*
* データ定義
*----------------------------------------------------------------------*
DATA:
G_FIRST_DAY TYPE SY-DATLO, " 月初日
G_LAST_DAY TYPE SY-DATLO, " 月末日
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV," フィールドカタログテーブル
GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV, " フィールドカタログ構造
GT_HEAD TYPE GT_TYP_HEAD, " DLファイルヘッダ行
GT_DATA TYPE GT_TYP. " 出力用内部テーブル
*-MACRO定義
DEFINE FIELDCAT_DATA.
CLEAR : GS_FIELDCAT.
GS_FIELDCAT-COL_POS = &1.
GS_FIELDCAT-FIELDNAME = &2.
GS_FIELDCAT-OUTPUTLEN = &3.
GS_FIELDCAT-SELTEXT_M = &4.
APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION.
*----------------------------------------------------------------------*
* 初期化
*----------------------------------------------------------------------*
INITIALIZATION.
*----------------------------------------------------------------------*
* 選択画面
*----------------------------------------------------------------------*
* ラジオボタン
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
R_1 RADIOBUTTON GROUP RG1 DEFAULT ‘X‘ USER-COMMAND R1. " 一覧表示
SELECTION-SCREEN COMMENT 3(8) TEXT-001 FOR FIELD R_1.
PARAMETERS:
R_2 RADIOBUTTON GROUP RG1. " DL
SELECTION-SCREEN