ABAP项目砖家之旅-screen和表单项目实战
前言
直接上一个screen表单的需求来实战下，需求顾问提供fs-功能说明书，一般会描述下想要什么界面，录入什么数据，录入后如何使用等。我们按照需求整理成我们编程人员能否理解的即可
上需求:sap用户比较贵，我们有大堆的销售人员需要录入简单的资料，于是业务提了需要新建一个销售人员管理界面，需要用户、姓名、密码、截止日期、可选区域、根据区域可选门店。
一、需求解析（abaper）
直接看字段：用户、姓名、密码、截止日期、区域、门店。直接得出是需要建立透明表了，再看用户要输入信息肯定需要一个屏幕输入；虽然没有提要不要列表，但还是要考虑他们怎么查看和管理建立的销售人员；那就做个简单的显示界面吧（alv更好，后面alv实战再做）；显示界面还不行，人家用上了肯定还要搜索的，提一送三没办法。都来吧做全套，一条龙吧。
注意：abap对象新建和程序命名都有一套规则，上一篇有截图，欢迎大家查看下
二、功能实现和开发计划
分为表结构、管理界面（显示界面）、编辑界面，开发计划是几分钟做好表结构，然后做显示界面，最后做编辑界面
1.表结构
直接SE11，新建表，错！必须先统计下字段、数据元素、长度等，业务不提供的话，我们abaper自己搞个表吧
| 字段 | 描述 | 元素 | 域 | 类型 | 长度 | 小数 | 备注 |
|---|---|---|---|---|---|---|---|
| zname | 用户 | zename | zmname | char | 10 | 0 | |
| zdesc | 姓名 | zedesc | zmdesc | char | 20 | 0 | |
| zdate | 截止日期 | zedate | zmdate | dats | 8 | 0 | yyyymmdd格式 |
| zpsw | 密码 | zepsw | zmpsw | char | 10 | 0 | 暂不加密 |
| zarea | 区域 | zearea | zmarea | char | 2 | 0 | |
| zwerks | 门店 | zename | zm | char | 4 | 0 |
元素较简单重复使用概率不大，故暂不使用数据元素和域,注意主键，不然容易覆盖
插入数据：
2.显示界面和查询条件
2.1 se38新建report程序
2.2 添加搜索界面控件
可以使用parameters（单值）或者select-option（区间）
select-OPTIONS:
s_zname for zttest_01-zname,
s_zdesc for zttest_01-zdesc .
保存，然后点击：转到——文本元素，点击选择文本（上面定义控件的文本），勾选“数据字典参考”，自动带出文本，也可不勾选自己写
2.3 定义内表和其他变量方便抽取数据
DATA:LT_ZTTEST TYPE TABLE OF zttest_01 , "跟透明表一致的内表
WA_ZTTEST LIKE LINE OF LT_ZTTEST . "工作区（行）
FIELD-SYMBOLS:<FS> LIKE LINE OF LT_ZTTEST. "指针（行）
2.4 在开始选择事件写入sql
START-OF-SELECTION .
select * from zttest_01 into TABLE LT_ZTTEST
where zname in s_zname
and zdesc in s_zdesc .
2.5 在结束选择事件写输出列表
END-OF-SELECTION ."不一定在这个事件，也可以跟2.4一起
WRITE:'搜索条件——用户：',s_zname,';姓名：',s_zdesc .ULINE.
WRITE:TEXT-000,TEXT-001,TEXT-002,TEXT-003,TEXT-004,TEXT-005.
ULINE.
IF LT_ZTTEST[] is not INITIAL.
LOOP AT LT_ZTTEST ASSIGNING <fs>.
IF <fs>-ZDATE ge sy-datum.
WRITE icon_green_light AS ICON .
ELSE.
WRITE icon_red_light AS ICON .
ENDIF.
WRITE: <FS>-ZNAME,<FS>-zdesc ,<FS>-ZDATE,<FS>-ZAREA,<FS>-ZWERKS . ULINE.
ENDLOOP.
ENDIF.
界面显示：
3.编辑界面
3.1在显示界面添加0100屏幕
3.2 修改0100屏幕
双击点开0100屏幕，点击“字典”按键，然后输入需要维护的表名字，点击“从字典获取”按键，然后选定需要维护的行，点击确定（绿勾）
然后鼠标遇到屏幕适当位置，点击一下即可定位所有字段控件
美化下，添加描述（sap标准数据元素-域组成的字段会自动带出，用char等定义的字段需要自己添加文本控件）
保存，然后修改屏幕的代码：
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100."写状态栏（工具栏）和加载数据的代码
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100. "写按键保存、返回
再双击MODULE STATUS_0100的“”STATUS_0100“”，提示不存在是否新建，则新建include程序命名为“ZTEST_DYNPRO_MOD”，添加获取双击行和GUI状态（工具栏）按键的代码：
MODULE STATUS_0100 OUTPUT. "pbo 事件
SET PF-STATUS 'ZTEST_DYNPROSTA0100'."双击，新建一个0100屏幕的GUI状态，才能使用保存按键
SET TITLEBAR '二级用户编辑界面'.
IF SY-LISEL IS NOT INITIAL.
READ TABLE LT_ZTTEST INTO WA_ZTTEST INDEX SY-TABIX .
IF sy-subrc = 0.
ZTTEST_01 = WA_ZTTEST .
ENDIF.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT. "pai事件
CASE SY-UCOMM.
WHEN 'BACK' OR '&BACK'.
LEAVE TO SCREEN 0 .
WHEN '%EX' OR '&UP' .
leave PROGRAM .
WHEN 'RW' OR '&EXIT'.
leave PROGRAM .
WHEN 'SAVE' OR '&SAVE'.
MODIFY zttest_01 FROM zttest_01 .
IF sy-subrc = 0.
MESSAGE '保存成功' type 'S'.
ELSE.
MESSAGE '保存失败' type 'E'.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
当然添加个GUI状态这样保存按键才能使用：
最后测试一下：保存已经提示成功，但是数据貌似没刷新。封装sql获取数据和write的方法，重新执行下即可，代码如下：
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'BACK' OR '&BACK'.
LEAVE TO SCREEN 0 .
WHEN '%EX' OR '&UP' .
leave PROGRAM .
WHEN 'RW' OR '&EXIT'.
leave PROGRAM .
WHEN 'SAVE' OR '&SAVE'.
MODIFY zttest_01 FROM zttest_01 .
IF sy-subrc = 0.
MESSAGE '保存成功' type 'S'.
PERFORM GET_DATA."更新数据
ELSE.
MESSAGE '保存失败' type 'E'.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Report ZTEST_DYNPRO
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_DYNPRO .
TABLES:zttest_01 .
DATA:LT_ZTTEST TYPE TABLE OF zttest_01 ,
WA_ZTTEST LIKE LINE OF LT_ZTTEST .
FIELD-SYMBOLS:<FS> LIKE LINE OF LT_ZTTEST.
select-OPTIONS:
s_zname for zttest_01-zname,
s_zdesc for zttest_01-zdesc .
INITIALIZATION.
AT SELECTION-SCREEN .
AT LINE-SELECTION.
CALL SCREEN '0100' .
START-OF-SELECTION .
PERFORM GET_DATA.
END-OF-SELECTION .
PERFORM WRRTEOUT.
TOP-OF-PAGE.
END-OF-PAGE .
INCLUDE ztest_dynpro_mod.
*&---------------------------------------------------------------------*
*& Form WRRTEOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM WRRTEOUT .
WRITE:'搜索条件——用户：',s_zname,';姓名：',s_zdesc .ULINE.
WRITE:TEXT-000,TEXT-001,TEXT-002,TEXT-003,TEXT-004,TEXT-005.
ULINE.
IF LT_ZTTEST[] is not INITIAL.
LOOP AT LT_ZTTEST ASSIGNING <fs>.
IF <fs>-ZDATE ge sy-datum.
WRITE icon_green_light AS ICON .
ELSE.
WRITE icon_red_light AS ICON .
ENDIF.
WRITE: <FS>-ZNAME,<FS>-zdesc ,<FS>-ZDATE,<FS>-ZAREA,<FS>-ZWERKS . ULINE.
ENDLOOP.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
REFRESH LT_ZTTEST.
select * from zttest_01 into TABLE LT_ZTTEST
where zname in s_zname
and zdesc in s_zdesc .
ENDFORM.
3.3 添加新增按钮
回到主程序ZTEST_DYNPRO。
引入icon和添加按键
TYPE-POOLS icon."使用icon库
TABLES:zttest_01 ,sscrfields. "选择屏幕上的字段结构
DATA:bttxt TYPE smp_dyntxt . "菜单、按键
SELECTION-SCREEN: FUNCTION KEY 1 . "添加f8同行按键
INITIALIZATION.
"按键初始化
BTTXT-ICON_ID = ICON_ADD_ROW .
bttxt-ICON_TEXT = '新增'.
sscrfields-FUNCTXT_01 = bttxt .
AT SELECTION-SCREEN .
CASE sscrfields-ucomm.
WHEN 'FC01'.
CALL SCREEN 0100. "新增界面
WHEN OTHERS.
ENDCASE.
当然也要在0100屏幕添加按钮
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'BACK' OR '&BACK'.
LEAVE TO SCREEN 0 .
WHEN '%EX' OR '&UP' .
leave PROGRAM .
WHEN 'RW' OR '&EXIT'.
leave PROGRAM .
WHEN 'SAVE' OR '&SAVE'.
MODIFY zttest_01 FROM zttest_01 .
IF sy-subrc = 0.
MESSAGE '保存成功' type 'S'.
PERFORM GET_DATA."更新数据
ELSE.
MESSAGE '保存失败' type 'E'.
ENDIF.
WHEN '&ADDNEW'. "新增按键
REFRESH LT_ZTTEST.CLEAR zttest_01.
CALL SCREEN 0100.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
总结
今天内容到此为止，相信通过这个简单实战，大家可以在项目写简单的录入界面了。当然还有打印、复制、删除、切换修改编辑等功能，这里不一一列举了
1880
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
