Query生成程序思想.doc

Query生成程序思想
1， 生成选择屏幕代码
选择屏幕编码自动生成，编号自动+1，参考字段已经在配置中知道，因此生成选择屏幕没有问题。把选择条件字段内容都存放到一个表中，比如为selopt

2， 事件检查部分
此处我们不关心，只有配置相关内容，才会涉及到。

3， start-of-selection部分
a) 调用Function，先用程序名+变量名把选择屏幕中的内容清空
i. concatenate '(' rtmode-sscrreport ')' l_selname into l_name. (程序名)变量名
ii. assign (l_name) to <l_rangetab>.
iii. If sy-subrc eq 0.
refresh <l_rangetab>.
Endif.
b) 下一步是循环selopt，通过指针方式，修改程序内存变量，把SP$00001 - SP$00…赋上值。
loop at selopt.
if selopt-kind = 'P'.
concatenate '(' rtmode-sscrreport ')' selopt-selname into l_name.
//用指针指向内存中的数据
assign (l_name) to <l_parameter>.
if sy-subrc = 0.
//把内容赋值到内存中
<l_parameter> = selopt-low..
endif.
elseif selopt-kind = 'S' and selopt-sign <> space.
concatenate '(' rtmode-sscrreport ')' selopt-selname into l_name.
//用指针指向内存中的数据
assign (l_name) to <l_range>.
if sy-subrc = 0.
//要放入的内表
concatenate '(' rtmode-sscrreport ')' selopt-selname '[]'
into l_name.
assign (l_name) to <l_rangetab>.
if sy-subrc = 0.
//选择内容放入
move-corresponding selopt to <l_range>.
append <l_range> to <l_rangetab>.
endif.
endif.
endif.
endloop.

4， 读取数据库内容
a) 条件已经有了
b) 表和要读取的字段已经知道
c) 在维护时已经生成配置结构
d) 内表中的内容已经知道，因此读取数据没有问题
5， ALV输出
a) 把输出内容传向指针
b) 然后通过Export方法，把ALV格式和输出的字段传入。
c) 调用500屏幕，在屏幕中创建container
d) 然后再创建ALV对象
e) 调用ALV对象的set_table_for_first_display输出