弹出对话框 用户输入值
来源:互联网 发布:云计算彩票分析师 编辑:程序博客网 时间:2024/05/19 09:17
TYPES: ty_t_sval TYPE STANDARD TABLE OF sval.
DATA: gv_ret_code(5) TYPE c,
gt_flds TYPE ty_t_sval.
CONSTANTS: cn_dlg_tit(10) TYPE c VALUE 'HELLO!'.
START-OF-SELECTION.
* set dialog structure attributes
PERFORM frm_set_tab_attr CHANGING gt_flds.
* pop dialog to ask user input data
PERFORM frm_pop_dialog CHANGING gt_flds gv_ret_code.
END-OF-SELECTION.
IF gv_ret_code IS INITIAL.
* output result of input by user
PERFORM frm_output_rslt USING gt_flds.
ENDIF.
*&---------------------------------------------------------------------*
*& Form FRM_SET_TAB_ATTR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FLDS text
*----------------------------------------------------------------------*
FORM frm_set_tab_attr CHANGING p_gt_flds TYPE ty_t_sval.
DATA: lw_sval TYPE sval.
* set each field's attribute
DEFINE set_fld_attr.
lw_sval-tabname = 'MAKT'.
lw_sval-fieldname = &1.
append lw_sval to p_gt_flds.
clear lw_sval.
END-OF-DEFINITION.
set_fld_attr: 'MATNR', 'SPRAS', 'MAKTX'.
ENDFORM. " FRM_SET_TAB_ATTR
*&---------------------------------------------------------------------*
*& Form FRM_POP_DIALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FLDS text
* <--P_GV_RET_CODE text
*----------------------------------------------------------------------*
FORM frm_pop_dialog CHANGING p_gt_flds TYPE ty_t_sval
p_gv_ret_code TYPE c.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = cn_dlg_tit
IMPORTING
returncode = p_gv_ret_code
TABLES
fields = p_gt_flds
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " FRM_POP_DIALOG
*&---------------------------------------------------------------------*
*& Form FRM_OUTPUT_RSLT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GT_FLDS text
*----------------------------------------------------------------------*
FORM frm_output_rslt USING p_gt_flds TYPE ty_t_sval.
DATA: lw_sval TYPE sval.
LOOP AT p_gt_flds INTO lw_sval.
WRITE:/ lw_sval-tabname, lw_sval-fieldname, lw_sval-value.
ULINE.
ENDLOOP.
ENDFORM. " FRM_OUTPUT_RSLT
DATA: gv_ret_code(5) TYPE c,
gt_flds TYPE ty_t_sval.
CONSTANTS: cn_dlg_tit(10) TYPE c VALUE 'HELLO!'.
START-OF-SELECTION.
* set dialog structure attributes
PERFORM frm_set_tab_attr CHANGING gt_flds.
* pop dialog to ask user input data
PERFORM frm_pop_dialog CHANGING gt_flds gv_ret_code.
END-OF-SELECTION.
IF gv_ret_code IS INITIAL.
* output result of input by user
PERFORM frm_output_rslt USING gt_flds.
ENDIF.
*&---------------------------------------------------------------------*
*& Form FRM_SET_TAB_ATTR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FLDS text
*----------------------------------------------------------------------*
FORM frm_set_tab_attr CHANGING p_gt_flds TYPE ty_t_sval.
DATA: lw_sval TYPE sval.
* set each field's attribute
DEFINE set_fld_attr.
lw_sval-tabname = 'MAKT'.
lw_sval-fieldname = &1.
append lw_sval to p_gt_flds.
clear lw_sval.
END-OF-DEFINITION.
set_fld_attr: 'MATNR', 'SPRAS', 'MAKTX'.
ENDFORM. " FRM_SET_TAB_ATTR
*&---------------------------------------------------------------------*
*& Form FRM_POP_DIALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FLDS text
* <--P_GV_RET_CODE text
*----------------------------------------------------------------------*
FORM frm_pop_dialog CHANGING p_gt_flds TYPE ty_t_sval
p_gv_ret_code TYPE c.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = cn_dlg_tit
IMPORTING
returncode = p_gv_ret_code
TABLES
fields = p_gt_flds
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " FRM_POP_DIALOG
*&---------------------------------------------------------------------*
*& Form FRM_OUTPUT_RSLT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GT_FLDS text
*----------------------------------------------------------------------*
FORM frm_output_rslt USING p_gt_flds TYPE ty_t_sval.
DATA: lw_sval TYPE sval.
LOOP AT p_gt_flds INTO lw_sval.
WRITE:/ lw_sval-tabname, lw_sval-fieldname, lw_sval-value.
ULINE.
ENDLOOP.
ENDFORM. " FRM_OUTPUT_RSLT
0 0
- 弹出对话框 用户输入值
- 弹出对话框 用户输入值
- 弹出对话框 用户输入值(FM)
- javascript--弹出对话框 四种对话框 获得用户输入值
- javascript--弹出对话框 四种对话框 获得用户输入值 .
- C# 自制弹出输入对话框
- 弹出提示输入网址对话框
- 怎样弹出一个输入对话框
- 外部用户访问sharepoint网站不断弹出输入用户名和密码的对话框
- Jsp页面弹出输入对话框的实现
- 在jsp页面弹出输入对话框
- Jsp页面弹出输入对话框的实现
- android 弹出带输入框的对话框
- android 弹出带输入框的对话框
- android 弹出带输入框的对话框
- Android弹出的对话框显示输入框
- abap 弹出对话框给用户选择
- iPhone 弹出对话框 让用户等待
- bing翻译API调用(java版本)
- lower_bound()
- C#控件及常用设计整理
- 打印1到n位最大数
- jsp页面格式化时间
- 弹出对话框 用户输入值
- 使用top查看进程和系统负载信息
- HDU2489Minimal Ratio Tree(最小生成树+状态压缩)
- hadoop完全分布式集群搭建(Ubuntu14.04+Hadoop2.5.1)(自测成功)
- windows进程间通信
- old_blog 维吉利亚加密与破译
- Castle学习系列(七)---ActiveRecord HQL介绍
- pat1050
- Twisted xmlrpc服务端获得客户端ip的方法