Code listing for: ZTEST
Description: test
*&---------------------------------------------------------------------* *& Report ZTEST *& *&---------------------------------------------------------------------* *& 动态ALV输出 DEMO *& 作者:侯志宇 *& 日期:2009-4-9 *&---------------------------------------------------------------------* report ZTEST. *--------alv专用变量定义区----------- data: G_REPID like SY-REPID, *----打印的参数控制 GS_PRINT type LVC_S_PRNT, *---布局结构 GS_LAYOUT type LVC_S_LAYO, *-----BCALVC_EVENT1_CONT1是ALV GRID CONTROL (ALV网格控制器)的名字 MYCONTAINER type SCRFNAME value 'BCALVC_EVENT1_CONT1', * reference to custom container: neccessary to bind ALV Control CUSTOM_CONTAINER type ref to CL_GUI_CUSTOM_CONTAINER, *-----ALV List Viewer GRID1 type ref to CL_GUI_ALV_GRID, *--- 存放字段目录的内表 GT_FIELDCAT type LVC_T_FCAT . data SAVE_OK like SY-UCOMM. data OK_CODE like SY-UCOMM. *---------动态变量定义区------------------------------ data: GT_FCAT type LVC_T_FCAT, GH_FCAT like line of GT_FCAT. data: GT_DYN type ref to DATA. data: GH_LINE type ref to DATA. field-symbols: <FS_TABLE> type any table, <FS_LINE> type any, <FS_FIELD> type any. *-------生成动态表结构----------------------------- *--ALV字段样式 *------如果是多个字段可以用LOOP循环来填充结构 GH_FCAT-FIELDNAME = 'FLAG'. GH_FCAT-COLTEXT = '标识'. GH_FCAT-CHECKBOX = 'X'."复选框 GH_FCAT-EDIT = 'X'."编辑状态 append GH_FCAT to GT_FCAT. clear GH_FCAT. GH_FCAT-FIELDNAME = 'EBELN'. GH_FCAT-COLTEXT = '采购订单'. GH_FCAT-DO_SUM = 'X'. append GH_FCAT to GT_FCAT. clear GH_FCAT. GH_FCAT-FIELDNAME = 'EBELP'. GH_FCAT-COLTEXT = '采购订单行项目'. GH_FCAT-DO_SUM = 'X'. append GH_FCAT to GT_FCAT. clear GH_FCAT. call method CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE exporting IT_FIELDCATALOG = GT_FCAT importing EP_TABLE = GT_DYN. * Create a new Line with the same structure of the table *---生成表头信息 assign GT_DYN->* to <FS_TABLE>.