Ограничение DTP (ABAP)

Rayman

Коллеги, подскажите пожалуйста куда двигаться.
В BW, а особенно в ABAP новичок. Есть задача.
В DTP нужно написать ограничение на периоды с переменной tvarv ZCN15_PERIOD, если ZCN15_PERIOD не заполнено, то выбираем действительные записи только на текущий день.

В фильтре нужно создать подпрограмму для параметров: действительно с и действительно по, чтобы попадали записи, действительные на указанный период, то есть с переменной tvarv ZCN15_PERIOD, если там пусто, то действительные на сегодня.

12ozmdm

https://archive.sap.com/discussions/thread/1300102
https://sap-bi-tai.blogspot.ru/2014/11/tvarvc.html
viewtopic.php?f=12&t=82907
viewtopic.php?f=13&t=64154
поищите в инете или тут "DTP tvarvc" есть много примеров.

Rayman

12ozmdm написал:

https://archive.sap.com/discussions/thread/1300102
https://sap-bi-tai.blogspot.ru/2014/11/tvarvc.html
viewtopic.php?f=12&t=82907
viewtopic.php?f=13&t=64154
поищите в инете или тут "DTP tvarvc" есть много примеров.

В итоге написал так, есть какие-нибудь замечания?

Code:

data: l_idx like sy-tabix.
          read table l_t_range with key
               fieldname = 'DATEFROM'.
          l_idx = sy-tabix.


          DATA lv_date TYPE datum.
          DATA lv_temp TYPE TVARV_VAL.

          SELECT single low from tvarvc INTO lv_temp WHERE name =
          'ZCN15_PERIOD'.
            IF sy-subrc <> 0.
              lv_date = sy-datum.
            ELSE.
              lv_date = lv_temp.
            ENDIF.

            l_t_range-iobjnm = 'DATEFROM'.
            l_t_range-fieldname = 'DATEFROM'.
            l_t_range-sign = 'I'.
            l_t_range-option = 'BT'.
            l_t_range-low = '10000101'.
            l_t_range-high = lv_date.


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

Code:

data: l_idx like sy-tabix.
          read table l_t_range with key
               fieldname = 'DATETO'.
          l_idx = sy-tabix.


          DATA lv_date TYPE datum.
          DATA lv_temp TYPE TVARV_VAL.

          SELECT single high from tvarvc INTO lv_temp WHERE name =
          'ZCN15_PERIOD'.
            IF sy-subrc <> 0.
              lv_date = sy-datum.
            ELSE.
              lv_date = lv_temp.
            ENDIF.

            l_t_range-iobjnm = 'DATETO'.
            l_t_range-fieldname = 'DATETO'.
            l_t_range-sign = 'I'.
            l_t_range-option = 'BT'.
            l_t_range-low = lv_date.
            l_t_range-high = '99991231'.


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

12ozmdm

Ещё при считывании из TVARVC применяте BYPASSING BUFFER в SELECT.
viewtopic.php?p=546119

Rayman

12ozmdm написал:

Ещё при считывании из TVARVC применяте BYPASSING BUFFER в SELECT.
http://sapboard.ru/forum/viewtopic.php?p=546119

Спасибо, а если буферизация отключена, то правка не нужна?

12ozmdm

не нужна.

Rayman

12ozmdm написал:

не нужна.

Благодарю за советы!

Ограничение DTP (ABAP)

Кто сейчас на конференции