zoukankan      html  css  js  c++  java
  • SAP 文本框多行输入

    REPORT zjw_test01.
    CONSTANTS: gc_text_line_length TYPE i VALUE 72.
    TYPES: text_table_type(gc_text_line_length) TYPE c OCCURS 0.
    DATA: gv_splitter TYPE REF TO cl_gui_easy_splitter_container.
    DATA: gv_custom_container TYPE REF TO cl_gui_custom_container.
    DATA: gv_text_editor TYPE REF TO cl_gui_textedit.
    DATA: lt_text_table                         TYPE text_table_type,
          ls_text_table_wa(gc_text_line_length) TYPE c,
          gv_xthead_updkz                       TYPE i.
    CALL SCREEN 100.
    
    MODULE splitter_control_vorbereiten OUTPUT.
    
      IF gv_splitter IS INITIAL.
        CREATE OBJECT gv_custom_container
          EXPORTING
            container_name = 'SPLITTER_CONTAINER'.
    
        CREATE OBJECT gv_splitter
          EXPORTING
            parent        = gv_custom_container
            orientation   = 1
            sash_position = 39.
    
      ENDIF.
    
      IF gv_text_editor IS INITIAL.
        CREATE OBJECT gv_text_editor
          EXPORTING
            parent                     = gv_splitter->bottom_right_container
    *       wordwrap_mode              = cl_gui_textedit=>wordwrap_at_windowborder
            wordwrap_to_linebreak_mode = cl_gui_textedit=>false
          EXCEPTIONS
            error_cntl_create          = 1
            error_cntl_init            = 2
            error_cntl_link            = 3
            error_dp_create            = 4
            gui_type_not_supported     = 5.

        CALL METHOD gv_text_editor->set_readonly_mode
          EXPORTING
            readonly_mode = cl_gui_textedit=>true.
    ENDIF. ENDMODULE. " SPLITTER_CONTROL_VORBEREITEN OUTPUT *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'STATUS_0100'. * SET TITLEBAR 'xxx'. ENDMODULE. *&---------------------------------------------------------------------* *& Module EXIT INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit INPUT. LEAVE TO SCREEN 0. ENDMODULE. *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. DATA t_tdline1 TYPE TABLE OF STANDARD . * Texttabelle aus Control abholen CALL METHOD gv_text_editor->get_text_as_stream IMPORTING text = lt_text_table is_modified = gv_xthead_updkz EXCEPTIONS error_dp = 1 error_cntl_call_method = 2 OTHERS = 3. IF sy-subrc = 0. ENDIF. CALL METHOD gv_text_editor->get_text_as_r3table IMPORTING table = t_tdline1. IF sy-subrc = 0. ENDIF. ENDMODULE.

    屏幕

    PBO /PAI

  • 相关阅读:
    Legacy(点对线段有路走,线段向点有路走,线段树走dij)
    G. Death DBMS(查询每个主串和n个模板串匹配后val最大值,支持单点更新)
    2020 CCPC Wannafly Winter Camp Day5 J Xor on Figures(矩阵转01串,统计01串异或种类)
    zoj3988(自己集合和自己集合匹配)
    2020 CCPC Wannafly Winter Camp Day7 A(求任何子序列中相邻范围内数的个数的总和)
    hdu6241(给定树中向上向下限制求最小可能个数)
    hdu6230(求限制条件的回文个数,利用manacher+BIT求解)
    NOIP 2020 游记
    分散层叠算法学习笔记
    代理模式
  • 原文地址:https://www.cnblogs.com/JackeyLove/p/13646127.html
Copyright © 2011-2022 走看看