DTP中过滤写例程 取今天

1. 先在DTP过滤器中将需要过滤的字段取出来。这里为日历日。

2. 写代码，取今天

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 = 'CALDAY'.

L_DATE1 = SY-DATUM.

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 = '0CALDAY'.

LS_RANGE-FIELDNAME = 'CALDAY'.
if L_IDX <> 0.

  modify L_T_RANGE index L_IDX.
else.

  append LS_RANGE to L_T_RANGE.
endif.

          p_subrc = 0.

3. 同理取滚动前7天，14天都可

3.