DTP中写例程取前7日和前1日

Bruce_yin

于 2016-01-31 10:00:35 发布

阅读量675

点赞数

分类专栏： ABAP BO

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

版权

ABAP 同时被 2 个专栏收录

56 篇文章

订阅专栏

15 篇文章

订阅专栏

本文深入探讨了信息技术领域的核心概念，包括开发工具、大数据、AI音视频处理等细分技术领域，详细介绍了各部分的关键信息与应用。从基础的开发工具到复杂的AI技术，本文旨在为读者提供一个全面的技术概览。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前7日

data: L_DATE_NC(8) TYPE N.
DATA: L_DATE TYPE D,L_DATE1 TYPE D.
DATA: LS_RANGE TYPE rssdlrange.
data: L_IDX like SY-TABIX.
read table L_T_RANGE with key
     FIELDNAME = '/BIC/ZBUSDE'.
L_DATE1 = SY-DATUM - 1.
L_DATE_NC = L_DATE1+0(8). "HIGH
L_DATE = L_DATE_NC.
L_DATE = L_DATE - 6.  "LOW
LS_RANGE-LOW = L_DATE.
LS_RANGE-HIGH = L_DATE_NC.
LS_RANGE-SIGN = 'I'.
LS_RANGE-OPTION = 'BT'.
LS_RANGE-IOBJNM = 'ZBUSDE'.
LS_RANGE-FIELDNAME = '/BIC/ZBUSDE'.
if L_IDX <> 0.
  modify L_T_RANGE index L_IDX.
else.
  append LS_RANGE to L_T_RANGE.
endif.
          p_subrc = 0.

前1日

data: L_DATE_NC(8) TYPE N.
DATA: L_DATE TYPE D,L_DATE1 TYPE D.
DATA: LS_RANGE TYPE rssdlrange.
data: L_IDX like SY-TABIX.
read table L_T_RANGE with key
     FIELDNAME = '/BIC/ZBUSDE'.
L_DATE1 = SY-DATUM - 1.
L_DATE_NC = L_DATE1+0(8). "HIGH
L_DATE = L_DATE_NC.
*L_DATE = L_DATE - 1000.  "LOW
LS_RANGE-LOW = L_DATE.
LS_RANGE-HIGH = L_DATE_NC.
LS_RANGE-SIGN = 'I'.
LS_RANGE-OPTION = 'BT'.
LS_RANGE-IOBJNM = 'ZBUSDE'.
LS_RANGE-FIELDNAME = '/BIC/ZBUSDE'.
if L_IDX <> 0.
  modify L_T_RANGE index L_IDX.
else.
  append LS_RANGE to L_T_RANGE.
endif.
          p_subrc = 0.