Ayuda SAP

Bseg-sgtxt Sustitución F110 campo

Etiquetas: #<Tag:0x00007f4449c571c0> #<Tag:0x00007f4449c570f8>

Buenas,

Hoy vengo con un tema tratado con anterioridad pero si respuesta conclusa alguna.
Estoy creando una sustitución desde la OBBH, de documento completo, envie los parametros en el get_exit_titles

exits-name = 'UZ107'. " form
exits-param = c_exit_param_class.
exits-title = text-107. " title

y utilice el siguiente código fuente
pero resulta que por código me hace lo que quiero, pero los cambios no se me estan reflejando cuando desde visualizo el documento compensado desde la fb03

FORM uz107 USING bool_data TYPE gb002_015.

DATA : BEGIN OF lt_doc OCCURS 0,
bukrs LIKE bseg-bukrs, " Sociedad
gjahr LIKE bseg-gjahr, " Ejercicio
belnr LIKE bkpf-belnr, " Año
END OF lt_doc.

FIELD-SYMBOLS: <fs_reguh> TYPE reguh.
DATA(lv_stru) = '(SAPF110S)REGUH'.

ASSIGN (lv_stru) TO <fs_reguh>.

SELECT zbukr AS bukrs
belnr
gjahr
INTO CORRESPONDING FIELDS OF TABLE lt_doc
FROM regup
WHERE laufd EQ <fs_reguh>-laufd
AND laufi EQ <fs_reguh>-laufi.

READ TABLE lt_doc INDEX 1.
SELECT SINGLE bktxt
INTO @DATA(lv_bktxt)
FROM bkpf
WHERE bukrs EQ @lt_doc-bukrs
AND belnr EQ @lt_doc-belnr
AND gjahr EQ @lt_doc-gjahr.

MOVE lv_bktxt TO bkpf-bktxt.

LOOP AT bool_data-bseg INTO DATA(ls_bseg).
MOVE lv_bktxt TO ls_bseg-sgtxt.
MODIFY bool_data-bseg FROM ls_bseg.
CLEAR ls_bseg.
ENDLOOP.

ENDFORM.