ALV程序和事例.doc

abap_alv 示例程序?2010-11-17 08:20:57 分类：?IT综合技术 ALV 应用示例,报表示例[@more@]*---------------------------------------------------------------------** Report Name: WCBING* Create Date:2009-08* Created By :* Description:直通车备用金转可用于下单金额** VERSION: V1.0*---------------------------------------------------------------------** records:参考ZF27P001**---------------------------------------------------------------------*REPORT?ZF27P002?MESSAGE-ID?ZMSGFIR.* 图标显示定义INCLUDE?.*---------------------------------数据定义区域-------------------** 数据定义区域(全局变量,表,常量,数据类型等)TYPE-POOLS:SLIS.TABLES:KNA1,KNC3,T074T,TKUKT,BSIS,BSAS.DATA:G_DOCKING?TYPE?REF?TO?CL_GUI_DOCKING_CONTAINER,G_SPLITER?TYPE?REF?TO?CL_GUI_SPLITTER_CONTAINER,G_CONTAINER?TYPE?REF?TO?CL_GUI_CONTAINER.DATA:BEGIN?OF?IT_KNA1?OCCURS?0,GSBER?TYPE?GSBER,KUNNR?LIKE?KNA1-KUNNR,KUKLA?LIKE?KNA1-KUKLA,NAME1?LIKE?KNA1-NAME1,LTEXT?LIKE?T074T-LTEXT,VTEXT?TYPE?BEZEI20,直通车描述END?OF?IT_KNA1.DATA:BEGIN?OF?IT_DATA?OCCURS?0,CHECKBOX?TYPE?C,KUNNR?LIKE?KNA1-KUNNR,KUKLA?LIKE?KNA1-KUKLA,NAME1?LIKE?KNA1-NAME1,LTEXT?LIKE?T074T-LTEXT,VTEXT?TYPE?BEZEI20,直通车描述HABNL?LIKE?KNC3-HABNL,HABNLX?LIKE?KNC3-HABNL,GSBER?TYPE?GSBER,BELNR?LIKE?BSIS-BELNR,COLORX(4)?TYPE?C,END?OF?IT_DATA.DATA:IT_KNC3?LIKE?TABLE?OF?KNC3?WITH?HEADER?LINE.DATA:IT_ITAB_ALV?LIKE?TABLE?OF?IT_DATA?WITH?HEADER?LINE.DATA:BEGIN?OF?IT_KUNNR?OCCURS?0,KUNNR?LIKE?KNA1-KUNNR,GSBER?TYPE?GSBER,END?OF?IT_KUNNR.*--POST ACCDATA: DOCUMENTHEADER?LIKE?TABLE?OF?BAPIACHE09?WITH?HEADER?LINE,AC?TYPE?BAPIACGL09,WAACCOUNTGL?TYPE?TABLE?OF?BAPIACGL09,CU?TYPE?BAPIACCR09,WACURRENCYAMOUNT?TYPE?TABLE?OF?BAPIACCR09,ACCOUNTRECEIVABLE?TYPE?TABLE?OF?BAPIACAR09,ACC?TYPE?BAPIACAR09,RE?TYPE?BAPIRET2,RETURN?TYPE?TABLE?OF?BAPIRET2.DATA:?BEGIN?OF?WA_OBJKEY ,OBJ_KEY?TYPE?BAPIACHE09-OBJ_KEY,END?OF?WA_OBJKEY.DATA: IT_OBJKEY?LIKE?TABLE?OF?WA_OBJKEY,OBJ_KEY?TYPE?BAPIACHE09-OBJ_KEY.DATA: WA_RETURN?TYPE?BAPIRET2.*DATA:BEGIN OF IT_ERROR OCCURS 10000,* ERROR(100) TYPE C,* END OF IT_ERROR.*