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