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

来源：互联网发布：淘宝网信用怎么刷编辑：程序博客网时间：2024/04/29 22:46

前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.

0 0

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

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