Problema al introducir un texto en un campo 'CREATE_TEXT'

[gambitworms]

Aquí os mando el código que tengo completo. También he puesto el lenguaje con sy-langu....

De verdad no se que carajo puede ser....Negro estoy ya!!!
Y encima es urgente así que... Insisto si luego hago un text con la funcion READ_TEXT y con los paramétros que le paso me rescata el texto pero cuando entro a mirarlo no esta!!...o está y no lo muestra....
En fin.... ¿Alguna idea más?

Gracias

CODIGO:

* DEFINICIÓN DE TABLAS INTERNAS
DATA: it_header TYPE TABLE OF thead WITH HEADER LINE.
DATA: it_lines TYPE TABLE OF tline WITH HEADER LINE.

*DEFINICION DE VARIABLES
DATA: texto(264) TYPE c VALUE 'TEXTO A INTRODUCIR',

**Limpiamos las tablas que hemos definido
CLEAR it_lines.
CLEAR it_header.
***************************************************
**************************************************
it_header-tdobject = 'QMEL'.
it_header-tdid = 'LTXT'.
it_header-tdspras = sy-langu.
it_header-tdform = 'PM_QMEL'.
it_header-mandt = sy-mandt.
it_header-tdname = '000010046946'.


*MIRAMOS SI HAY TEXTO
call function 'READ_TEXT'
exporting
client = sy-mandt
id = 'LTXT'
language = sy-langu
name = '000010046946'
object = 'QMEL'
tables
lines = it_lines
exceptions
not_found = 4.

**INTRODUCIMOS EL TEXTO POR LINEAS
it_lines-tdformat = '*'.
it_lines-tdline = texto.
append it_lines.
******************************

if sy-subrc eq 4.


*SI NO EXISTE EL TEXTO LO CREAMOS
call function 'CREATE_TEXT'
exporting
fid = 'LTXT'
flanguage = sy-langu
fname = '000010046946'
fobject = 'QMEL'
save_direct = 'X'
tables
flines = it_lines
exceptions
no_init = 1
no_save = 2
others = 3.

else.

*SI EXISTE INSERTAMOS
call function 'SAVE_TEXT'
exporting
client = sy-mandt
header = it_header
insert = ' '
savemode_direct = 'X'
tables
lines = it_lines
exceptions
id = 1
language = 2
name = 3
object = 4
others = 5.

endif.

****HE REALIZADO TODOS LOS COMMIT QUE CONOZCO Y NADA DE NADA
***

CALL FUNCTION 'COMMIT_TEXT'.
COMMIT WORK.
call function 'BAPI_TRANSACTION_COMMIT'
exporting
wait = 'X'.

call function 'DEQUEUE_ALL'.
wait up to 1 seconds.

[gambitworms]

Es un indicador que tiene la tabla QMEL y que para que lo muestre bien tenemos que meterle una 'X'.

UPDATE QMEL SET INDTX = 'X'
WHERE QMNUM = tdname.

Vamos solucionado
Muchas gracias a todos por el interés

[lau_azul19]

Oye ese update donde lo haces? al final de todo lo que hiciste ... podrías ayudarme, tengo el mismo problema ...

[lau_azul19]

Hola chicos!!!

Buscando ayuda para salir de un problema ...

Sucede que intento agregar un texto largo a la CS01, pero con la función CREATE_TEXT, de alguna manera no me funciona para crear un texto nuevo, sin embargo si para modificar, si crea en tablas los registros, pero desde la CS03, Cs02 no puedo visualizar esa información.

Alguien ha tenido este problema ??

O alguien sabrá que puede estar ocurriendo ??

Se los agradecere mucho

[HernanGN]

Gracias, me estaba sucediendo lo mismo

Saludos, Hernán

[HernanGN]

En ciertas ocasiones fallaba, por lo que terminé haciéndolo con la Bapi BAPI_ALM_NOTIF_DATA_ADD, y de paso evito el update directo a la tabla.

Saludos, Hernán González Navas