凡尘clsoho™的博客

E-mail & MSN: clsoho@hotmail.com
QQ1超级群: <101817641已满> QQ2群:<110722895已满>
QQ3超级群:<23765855>QQ4超级群:<85338969>

回头一看,做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的路还长,

我抬起头望着远方,

漫长漫长……

posted on 2010-01-04 17:03  凡尘clsoho  阅读(1335)  评论(3编辑  收藏  举报