abap源码alv-航班表.docVIP

abap源码alv-航班表 ** * Report ZTEST_DHW_TESTALV_01 * CreatBy 杜红伟 2010-06-25 ** ** * *1.使用到的表sflight 航班表 *2.定义选择屏幕，含有单值参数p_price(parameter)和多值参数s_date（select-options） *3.为价格设定默认值5000，为查询周期设定默认值为当前月，即起止日期分别为当前月的第一天和最后一天 *4.查询 航班日期(fldate)在指定周期范围内并且航空运费(price)高于指定价格的所有航班记录 *5.按航班日期降序排序. *6.使用alv方式输出查询结果 * ** REPORT ZTEST_DHW_TESTALV_01 no standard page heading. *引用类型组,slis是系统定义的类型组，ALV相关操作的类型都在其中 type-pools:slis. *定义表工作区 tables: sflight. DATA itab_sflight TYPE TABLE OF sflight. 定义内表，存放查询结果 DATA: ld_curdate like sy-datum, 定义日期类型变量，记录当前日期 ld_lastdate like sy-datum. 定义日期类型变量,记录当前日期所在月份最后一天的日期 DATA: wa_field type slis_fieldcat_alv, 定义字段属性工作区变量，定义内表中各字段变量在表格中输出的属性 it_fieldcat type slis_t_fieldcat_alv.定义字段目录组变量，是与wa_field同结构类型的内表 DATA g_repid like sy-repid. 定义变量,记录当前程序名 *定义选择屏幕，可定义块区域对不同功能的选择条件进行分组显示 *此处注意：代码编辑完成后保存并激活，然后进入：系统菜单-〉转到-文本元素-选择文本 *定义屏幕块区域的文本标题和各相关选择条件的描述文本，完毕后同样需要对选择文本执行激活操作 SELECTION-SCREEN BEGIN OF BLOCK blk with frame title text-001. parameter p_price type i obligatory. 定义单值输入参数，航班价格，类型为整型且为必选项 select-options s_date for sflight-fldate. 定义选择区间参数，航班日期，可以多值输入，也可以直接定义上下限 SELECTION-SCREEN END OF BLOCK blk. *进入程序伊始执行相关初始化操作 initialization. g_repid = sy-repid. p_price = 2000. perform InitDate. 调用子程序InitDate，指定查询周期为当前月 *选择条件输入后，开始执行查询前，对所输入的条件进行约束性检查 AT SELECTION-SCREEN. IF s_date-low is initial. * 没用指定查询日期，则调用MESSAGE方法，提示错误信息，注意MESSAGE方法的使用 MESSAGE e888(sabapdocu) WITH 请输入查询日期. ENDIF. start-of-selection. *从数据库中将符合指定日期和航班运费价格的数据取出存放到内表中 perform getdata. end-of-selection. * 调用子程序,设置ALV输出的字段目录属性 perform setfieldcat. * 调用子程序以ALV方式输出查询结果 perform displayByALV. ** * Form InitDate ** * 根据当前月份初始化查询日期区间 ** form InitDate. *从系统变量sy-datum中获取当前日期，并赋值给变量ld_curdate ld_curdate = sy-datum. *调用功能模块RP_LAST_DAY_OF_MONTHS 取得当前月最后一天的日期，输出结果赋值给变量ld_lastdate CALL FUNCTION RP_LAST_DAY_OF_MONTHS EXPORTING DAY_IN = ld_curdate IMPORTING LAST_DAY_OF_MONTH = ld_lastdate EXCEPTIONS DAY_IN_N