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

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

报告Z645PROG107。

表Z01_CUST。

数据：WA_CUST TYPE Z01_CUST，
t_cust类型表Z01_CUST。
数据标志。
>
参数：p_cid TYPE int4默认值1。



选择框bk1的开始，帧标题为t1。
SELECTION-SCREEN COMMENT 8（30）lb1。
< br>参数：p_c1类型z_CUST，
p_c2类型z_CNAME，
p_c3类型z_ADDRS，
p_c4类型z_EMAIL，
p_c5类型z_PHONENO。

块bk1的SELECTION-SCREEN。

选择屏幕跳过2.
选择屏幕按钮6（12）b1用户命令fc1。
选择屏幕按钮20（12）b2用户命令fc2。
选择 -屏幕按钮34（12）b3用户命令fc3。
选择屏幕按钮48（12）b4用户命令fc4。
选择屏幕跳过2.
选择屏幕按钮13（12） b5用户命令fc5。

在选择屏幕上。

CASE标志。

当'fc1'。
screen-active ='0'。
>
FLAG ='1'。

当'fc2'。

FLAG ='2'。

当'fc3'。
< br> FLAG ='3'。

当'fc4'。

FLAG ='4'。
当'fc5'。
FLAG ='5'

结束案例。
开始选择。


案例标记。当'FC1'时。 "创建。

WA_CUST-CID = p_c1。
WA_CUST-CUSTOMER_NAME = p_c2。
WA_CUST-CUSTOMER_ADDRESS = p_c3。
WA_CUST-CUS_EMAIL = p_c4。
WA_CUST-CUS_CPH 。
从wa_cust插入z01_cust。

如果sy-subrc =0。
消息'已插入客户记录'类型'I'。
ELSEIF sy-subrc <> 0。
消息'错误的客户ID'类型'E'。
退出。
ENDIF。

当'FC2'时。"显示

选择*
FROM z01_cust
输入表t_cust
CID = p_cid。
如果sy-subrc = 0。
在t_cust处循环输入到wa_cust。

写：/3'CID'，
20'CUSTOMER_NAME '，
35'CUSTOMER_ADDRESS'，
70'CUS_EMAIL'，
90'CUS_PHONE'。



WRITE：/3 WA_CUST-CID，20 WA_CUST-CUSTOMER_NAME ，35 WA_CUST-CUSTOMER_ADDRESS，70 WA_CUST-CUS_EMAIL，90 WA_CUST-CUS_PHONE。

ENDLOOP。
endif。
当'FC3'时。 " UPDATE

从Z01_CUST
中选择*
到表t_cust
CID = p_c1的表中。
UPDATE Z01_CUST SET CID = p_c1
CUSTOMER_NAME = p_c2 CUSTOMER_ADDRESS = p_c3 CUS_EMAIL =
CUS_PHONE = p_c5
CID = P_C1。

如果sy-subrc =0。
消息'客户记录已更新'类型'I'。
ELSEIF sy-subrc <> 0。
消息'错误的客户ID'类型'E'。
退出。
ENDIF。
退出。


当'FC4'时。"删除。 >
从Z01_CUST的CID = P_C1处删除。
如果sy-subrc =0。
消息'客户记录已删除'类型'I'。
ELSEIF sy-subrc <> 0。
消息'错误的客户ID'类型'E'。
退出。
ENDIF。

当'FC5'。

WRITE/'按钮5被单击'。

当其他人时。

写/"未单击按钮"。
结束语。

初始化。
lb1 ='输入客户的详细信息'。
t1 ='输入数据'。
b1 ='创建'。
b2 ='显示'。
b3 ='更新'。
b4 ='删除'。

b5 ='退出'。