09界面编程，实践A2-设计界面管理订单
图9-A2_1 程序执行初始界面
图9-A2_2 订单维护界面
需求分析：
1、具体需求
本《设计界面管理订单》有如下需求：
- 程序执行后，显示初始界面，在界面中可以输入订单号后，点击按钮进行新建、修改、查看和删除的操作；
- 在点击“新建订单”时，如果输入的订单编号在订单表中已存在，则发出错误提示且停止创建操作；否则在订单维护界面中维护订单的具体信息，包括订单相关的员工、雇员、物料等信息；
- 在点击“修改订单”时，如果输入的订单编号在订单表中不存在，或输入的订单编号在10000~60000范围，则发出错误提示且停止修改操作；否则打开订单维护界面以进行更改；
- 在点击“查看订单”时，如果输入的订单编号在订单表中不存在，则发出错误提示且停止查看操作；否则打开显示订单的详细；
- 在点击“删除订单”时，如果输入的订单编号在订单表中不存在，或输入的订单编号在10000~60000范围，则发出错误提示且停止删除操作；否则将删除此订单编号的记录及返回提示；
- 在“新建订单”和“修改订单”操作的订单维护界面中，如果输入了数据后，还没点击“保存”前点击了“返回”，则弹出窗口给用户进行确认是否保存。
2、开发分析
要达成本实践目标，将需要使用ABAP的数据处理和界面设计技术，程序流程分析如下。
图9- 34 程序流程
实践步骤：
本实践可以在ABAP工作台（SE80）完成所有工作，也可以通过不同的工具完成不同部分。
| No | 部分 | 说明 | 事务代码 |
|---|---|---|---|
| 1 | 建立程序 | 建立本实践的程序，设置程序基本信息。 | SE38 |
| 2 | GUI状态标题设计 | 设计GUI状态，增加相应的功能以接受用户的指令；设计GUI标题，以在程序运行时显示在界面的标题上。 | SE41 |
| 3 | 屏幕设计 | 根据实践需求设计屏幕，并将相关元素添加到屏幕上。 | SE51 |
| 4 | 代码编写 | 编写代码以进行变量定义、数据获取、输出数据到界面等。 | SE38 |
| 4.1 | 对象定义 | 定义要使用的变量，以在程序执行过程中计算和存储临时值。 | |
| 4.2 | 程序初始事件 | 通过START-OF-SELECTION执行程序初始事件。 | |
| 4.3 | 屏幕100事件 | 对于屏幕100，数据输出到屏幕前的处理（PBO事件）；以及在用户点击按钮后触发相应操作（PAI事件）。 | |
| 4.4 | 屏幕150事件 | 对于屏幕150，数据输出到屏幕前的处理（PBO事件）；以及在用户点击按钮后触发相应操作（PAI事件）。 | |
| 4.5 | 子程序 | 根据程序执行的过程将部分代码封装为主程序，以实现代码重用、提高效率和提高代码可读性。 |
1、建立程序
与一般程序的建立过程一样，在程序编辑器初始界面输入程序名称后点击创建，设置类型和状态后，将进入程序编辑器界面，默认代码如下，不改动内容，保存后退出。
REPORT zu0902_order_trans.
2、GUI状态标题设计
使用菜单设计器（SE41），完成GUI状态和GUI标题的设计。
2.1、建立状态
在本实践中，在程序执行初始界面和订单维护的界面都会有相应的工具栏，因此需要建立2个相应的GUI状态，本步骤可参考实践9A1完成。
1）GUI状态STAT1
GUI状态STAT1的模拟结果如图9-35所示，编辑维护的界面如图9-36。
图9- 35 STAT1模拟结果
图9- 36 STAT1维护
各功能按钮的定义可参考下表完成。
2）GUI状态STAT2
GUI状态STAT1的模拟结果如图9-37所示，编辑维护的界面如图9-38。
图9- 37 STAT2模拟结果
图9- 38 STAT2维护界面
各功能按钮的定义可参考下表完成。
2.2、建立标题
重新执行“菜单设计器”，在初始界面中选择“标题列表”后点击创建，参考图9-39所示建立2个标题。
图9- 39 GUI标题列表
3、屏幕设计
在本实践中，有程序执行初始界面，还有订单维护的界面，因此需要建立2个屏幕，本步骤可参考实践9A1，使用屏幕设计器（SE51），完成各个屏幕的设计。
3.1、初始屏幕100
1）屏幕属性
图9- 40 屏幕100的属性
2）屏幕格式设计
点击工具栏的“格式”后，在显示“屏幕绘制器”界面中添加屏幕元素，结果如图9-41。
图9- 41屏幕100的格式
3）屏幕元素清单
点击工具栏的“元素列表”按钮，将返回到屏幕定义的“元素清单”中，此处将列出界面中所包含的元素，以及各元素的具体属性，如图9-42。
图9- 42 屏幕100包含的元素
4）屏幕逻辑流
点击“逻辑流”页签，逻辑流的代码如下。
PROCESS BEFORE OUTPUT.
MODULE status_0100.
*
PROCESS AFTER INPUT.
* MODULE user_command_0100.
MODULE over_and_out_0100 AT EXIT-COMMAND.
CHAIN.
FIELD:ztorders_h-orderid
MODULE validate_input_0100.
ENDCHAIN.
MODULE main_pai_0100.
在如上屏幕100的“逻辑流”PBO事件中，包含一个MODULE：status_0100，此MODULE在屏幕输出前执行，包括设置GUI、标题栏、变量初始值等，具体代码将在后续屏幕100的PBO事件代码中实现。
PAI事件中，则包含了3个MODULE：
over_and_out_0100，此MODULE是在屏幕100中点击“退出”时的响应，并加上AT EXIT-COMMAND关键字，以在自动字段检查之前调用模块（对应按钮需将类型设置为E）；如果PAI中没有此MODULE，则会点击“退出”按钮时还会执行后面的语句，如检查输入的订单编号，而这是多余的。
validate_input，此MODULE是继续响应点击按钮，以对输入的订单编号进行检查；如点击“新建”时，输入的订单编号在数据表中已存在，则返回相应提示。
main_pai_0100，此MODULE是继续对点击不同的按钮进行响应，如点击新建或修改、显示，则进入屏幕150，如点击删除，则对指定的订单进行删除。
CHAIN……ENDCHAIN，通过CHAIN语句，当输入的编号发生变化时，则调用MODULE：validate_input进行检查。
3.2、订单明细屏幕150
1）屏幕属性
图9- 43 屏幕150的属性
2）屏幕格式设计
通过“屏幕绘制器”对屏幕150添加的屏幕元素结果，如图9-44所示。
图9- 44屏幕150的格式
3）屏幕元素清单
点击工具栏的“元素列表”按钮，将返回到屏幕定义的“元素清单”中，此处将列出界面中所包含的元素，以及各元素的具体属性，如图9-45。
图9- 45 屏幕150包含的元素
4）屏幕逻辑流
点击“逻辑流”页签，逻辑流的代码如下。
PROCESS BEFORE OUTPUT.
MODULE status_0150.
LOOP AT ordersi_tab INTO ztorders_i WITH CONTROL items.
MODULE items_0150_change_field_attr.
ENDLOOP.
*
PROCESS AFTER INPUT.
CHAIN.
FIELD:ztorders_h-orderid, ztorders_h-customerid,
ztorders_h-employeeid,ztorders_h-orderdate, ztorders_h-shipdate.
MODULE set_change_0150 ON CHAIN-REQUEST.
ENDCHAIN.
LOOP AT ordersi_tab.
MODULE items_0150_modify.
ENDLOOP.
MODULE user_command_0150.
在如上屏幕150的“逻辑流”PBO事件中，包含2个MODULE：
status_0150，此MODULE在屏幕150输出前执行，包括设置GUI、标题栏、元素显示属性等，具体代码将在后续屏幕150的PBO事件代码中实现。
items_0150_change_field_attr，此MODULE是设置字段的显示，通过LOOP AT语句读取和填充数据到屏幕150的界面元素后，根据不同的操作（新建、修改、显示）设置元素显示状态（可更改、只显示）
PAI事件中，则包含了3个MODULE：
CHAIN……ENDCHAIN，通过CHAIN语句，当订单编号、客户编号、雇员编号、订单日期、交货日期值发生变化时，则调用MODULE：set_change_0150设置界面元素的显示状态。
set_change_0150，此MODULE是通过对变量“data_chg_150”的赋值，设置界面元素的显示状态（X则为可更改）。
items_0150_modify，此MODULE结合LOOP AT语句，调用子程序在维护订单明细数据后，更新内表数据。
user_command_0150，此MODULE是对点击不同的按钮进行响应。
4、代码编写
完成如上步骤后，接下来通过程序编辑器（SE38）对代码的各部分进行编写。
4.1、对象定义
根据程序功能需求，定义的变量、内表、控件等对象如代码所列。
*****对象定义*****
CONTROLS: items TYPE TABLEVIEW USING SCREEN 0150."子屏幕150中的列表元素
TABLES:ztorders_h, ztorders_i. "根据表格定义的内表
DATA:ordersi_tab TYPE STANDARD TABLE OF ztorders_i
WITH HEADER LINE, "含工作区内表，存储读取的订单明细数据
ok_code TYPE sy-ucomm, "用户指令
save_ok_code TYPE sy-ucomm, "保存用户指令，用以设置界面元素状态
strng TYPE string, "在不同操作时显示的界面标题不同
data_chg_150(1) TYPE c, "记录子屏幕150是否为修改状态
answer(1) TYPE c, "记录数据更改退出时用户的确认
prv_orderid TYPE ztorders_h-orderid. "用以记录已操作过的订单
4.2、程序初始事件
在程序执行后，通过START-OF-SELECTION语句，调用屏幕100以进行后续处理。
*&----------------------------------------------------------------------*
*& START-OF-SELECTION
*&----------------------------------------------------------------------*
START-OF-SELECTION.
CALL SCREEN 0100. "调用主屏幕100
4.3、屏幕100事件
1）PBO事件的MODULE
当屏幕100被调用的时候，首先触发屏幕的PBO事件，此事件包含的MODULE status_0100的代码如下。
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* 主屏幕100的初始GUI状态标题栏及变量设置
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STAT1'. "设置屏幕GUI状态为STAT1
SET TITLEBAR 'TITLE01'. "设置屏幕GUI标题栏为TITLE01
prv_orderid = ztorders_h-orderid. "清空内表前将操作过的订单号记录起来
FREE: ztorders_h, "清空变量数据以对新的订单进行操作
ordersi_tab.
ok_code = ' '.
data_chg_150 = ' '.
items-lines = 0.
ztorders_h-orderid = prv_orderid. "设置屏幕中的订单编号为之前操作的
ENDMODULE.
此代码首先设置GUI状态为STAT1，标题为TITLE01；然后使用prv_orderid变量，记录上一次操作的订单编号；随后对存储订单抬头信息和订单明细数据的内表、包括点击的操作、字段状态、行数量进行重置；最后将前面保存的prv_orderid值赋值给字段ztorders_h-orderid。这样在操作完成一个订单后返回初始屏幕时，各个变量被重置，同时上一次订单编号显示在输入框。
2）PAI事件的MODULE
当点击GUI状态对应图标时，将触发屏幕的PAI事件。
over_and_out_0100是PAI后的第一个MODULE，此MODULE是对按钮“退出”点击后的响应：退出程序。
*&---------------------------------------------------------------------*
*& Module OVER_AND_OUT_0100 INPUT
*&---------------------------------------------------------------------*
* 订单编号输入及订单操作前如果点击退出按钮，则退出程序
*----------------------------------------------------------------------*
MODULE over_and_out_0100 INPUT.
IF ok_code = 'EXIT'.
LEAVE PROGRAM.
ENDIF.
ENDMODULE.
validate_input_0100通过CHAIN语句，在输入的订单编号更改时触发。此MODULE首先根据输入的订单编号从订单表ztorders_h中读取记录；然后根据点击的按钮和读取记录的结果，给出不同的处理：如果点击的按钮为“新建”且读取到记录（sy-subrc为0）则输出错误提示，如果点击的按钮不是“新建”且没有读取到记录也一样输出错误提示。
*&---------------------------------------------------------------------*
*& Module VALIDATE_INPUT_0100 INPUT
*&---------------------------------------------------------------------*
* 输入订单编号后，
* 如果此编号已存在且点击了新建，则发出错误提示
* 如果此编号不存在而点击的不是新建，同样发出错误提示
*----------------------------------------------------------------------*
MODULE validate_input_0100 INPUT.
SELECT SINGLE * FROM ztorders_h INTO ztorders_h WHERE
orderid = ztorders_h-orderid. "根据输入的订单编号从表中读取记录
"点击新建且记录存在则输出错误提示
IF ok_code = 'NEW' AND sy-subrc = 0.
MESSAGE e091(zu03_mclass01) WITH ztorders_h-orderid.
"点击的不是新建且记录不存在则输出错误提示
ELSEIF ok_code <> 'NEW' AND sy-subrc <> 0.
MESSAGE e092(zu03_mclass01) WITH ztorders_h-orderid.
ENDIF.
ENDMODULE.
main_pai_0100则根据点击的按钮进行不同的处理。
*&---------------------------------------------------------------------*
*& Module MAIN_PAI_0100 INPUT
*&---------------------------------------------------------------------*
* 主屏幕100的不同按钮点击后触发事件
*----------------------------------------------------------------------*
MODULE main_pai_0100 INPUT.
save_ok_code = ok_code.
CASE ok_code.
WHEN 'NEW'.
strng = '新建'.
LEAVE TO SCREEN 150.
WHEN 'MODIFY'.
IF ztorders_h-orderid NOT BETWEEN 10000 AND 60000.
PERFORM read_table.
strng = '修改'.
LEAVE TO SCREEN 150.
ELSE. "不能修改编号范围在10000~60000的订单
MESSAGE s096(zu03_mclass01) WITH ztorders_h-orderid
DISPLAY LIKE 'E'.
ENDIF.
WHEN 'DISPLAY'.
PERFORM read_table.
strng = '显示'.
LEAVE TO SCREEN 150.
WHEN 'DELETE'.
IF ztorders_h-orderid NOT BETWEEN 10000 AND 60000.
PERFORM delete_sr USING answer ztorders_h.
IF answer = 1.
DELETE ztorders_h.
DELETE FROM ztorders_i WHERE orderid = ztorders_h-orderid.
MESSAGE s094(zu03_mclass01) WITH ztorders_h-orderid
DISPLAY LIKE 'W'.
ELSE.
MESSAGE s095(zu03_mclass01).
ENDIF.
ELSE. "不能删除编号范围在10000~60000的订单
MESSAGE s096(zu03_mclass01) WITH ztorders_h-orderid
DISPLAY LIKE 'E'.
ENDIF.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
4.4、屏幕150事件
1）PBO事件的MODULE
当屏幕150被调用的时候，首先触发屏幕的PBO事件。
MODULE status_0150中，首先设置GUI状态为STAT2，标题为TITLE02；然后调用子程序change_scr_150_prop设置屏幕元素的显示属性。
*&---------------------------------------------------------------------*
*& Module STATUS_0150 OUTPUT
*&---------------------------------------------------------------------*
* 子屏幕150的初始GUI状态标题栏及界面元素属性设置
*----------------------------------------------------------------------*
MODULE status_0150 OUTPUT.
SET PF-STATUS 'STAT2'. SET TITLEBAR 'TITLE02' WITH ztorders_h-orderid strng.
PERFORM change_scr_150_prop.
ENDMODULE.
MODULE items_0150_change_field_attr是结合PAI中的LOOP AT语句，逐行对表格控件的各个单元格设置显示属性。
*&---------------------------------------------------------------------*
*& Module items_0150_change_field_attr OUTPUT
*&---------------------------------------------------------------------*
* 子屏幕150设置界面表格控件的显示。
*----------------------------------------------------------------------*
MODULE items_0150_change_field_attr OUTPUT.
PERFORM change_scr_150_prop.
ENDMODULE.
2）PAI事件的MODULE
当点击GUI状态对应图标时，将触发屏幕的PAI事件。
set_change_0150模块，将变量data_chg_150赋值为“X”，由此表示为界面元素为可更改状态。
*&---------------------------------------------------------------------*
*& Module SET_CHANGE_0150 INPUT
*&---------------------------------------------------------------------*
* 子屏幕150设置界面元素为修改状态
*----------------------------------------------------------------------*
MODULE set_change_0150 INPUT.
data_chg_150 = 'X'.
ENDMODULE.
Items_0150_modify模块，则通过调用子程序，在表格控件中的数据更改后，更新内表的数据。
*&---------------------------------------------------------------------*
*& Module ITEMS_0150_MODIFY INPUT
*&---------------------------------------------------------------------*
* 子屏幕150将修改后的表格数据填充到表格控件对应内表
*----------------------------------------------------------------------*
MODULE items_0150_modify INPUT.
PERFORM modify_ordersitem.
ENDMODULE.
user_command_0150模块则是响应不同按钮点击后的处理。
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0150 INPUT
*&---------------------------------------------------------------------*
* 子屏幕150的不同按钮点击后触发的事件
*----------------------------------------------------------------------*
MODULE user_command_0150 INPUT.
CASE ok_code.
WHEN 'BACK'.
IF data_chg_150 = 'X'.
PERFORM abort_sr USING answer ztorders_h.
IF answer = 1.
LEAVE TO SCREEN 0100.
ENDIF.
ELSE.
LEAVE TO SCREEN 0100.
ENDIF.
WHEN 'SAVE'.
data_chg_150 = ' '.
MODIFY ztorders_h.
MODIFY ztorders_i FROM TABLE ordersi_tab.
IF sy-subrc <> 0.
ENDIF.
MESSAGE s093(zu03_mclass01) WITH ztorders_h-orderid.
ENDCASE.
ENDMODULE.
4.5、子程序
在屏幕事件（包括PBO和PAI）中，多处用到了不同的子程序。
其中子程序read_table，是用以根据屏幕100中输入的订单编号，获得订单抬头和订单行项目的数据并分别存储到内表ztorders_h和ordersi_tab中，同时设置表格控件的行数量（items-lines）。
*&---------------------------------------------------------------------*
*& FORM read_table
*&---------------------------------------------------------------------*
* 从订单和订单明细表中获得数据填充内表以备输出
*----------------------------------------------------------------------*
FORM read_table.
SELECT SINGLE * FROM ztorders_h INTO ztorders_h WHERE
orderid = ztorders_h-orderid.
ztorders_h-oamount = 0.
SELECT * FROM ztorders_i INTO ordersi_tab WHERE
orderid = ztorders_h-orderid.
ztorders_h-oamount = ztorders_h-oamount + ordersi_tab-oquantity *
ordersi_tab-nprice * ( 1 - ordersi_tab-discount ).
APPEND ordersi_tab TO ordersi_tab.
ENDSELECT.
items-lines = sy-dbcnt.
ENDFORM.
子程序delete_sr，是在点击“删除”按钮后的响应，此子程序通过CALL FUNCTION调用功能函数“POPUP_TO_CONFIRM”以弹出对话框，以让用户确认。
*&---------------------------------------------------------------------*
*& Form DELETE_SR
*&---------------------------------------------------------------------*
* 确定是否对订单进行删除
*----------------------------------------------------------------------*
* -->P_ANSWER 返回是否删除，1则删除
* -->P_ZTORDERS_H 订单结构体，根据订单编号进行判断
*----------------------------------------------------------------------*
FORM delete_sr USING p_answer
p_ztorders_h TYPE ztorders_h.
DATA: txt TYPE string.
CONCATENATE '是否对编号为' p_ztorders_h-orderid '的订单进行删除?'
INTO txt.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = '确定是否删除订单'
* DIAGNOSE_OBJECT = ' '
text_question = txt
text_button_1 = '删除'(001)
* ICON_BUTTON_1 = ' '
text_button_2 = '不删除'(002)
* ICON_BUTTON_2 = ' '
* DEFAULT_BUTTON = '1'
* DISPLAY_CANCEL_BUTTON = 'X'
* USERDEFINED_F1_HELP = ' '
* START_COLUMN = 25
* START_ROW = 6
* POPUP_TYPE =
* IV_QUICKINFO_BUTTON_1 = ' '
* IV_QUICKINFO_BUTTON_2 = ' '
IMPORTING
answer = p_answer
* TABLES
* PARAMETER =
* EXCEPTIONS
* TEXT_NOT_FOUND = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM.
子程序change_scr_150_prop，则是根据不同的按钮操作，设置屏幕元素的显示属性。
*&---------------------------------------------------------------------*
*& Form CHANGE_SCR_150_PROP
*&---------------------------------------------------------------------*
* 子屏幕150设置界面元素的属性
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM change_scr_150_prop .
LOOP AT SCREEN.
CASE save_ok_code.
WHEN 'DISPLAY'.
screen-input = 0.
WHEN 'MODIFY'.
screen-input = 1.
WHEN 'NEW'.
screen-input = 1.
ENDCASE.
CASE screen-name.
WHEN 'ZTORDERS_H-ORDERID'.
screen-input = 0.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
子程序modify_ordersitem，则是将表格控件的数据更新到内表ordersi_tab中。
*&---------------------------------------------------------------------*
*& Form MODIFY_ORDESITEM
*&---------------------------------------------------------------------*
* 将表格控件包含的数据更改后更新到内表
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM modify_ordersitem .
ztorders_i-orderid = ztorders_h-orderid.
IF items-current_line <= lines( ordersi_tab ).
MODIFY ordersi_tab FROM ztorders_i INDEX items-current_line.
ELSE.
APPEND ztorders_i TO ordersi_tab.
ENDIF.
ENDFORM.
子程序abort_sr，跟子程序delete_sr类似，在点击退出时进行确认。
*&---------------------------------------------------------------------*
*& Form ABORT_SR
*&---------------------------------------------------------------------*
* 确定是否退出订单修改
*----------------------------------------------------------------------*
* -->answr 返回是否退出更改，1则退出
* -->stru 订单结构体，根据订单编号进行判断
*----------------------------------------------------------------------*
FORM abort_sr USING answr stru TYPE ztorders_h.
DATA txt TYPE string .
CONCATENATE '退出订单' ztorders_h-orderid '的修改?' INTO txt.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = '退出修改'
* DIAGNOSE_OBJECT = ' '
text_question = txt
text_button_1 = '退出'(001)
* ICON_BUTTON_1 = ' '
text_button_2 = '不退出'(002)
* ICON_BUTTON_2 = ' '
default_button = '2'
display_cancel_button = ' '
* USERDEFINED_F1_HELP = ' '
start_column = 40
start_row = 2
* POPUP_TYPE =
* IV_QUICKINFO_BUTTON_1 = ' '
* IV_QUICKINFO_BUTTON_2 = ' '
IMPORTING
answer = answr
* TABLES
* PARAMETER =
* EXCEPTIONS
* TEXT_NOT_FOUND = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDFORM.
将如上各部分代码合并，则组成了整个实践的程序，完成后对所有内容进行激活。
