ABAP学习笔记(一)
本周做了一个根据填入的公司代码,财年,月份,凭证类型以及客户编号和供应商或债权人的帐号等信息,来展示出用户所想查看到的内容。
收获
学会了PARAMETERS和SELECT-OPTION的设置,以及动态设置表格的显示和隐藏。大概的报表的查询以逻辑控制输出。
REPORT ZCDR_XXXX.
*----------------------------------------------------------------------*
* CONSTANTS定義
*----------------------------------------------------------------------*
CONSTANTS: OP_0 TYPE CHAR10 VALUE '得意先', "トップ内容定義
OP_1 TYPE CHAR10 VALUE '仕入先',
OP_2 TYPE CHAR10 VALUE '勘定コード',
OP_3 TYPE CHAR15 VALUE '伝票金額',
OP_4 TYPE CHAR15 VALUE '国内金額',
OP_X TYPE CHAR5 VALUE '通貨',
OP_Y TYPE CHAR5 VALUE '通貨',
OP_N TYPE CHAR35 VALUE '名称'.
*----------------------------------------------------------------------*
* TYPES定義
*----------------------------------------------------------------------*
TYPES: BEGIN OF OUT_TABLE1, "得意先テーブル
KUNNR TYPE BSEG-KUNNR,
HKONT TYPE BSEG-HKONT,
WRBTR TYPE BSEG-WRBTR,
WAERS TYPE BKPF-WAERS,
DMBTR TYPE BSEG-DMBTR,
HWAER TYPE BKPF-HWAER,
END OF OUT_TABLE1,
TYP_TH_OUT_TABLE1 TYPE OUT_TABLE1,
TYP_TD_OUT_TABLE1 TYPE STANDARD TABLE OF OUT_TABLE1,
BEGIN OF OUT_TABLE2, "仕入先テーブル
LIFNR TYPE BSEG-LIFNR,
HKONT TYPE BSEG-HKONT,
WRBTR TYPE BSEG-WRBTR,
WAERS TYPE BKPF-WAERS,
DMBTR TYPE BSEG-DMBTR,
HWAER TYPE BKPF-HWAER,
END OF OUT_TABLE2,
BEGIN OF NAME1, "得意先の名称テーブル
KUNNR TYPE BSEG-KUNNR,
NAME1 TYPE KNA1-NAME1,
END OF NAME1,
TYP_TH_OUT_NAME1 TYPE NAME1,
TYP_TD_OUT_NAME1 TYPE STANDARD TABLE OF NAME1,
BEGIN OF NAME2, "仕入先の名称テーブル
LIFNR TYPE BSEG-LIFNR,
NAME1 TYPE KNA1-NAME1,
END OF NAME2.
*----------------------------------------------------------------------*
* DATA定義
*----------------------------------------------------------------------*
DATA: W_POP TYPE POPER, "会計期間
W_ACT TYPE BLART, "伝票タイプ
W_SAK TYPE SAKNR, "勘定コード
W_SK2 TYPE KUNNR, "得意先コード
W_SL3 TYPE LIFNR, "仕入先または債権者の勘定コード
W_SD3 TYPE DZTERM, "支払条件
W_WAE TYPE WAERS,
W_CHK TYPE CHAR1,
IS_B1 TYPE OUT_TABLE1,
IS_B2 TYPE OUT_TABLE2,
IT_C1 TYPE STANDARD TABLE OF OUT_TABLE1, "得意先テーブル
IT_C2 TYPE STANDARD TABLE OF OUT_TABLE2, "仕入先テーブル
IS_N1 TYPE NAME1,
IS_N2 TYPE NAME2,
IT_N1 TYPE STANDARD TABLE OF NAME1, "得意先名称テーブル
IT_N2 TYPE STANDARD TABLE OF NAME2, "仕入先名称テーブル
IT_B1 TYPE STANDARD TABLE OF OUT_TABLE1, "得意先テーブル
IT_B2 TYPE STANDARD TABLE OF OUT_TABLE2, "仕入先テーブル
GS_NEW TYPE TYP_TH_OUT_TABLE1,
GT_NEW TYPE TYP_TD_OUT_TABLE1,
GS_NAM TYPE TYP_TH_OUT_NAME1,
GT_NAM TYPE TYP_TD_OUT_NAME1.
*----------------------------------------------------------------------*
* PARAMETERS/SELECT-OPTIONS定義
*----------------------------------------------------------------------*
* タイトル TEXT-T01 -> パラメータ
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-T01. "text-01=パラメータ,双击设置PM_1等text-element
PARAMETERS: P_M1