Hola a todos
Estoy intentando introducir un texto en un aviso en el módulo 'PM'. Total estoy usando la función CREATE_TEXT. El problema es que si entro desde el standar y escribo algo en el texto y guardo, si luego lanzo mi programa, introduce el texto sin problemas. Pero si no entro en el aviso y no modifico el texto, no introduce nada. Totalmente desesperado!! LLevo ya una semana con esto!!
Os pongo el código que utilizo:
* 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 QUE QUIERO INTRODUCIR',
longitud TYPE i VALUE 0,
contador TYPE i VALUE 0,
lineas TYPE i VALUE 0,
desplazamiento TYPE i VALUE 0.
*INTRODUCIMOS EL TEXTO POR LINEAS
it_lines-tdformat = '*'.
it_lines-tdline = texto.
append it_lines.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
FID = 'LTXT'
FLANGUAGE = 'S'
FNAME = '000010046949' "nº del aviso donde introduzco el texto
FOBJECT = 'QMEL'
FFORMAT = '*'
TABLES
FLINES = IT_LINES
EXCEPTIONS
NO_INIT = 1
NO_SAVE = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
**HACEMOS EL COMMIT
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
OBJECT = IT_HEADER-TDOBJECT
NAME = IT_HEADER-TDNAME.
COMMIT WORK.
*******************************************************