#1
|
|||
|
|||
Problema al introducir un texto en un campo 'CREATE_TEXT'
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. ******************************************************* |
Herramientas | Buscar en Tema |
Desplegado | |
|
|