• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录

狼升空

  • 博客园
  • 联系
  • 订阅
  • 管理

公告

View Post

ABAP 捕获回车键更新值


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

 

posted on 2013-04-25 13:36  狼升空  阅读(1570)  评论(0)    收藏  举报

刷新页面返回顶部
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3