我们使用 HR 宏从表中获取第一条或最后一条记录。其中之一是rp_provide_from_last。我需要从表中获取两个子类型 ( 0010, 0004) P0105:
下面是我的代码。问题是在第二个宏之后,只有0004. 我怎样才能把它们抱在一起?
GET pernr.
rp_provide_from_last p0105 '0010' pn-begda pn-endda.
CHECK pnp-sw-found eq '1'.
rp_provide_from_last p0105 '0004' pn-begda pn-endda.
CHECK pnp-sw-found eq '1'.
Run Code Online (Sandbox Code Playgroud)
这是定义。
DEFINE rp_provide_from_last.
$PNNNN$ = &1.
$SUBTY$ = &2.
$BEGDA$ = &3.
$ENDDA$ = &4.
pnp-sw-found = '0'.
clear pnp-sy-tabix.
loop at &1.
if &2 <> space.
check &1-subty = &2.
endif.
if &1-begda <= &4 and &1-endda >= &4.
pnp-sw-found = '1'.
exit. …Run Code Online (Sandbox Code Playgroud)