DTP取上月

最新推荐文章于 2022-08-20 15:45:40 发布

Bruce_yin

最新推荐文章于 2022-08-20 15:45:40 发布

阅读量537

点赞数

分类专栏： ABAP BW

本文链接：https://blog.csdn.net/Bruce_yin/article/details/51837292

版权

BW 同时被 2 个专栏收录

113 篇文章 5 订阅

订阅专栏

ABAP

56 篇文章 0 订阅

订阅专栏

data : l_idx like sy -tabix ,
      ZCALMONTH ( 6 ) TYPE C ,
      ZSTDAY TYPE sy -datum ,
      ZTDAY TYPE sy -datum ,
      ls_range type rssdlrange .
BREAK-POINT .
   read table l_t_range with key fieldname = 'CALMONTH' .
  l_idx = sy -tabix .
*....
    "月末
   CALL FUNCTION 'ZRP_LAST_DAY_OF_MONTHS'
    EXPORTING
            DAY_IN = sy -datum
    IMPORTING
            LAST_DAY_OF_MONTH = ZSTDAY
    EXCEPTIONS
            DAY_IN_NO_DATE = 1
             OTHERS = 2 .

   ZCALMONTH = ZSTDAY+0 ( 6 ) .
    CONCATENATE ZCALMONTH '01' INTO ZTDAY .
   ZTDAY = ZTDAY - 1 .
   ZCALMONTH = ZTDAY+0 ( 6 ) .

   ls_range -low = ZCALMONTH .
   ls_range -high = ZCALMONTH .
   ls_range - sign = 'I' .
   LS_RANGE -OPTION = 'BT' .
   ls_range -iobjnm = '0CALMONTH' .
   ls_range -fieldname = 'CALMONTH' .

   if l_idx <> 0 .
     modify l_t_range index l_idx .
   else .
     append ls_range to l_t_range .
   endif .
  p_subrc = 0 .