carga Dinámica de datos

[kelaya]

Hola!!! soy muy nueva en esto de sap y estoy tratando de cargar dinamicamente los datos en mi sapscript. Hago el form y luego lo llamo con un perform desde el sapscript. Dentro del programa utilizo FM save_text, pero no me guarda el nuevo texto por ende no me muestra ningún dato en el sapscript. El texto es uno nuevo en blanco que cree desde la SO10 y la primera vez que pasa debe crear lo que va a ir dentro pero mi save_text no lo hace. Me pueden ayudar?. Muchas gracias!

Aquí les dejo el codigo.
LOOP AT it_formulario
INTO iv_formulario.

* Asignamos un Formato de Parrafo para la impresion de los registros
* en el formulario.
wa_text-tdformat = '*'.


SELECT SINGLE posnr smeng matnr
FROM vbrp
INTO (iv_formulario-posnr, iv_formulario-smeng,
iv_formulario-matnr)
WHERE vbeln = is_formulario-vbeln.


gv_smeng = iv_formulario-smeng.
CONDENSE gv_smeng NO-GAPS.
iv_formulario-smeng = gv_smeng.


SELECT SINGLE maktx
FROM makt
INTO (iv_formulario-maktx)
WHERE matnr = is_formulario-matnr.

SELECT SINGLE kschl kbetr kpein
FROM konv
INTO (iv_formulario-kschl, iv_formulario-kbetr,
iv_formulario-kpein)
WHERE knumv = is_formulario-knumv
AND kposn = iv_formulario-posnr.



* Pasamos valores numéricos a caracter.

MOVE iv_formulario-posnr TO gv_posnr.
MOVE iv_formulario-smeng TO gv1_smeng.
MOVE iv_formulario-kbetr TO gv_kbetr.

* Concatenamos los datos del registro en un String y separamos
* con los tabuladores (V_TAB)

CONCATENATE
gv_posnr
gv_smeng
iv_formulario-matnr
iv_formulario-maktx
gv_kbetr
INTO wa_text-tdline

SEPARATED BY v_tab.

* Agregamos registro a TI_TEXT


ENDLOOP.
APPEND wa_text TO ti_text.


CHECK sy-subrc = 0.

* Pasamos los atributos del Texto Estandar

wa_header-tdname = 'Z_NOTADEBITO_TABLE1'.

wa_header-tdobject = 'TEXT'.

wa_header-tdid = 'ST'.

wa_header-tdspras = 'E'. "sy_langu'.


CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
object = 'TEXT'
name = 'Z_NOTADEBITO_TABLE1'
id = 'ST'
language = 'E'
savemode_direct = 'X'
keep = ' '
LOCAL_CAT = ' '
IMPORTING
commit_count = sy-index
TABLES
T_OBJECT = wa_header-tdobject
T_NAME = wa_header-tdname
T_ID = wa_header-tdid
T_LANGUAGE = wa_header-tdspras
.





* Guardamos los datos de la tabla interna en el Objeto de Texto Standard

CALL FUNCTION 'SAVE_TEXT'

EXPORTING

header = wa_header

insert = ''

savemode_direct = 'X'

TABLES

lines = ti_text

EXCEPTIONS

id = 1

language = 2

name = 3

object = 4.


IF sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.



ENDFORM.