回头一看,做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.
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的路还长,
我抬起头望着远方,
漫长漫长……