IW32

OlegDm

у себя проверил - работает такая конструкция (у меня 5.0).
У тебя вообще assign отрабатывает?
Выложи свой код.

Damager

у меня 4.6С

assign работает, "sy-subrc = 0" .

Code:

*вычисление xkostl 
* ...

data: l_caufvd type caufvd.
field-symbols: <fs_caufvd> type caufvd.
assign: ('(SAPLCOIH)caufvd')  to <fs_caufvd>.
if sy-subrc = 0.

* if CAUFVD_IMP-zzkostl ne xkostl.

  move: xkostl to <fs_caufvd>-ZZKOSTL.

*  endif.
endif.

Зачем эта строка?

Code:

data: l_caufvd type caufvd.

Damager

Может нужен какой-нить APPEND или MODIFY?

OlegDm

щас посмотрю (при создании заказа работает, при изменении не работает)

Damager

В отладке я проверял ... данные передаются нормально.
<fs_caufvd> - это структура с данными, и MOVE меняет в ней поле ZZKOSTL.
Заглавными проверил.

Придется лезть через отладку дальше в SAP-овские дебри ... и искать, где не работает.

OlegDm

подожди немного, я как-то разбирался с этим - просто подзабыл - там куча структур и вн.таблиц (типа caufvd) - надо просто найти нужную

OlegDm

В общем вот:

Code:

*----------------------------------------------------------------------*
*   INCLUDE ZXWOCU07 (К моменту сохранения)                            *
*----------------------------------------------------------------------*

if trtyp = 'H'.

  field-symbols: <fs_caufvd> type caufvd.

  assign: ('(SAPLCOIH)caufvd')  to <fs_caufvd>.
  if sy-subrc = 0.

    move: <РассчитанноеЗначениеZZKOSTL> to <fs_caufvd>-zzkostl.

  endif.

else.

  data:  lt_caufv_bt type standard table of caufvdb,
         ls_caufv_bt type caufvdb.

  field-symbols: <fs_caufv_bt> type table.

  assign: ('(SAPLCOBH)caufv_bt[]') to <fs_caufv_bt>.
  if sy-subrc = 0.

    lt_caufv_bt[] = <fs_caufv_bt>[].

    read table lt_caufv_bt into ls_caufv_bt
                           with key mandt = sy-mandt
                                    aufnr = CAUFVD_IMP-aufnr.
    if sy-subrc = 0.

       move: <РассчитанноеЗначениеZZKOSTL> to ls_caufv_bt-zzkostl.
       modify <fs_caufv_bt> from ls_caufv_bt index sy-tabix.

    endif.

  endif.

endif.

Damager

Ого, как!

Все работает, спасибо огромное!!!

IW32

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