Folgende Benutzer bedankten sich beim Autor Thanatos82 für den Beitrag:
Pyro
Code: Alles auswählen.
type-pools: CSSF.
DATA:
lt_tline TYPE tlinetab, "Ergebnis
ld_variant TYPE tdvariant, "Variante (meistens leer)
ld_name TYPE tdtxtname, "Name des Textes
ld_spras TYPE tdspras, "Sprache des Textes
lr_form TYPE REF TO cl_ssf_fb_smart_form,
lr_text TYPE REF TO cl_ssf_fb_text_item.
FIELD-SYMBOLS:
<ls_variant> TYPE ssfvarhdr.
* read text module
CREATE OBJECT lr_form.
TRY.
* check if exists and lock text module
lr_form->enqueue( language_upd_exit = space
suppress_language_check = space
mode = 'SHOW'
formname = ld_name
authority_check = ld_spras ).
lr_form->load( im_formname = ld_name
im_language = ld_spras
im_active = abap_true ).
CATCH cx_ssf_fb.
RETURN.
ENDTRY.
IF lr_form->header-formtype NE cssf_formtype_text.
RETURN.
ENDIF.
* get lines[]
READ TABLE lr_form->varheader ASSIGNING <ls_variant> WITH KEY vari = ld_variant.
IF sy-subrc EQ 0.
lr_text ?= <ls_variant>-pagetree->obj.
IF lr_text IS BOUND.
lt_tline = lr_text->text.
ENDIF.
ENDIF.
lr_form->dequeue( EXPORTING formname = ld_name ).
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Pyro
Folgende Benutzer bedankten sich beim Autor Tron für den Beitrag:
a-dead-trousers
Thx!Tron hat geschrieben:Ein Funktionsbaustein zum Lesen der Smartformstexte lautet SSFRT_READ_TEXTMODULE.