Long Text에 대한 소스입니다.
물론 제가 개발한 거구요..
INIT_TEXT
READ_TEXT
SAVE_TEXT
또 하나 뭐더라...만든지 오래되서리..
해당 모듈에 맞게 생성하시고 스크린 하나 생성하시고..
암튼 뭐..소스 보시면 이해 되실 겝니다..
>long text 작업이 다음그림까지는 생성됬는데요
>
>저장작업의 적용이 안되네요
>
>버미님 자료까지 올려주셨는데 제가 보기에는 수준이 높네요 ㅠ
>
>롱텍스트에 관한 소스 올립니다
>
>제 소스에 맞는 소중한 의견 부탁드려요
>
>오늘도 이문제로 머리 쓰고 있답니다 ㅠ.ㅠ
>
>필드 wr 과 etc 필드에 각각의 텍스트의 입력한내용을 저장하게 하려는 것입니다.
>
>text object는 알겠는데 아래 부분에 text id나 text name은 무엇을 의미하나요
>
>문제점좀 알려주세요
>
> >
>WR_container type ref to cl_gui_custom_container,
ETC_CONTAINER TYPE REF TO cl_gui_custom_container,
text_editor type ref to cl_gui_textedit.
> >
>CONSTANTS: gc_tdobject TYPE thead-tdobject VALUE 'ZTEXT'.
>
>------------------------------------------------------------
>
> >
>FORM SAVE_DATA .
data: begin of header.
include structure thead.
data: end of header.
data: begin of lines occurs 0.
include structure tline.
data: end of lines.
data: textlines type table of tline-tdline,
wa_text type tline-tdline.
call method text_editor->get_text_as_r3table
importing
table = textlines
exceptions
others = 1.
* Set SAPscript Header
clear header.
header-tdname = 'P_NAME' . "Name
header-tdobject = 'ZTEXT'. "Object
header-tdid = 'ZKSH'. "Id
header-tdspras = sy-langu.
* Move text from container to function module table
clear lines. refresh lines.
loop at textlines into wa_text .
lines-tdline = wa_text.
append lines .
endloop.
call function 'SAVE_TEXT'
exporting
client = sy-mandt
header = header
tables
lines = lines
exceptions
id = 1
language = 2
name = 3
object = 4
others = 5.
>ENDFORM. " SAVE_DATA
>
>---------------------------------------------------------------------
> >
>MODULE STATUS_0300 OUTPUT.
SET PF-STATUS 'STATUS0300'.
SET TITLEBAR 'TITLEBAR300'.
check WR_container is initial.
create object WR_container
exporting
container_name = 'WR_CONTAINER'.
check ETC_container is initial.
create object ETC_container
exporting
container_name = 'ETC_CONTAINER'.
create object text_editor
exporting
parent = WR_container.
create object text_editor
exporting
parent = ETC_container.
ENDMODULE. " STATUS_0300 OUTPUT
