ABAP 捕获回车键更新值
2013-04-25 13:36
337 查看
gt_events1 TYPE slis_t_event.
*&---------------------------------------------------------------------* *& Form EVENT_INTIT1 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM event_intit1 . DATA: ls_events TYPE slis_alv_event. ls_events-name = slis_ev_data_changed. ls_events-form = 'FRM_DATA_CHANGED1'. APPEND ls_events TO gt_events1. ENDFORM. " EVENT_INTIT1
*&---------------------------------------------------------------------* *& Form frm_data_changed *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->RR_DATA_CHANGED text *----------------------------------------------------------------------* FORM frm_data_changed1 USING rr_data_changed TYPE REF TO cl_alv_changed_data_protocol. DATA :wa_mod TYPE LINE OF lvc_t_modi. * MOVE rr_data_changed-mt_mod_cells TO wa_mod. DATA:ref_grid TYPE REF TO cl_gui_alv_grid. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' * EXPORTING * IR_SALV_FULLSCREEN_ADAPTER = IMPORTING * ET_EXCLUDING = * E_REPID = * E_CALLBACK_PROGRAM = * E_CALLBACK_ROUTINE = e_grid = ref_grid. * ET_FIELDCAT_LVC = * ER_TRACE = * E_FLG_NO_HTML = * ES_LAYOUT_KKBLO = * ES_SEL_HIDE = * ET_EVENT_EXIT = * ER_FORM_TOL = * ER_FORM_EOL = LOOP AT rr_data_changed->mt_mod_cells INTO wa_mod . READ TABLE gt_alv1 INDEX wa_mod-row_id. IF sy-subrc EQ 0. gt_alv1-jszoj = wa_mod-value * gt_alv1-bstmg. gt_alv1-shuij = gt_alv1-jszoj * 17 / 100. gt_alv1-yfzhk = gt_alv1-jszoj + gt_alv1-shuij. gt_alv1-yfzcy = gt_alv1-yfzhk - ( gt_alv1-wrbtr * 117 / 100 ). gt_alv1-shjcy = gt_alv1-shuij - ( gt_alv1-wrbtr * 17 / 100 ). gt_alv1-matcy = gt_alv1-yfzcy - gt_alv1-shjcy. MODIFY gt_alv1 FROM gt_alv1 INDEX wa_mod-row_id. ENDIF. ENDLOOP."刷新内表 MODIFY_CELL CALL METHOD ref_grid->refresh_table_display. ENDFORM. "frm_data_changed
相关文章推荐
- ABAP更新自建表
- ABAP 捕获回车键
- ABAP增强开发:更新物料主数据毛重,净重,单位的BAPI使用方法(经典)
- 使用特殊的技术更新数据库(ABAP)
- log4net 高级运用之:在页面级捕获可预见的异常,在全局应用程序类Global.asax中捕获未知的异常(更新log4net的样式和配置)
- ABAP report常用的一些语句用法(包括字符串操作,变量动态操作)(持续更新)
- 在ABAP中用事务更新数据
- 在ABAP中用事务更新数据
- 使用特殊的技术更新数据库(ABAP)
- 使用特殊的技术更新数据库(ABAP)
- 使用特殊的技术更新数据库(ABAP)
- ABAP:更新供应商Email地址
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items
- ABAP联动更新值
- MFC 调用 QT的dll QT内无法捕获回车键 & PostMessage向窗口发送Alt组合键
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items(感谢天元提供)
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items(感谢天元提供)
- ABAP数据库—更新数据
- 在ABAP中用事务更新数据(转)
- 加入SOA技术圈测试第一篇:ABAP 编程点滴(不断更新中)