ALV分组求和1

《ALV分组求和1》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、*&---------------------------------------------------------------------**&ReportYTH_TEST00029*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORTyth_test00029.*&------

2、---------------------------------------------------------------**&Function:REUSE_ALV_FIELDCATALOG_MERGE*&ALV求和*&和function:REUSE_ALV_GRID_DISPLAY一起使用*&经典例子*&做为一个方法使用，设置ALV的Fieldcatlog.*&和delphi里的dxdbgrid的功能一样。对小类相加计算，*&对所有的数量求和.*&对ALV中的某一列进行分类的完成测试程序。*&-------------------

3、--------------------------------------------------*DATA:BEGINOFi_likpOCCURS5,kunnrLIKElikp-kunnr,"客户号wadat_istLIKElikp-wadat_ist,"交货日期（发货日期）lfimgLIKElips-lfimg,"实际已交货量ENDOFi_likp.TYPE-POOLS:slis.DATA:l_eventsTYPEslis_t_event,gt_list_top_of_pageTYPEslis_t_listheader,gs_la

4、youtTYPEslis_layout_alv,fieldcatTYPEslis_t_fieldcat_alvWITHHEADERLINE,eventcatTYPEslis_t_eventWITHHEADERLINE,it_sortTYPEslis_t_sortinfo_alvWITHHEADERLINE,prgLIKEsy-repid.*tablesdisvariant:格式（外部使用）DATA:l_variantTYPETABLEOFdisvariantWITHHEADERLINE.SELECTa~kunnra~wadat_istb

5、~lfimgFROMlikpASaINNERJOINlipsASbONa~vbeln=b~vbelnINTO(i_likp-kunnr,i_likp-wadat_ist,i_likp-lfimg)WHEREA~KUNNR='0000010013'ORA~KUNNR='0000010014'.APPENDi_likp.CLEARi_likp.ENDSELECT.PERFORMprepare_list_val.PERFORMdisplay_val.*&---------------------------------------------

6、------------------------**&FormPREPARE_LIST_VAL*&---------------------------------------------------------------------**text*----------------------------------------------------------------------*FORMprepare_list_val.prg=sy-repid."当前主程序l_variant-report=sy-repid."当前主程序PER

7、FORMeventtab_buildCHANGINGl_events.PERFORMcomment_buildCHANGINGgt_list_top_of_page.PERFORMset_layout.ENDFORM."prepare_list_val*&---------------------------------------------------------------------**&FormEVENTTAB_BUILD*&---------------------------------------------------

8、------------------**text*----------------------------------------------------------------------*FORMeve