Customer exits в Bex-запросах

Timak

Коллеги, добрый день, прошу вашей помощи.
Транзакция CMOD - проект RSR00001 - компонент EXIT_SAPLRRS0_001 - проваливаемся в INCLUDE ZXRSRU01 - например, такой кусок:

Code:

DATA:
       L_S_RANGE TYPE RSR_S_RANGESID,
       wa_/BIC/SZAUTH_USR TYPE /BI0/OICOMP_CODE.

when 'ZCOMP_CODE_TEST'. (моя customer-exit переменная)
   select comp_code from /BIC/SZAUTH_USR (инфо-объект, где хранятся данные по пользователям)
     into wa_/BIC/SZAUTH_USR
     where /BIC/ZAUTH_USR eq sy-uname.
     CLEAR L_S_RANGE.
     l_s_range-low = wa_/BIC/SZAUTH_USR.
     L _S_RANGE-SIGN = 'I'.
      L_S_RANGE-OPT = 'EQ'.
     APPEND L_S_RANGE TO E_T_RANGE.
   endselect.

Если для пользователя заведена 1 строка, то все работает. А как сделать, если я хочу ограничить данные 2-мя значениями?
Ткните пальцем куда копать, пожалуйста!

Dimarik

в цикле APPEND L_S_RANGE TO E_T_RANGE в а -low подставляйте значения

Air_demon

Dimarik написал(а):

в цикле APPEND L_S_RANGE TO E_T_RANGE в а -low подставляйте значения

Так здесь в коде и описан цикл SELECT .... END SELECT.
По идее должен перебрать все значения по соответствующему условию.

ken

Не претендую на верность, но я бы так попробовал.

Code:

DATA: it_/BIC/SZAUTH_USR TYPE STANDARD TABLE OF /BI0/OICOMP_CODE WITH HEADER LINE,
          L_S_RANGE TYPE RSR_S_RANGESID,
          wa_/BIC/SZAUTH_USR TYPE /BI0/OICOMP_CODE.
when 'ZCOMP_CODE_TEST'.
select comp_code appending corresponding fiels of table it_/BIC/SZAUTH_USR
     from /BIC/SZAUTH_USR
     where /BIC/ZAUTH_USR eq sy-uname.
     CLEAR L_S_RANGE.
sort it_/BIC/SZAUTH_USR ascending.
   loop at it_/BIC/SZAUTH_USR.
   MOVE-CORRESPONDING it_/BIC/SZAUTH_USR to wa_/BIC/SZAUTH_USR.
      if l_s_range-low is initial.
        l_s_range-low = wa_/BIC/SZAUTH_USR.
      endif.
      l_s_range-high = wa_/BIC/SZAUTH_USR.
   endloop.
 L_S_RANGE-SIGN = 'I'.
 L_S_RANGE-OPT = 'BT'.
 APPEND L_S_RANGE TO E_T_RANGE.

Dimarik

Ну да, не заметил endselect-а
А что в дебагере? в E_T_RANGE то? Всё оки?

Timak

Dimarik написал(а):

Ну да, не заметил endselect-а
А что в дебагере? в E_T_RANGE то? Всё оки?

Да, в дебагере обе строки собрались

Timak

ken написал(а):

Не претендую на верность, но я бы так попробовал.

Code:

DATA: it_/BIC/SZAUTH_USR TABLE OF /BI0/OICOMP_CODE
          L_S_RANGE TYPE RSR_S_RANGESID,
          wa_/BIC/SZAUTH_USR TYPE /BI0/OICOMP_CODE.
select comp_code appending corresponding fiels of table it_/BIC/SZAUTH_USR
     from /BIC/SZAUTH_USR
     where /BIC/ZAUTH_USR eq sy-uname.
     CLEAR L_S_RANGE.
sort it_/BIC/SZAUTH_USR by ascending.
   loop at it_/BIC/SZAUTH_USR.
   MOVE-CORRESPONDING it_/BIC/SZAUTH_USR to wa_/BIC/SZAUTH_USR.
      if l_s_range-low is initial.
        l_s_range-low = wa_/BIC/SZAUTH_USR.
      endif.
      l_s_range-high = wa_/BIC/SZAUTH_USR.
   endloop.
 L _S_RANGE-SIGN = 'I'.
 L_S_RANGE-OPT = 'BT'.
 APPEND L_S_RANGE TO E_T_RANGE.
   endselect.

Ругается на строку

Code:

it_/BIC/SZAUTH_USR TABLE OF /BI0/OICOMP_CODE

с ошибкой

Code:

"TYPE LINE" or "LIKE LINE" expected, not "TABLE". -

/BIC/SZAUTH_USR - у меня инфообъект

ken

Ну с определениями и типами таблиц итд вы уж сами разберитесь, я просто логику описал.
нужна внутренняя табличка, куда несколько значений засунуть, в структуру wa_ же только одна строка влезает.

Timak

ken написал(а):

Ну с типами таблиц итд вы уж сами разберитесь, я просто логику описал.

Проблема в том, что я ни разу не абапер, смотрю как баран на новые ворота (

Air_demon

Timak написал(а):

Проблема в том, что я ни разу не абапер, смотрю как баран на новые ворота (

У вас нормальный работающий код. Зачем еще мудрить?

ken

Исправил в коде выше синтаксические ошибки, но не проверял. Попробуйте.
кучу раз уже исправлял, т.к. я тоже не абапер =)

Timak

ken написал(а):

Исправил в коде выше синтаксические ошибки, но не проверял. Попробуйте.

Спасибо за помощь! Но ругается на строку

Code:

select comp_code appending corresponding fields of table it_/BIC/SZAUTH_USR

с ошибкой

Code:

The work area (or internal table) "IT_/BIC/SZAUTH_USR" is not structured. structured.   

Timak

Air_demon написал(а):

Timak написал(а):

Проблема в том, что я ни разу не абапер, смотрю как баран на новые ворота (

У вас нормальный работающий код. Зачем еще мудрить?

Так не робит же!

ken

тогда можно ещё попробовать заменить в определении =)
it_/BIC/SZAUTH_USR TYPE STANDARD TABLE OF /BI0/OICOMP_CODE WITH HEADER LINE.
Ладно удачи вам в начинаниях, я закончил рабочий день :pivo:

Timak

ken написал(а):

тогда можно ещё попробовать заменить в определении =)
it_/BIC/SZAUTH_USR TYPE STANDARD TABLE OF /BI0/OICOMP_CODE WITH HEADER LINE.
Ладно удачи вам в начинаниях, я закончил рабочий день :pivo:

Спасибо за помощь! Только все равно такая же ошибка лезет

Customer exits в Bex-запросах

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