MM--提取MM模块配置的抛帐科目列表

REPORT zmmr_post_account .
TABLES : t030a,t030w,t030r,t030b,t030.
DATA: g_first(1),
g_texth(20),
g_texts(20).
*Text:Chart of Accounts
PARAMETERS p_ktopl LIKE t030-ktopl DEFAULT 'CB00' OBLIGATORY.
*Text: Transaction Key
SELECT-OPTIONS: s_ktosl FOR t030a-ktosl.
*If set 'X',program will output all transaction key which configured Account.
*Text: Display No Account Transaction Key
PARAMETERS p_output AS CHECKBOX .
RANGES r_ktosl FOR t030a-ktosl.
REFRESH r_ktosl.
r_ktosl-sign = 'I'.
r_ktosl-option = 'EQ'.
SELECT * FROM t030a WHERE grupp = 'RMK'.
SELECT SINGLE * FROM t030w WHERE spras = sy-langu AND ktosl = t030a-ktosl.
g_first = 'X'.
SELECT * FROM t030 WHERE ktopl = p_ktopl AND ktosl = t030a-ktosl.
IF g_first = 'X'.
FORMAT COLOR COL_KEY INTENSIFIED OFF.
HIDE: t030a-ktosl.
WRITE:/(16) 'Transaction Key:',
29(6) t030a-ktosl,
41(30) t030w-ltext.
SELECT SINGLE * FROM t030r WHERE ktopl = p_ktopl AND ktosl = t030a-ktosl.
IF sy-subrc = 0 .
IF t030r-xkomo = 'X'.
ENDIF.
IF t030r-xbwmo = 'X'.
ENDIF.
IF t030r-xbkla = 'X'.
ENDIF.
IF t030r-xdiko = 'X'.
ENDIF.
ENDIF.
SELECT SINGLE * FROM t030b WHERE ktosl = t030a-ktosl.
IF sy-subrc = 0 .
FORMAT COLOR COL_BACKGROUND.
WRITE:/(10) ' '.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:10(16) 'Post Key:',
28(2) '|',
29(2) 'De',
62(1) '|',
63(2) 'Cr',
97(1) '|'.
CLEAR:g_texts,g_texth.
IF t030b-bschs NE space.
SELECT SINGLE ltext INTO (g_texts) FROM tbslt WHERE spras = sy-langu AND bschl = t030b-bschs.
ENDIF.
IF t030b-bschh NE space.
SELECT SINGLE ltext INTO (g_texth) FROM tbslt WHERE spras = sy-langu AND bschl = t030b-bschh.
ENDIF.
FORMAT COLOR COL_BACKGROUND.
WRITE:/(27) ' '.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:28(2) '|',
29(2) t030b-bschs,
41(20) g_texts,
62(1) '|',
63(2) t030b-bschh,
75(20) g_texth,
97(1) '|'.
ENDIF.
FORMAT COLOR COL_BACKGROUND.
WRITE:/(10) ' '.
FORMAT COLOR COL_KEY INTENSIFIED ON.
WRITE:10(16) 'Post Account:',
28(2) '|',
29(2) 'De',
41(20) 'Text',
62(1) '|',
63(2) 'Cr',
75(20) 'Text',
97(1) '|'.
g_first = space.
ENDIF.
CLEAR:g_texts,g_texth.
IF t030-konts NE space.
SELECT SINGLE txt20 INTO (g_texts) FROM skat WHERE spras = sy-langu AND ktopl = p_ktopl
AND saknr = t030-konts.
ENDIF.
IF t030-konts NE space.
SELECT SINGLE txt20 INTO (g_texth) FROM skat WHERE spras = sy-langu AND ktopl = p_ktopl
AND saknr = t030-konth.
ENDIF.
FORMAT COLOR COL_BACKGROUND.
WRITE:/(12) ' '.
FORMAT COLOR COL_KEY INTENSIFIED ON.
WRITE:12(4) t030-bwmod,'|',
18(3) t030-komok,'|',
23(4) t030-bklas ,
28(1) '|',
29(10) t030-konts,
41(20) g_texts,
62(1) '|'.
IF t030r-xdiko = 'X'.
WRITE:63(10) t030-konth,
75(20) g_texth.
ENDIF.
WRITE:97(1) '|'.
ENDSELECT.
IF sy-subrc NE 0.
r_ktosl-low = t030a-ktosl.
APPEND r_ktosl.
ENDIF.
ENDSELECT.
*Get No Used Transaction Key
IF ( r_ktosl IS NOT INITIAL ) AND p_output = 'X'.
FORMAT COLOR COL_NEGATIVE INTENSIFIED OFF.
WRITE:/(97) 'UnConfigure Transaction Key:'.
SELECT * FROM t030a WHERE grupp = 'RMK' AND ktosl IN r_ktosl.
FORMAT COLOR COL_KEY INTENSIFIED OFF.
WRITE:/(16) 'Transaction Key:',
29(6) t030a-ktosl,
41(30) t030w-ltext.
SELECT SINGLE * FROM t030b WHERE ktosl = t030a-ktosl.
IF sy-subrc = 0 .
FORMAT COLOR COL_BACKGROUND.
WRITE:/(10) ' '.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:10(16) 'Post Key:',
28(2) '|',
29(2) 'De',
62(1) '|',
63(2) 'Cr',
97(1) '|'.
CLEAR:g_texts,g_texth.
IF t030b-bschs NE space.
SELECT SINGLE ltext INTO (g_texts) FROM tbslt WHERE spras = sy-langu AND bschl = t030b-bschs.
ENDIF.
IF t030b-bschh NE space.
SELECT SINGLE ltext INTO (g_texth) FROM tbslt WHERE spras = sy-langu AND bschl = t030b-bschh.
ENDIF.
FORMAT COLOR COL_BACKGROUND.
WRITE:/(27) ' '.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:28(2) '|',
29(2) t030b-bschs,
41(20) g_texts,
62(1) '|',
63(2) t030b-bschh,
75(20) g_texth,
97(1) '|'.
ENDIF.
FORMAT COLOR COL_BACKGROUND.
WRITE:/(10) ' '.
FORMAT COLOR COL_KEY INTENSIFIED ON.
WRITE:10(16) 'Post Account:',
28(2) '|',
29(2) 'De',
41(20) 'Text',
62(1) '|',
63(2) 'Cr',
75(20) 'Text',
97(1) '|'.
ENDSELECT.
ENDIF.

AT LINE-SELECTION.
CALL TRANSACTION 'OBYC'.