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

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

嗨，下面提到的所有代码都是由我派生的，它们用于连接两个内部表并基于选择选项获取输出表的数据。 有人可以让我知道用SUB-ROUTINES进行相同的编码。

表格：zekko，zekpo。

类型：ty_outp的开始，
ebeln TYPE zekko-ebeln，
ebelp TYPE zekpo-ebelp，
matnr TYPE zekpo-matnr，
arktx TYPE zekpo-arktx ，
zqnty TYPE zekpo-zqnty，
zunit TYPE zekpo-zunit，
zamnt TYPE zekpo-zamnt，
zcurr TYPE zekko-zcurr，
erdat TYPE zekko-erdat，
ename TYPE zekko-ename，
ty_outp的结尾。

TYPES：tt_outp ty_outp的类型表。

DATA：gt_outp TYPE tt_outp，
wt_outp TYPE ty_outp。


>数据：gt_ekko zekko类型表，
gt_ekpo zekpo类型表，
wt_ekko TYPE zekko，
wt_ekpo类型zekpo。

选择选项：s_ebeln FOR zekko-ebeln，
s_erdat for zekko-erdat，
s_matnr for zekpo-matnr。

选择屏幕跳过2。

带有框架标题文本001的b2块的选择屏幕开始。 >参数：r1 RADIOBUTTON GROUP grp1默认'X'用户命令已激活，
r2 RADIOBUTTON GROUP grp1，
r3 RADIOBUTTON GROUP grp1。
b2块的选择屏幕末端。

< br>
开始选择。



SELECT * FROM zekko进入表gt_ekko。


如果gt_ekko不初始。

SELECT * FROM zekpo进入表gt_ekpo
对于gt_ekko中的所有条目WHERE ebeln = gt_ekko-ebeln 。

ENDIF。

在gt_ekko上进入wt_ekko。

读取表gt_ekpo到带有键ebeln = wt_ekko-ebeln的wt_ekpo中。

wt_outp-ebeln = wt_ekko-ebeln。
wt_outp-zcurr = wt_ekko-zcurr。
wt_outp-ename = wt_ekko-ename。
wt_outp-erdat = wt_ekko-erdat。
wt_outp-arktx = wt_ekpo-arktx。
> wt_outp-zqnty = wt_ekpo-zqnty。
wt_outp-zamnt = wt_ekpo-zamnt。
wt_outp-zunit = wt_ekpo-zunit。
wt_outp-matnr = wt_ekpo-matnr。
wt_outp-ebelp = wt_ekpo-zbeln = -ebelp。


追加wt_outp到gt_outp。


ENDLOOP。

CASE'X'。

当r1。

将gt_outp循环到wt_outp
中的ebeln在s_ebeln
和matnr在s_matnr
在erdat在s_erdat中。

WRITE：/wt_outp-ebeln，wt_outp-ebelp，wt_out matnr，wt_outp-arktx，wt_outp-zqnty，wt_outp-zunit，wt_outp-z curr，wt_outp-erdat，wt_outp-ename。

ENDLOOP。
ENDCASE。

TOP-OF-PAGE。 '商品编号'，19'材料编号'，35'物料描述'，77'数量'，
84'单位'，88'货币'，95'填写日期'，106'填写人'。

页尾。