实例"/>
ABAP AS01 AS02资产屏幕开发实例
解决业务需求：
1、AS01和AS02屏幕新增人员编码和人员姓名；
2、针对不同资产类型，人员编码必输和禁止输入；
3、屏幕输入的成本中心和人员对应的成本中心一致性检查。
开发逻辑整理：
1、需创建一个增强子屏幕，供人员编号输入，具体创建方法，可参照以下网址：
链接: .html.
本实例创建屏幕步骤：
1.1、创建CMOD项目，增强分配：
1.2、点击组件→双击包含表（点击修改，添加您所要增加的字段，这里是新增人员编号和员工姓名）：
1.3、回到组件菜单处，随便点击一个功能出口：
1.4、点击显示对象列表按钮（找其上层结构函数组）：
1.5、右击函数组名（XAIS)，创建屏幕：
1.6、创建的屏幕设为子屏幕
1.7、回到函数组的主程序或点击1.5图片中的包括，找到子程序（ZXAISTOP)：这个子程序里面，是写你要用的变量定义部分，为全局定义。
**注意地方：当点击它进去时，SAP会报警告，这时不要慌，按下ENTER键就可以了
1.8、本实例定义部分代码（吐槽：为什么没有我们ABAP的代码块）：
TABLES:CI_ANLU.
DATA:g_anla TYPE anla.
DATA:g_display TYPE char1.
1.9、双击函数组下面的屏幕号8000：
1.9.1、画屏幕，人员姓名状态默认灰色，不可输入，本实例是根据人员编号自动获取；
1.9.2、写PBO代码：
LOOP AT SCREEN.if g_display = 'X'.screen-input = 0.MODIFY SCREEN.ENDIf.ENDLOOP.
1.9.2、写PAI代码（主要功能：前台输入人员编号后，按enter键自动调出员工姓名）
- 其中g_anla是在函数组主程序的TOP处定义的全局工作区，其取数下文会介绍。
-
DATA:lt_pa0000 TYPE TABLE OF PA0000.DATA:LT_PA0001 TYPE TABLE OF PA0001.DATA:Ls_PA0001 LIKE LINE OF LT_PA0001.DATA:l_KOSTL TYPE anlz-kostl.if sy-tcode = 'AS01' OR sy-tcode = 'AS02'.if g_anla-ANLKL+3(3) = '102' or g_anla-ANLKL+3(3) = '103' or g_anla-ANLKL+3(3) = '104' or g_anla-ANLKL+3(1) = '2'.if g_anla-ANLKL <> '00010401'.SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_pa0000FROM PA0000WHERE STAT2 = '3'AND PERNR = ci_anlu-zPERNRAND BEGDA <= SY-DATUMAND ENDDA >= SY-DATUM.IF SY-SUBRC = 0.IF lt_pa0000 IS NOT INITIAL.SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_PA0001FROM PA0001FOR ALL ENTRIES IN lt_pa0000WHERE PERNR = lt_pa0000-PERNR.LOOP AT LT_PA0001 INTO Ls_PA0001.ci_anlu-ZEMNAM = Ls_PA0001-ENAME.l_KOSTL = Ls_PA0001-KOSTL.CLEAR:Ls_PA0001.ENDLOOP.endif.ENDIF.endif.endif.ENDIF.2、出口函数：EXIT_SAPLAIST_002 处输入一下代码：
这里我们将anla的值放入了g_anla中，这里可以将ANLU\ANLV \ANLU的值传给您所定义的全局中 -
MOVE-CORRESPONDING i_anlu to ci_anlu. MOVE-CORRESPONDING i_anla to g_anla. if i_mode = 'A'.G_DISPLAY = 'X'. ELSE.G_DISPLAY = ''. ENDIF.2.1、出口函数：EXIT_SAPLAISA_001处输入您要做检查控制的代码：
-
if sy-tcode = 'AS01' OR SY-TCODE = 'AS02'.DATA:lt_pa0000 TYPE TABLE OF PA0000.DATA:LT_PA0001 TYPE TABLE OF PA0001.DATA:Ls_PA0001 LIKE LINE OF LT_PA0001.DATA:l_KOSTL TYPE anlz-kostl.DATA:w_kostl TYPE anlz-kostl.DATA:FIELD1(50).DATA:lt_csks TYPE TABLE OF csks.DATA:ls_csks TYPE csks.FIELD-SYMBOLS:<F5> TYPE ANY.FIELD1 = '(SAPLAIST)ANLZ-KOSTL'.ASSIGN (FIELD1) TO <F5>.w_kostl = <F5>.if i_anla-ANLKL+3(3) = '102' or i_anla-ANLKL+3(3) = '103' or i_anla-ANLKL+3(3) = '104' or i_anla-ANLKL+3(1) = '2'.if i_anla-ANLKL <> '00010401'.SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_pa0000FROM PA0000WHERE STAT2 = '3'AND PERNR = ci_anlu-zPERNRAND BEGDA <= SY-DATUMAND ENDDA >= SY-DATUM.IF SY-SUBRC = 0.IF lt_pa0000 IS NOT INITIAL.SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_PA0001FROM PA0001FOR ALL ENTRIES IN lt_pa0000WHERE PERNR = lt_pa0000-PERNR.LOOP AT LT_PA0001 INTO Ls_PA0001.ci_anlu-ZEMNAM = Ls_PA0001-ENAME.l_KOSTL = Ls_PA0001-KOSTL.CLEAR:Ls_PA0001.ENDLOOP.SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_csksFROM csksWHERE KOSTL = w_kostl.SORT lt_csks by DATBI DESCENDING.READ TABLE lt_csks INTO ls_csks INDEX 1.if ls_csks-DATBI+0(4) = '9999'.if l_KOSTL <> w_kostl.MESSAGE '输入成本中心与员工对应成本中心不匹配，请检查' TYPE 'E'.endif.endif.endif.ELSE.MESSAGE '您输入的人员编号不正确或已离职' TYPE 'E'.ENDIF.ELSE.if ci_anlu-zPERNR is NOT INITIAL.MESSAGE '此类型禁止输入人员编号，请检查' TYPE 'E'.endif.endif.ELSE.if ci_anlu-zPERNR is NOT INITIAL.MESSAGE '此类型禁止输入人员编号，请检查' TYPE 'E'.endif.ENDIF.ENDIF.2.2、出口函数：EXIT_SAPLAIST_003处输入代码：将新增字段存表ANLU。
-
MOVE-CORRESPONDING CI_ANLU TO E_ANLU.3、将所以代码和屏幕激活，回到CMOD创建界面，并激活CMOD项目：
4、如何将新增屏幕显示在前台，请看下文：
4.1、进入TCODE:AOLK,选择任一项资产类别的一般分配：
4.2、可以看到有标签布局为SAP的数据，此处图片已被替换，原始是SAP
4.3、进入TCODE：AOLA
选择SAP格式，点击复制按钮，复制一个自定义名的格式，本处事ZSAP，选中ZSAP行，双击表页标题，进入下一界面
4.4、本例是新增一张表页 ，并将新增字段放在新表页上，也可以在旧表页上，旧表页请参照上面的网址，这里就不写了：当点击新条目新增时，系统会报错不准许，这是需要改表数据。
4.5、进入se16n，输入表名：TAMLAY1;输入如图相关参数
在点击执行按钮前，输入TCODE：&SAP_EDIT
4.6、新增页面表数据：
注意：这里你开发机、测试机、正式机都要进行此操作，因为它不会随着请求号传输
4.7、回到TCODE：AOLA:选择新建行，双击标签页上的组位置进入下一界面
4.8、点击新条目按钮，将你在函数组XAIS中创建的屏幕号8000放入其中：点击保存4.9、最后回到TCODE：AOLK
选择您所需要新增屏幕的资产类别，进入一般分配；4.9.1、将标签布局SAP 改成你所已定义的ZSAP；点击保存
5、效果如下：
更多推荐
ABAP AS01 AS02资产屏幕开发实例
发布评论