点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

桌子：EKKO，
EKPO。

类型：ty_cons的开始，
ebeln TYPE ebeln，
bukrs TYPE bukrs，
ernam TYPE ernam，
> lifnr TYPE lifnr，
matnr TYPE matnr，
aedat TYPE aedat，
lgort TYPE lgort，
ty_cons的结尾。

数据：it_ekko ekko的类型表，
wa_ekko TYPE ekko。
数据：it_ekpo ekpo TYPE表，
wa_ekpo TYPE ekpo。
DATA：it_cons ty_cons类型表，
wa_cons ty_cons类型表。
DATA：it_fieldcat TYPE LVC_T_FCAT， br> wa_fieldcat类型LVC_S_FCAT。
数据：lv_fieldname类型TYPE字段名。
数据：lv_tabkey类型ebkn。
数据：网格类型REF到cl_gui_alv_grid，
容器类型REF到cl_gui_custom_container。
数据：wa_layout类型lvc_s_layo。

选择开始。

从ekko中选择*到表it_ekko的对应字段中，最多到10行。
如果it_ekko不是初始的。 >选择*从ekpo到表it_ekpo的对应字段中，用于it_ekko中的所有条目ebeln = it_ekko-ebeln。
ENDIF。 br>
在it_ekpo上循环到wa_ekpo。
wa_cons-ebeln = wa_ekpo-ebeln。
wa_cons-matnr = wa_ekpo-matnr。
wa_cons-aedat = wa_ekpo-aedat。
wa_cons-lg = wa_ekpo-lgort。
读取表it_​​ekko使用键ebeln = wa_ekpo-ebeln进入wa_ekko。
如果sy-subrc是INITIAL。
wa_cons-bukrs = wa_ekko-bukrs。
wa_cons-ernam = wa_ek-ekko = -ernam。
wa_cons-lifnr = wa_ekko-lifnr。

ENDIF。
将wa_cons附加到it_cons。
清除wa_cons。

ENDLOOP。

如果it_cons不初始。
调用屏幕100。

ENDIF。
模块状态_0100输出。
设置PF状态'PF_100'。
设置标题栏'PF1_100'。
刷新it_fieldcat。
清除wa_fieldcat。

wa_fieldcat-fieldname ='EBELN'。
wa_fieldcat-seltext ='购买订单'。
将wa_fieldcat附加到it_fieldcat。

wa_fieldcat-fieldname ='BUKRS'。
wa_fieldcat-seltext ='购买订单'。
将wa_fieldcat附加到it_fieldcat。

wa_fieldcat-fieldname ='LIFNR'。
wa_fieldcat-seltext =' 采购
附加wa_fieldcat到it_fieldcat。

wa_fieldcat-fieldname ='MATNR'。
wa_fieldcat-seltext ='购买订单'。
附加wa_fieldcat到it_fieldcat。

> wa_fieldcat-fieldname ='AEDAT'。
wa_fieldcat-seltext ='购买订单'。
将wa_fieldcat附加到it_fieldcat。

wa_fieldcat-fieldname ='LGORT'。
wa_fieldcat-seltext = '购买订单'。
在wa_fieldcat附加到it_fieldcat。

wa_layout-cwidth_opt ='X'。
BREAK-POINT。
创建对象容器
导出
container_name =' 容器'。
创建对象网格
导出
i_PARENT =容器。
调用方法网格-> set_table_for_first_display
导出
IS_layout = wa_layout
更改
it_OUTTAB = it_cons < br> it_fieldcatalog = it_fieldcat。
ENDMODULE。
*＆---------------------------------- ----------------------------------- *
*＆模块USER_COMMAND_0100 INPUT
*＆- -------------------------------------------------- ------------------ *
*文字
* -------------------------------------------------- -------------------- *
MODULE user_command_0100输入。
案例sy-ucomm。
"后退"或"向上"或"取消"时 '。
离开程序。
结束。
ENDMODULE。