RP-PROVIDE-LAST

来源：作者：saplogon (查看评论)

OH11 工资配置
**************************************
* RP-PROVIDE-LAST INFTY SUBTY BEG END
**************************************
* SORT &1
PNP-SW-FOUND = '0'
CLEAR PNP-SY-TABIX
LOOP AT &1

IF &2 NE SPACE
    CHECK &1-SUBTY EQ &2
ENDIF
IF &1-BEGDA LE &4 AND &1-ENDDA GE &4
    PNP-SW-FOUND = '1'
    EXIT
ENDIF
IF &1-BEGDA LE &4 AND &1-ENDDA GE &3
    PNP-SY-TABIX = SY-TABIX
ENDIF
ENDLOOP
IF PNP-SW-FOUND EQ '0'
IF PNP-SY-TABIX NE 0
    PNP-SW-FOUND = '1'
    READ TABLE &1 INDEX PNP-SY-TABIX
ELSE
    CLEAR &1
ENDIF
ENDIF

上一篇:　获取当前用户进程的两种方法
下一篇:　如何调整ABAP程序的性能

考试辅导

SAP HR资源网热点内容

最近更新内容

Google广告