wtorek, 25 stycznia 2011

Parsowanie TLINE na STRING



METHOD tline_to_wd_string.
FIELD-SYMBOLS: TYPE tline.

CLEAR ev_wd_text .

LOOP AT it_tdline ASSIGNING .
IF sy-tabix = 1.
ev_wd_text = -tdline.
ELSEIF -tdformat = '*'.
CONCATENATE ev_wd_text iv_newline -tdline INTO ev_wd_text.
ELSE.
CONCATENATE ev_wd_text -tdline INTO ev_wd_text.
ENDIF.
ENDLOOP.

ENDMETHOD.

poniedziałek, 24 stycznia 2011

Praca z tekstami

1. Standard TEXTTransakcja z edytorem do standard tekstu
Używamy transakcji SO10 do tworzenia i zarządzania tekstami.


















Wykorzystanie Standard tekstów w kodzie.
1. Pobieranie wartości tekstowej:
CALL FUNCTION 'READ_TEXT'
EXPORTING

* CLIENT = SY-MANDT
id = 'ST'
language = iv_lang
name = 'YSTQI_FOOTER' object = 'TEXT'
TABLES
lines = et_text
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4

object = 5

reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8

2. Smartforms. Bezpośrednie pobranie standard textu w formie.













2. Online
Text Repository (OTR)

Do zarządzania OTR'ami dostajemy się poprzez transakcję
SO
TR_EDIT.











Wywołanie OTR'a w kodzie:

lv_vlaue = cl_bsp_runtime=>get_otr_text( 'YQM003/EVENT_CIRCUMSTANCES' ).