读取指定任意表的三个字段RFC
SAP有个标准读任意表任何字段的BADI,不过好像只能最多读64个字段。
FUNCTION zf_read_element1.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(S_TAB) TYPE CHAR10
*" VALUE(S_FIELD1) TYPE CHAR10
*" VALUE(S_FIELD2) TYPE CHAR10
*" VALUE(S_FIELD3) TYPE CHAR10 OPTIONAL
*" TABLES
*" ITAB STRUCTURE ZFIELD1
*"----------------------------------------------------------------------
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(S_TAB) TYPE CHAR10
*" VALUE(S_FIELD1) TYPE CHAR10
*" VALUE(S_FIELD2) TYPE CHAR10
*" VALUE(S_FIELD3) TYPE CHAR10 OPTIONAL
*" TABLES
*" ITAB STRUCTURE ZFIELD1
*"----------------------------------------------------------------------
*&DESCRIPTION READ ELEMENT FROM TABLE
*&CREATE BY GOUCAIYUN
*&CREATE ON 2005.08.23
* TABLES:t002.
DATA: tableall(200) TYPE c.
DATA:field(70) TYPE c.
CONCATENATE s_field1 s_field2 s_field3 INTO field SEPARATED BY space.
CONCATENATE 'M_PRCTN' 'T024D' 'T024F' 'T001L' 'T001W' 'T001'
INTO tableall SEPARATED BY space.
*&CREATE BY GOUCAIYUN
*&CREATE ON 2005.08.23
* TABLES:t002.
DATA: tableall(200) TYPE c.
DATA:field(70) TYPE c.
CONCATENATE s_field1 s_field2 s_field3 INTO field SEPARATED BY space.
CONCATENATE 'M_PRCTN' 'T024D' 'T024F' 'T001L' 'T001W' 'T001'
INTO tableall SEPARATED BY space.
IF s_tab = 'TSKDT'.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM (s_tab)
WHERE spras = '1' AND
tatyp = 'MWST'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM (s_tab)
WHERE spras = '1' AND
tatyp = 'MWST'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSEIF s_tab = 'T002T'.
SELECT laiso sptxt
INTO (itab-field1,itab-field2)
FROM t002t
JOIN t002
ON t002t~sprsl = t002~spras
WHERE t002t~spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT laiso sptxt
INTO (itab-field1,itab-field2)
FROM t002t
JOIN t002
ON t002t~sprsl = t002~spras
WHERE t002t~spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSEIF s_tab = 'T024'.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM t024 WHERE ektel <> 'D' .
* WHERE werks = '1000'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM t024 WHERE ektel <> 'D' .
* WHERE werks = '1000'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSEIF s_tab = 'KNA1'.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM kna1 WHERE ktokd = 'TZ04'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM kna1 WHERE ktokd = 'TZ04'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSEIF s_tab = 'TCURT'.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM tcurt
WHERE waers NE 'CNY' AND spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM tcurt
WHERE waers NE 'CNY' AND spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSEIF s_tab = 'TZONT'.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2,itab-field3)
FROM tzont
WHERE spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2,itab-field3)
FROM tzont
WHERE spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSEIF tableall CS s_tab.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM (s_tab).
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM (s_tab).
APPEND itab.
CLEAR itab.
ENDSELECT.
ELSE.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM (s_tab)
WHERE spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
SELECT DISTINCT (field)
INTO (itab-field1,itab-field2)
FROM (s_tab)
WHERE spras = '1'.
APPEND itab.
CLEAR itab.
ENDSELECT.
ENDIF.
ENDFUNCTION.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/29829936/viewspace-1595583/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
SAP的系统审计以及SM19的使用
下一篇：
交货单打印时提示“没有输出被选择打印”
请登录后发表评论
登录
全部评论
最新文章
- 那些适用于跨境电商的 ERP 系统
- On the decline of SAP consulting industry
- Matters Needing Attention as A SAP Freelancer
- The development prospect of SAP consultants in China in the next decade
- SAP WM中阶下架策略A(Partial Pallet Quantity)
- SAP WM高阶之上架策略C(Open Storage)
- SAP WM高阶之上架策略B (Bulk Storage)
- SAP WM高阶之上架策略P(Storage Unit Type)
- SAP WM高阶之2-Step Picking
- SAP QM 高阶之Physical Sample Management
