SAP abaper的一天

三月阳光

　　回头一看，做abaper已经三个月了，三个月来，也学到了一些东西。但毕竟还处于初级阶段，还要向SAP强人多学习呀
　　看到网络上有很多SAP高人，有的业务非常强，有的abap非常强，都是值得我学习的师父啊。
　　一直都是遇见问题，然后再遇见问题，解决问题，再解决问题，在这期间，我的同事也给予了我很多帮助，有些东西真是
　　不发弄啊，自己弄了两天弄不出来的东西，高手过来三几分钟就解决问题了，汗！看来我还真是个小菜鸟啊……
　　不管怎么样，走了这条道，总得坚持走下去的，毕竟有很多前辈，我能“踩”在他们肩上往前看，肯定能看得更远的。
　　元旦来了第一天工作，刚开始有点无从着手。后来找到了一点感觉。原来做的一个程序在处理ALV 双击上死活做不对，今天就捣腾了半天，还行，总算在总结前辈的程序的基础上给搞好了，心情那个那啊！
　　总结原因还是自己面向对象看的不多啊，好多都不理解，只是ctrl C 是不行的。
　　下面是ALV GRID响应鼠标双击的EVENT及主要代码。

展开代码

* ALV GRID的实例以及参考
DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid .
*定义定制控件以及名称（该名称要与屏幕设计是定义的名称一致）
DATA gc_custom_control_name TYPE scrfname VALUE 'CC_ALV' .
*定制控件的实例
DATA gr_ccontainer TYPE REF TO cl_gui_custom_container .
*字段目录
DATA  gt_fieldcat TYPE lvc_t_fcat .
*格式结构（ALV的显示格式）
DATA gs_layout TYPE lvc_s_layo .
DATA :lvc LIKE LINE OF  gt_fieldcat   .
##############################################################
CLASS lcl_alv_receiver DEFINITION DEFERRED.
  CLASS lcl_alv_receiver DEFINITION.
  PUBLIC SECTION.
      METHODS : double_click_cell
        FOR EVENT double_click  OF cl_gui_alv_grid
            IMPORTING e_row e_column es_row_no.
ENDCLASS.                    "lcl_event_receiver DEFINITION
  CLASS lcl_alv_receiver IMPLEMENTATION.                "handle_data_changed
####################################################################
  METHOD double_click_cell.
    READ TABLE out_tab INTO output INDEX e_row.
    SET PARAMETER ID 'BES' FIELD output-ebeln.
    CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
  ENDMETHOD.                    "DOUBLE_CLICK_CELL
ENDCLASS.               "lcl_ALV_event_receiver
###############################################################
  MODULE display_alv_data OUTPUT.
  CALL METHOD gr_alvgrid->set_table_for_first_display
    EXPORTING
      is_layout                     = gs_layout
    CHANGING
      it_outtab                     = out_tab
      it_fieldcatalog               = gt_fieldcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
*  SET HANDLER g_alv_application->handle_data_changed FOR gr_alvgrid.
*  SET HANDLER g_alv_application->modify_outtab  FOR gr_alvgrid.
  SET HANDLER g_alv_application->double_click_cell  FOR gr_alvgrid.
  CALL METHOD gr_alvgrid->register_edit_event  "注册更新事件
      EXPORTING
*        i_event_id = cl_gui_alv_grid=>mc_evt_enter
          i_event_id = cl_gui_alv_grid=>mc_evt_modified.
  SET HANDLER g_alv_application->double_click_cell  FOR gr_alvgrid.
ENDMODULE.                 " DISPLAY_ALV_DATA  OUTPUT
  FORM creat_alv .
  IF gr_alvgrid IS INITIAL .
*如果ALV控件实例不存在，则先创建定制控件，然后创建ALV实例控件
    CREATE OBJECT gr_ccontainer
      EXPORTING
        container_name              = gc_custom_control_name
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6 .
*创建ALV控件实例
    CREATE OBJECT gr_alvgrid
      EXPORTING
        i_parent          = gr_ccontainer
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5 .
    CREATE  OBJECT g_alv_application.    *这句忘了，两个小时找不出来原因,汗啊*
  ELSE.
*    如果控件实例已经存在，则刷新
    CALL METHOD gr_alvgrid->refresh_table_display
      EXCEPTIONS
        finished = 1
        OTHERS   = 2.
  ENDIF.
ENDFORM.   
　　希望能慢慢成长吧！
毕竟abaper的路还长,
　　我抬起头望着远方，
　　漫长漫长……