Добрый день уважаемы коллеги.
У меня такая ситуация. когда пользователь в миго формирует документы 301 видом движения, надо в текст заголовка передать номер завода+номер склада+время ввода.

в LINE_MODIFY пишу следющий код.
* Данные
DATA: ls_gohead TYPE gohead.
DATA: ZBKTXT type mkpf-BKTXT.
DATA: zwerks type t001w-werks.
Data: zlgort type t001l-lgort.
FIELD-SYMBOLS: <fs_gohead> TYPE ANY.

* Код
ASSIGN ('(SAPLMIGO)GOHEAD') TO <fs_gohead>.

ls_gohead = <fs_gohead>.

UNASSIGN <fs_gohead>.

if cs_goitem-bwart = '301' and ls_gohead-BKTXT = ' '.

select single werks from t001w into zwerks
where werks = cs_goitem-werks.
select single lgort from t001l into zlgort
where lgort = cs_goitem-lgort.

CONCATENATE zwerks zlgort ls_gohead-CPUTM INTO ls_gohead-BKTXT.
ENDIF.


но у меня не получается. может передача данные не в LINE_MODIFY?

Спросите лучше в ABAP форуме.

На первый взгляд - проверяйте результат ASSIGN ( IF SY-SUBRC EQ 0 and <FS_GOHEAD> IS ASSIGNED ), также не делайте UNASSIGN до окончания всех изменения.

Перенесено из форума по ММ

Не удивительно что не работает - меняется ведь только локальная переменная )
Надо как минимум убрать переменную ls_gohead, вместо нее везде использовать <fs_gohead>.
UNASSIGN <fs_gohead> перенести в конец или вообще убрать.

UNASSIGN <fs_gohead> убрала. Теперь ls_gohead-BKTXT заполняется, в отладчике видела, но после сохранения не передается. Поле пустое становится.

Добрый день!
ls_gohead-BKTXT - локальная переменная, она очищается после выхода из метода.
Используйте вместо нее <fs_gohead>, как Вам советовали.
Объявите <fs_gohead> такого же типа, как GOHEAD. Сделайте
ASSIGN ('(SAPLMIGO)GOHEAD') TO <fs_gohead>.
IF sy-subrc = 0.
...
<fs_gohead>-bktxt = нужное значение
endif.
как-то так.

2 alex_sh80

думаю (как и выше указал) нужно ещё проверять и <FS_GOHEAD> IS ASSIGNED, одного sy-sbrc eq 0 не достаточно imho

Спасибо большое всем. Получилось.
Скидываю код, может кому нибудь пригодится.

Данные
FIELD-SYMBOLS:<fs> TYPE ANY.
DATA: ZBKTXT type mkpf-BKTXT.
DATA: zwerks type t001w-werks.
Data: zlgort type t001l-lgort.
data: p_all type gohead-BKTXT.
data: ls_extdata type TY_T_EXTDATA.
data: p_len type p.

* Код
if cs_goitem-bwart = '301'.

data:
GR_KERNEL type ref to OBJECT,
l_gohead TYPE gohead.

ASSIGN ('(SAPLMIGO)LCL_MIGO_GLOBALS=>KERNEL') TO <fs>.

select single werks from t001w into zwerks
where werks = cs_goitem-werks.
select single lgort from t001l into zlgort
where lgort = cs_goitem-lgort.

gr_kernel = <fs>.

CALL METHOD gr_kernel->('HEADER_GET')
IMPORTING
e_gohead = l_gohead.

CONCATENATE zwerks zlgort l_gohead-OIB_BLTIME INTO l_gohead-BKTXT.

CALL METHOD gr_kernel->('HEADER_MODIFY')
EXPORTING
i_gohead = l_gohead.

endif.