text edit control using function
2012-09-27 16:16
211 查看
*&---------------------------------------------------------------------*
*& Report ZTESTEXCELVALATION
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTESTEXCELVALATION MESSAGE-ID ZDEV.
DATA: BEGIN OF GT_DYNTAB_1COL OCCURS 1,
VDATA LIKE PPLOG-VDATA,
END OF GT_DYNTAB_1COL.
DATA: EDIT_CONTROL_CHANGED.
START-OF-SELECTION.
CALL SCREEN 1111.
*&---------------------------------------------------------------------*
*& Module STATUS_1111 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_1111 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
CALL FUNCTION 'RH_EDITOR_SET'
EXPORTING
REPID = 'ZTESTEXCELVALATION'
DYNNR = '1111'
CONTROLNAME = 'EDIT_CONTROL'
MAX_COLS = 72
* MAX_LINES =
* SHOW_TOOL = 'X'
SHOW_STATUS = 'X'
* display_mode = local_disp
TABLES
* lines = dyn_tab
lines = gt_dyntab_1col
EXCEPTIONS
CREATE_ERROR = 1
INTERNAL_ERROR = 2
OTHERS = 3.
ENDMODULE. " STATUS_1111 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1111 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1111 INPUT.
CALL FUNCTION 'RH_EDITOR_GET'
EXPORTING
CONTROLNAME = 'EDIT_CONTROL'
COL_WIDTH = 72 "THY270104
IMPORTING
CHANGED = EDIT_CONTROL_CHANGED
TABLES
* lines = dyn_tab
LINES = GT_DYNTAB_1COL "THY200904#775051
EXCEPTIONS
INTERNAL_ERROR = 1
OTHERS = 2.
ENDMODULE. " USER_COMMAND_1111 INPUT
数据分行保存在表中
*& Report ZTESTEXCELVALATION
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTESTEXCELVALATION MESSAGE-ID ZDEV.
DATA: BEGIN OF GT_DYNTAB_1COL OCCURS 1,
VDATA LIKE PPLOG-VDATA,
END OF GT_DYNTAB_1COL.
DATA: EDIT_CONTROL_CHANGED.
START-OF-SELECTION.
CALL SCREEN 1111.
*&---------------------------------------------------------------------*
*& Module STATUS_1111 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_1111 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
CALL FUNCTION 'RH_EDITOR_SET'
EXPORTING
REPID = 'ZTESTEXCELVALATION'
DYNNR = '1111'
CONTROLNAME = 'EDIT_CONTROL'
MAX_COLS = 72
* MAX_LINES =
* SHOW_TOOL = 'X'
SHOW_STATUS = 'X'
* display_mode = local_disp
TABLES
* lines = dyn_tab
lines = gt_dyntab_1col
EXCEPTIONS
CREATE_ERROR = 1
INTERNAL_ERROR = 2
OTHERS = 3.
ENDMODULE. " STATUS_1111 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1111 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1111 INPUT.
CALL FUNCTION 'RH_EDITOR_GET'
EXPORTING
CONTROLNAME = 'EDIT_CONTROL'
COL_WIDTH = 72 "THY270104
IMPORTING
CHANGED = EDIT_CONTROL_CHANGED
TABLES
* lines = dyn_tab
LINES = GT_DYNTAB_1COL "THY200904#775051
EXCEPTIONS
INTERNAL_ERROR = 1
OTHERS = 2.
ENDMODULE. " USER_COMMAND_1111 INPUT
数据分行保存在表中
相关文章推荐
- Edit Control: How to append text to an edit control?
- Edit Control with Icon and Background Text
- Text Edit control - Usage and Demo
- Edit Control with Icon and Background Text
- Delphi,Rxlib,RxRichEdit,Richedit 高版本 ,Rich Text Edit Control, v4.1 控件,打印Bug
- CRichEditControl50W - A VC++ Rich Text Edit 4.1 MFC Control
- DataGrid Control, EditText Control
- Vertical Text Centering in an Edit Control(CEdit 单行 垂直居中)
- MFC控件(2):Text_Edit_Control
- Edit Control with Icon and Background Text
- 使用cocapods报错 [!] Your Podfile has had smart quotes sanitised. To avoid issues in the future, you should not use TextEdit for editing it. If you are not using TextEdit, you should turn off smart quotes
- MFC控件(2):Text_Edit_Control
- Android实现EditText的富文本编辑
- 解决初始界面后EditText自动获取焦点 弹出软键盘
- Android: EditText设置属性和设置输入规则
- TextView/EditText 使用注意地方
- Edittext ---Android
- androidのEditText属性详解
- android 点击EditText始终不弹出软件键盘实现代码
- EventBus简单的EditText观察者,被观察者,简单传值demo