LOOP AT lit_werks ASSIGNING FIELD-SYMBOL(<lfs_werks>).
LOOP AT lit_lfa12 ASSIGNING FIELD-SYMBOL(<lfs_lfa12>)
WHERE ekorg = <lfs_werks>-ekorg.
IF <lfs_lfa12>-sortl <> ''. "判断是否为空字符串
CLEAR:l_sortl.
l_sortl = <lfs_lfa12>-sortl+0(2). "获取需要的值
IF <lfs_werks>-sortl1 = ''. "判断是否为空字符串
<lfs_werks>-sortl1 = l_sortl.
ELSE.
IF <lfs_werks>-sortl1 CS l_sortl. "判断sortl1包含字符串l_sortl
ELSE.
<lfs_werks>-sortl1 = <lfs_werks>-sortl1 &&',' && l_sortl.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
UNASSIGN:<lfs_werks>,<lfs_lfa12>.
ABAP拼接字符串 &&
最新推荐文章于 2024-07-29 09:58:14 发布