Как определить BUKRS пользователя?

Tony-m

Господа, требуется определить BUKRS текущего пользователя

я это реализую так:

Code:

DATA: BEGIN OF tbl_bukrs_t,
          BUKRS like t001-BUKRS,
          BUTXT like t001-BUTXT.
DATA: END OF tbl_bukrs_t.
data: tbl_bukrs LIKE tbl_bukrs_t OCCURS 0 WITH HEADER LINE.

PERFORM get_bukrs.
data: p_bukrs type ZRE_IM_IKENES-BUKRS." VALUE '0190'."'0706'.
PERFORM get_my_bukrs.

где

Code:

form get_bukrs.
  select BUKRS BUTXT INTO CORRESPONDING FIELDS OF TABLE tbl_bukrs FROM t001.
ENDFORM.

form get_my_bukrs.

  DATA: BEGIN OF tbl_act_t,
          act(2) TYPE c.
  DATA: END OF tbl_act_t.
  data: tbl_act LIKE tbl_act_t OCCURS 0 WITH HEADER LINE.

  CLEAR tbl_act.

  tbl_act-act = '01'.
  APPEND tbl_act.
  tbl_act-act = '02'.
  APPEND tbl_act.
  tbl_act-act = '03'.
  APPEND tbl_act.
  tbl_act-act = '06'.
  APPEND tbl_act.
  tbl_act-act = '07'.
  APPEND tbl_act.
  tbl_act-act = '08'.
  APPEND tbl_act.
  tbl_act-act = '22'.
  APPEND tbl_act.
  tbl_act-act = '23'.
  APPEND tbl_act.
  tbl_act-act = '27'.
  APPEND tbl_act.
  tbl_act-act = '28'.
  APPEND tbl_act.
  tbl_act-act = '29'.
  APPEND tbl_act.
  tbl_act-act = '43'.
  APPEND tbl_act.
  tbl_act-act = '77'.
  APPEND tbl_act.
  tbl_act-act = 'C4'.
  APPEND tbl_act.


  LOOP AT tbl_bukrs.
    LOOP at tbl_act.
      AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
           ID 'BUKRS' FIELD tbl_bukrs-BUKRS
           ID 'ACTVT' FIELD tbl_act-act.
      if sy-subrc <> 0.
        p_bukrs = 'X'.
      else.
        p_bukrs = tbl_bukrs-BUKRS.
      endif.
    endloop.
  ENDLOOP.
ENDFORM.

В итоге в p_bukrs должна (по моему мнению) содержаться требуемая величина. Однако для пользователя всегда получается p_bukrs = 'X'.

В чем косяк и вообще прально ли я подхожу к решению задачи?
Подскажите пожалста как решить. Требуется просто позарез.

John Doe

До аппенда надо tbl_bukrs-BUKRS заполнить, а то у Вас одни операции в цикле проверяются без конкретного объекта.

ЗЫ сорри. не весь код увидел

Galka

1. если внедрены кадры - ищите по pa0105 табельный номер вашего юзера, по табельному номеру ищите в pa0001 букрс, действующий на сегодня. В идеале пользоваться стандартными функциями, типо rh_get_infty

2. Если хотите узнать, какие букрсы разрешены вашему юзеру (а вдруг их несколько?) то задавайте вопрос по-другому.

3. Ваш Х значит что у последней букрсы не разрешена активити C4. Если хотите букрсу видеть, сделайте екзит после p_bukrs = tbl_bukrs-BUKRS.

DKiyanov

Думаю что надо написать так:

Code:

  LOOP AT tbl_bukrs.
    LOOP at tbl_act.
      AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
           ID 'BUKRS' FIELD tbl_bukrs-BUKRS
           ID 'ACTVT' FIELD tbl_act-act.
      if sy-subrc <> 0.
        p_bukrs = 'X'.
       else.
        p_bukrs = tbl_bukrs-BUKRS.
        exit.
      endif.
    endloop.
    if not p_bukrs is inital. exit. endif.
  ENDLOOP.

А то у вас получается результат проверки по последней БЕ и последней операции.

Правда в этом случае выберется только первая БЕ, а ведь полномочия могут быть и на несколько.

Mike1

SET/GET Параметры пользователя хранятся в таблице USR05 поле PARVA.

Code:

select * from usr05
   where bname = sy-uname
      and parid = 'BUK'

Tony-m

DKiyanov написал:

Думаю что надо написать так:

Code:

  LOOP AT tbl_bukrs.
    LOOP at tbl_act.
      AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
           ID 'BUKRS' FIELD tbl_bukrs-BUKRS
           ID 'ACTVT' FIELD tbl_act-act.
      if sy-subrc <> 0.
        p_bukrs = 'X'.
       else.
        p_bukrs = tbl_bukrs-BUKRS.
        exit.
      endif.
    endloop.
    if not p_bukrs is inital. exit. endif.
  ENDLOOP.

А то у вас получается результат проверки по последней БЕ и последней операции.

Правда в этом случае выберется только первая БЕ, а ведь полномочия могут быть и на несколько.

Спасибо большое.
Могу сказать ещё в довесок, что следует закоментить строку

Code:

p_bukrs = 'X'.

или вставить вместо неё код, который прервёт дальнейшее выполнение программы.

John Doe

Tony-m написал(а):

Спасибо большое.
Могу сказать ещё в довесок, что следует закоментить строку

Code:

p_bukrs = 'X'.

или вставить вместо неё код, который прервёт дальнейшее выполнение программы.

А если у пользователя присутствуют полномочия на несколько БЕ? Получится некорректно...
Можно сложить все БЕ по которым пользователь прошел авторизацию в табличку type bukrs.

Tony-m

John Doe написал:

А если у пользователя присутствуют полномочия на несколько БЕ? Получится некорректно...
Можно сложить все БЕ по которым пользователь прошел авторизацию в табличку type bukrs.

- это да. Тока в моём случае там только один букрс и всё.

Правила форума

Как определить BUKRS пользователя?

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