Code: Alles auswählen.
/: DEFINE &GV_TEXT1& = '--------------'
/: PERFORM GET_BEDINGUNGEN IN PROGRAM ZSWM_GET_FORMTEXTE
/: USING &GV_FORMNAME&
/: CHANGING &GV_TEXT1&
/: ENDPERFORM
/: INCLUDE &GV_TEXT1& OBJECT TEXT ID ST LANGUAGE &EKKO-SPRAS&
Code: Alles auswählen.
lv_identficator = '*'.
CALL METHOD IO_FORMTEXTE->GET_TEXT
EXPORTING
IV_IDENT_ROLLE = 'VKORG'
IV_IDENTIFICATOR = lv_identficator
IV_FORMULAR_NAME = lv_formname
IV_FORMULAR_FIELD = 'BEDINGUNGEN'
IV_DATE = sy-datum
IMPORTING
ESTK_INFO = ls_form_text.
Data lv_value TYPE CHAR30.
lv_value = ls_form_text-value.
p_out_tab-value = lv_value.
MODIFY p_out_tab INDEX sy-tabix.
Meinst du so:wreichelt hat geschrieben:Hallo,
in dem gerufenen Programm fehlt evtl. der
read table ??? with key 'GV_TEXT1'.
Gruß
Wolfgang
Code: Alles auswählen.
IF sy–subrc = 0.
read table out_tab index 1.
move ls_form_text-value to out_tab–value.
modify out_tab index sy–tabix.
ELSE.
READ TABLE out_tab INDEX 1.
MOVE 'nothing' TO out_tab–value.
MODIFY out_tab INDEX sy–tabix.
ENDIF.
Code: Alles auswählen.
READ TABLE p_out_tab WITH KEY 'GV_TEXT1'.
CHECK SY-SUBRC = 0.
lv_value = ls_form_text-value.
p_out_tab-value = lv_value.
MODIFY p_out_tab INDEX sy-tabix.