[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.