ITPub博客

首页 > Linux操作系统 > Linux操作系统 > sap 写读长文

sap 写读长文

原创 Linux操作系统 作者:xiangying816 时间:2009-10-26 15:17:43 0 删除 编辑

REPORT  z_barry_test_textedit NO STANDARD PAGE HEADING .

TABLES: sscrfields.
DATA: x_docking TYPE REF TO cl_gui_docking_container,
      x_editor  TYPE REF TO cl_gui_textedit,
      lines TYPE STANDARD TABLE OF tline ,
      header LIKE thead .

TYPES: BEGIN OF textline,
   line(255) TYPE c,
 END OF textline .
DATA texttable TYPE TABLE OF textline  .

PARAMETERS:p_name(70) DEFAULT '12345678'.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.
  sscrfields-functxt_01 = 'Save'.
  sscrfields-functxt_02 = 'Read'.

AT SELECTION-SCREEN OUTPUT.
  IF x_docking IS INITIAL .
    CREATE OBJECT x_docking
    EXPORTING
        repid                       = sy-repid
        dynnr                       = sy-dynnr
        side                        = 4
        extension                   = '255'
    EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.

    CREATE OBJECT x_editor
      EXPORTING
          parent                    = x_docking
          wordwrap_mode             = 2
          wordwrap_position         = 72
          max_number_chars          = 100000.
  ENDIF .

AT SELECTION-SCREEN.
  header-tdobject  = 'Z001'.
  header-tdname    = p_name.
  header-tdid      = '0001'.
  header-tdspras   = sy-langu.

  CASE sy-ucomm .
    WHEN 'FC01'.
      PERFORM. savetext.
    WHEN 'FC02'.
      PERFORM. readtext.
  ENDCASE.

*&---------------------------------------------------------------------*
*&      Form  savetext
*&---------------------------------------------------------------------*
FORM. savetext.
  CALL METHOD x_editor->get_text_as_stream
    IMPORTING
      text                   = texttable
    EXCEPTIONS
      error_dp               = 1
      error_cntl_call_method = 2
      OTHERS                 = 3.

  CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'
    EXPORTING
      language    = sy-langu
    TABLES
      text_stream = texttable
      itf_text    = lines.

  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      header          = header
      savemode_direct = 'X'
    TABLES
      lines           = lines
    EXCEPTIONS
      id              = 1
      language        = 2
      name            = 3
      object          = 4
      OTHERS          = 5.
  IF sy-subrc = 0.
    MESSAGE s000(oo) WITH '保存成功'.
    COMMIT WORK.
  ELSE.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    "savetext

*&---------------------------------------------------------------------*
*&      Form  readtext
*&---------------------------------------------------------------------*
FORM. readtext.
  CLEAR:texttable,texttable[].

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = header-tdid
      language                = sy-langu
      name                    = p_name
      object                  = header-tdobject
    TABLES
      lines                   = lines
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'
    EXPORTING
      language    = sy-langu
    TABLES
      itf_text    = lines
      text_stream = texttable.

  CALL METHOD x_editor->set_text_as_stream
    EXPORTING
      text            = texttable
    EXCEPTIONS
      error_dp        = 1
      error_dp_create = 2
      OTHERS          = 3.
ENDFORM.                    "readtext

注:如果需要自己定义object,如本例的tdobject(Z001)和tdid(0001),则需要在表TTXOB和TTXID中维护(TCODE:SE75)

关于SAVE_TEXT的更多帮助:http://help.sap.com/saphelp_nw04/helpdata/en/d6/0db8ef494511d182b70000e829fbfe/frameset.htm

出处:http://blog.chinaunix.net/u1/40527/showart_1882308.html

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/15127599/viewspace-617441/,如需转载,请注明出处,否则将追究法律责任。

上一篇: sap 学习资料收藏
下一篇: sap中嵌入网页
请登录后发表评论 登录
全部评论

注册时间:2011-03-02

  • 博文量
    90
  • 访问量
    162908