select-options:s_infnr for eine-infnr memory id INF. "信息记录号码
PARAMETERS: PR_LOEKZ TYPE C AS CHECKBOX DEFAULT ' '. "显示有删除标记的信息记录
select-options:s_ekorg for eine-ekorg memory id EKO. "采购组织
select-options:s_matnr for eina-matnr memory id MAT. " 物料号码
select-options:s_lifnr for eina-lifnr memory id LIF. "供应商号码
select-options:s_erdat for eine-erdat memory id s_erdat. " 创建日期
select-options:s_urznr for eina-urznr memory id s_urznr. "批准号
selection-screen end of block b1.
*程序初始化
initialization.
t1 = ' 采购查询 '.
*数据选择
start-of-selection.
perform getdata. "读取数据
perform events_build. "alv 事件
perform layout_build. " 定义 alv 格式属性
perform fields_build. " 定义列标题信息
perform display_data. " 显示数据
end-of-selection.
data:
pagenum type i value 1. " 报表页码
end-of-page.
pagenum = pagenum + 1.
*行项目双击事件
at line-selection.
*&--------------------------------------------------------------------*
*& Form getdata
*&--------------------------------------------------------------------*
* 获取数据 从数据库表中选择相应字段
*---------------------------------------------------------------------*
form getdata.
clear hd_itab.
clear hd_itab[].
*hd_itab 表
if PR_LOEKZ = ' '.