carga Dinámica de datos
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.
|