根据proj-pspid 找物料

ABAP查找物料

最新推荐文章于 2024-01-23 16:44:30 发布

原创最新推荐文章于 2024-01-23 16:44:30 发布 · 971 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#duplicates #join #header #delete #table #function

SAP 专栏收录该内容

181 篇文章

订阅专栏

本文介绍了一种使用ABAP编程语言从特定项目阶段中查找并筛选物料的方法。通过联接多个表，实现根据项目阶段编号（PSPID）获取物料号（MATNR），并对结果进行排序、去重及过滤空白值等操作。

根据proj-pspid 找物料

data: begin of st, matnr like mara-matnr, end of st.

data: it_matnr like standard table of st with header line. data: rtn like ddshretval occurs 0 with header line.

data: l_pspnr like proj-pspnr.

ranges: l_matkl for t023t-matkl. l_matkl-sign = 'I'. l_matkl-option = 'BT'. l_matkl-low = 'L0601'. l_matkl-high = 'L0606'. append l_matkl.

select single pspnr into l_pspnr from proj where proj~pspid = proj-pspid.

select o~matnr into corresponding fields of table it_matnr from ebkn as n inner join prps as r on n~ps_psp_pnr = r~pspnr inner join eban as p on n~banfn = p~banfn inner join ekpo as o on p~banfn = o~banfn and o~bnfpo = p~bnfpo where r~psphi eq l_pspnr and p~matkl in l_matkl.

sort it_matnr. delete adjacent duplicates from it_matnr comparing matnr. delete it_matnr where matnr eq space.

call function 'F4IF_INT_TABLE_VALUE_REQUEST' exporting retfield = 'MATNR' dynpprog = sy-cprog dynpnr = sy-dynnr dynprofield = 'MATNR' stepl = sy-stepl window_title = '物料' value_org = 'S' tables value_tab = it_matnr return_tab = rtn exceptions parameter_error = 1 no_values_found = 2 others = 3.