ABAP三月通1.doc

abap 三月通 前 言.2 一.基础篇2 1.什么是 abap ?2 2.abap 开发环境的建立2 3.获得 access key .3 4.abap workbench 和 abap dictionary 3 5.第一个程序-hello world. .3 6.abap 语法简介3 7.open sql 和 native sql .4 8.内表和工作区 4 9.使用字段符号 4 10.模块化程序 .4 11.文件处理 .4 12.簇数据库和逻辑数据库 .4 13.消息和错误处理 .4 14.使用用户授权 .4 15.调用外部程序和程序动态生产 .4 16.选择屏幕 .4 17.使用程序运行变式 .4 18.制作 tcode4 二.加强篇5 1.catt 5 2.bdc .5 3.制作 background job5 4.sapscript .5 5.smartform .5 6.sap query .5 7.alv .5 8.ale/idoc 5 9.report painter 和 drilldown report .5 10.rfc/bapi .5 11.编写用户增强 .5 12.深入 abap 工作台 5 三.实战篇5 mm 模块开发实例5 sd 模块开发实例5 pp 模块开发实例5 fi 模块开发实例6 co 模块开发实例6 开发项目流程简介. .6 附录:6 abap/basis transaction codes.6 前 言 sap 进入中国已经有些年头,在近年,实施 sap 的公司越来越多,尽管 sap 本身提供了相当强大的可配置功能,但是由 于企业复杂的业务背景,特别是对各种报表的需求,依旧免不了二次开发. 长期以来,特别是受各种媒体和某些机构不正确的宣传,大家对 sap 心存诸多疑虑, 编写本套丛书的目的就是在于 解除大家的疑虑,揭开 sap 神秘的棉纱. 经常有用户感叹 sap 博大精深,的确如此,但是本人认为那应该指 sap 的设计理念,能融合诸多先进管理思想并可动 态配置,确实是难能可贵,但是学习 sap 并不难,甚至可算是很容易,设计手机芯片难吗?难,但是没有手机用户反应其不会 使用手机,设计办公软件难吗?微软办公软件据说光从 97 版到 2000 版几千程序员花了两年时间,但是没有听说用户反映学 习办公软件难的. 学习 sap 也是如此,如果要说难,难就难在国内市场上极少哪怕是介绍一个模块详细操作释疑的书籍,广 大的 sap 用户只能是自己摸索学习,即使参加了一些培训,可能起到的作用依旧有限,毕竟各培训教师自编的教材参差不齐 水平也不一. sap 顾问行业一度也是高薪标志,做 sap 顾问需要什么条件究竟需要多长时间磨练,这是广大立志于 sap 行业的读 者经常困惑的问题.就本人的经验,如读者有一定的编程数据库和企业运作经验,做 abap 顾问三个月就足够,视具体情况而 言,可能更长,甚至更短,事实上有相当部分朋友做到了这点. 本书分三部分,基础篇,以简短的篇幅介绍最基本的语法,增强篇介绍了常用的 abap 技术,最后的实战篇以五大模 块(mm|sd|pp|fi|co)最常见开发为实例介绍 abaper 可能要面临的开发任务. 本人有近 10 年的各种 erp 系统分析开发和技术管理经验,在多家跨国公司担任过(迎合时下风气,在此吹牛皮 n 下).从 2004 年下年开始接触 sap,在不到一年时间参与或主持了多个项目的实施,愿意将经验和各位读者分享,同时希望此 书对想从事 abap 开发的读者有相当帮助,本书就达到目的. 由于本人水平有限,错误难免,欢迎专家指正. 一.基础篇 如果读者已经有一定 abap 经验,可不看此篇,在此篇中,花了很少篇幅回顾 abap 编程的基 本常识,读者如有其他开发工具的知识,花很少时间就可理解这些常识. 1.什么是 abap ? 了解一下 abap 的发展历史是必要的,abap 产生的最初的目的是用以生成简单打印报表程序,我们知道 sap 最初是为解 决财务实时数据处理问题的,abap(advanced business application programming-高级业务应用编程语言)现在用于编 写 sap ag 的几乎全部产品源代码. 严格地讲,abap/4 不仅仅是一个开发工具,而且是一套完整的 client/server 开发环境,这很好理解,微软的 visiual studio 是一开发环境,vb,vc+等是开发工具.abap 开发环境包含支持程序开发的一些函数和包等. 如图 1-1,是 sap 开发环境的一个三层架构的例图,三层(多层)的概念也不新鲜,比如在安装 sap 时也可将 db instance 安在一台 server, central instance 在另一台所谓的 application server(我想这应是相关 sap 基础系统包括 各种应用程序所在),而通常客户端安装的 sap logon front end,sap 会话管理器等是所谓的表示层,它通过 tcp/ip,sap 演示协议或 rfc 和应用服务器进行数据传输,用户看到的只是处理后的数据返回. 和 delphi 的三层逻辑相近,在应用层包含多个组件象 abap 开发平台,身份验证,系统管理维护等用以处理会话,更 新,排队,网关,数据层处理 native 和 open sql 等(这是从内部机制方面看),sap 各模块应用的业务逻辑都在应用层被处 理(从用户角度)然后结果被返回. 图 1-2 是 sap logon 的一个截图,1表示应用服务器(通常企业为了节省成本和方便管理可能会将应用服务器和数据库安 装在同一起),2system number,举个实例,开发和测试服务共用一台服务器,开发使用 system number00,而测试使用 system number 01,通过 system number 逻辑地将一台 physical server 逻辑地分成了两台 application server. 学习 abap 并不难,有人说 sap 系统重在管理思想,不在技术,通常对有编程经验的读者不用任何培训参考一些相 关资料就可立即上手. 简单介绍下 abap/4 的一些特征: 1.和 sap 紧密结合,尤其在开发报表方面,坦率地讲,除了和 sap 集成的好处,.我定认为 abap 在报表开发上比 crystal report tool 要高效简单. 2.和 vb 一样 ,abap 是解释形的,如读者精通 vb,学习 abap 应该豪不费力,倒是既然 sap 是企业管理解决方案,abaper 必 须对企业管理流程熟悉. 解释性的另一好处是可以很好跟踪程序逻辑(使用/h),这对了解业务逻辑的实和追踪错误很有效. 和 vb 不同的是, vb 跟踪时允许程序运行指针随意往回或往全拉而 abap 程序去不行, 但是 abap 程序允许在运行时修改变量的值,这 是编译程序不能做到的. 当然通常编译比解释执行的速度会更快. abap 程序执行并不直接读取源代码，而是执行内部经过“生成”的描述,对于 abap/4 字典的修改激活后将触发内部 描述的重新生成,如程序并没激活就执行原版本,或者出现错误(程序没激活可能造成 abap dumping abap). 3.在对数据库处理方面,除了可直接执行 sql(使用 native sql,缺点是错误处理很难控制,相当于有开发环境将 sql 语 句直接传给 db 去执行),sap 在 abap 开发环境层还提供了一套 open sql 访问底层数据库. 4. 程序员都知道 windows 平台下开发都支持事件驱动,windows 系统本身也支持事件驱动,abap 也提供了事件驱动,这 表现在 dialog 编程方面,但是 abap 在此方面并不强,而且相对讲也比较难于掌握(在后面会讨论). 5.基于面向对象的风靡,abap 在此方面也有相当反应,在 sap 强大的软件包中提供了大量可重复使用的程序,读者也可定 义类并使用它快速建立新的对象. 6.类似 java,abap 开发的程序能运行于任何操作系统(java 有 java 虚拟机,abap 也有 abap processor),多种数据库(比 如在 abap 字典中实现了透明表对各种底层数据库表的映射,这样在 abap 层看到的透明表就和具体数据库无关),各种 网络系统. 图 1-3 是一个 abap 开发和运行环境的图例. 1 使用 c|c+建立 abap 开发工具,数亿行 abap source code 组成 sap ag 多个产品. 姑且不论国内 erp 产品设计在解决企业流程上的局限性,在大多数国外的 erp 产品中我们 都可看到结合自身 erp 自带的开发工具,在技术上这也是落后人家.所以建议国内 erp 界能少谈 点象什么”不上 erp 等死,上 erp 找死”,”百分之百的企业上 erp 都失败”诸如的空洞口号 (实际上我并不知道他们是凭什么得出这样的结论的),多干点实际的事情. 2 既然 abap 是解释型的,运行速度会有影响吗?我想多少会有的,为了解决这个问题,除了要加 大相关服务器内存外(相对日新月异的硬件技术这已非主要瓶颈) ),sap 本身在提高性能也提供了相当的 abap 技术,比如使用 cluster table, pooled table 和 logical database ,在接下来会有详细介绍. 2.abap 开发环境的建立 一个 abap 顾问和我讨论说,大学毕业我做 abap 开发不久做了顾问,薪资相当可观,最要 好同学在 unix 平台下写 cobar 组件, 薪资却并不理想. 从技术角度,我认为使用 c+写组件肯定比 abap 开发难度要高,用其人话说他是坐的庙 好.是的,sap 行业特别是早些年是个被异化的行业,人们可看到某些人出于经济目的铺天盖地 的对 erp 不正确的宣传,这同样反应在 it 各行业,”拿到 xx 牌 route 认证,拿到 xx 网络认证, 拿到 xx 数据库认证,拿到 xx 管理学位年薪基本的都在十几万以上”,现在人们发现实际不是这 回事,从现在,sap 也已经开始降温了,我想这趋势还会持续. 和学习其它语言唯一不同的是,abap 是集成在 sap 基础平台系统中的,为了学习 abap,你 必须安装一套 sap(可选择 r/3,minisap,或 ides),而通常的情况是安装光盘渠道比较难找(只 有一些大企业实施了 sap 才可能有,而且还必须注意版权问题,其他开发工具随便都可找到安装 程序),对想学习 abap 的程序员这是个主要门槛. 掌握基本的 abap 开发环境对 abaper 是有益的,似乎多数 abaper 对底层并不感兴趣, 3.获得 access key . 4.abap workbench 和 abap dictionary 5.第一个程序-hello world. 如何进行 abap 开发呢?本节使用老套的做法,介绍如何建立一个”hello world”的 abap 程序, 为了让读者尽快掌握 abap 开发熟悉 abap 开发环境是必须的,请看图 1.5-1. 程序的原代码如下: report zhello. write hello world!. 按 f8 运行,运行成功在屏幕上显示 hello world!的字样,恭喜你,第一个程序运行成功. 6.abap 语法简介 数据类型 控制流程 文本摘要 输出格式 程序调试 7.open sql 和 native sql 8.内表和工作区 9.使用字段符号 10.模块化程序 11.文件处理 12.簇数据库和逻辑消息和错误处理数据库 13. 尽管消息这词还用在其他地方比如 po,so 打印传真等所谓的 output message(请看 abap 百夜谈),系统出现异常,在这里消 息只谈在程序运行逻辑异常处理时的消息. 1 定义消息(参考图 7-7). 使用 tcode se91 可自定义包含多消息号的消息类,在图 7-7 中就定义了一个消息类 zfimsg,同时消息号 017 中使用了 俩&消息变量 2 运用消息. 1.可在程序title中使用message-id加入消息类. report zmsgtest message-id zfimsg . message i017. 使用消息 img 有这样的画面,12的 appl 和 work area 实际上对应的就是程序的 message_id(se91:message class). 2.在程序 title 中定义直接在语句中使用. report zmsgtest . message i017(zfimsg). 1. 将变量赋给消息. report zmsgtest . message i017(zfimsg) with var1 var2 var3 . 或者 message id zfimsg type i number 0171 with var1 var2 var3 . 尽管 017 只定义了两消息变量,但是可 with 多个值,当然只有前俩生效. 4.sap 程序消息类型有下列几种. i:信息窗口 w:警告 e:错误 s:成功 a:终止程序或 tcode x:未知. 5.和标准 sap 一样,你可配置消息,比如你需要由用户决定消息类型,使用下面程序. program zmsgtest . call function read_customized_message exporting i_arbgb = zfimsg i_dtype = i_msgnr = 017 importing e_msgty = sy-msgty. 假设你做了 tcode 和 oba5 一样可配置消息类型,在程序中你就可根据返回值 sy-msgty 判断 下步工作,e 停止处理,a 退出程序等. 在标准程序中,接下来会 perform message_send 来决定发送消息类型. 3常用消息表格和各模块常用消息配置tcode. 在消息配置中,application area和se91的message class实际上是同一概念. 1消息相关最常用的table: t100: sap能用到的消息都应该在此表中找到. t160m :mm模块相关消息表,此表可完全直接维护.就是说只要记住它,mm的消息配置直接使 用se16就可以. t100c: fi模块中用户自定义的消息,比如使用oba5, ofmg等自定义的消息会写入此表,co配 置消息不在此表. t100s: 此表保存着允许用户更改的应用区域和消息号,举例假设你删除了ki 005则在oba5 中再不能配置此消息.(对mm模块有些例外,m7不在此表,使用omcq依旧可设置,m3不 在此表,omt4依旧可设置) 此表也可直接维护.和t160m不同的是,你必须在se16输入t100s按新建按钮 才可维护.查询时只可display. t100u: 哪个用户最后更改了消息,从此表能找到. t100w: for workflow 2常用tcode(部分): fi: oba5|ofmg|ofpm mm: omrm|okzz|omt4|omcq |o04c| sd: ovah co: opr4_act|opr4_ck|opr4_ckml|opr4_ckpf|opr4_kka|opr4_kkp|opr4_kks| opr4_kks1|opr4_ppcopp others: opr5|opr1|opr3|opr6|opr7|opr8|opr9|oprcmfe|msw1|msw2 3应用举例. 物料价格维护问题 case 1如何在物料价格未维护时依旧可估算成本. 比如在ck11n(ck40n)计算成品标准成本时,其中有一些component没维护价格.就可使用 opr4_ck将默认的错误消息switch off掉(从tcode okkn-misc.-error management按钮也 可). *另外临时处理方法一是将相关component的物料cost 1 view选上do not costing. 对需要计算标准成本的材料选上它就不再允许计算标准成本,不妥,但是对原材料无所谓,因 为系统会这样处理,如此材料没维护价格,bom用到它的成品不计算其成本,但是如此物料维 护了价格后,还是以物料价格为先的.(当然ck11n去估算此原材料是不行的,用户也不需如此 做).二是按sap推荐的如果将price设成0.01,price unit设置成100. case 2如何限定物料价格必须维护. (1)对采用s price control的.sap默认是warning(tcode :omt4 m3-132,如需要限定必须维 护价格,将其改成w就可. (2)对采用v price control的,omt4找不到其消息号m3-131,但系统默认是warning,如果用 户认为也有相关配置就有犯了认为sap万能的错误,再次强调sap只是一堆代码并不神秘. 好让我们看看其逻辑. *实际上直接使用se16:t160m可直接配置mm相关. 如图:1se38找到程序lmg11f01 2在此处设置断点 3如价格为0(空格) 写死的,当然配置无效. 再看s price control(如下图,显然从t160m表读了img数据). 4灵活运用消息. 对于消息的运用,除了可配置消息类别外,另外一个重要用处就在于,可根据消息找到程序弹 出消息的确切行,然后稍微花点时间看看程序逻辑就可大概知道异常发生的根本原因. 从某 种程度来讲,即使对某模块很陌生,只要掌握得好,依旧可排除一些问题. 5 配置自定义的消息. 俩方法可模妨sap的消息配置 1 从上我们已经知道既然 t160m 是可直接使用 se16 维护的,我们就可直接将相关设置写入 t160m.然后就可根据相关设置取得消息类别(如上图我们使用函数 me_check_t160m),这样 比类似 message e017(zfimsg)hard code 要安全得多,假设不管三七二十一就给出错误消 息,除非在程序中确信已考虑了所有情况,否则还是在 t160m 这样设置比较好(万一在生产环 境还可更改 e 成 w 什么的). 2我们知道t100c是所谓的可配置消息表,我们可使用se16:t100c和v_t100c. (1)se16:t100s定义消息可配置信息. 如图1在此新建.(进去browse数据似乎不可新建) 设置消息.如下图. 1appl area消息类zfimsg. 2表示允许配置的消息类型 3没选则表示不能关闭消息. (2)se16:v_t100c配置消息. 如图: 1表示直接使用程序(tcode)的消息类型2当当程序以bdc方式运行时的消息类型 3就是上图设置的允许的消息类型,可看到警告和关闭都没出现(t100c没允许) 同样在程序中避免使用泪水message e017(zfimsg)而采用 call function read_customized_message exporting i_arbgb = zfimsg i_dtype = i_msgnr = 017 importing e_msgty = sy-msgty. 根据返回的sy-msgty去判断消息类型将更好些. 6实例介绍 po在有发票校验后禁止修改价格,假设无po release策略,使用user-exit步骤如下: (1)找合适的用户出口 发现exit_sapmm06e_017比较合适,smod 输入enhancement name :mm06e005 (2)编写代码. *&-* *& include zxm06u42 * *&-* data : zwatekpo like bekpo , zieinfo like einfo occurs 0 with header line, zermsg(73) type c. tables ekbe . *tekpo records all the old po item date . * i_ekpo records currently processed po item . read table tekpo into zwatekpo with key ebelp = i_ekpo-ebelp . *只对me22n才生效. check sy-tcode = me22n . *ekbe是po history 表,如有q,r表示有发票校验历史,不允许更改价# select single * from ekbe where ebeln = i_ekpo-ebeln and ebelp = i_ekpo-ebelp and ( bewtp = q or bewtp = r). check sy-subrc = 0 . *如果sy-subrc =0表示发票已经校验，不允许更改价格，否则还是可更改价格# if i_ekpo-netpr zwatekpo-netpr . * change e017(zfimsg) accordingly * message e017(zfimsg).“使用下面函数代替. call function read_customized_message exporting i_arbgb = zfimsg i_dtype = i_msgnr = 017 importing e_msgty = sy-msgty. check sy-msgty ne - . refresh zieinfo. zieinfo-msgid = zfimsg. zieinfo-msgno = 017 . zieinfo-msgv1 = var1. zieinfo-msgv2 = var2. append zieinfo . call function message_get_text exporting ieinfo = zieinfo ilangu = sy-langu importing etext = zermsg . message zermsg type sy-msgty . endif. 自动建立 po 和 so 一.se11 建立一记录表 zposo1 二.使用 po user_exit .1 *本程序思路同样适合从建立 sales order 时自动建立 po 只是调用的 function 是 bapi_create_po 和使用 creating so 时的 user_exit 而已 一. se11 建立一记录表 zposo 如图建立一个表 zposo 俩个用途, 1. 保存 po 到 so 的联系以方便将来查询 2. 判断 po 是 create 还是 change (比如 me22n update po qty,or delete po line.) 3. 判断 *注意 ebeln 和 ebelp 合起来才是 key fields 相当于 db 层的 primary key 二. 使用 po user_exit exit_sapmm06e_001 (002,004,006,007,009) 006 是 po 还未 create 前检查的. exit_sapmm06e_016, 017 此时虽然有 po item 数据但是 po no.还没有给出. exit_sapmm06e_009, po 已经建立并且数据已经 refresh . 所以使用 exit_sapmm06e_013 在使用之前必须 update tfdir 表将 mand 设置成”c”.程序如下: report zupdate . data ztfdir like tfdir occurs 0 with header line . select * from tfdir into table ztfdir where funcname = exit_sapmm06e_013. loop at ztfdir . ztfdir-mand = c . modify ztfdir index sy-tabix transporting mand. endloop. update tfdir from ztfdir. *由于只有一笔使用 work area 就可搞定,所以要这样霸王强上弓是没有找到配置在哪里. report ztest11 . data ztfdir like tfdir . select single * from tfdir into ztfdir where funcname = exit_sapmm06e_013. ztfdir-mand = c . update tfdir from ztfdir. * 通过在 lsmodu23(function: modx_function_active_check 设置断点很容易找出已经有 po 的 user_exit) se37 : modx_function_active_check 在如下图中设置断点. 你就会发现 tfdir(function module 表)的 mand 必须=aktiv_flag (值就是 c)才会 call 相应的 user_exit 函数 用户增强: 所有的enhancement在表modsap,用户增强大概有三类 modsap是enhancement表, 而tfdir是看是否此enhancement被激活,就看字段mand是否是”c”而已 1. e enhancement exits :就是常说的写 user_exit 2. c gui codes 没用过 3. 3. s subscreens 屏幕增强 ok,其实上面不用 coding, 通过 search modsap 发现 exit_sapmm06e_013 在 enhancement mm06e005 中. 使用 t-code :smod f8 test 运行然后可激活 exit_sapmm06e_013 ,如果你确实找不到 enhancement name 和 exit 函数对应关系,也没关系. 使用 smod 自己建立一个 enhancement 比如叫 zposo ,然后你将 function 加入,它也会有错误提示告诉你它属于的 enhancement,还有就是使用上面的 code 直接 update . 你自己可写个 code 将所有的 user_exit 找出来,很容易的哟.如你完全明白这篇文章,我想你就理解了 user_exit 和 bapi 的使用. 建立 bapi 并使用其它语言 call 同样很简单. exit_sapmm06e_013 include 程序 zxm06u44 在 coding 前使用 se37 test bapi :bapi_salesorder_createfromdata *注意各企业因为设置的 fields status 不同可能有所不同. 对 order_header_in 只需下面几个参数 order_items_in 只需要 material,req_qty(order qty in sales units - 00009001 corresponds to 9.001,就是 说 call bap req_qty 测试时= actual qty * 1000) , cond_type, cond_value,(即对应到 price 很奇怪必须/10, 不知其他系统是否这样,此是注意点) po_meth_s(ship-to party purchase order type,如果设置了必须输入的话), order_partners 如果 sp 和 sh 相同的话,只要一条 sp 然后输入 customer no 就可,如果 ship-to-party 不同多家一条 sh+customer no.吧. 还有一样要注意. agsp, rebp sh (sap 经常有这样的 case,就是 save 在 db 中的数据和 display 出来的数据有所不同, 为什么要这样, 不得而知, 难怪 sap 不推荐直接使用 db table 做报表,或者这是 sap ag 的一个策略) 测试 ok.开始 coding on zxm06u44, source code 如下,log 写在 zposo 表中. 测试使用 bapi_salesorder_change 就是说它实际是 call bapi_salesdocument_change 的 你可知道 order_header_inx-updateflag 为 u 时是 update,为 d 时是 delete sales order,不选还不行. 好了下面是 source code(仅供参考,大体框架 ok,可能根据你的 sap 实际情况做些调整) . *-* * include zxm06u44 * 在company 1000建立po时同时建立so in 1000和po in 2000 * * 注意此程序会反复call . *-* data: zorder_header_in like bapisdhead , zorder_items_in like bapiitemin occurs 0 with header line , zorder_partners like bapipartnr occurs 0 with header line , zsalesdocument like bapivbeln-vbeln , zreturn like bapireturn . data: zpoheader like bapiekkoc , zpoitems like bapiekpoc occurs 0 with header line, zpo_item_schedules like bapieket occurs 0 with header line, zpurchaseorder like bapiekkoc-po_number . tables :zposo . data zposolog like zposo occurs 0 with header line. data : zrepcall(1) type c. “防止反复调用bapi_po_create. refresh : zorder_items_in . * 实际应用根据i_ekko-ebeln(其实从ebeln-po no.可判断出plant) * 1.i_ekko-ebeln前面5位用case语句判断 * 2.根据i_ekko-bukrs(comp. code)和xekpo-werks(plant)判断 * company code 2000是专门用来采购的hk 公司. *if i_ekko-bukrs . loop at xekpo . zposolog-ebeln = i_ekko-ebeln. “po no. zposolog-ebelp = xekpo-ebelp. “po item no. zposolog-vbeln = zsalesdocument.“so no. zposolog-posnr = xekpo-ebelp . “so item no. zposolog-waers = i_ekko-waers . “currency zposolog-matnr = xekpo-matnr . “material zposolog-kwmeng = xekpo-menge. “po/so qty zposolog-netpr = xekpo-netpr. “po/so price zposolog-bapimsg = creation ok . “zreturn-message . zposolog-flag = t. “failure append zposolog . insert zposo from zposolog. endloop. else. zposolog-ebeln = i_ekko-ebeln. * zposolog-bapimsg = zreturn-message . *为了好se91查找message合并message type, messge code,和message text concatenate zreturn-type - zreturn-code -: zreturn-message into zposolog-bapimsg . zposolog-flag = f. “failure append zposolog . insert zposo from zposolog. endif. *-po可能会反复调用吗- * 不管如何做到call一次就退出. * 建立一表zflag, 可只有一个字段, zrepcall,default是f, call function bapi_po_create exporting po_header = zpoheader * po_header_add_data = * header_add_data_relevant = * po_address = * skip_items_with_error = x * item_add_data_relevant = importing purchaseorder = zpurchaseorder “好瞧瞧 tables po_items = zpoitems * po_item_add_data = po_item_schedules = zpo_item_schedules * po_item_account_assignment = * po_item_text = * return = * po_limits = * po_contract_limits = * po_services = * po_srv_accass_values = * po_services_text = * po_business_partner = * extensionin = * poaddrdelivery = . endif. “结束建立purchase order 和sales order 下面是使用 vb call bapi_create_po 建立 po 的例子的部分,首先使用 se37 测试,基本上建立 po 最简单只需要以下 参数. 注意 vendor 必须是 10 位数,如果长度不足,请加 0 tvendor = mid(“0000000000“, 1, 10 - len(trim(vendor.text) + trim(vendor.text) 保证如果 vendor length1000 时出现的错误(validation zstline 生效,消息的俩&参数被 bkpf-usnam 和 bseg-dmbtr 代替),出现的错误消息,由于凭 证俩行 amount 都1000,此消息将弹出俩次. 1.zstline 显然对 user stonef 操作所产生的任何会计凭证都有效,比如只想限制 stone 在 使用 fb50 记帐但是 f-53 付款时却允许超过 1000hkd,请在先决条件上再加上 tcode fb50 则 validationi 就只对 fb50 有效. 2.想用 tcode 比如 fb50 测试新建 validation,起码要求退出当前操作再进入,否则 sap 会 从缓冲中读数据认为还是上次的配置,结果拥护却认为配置失败,最保证的方法是从 validation img 窗口使用/o fb50(或其它 tcode). 3.这种方法同样适用于任何其它相同情况的测试. 3.再谈建立 validation 操作.(图 7-9) 1删除 prerequisite 和 check 代码. 2合并字符字段 3比如对 line validation,bkff,bseg,syst(如想 by tcode 选 syst-tcode 做条件)三对象可使用. 4选择 rule 做 prerequisite 和 check(参考图 7-5). 5可使用 user exit 做 prerequisite 和 check.(参考第 8 例凭证的退代). 6一些常用逻辑表达式. 7通常使用的是 constant(常量). 1.读者也许有这样的疑问,validation 究竟是怎么工作的? 很好,使用 se37 在 function fi_validation_header 和 fi_validation_item 合适位置设置断点,就可知道更详细的程序 逻辑. 另外,相关 table t001d|和相关程序 gbtdmfi0|rgugbr00,有兴趣的读者不妨研究一下. 2.另一个留给读者的疑问是,一个 validation 可有多个 steps,不妨假设一 line validation 有俩 steps-step1 和 step2,它们的 prerequisite 都是:bkpf-bukrs = 5100,但 是 check 却不同甚至是矛盾的,step1 check 是 bseg-dmbtr 1000,结果会如何? 3.财务凭证的退代(substitution) 和 validation 一样,凭证的退代在多个模块中能找到,img path(img path 如图 7-1 标号 2). 比较实用的 substitution img t-code 有: obbh:ap/ar/gl doc.| oacs:am create assets|oa02:mass change assets|gcvy:global substitution(in spl,company level)|gcvx:local substitution(in spl,company code level). 和 validation 不同的是,validation 只做检测,一般不做相应数据的修改,substitution 弥 补了这反面的缺陷,甚至允许和 user_exit 相结合. 假设用户希望在产生 apar 凭证能将 vendor,customer 或其它信息比如写入 assignment(bseg-zuonr)字段,或者希望某些 p&l 科目在记入某些特定成本中心时将些分析信息写入 text(bseg-sgtxt)字段,可使用退代. 下面举一个最简单实例假设在公司代码 5100 中,如使用现金类科目 10010120 记帐,在 text(bseg-sgtxt)写入信息,同时在 期初,可能会将一些凭证 post 到上期间,使用退代假设是 post 到上期间的凭证 posting date 换成上期间最后一天. 此简单实例是为了说明问题,其中有些步骤和第 7 例 validation 相同,就不再一一讲解,希望读者在实际业务中能举一反 三,发挥退代作用. 1. 自定义的退代程序. 相关 tcode:gcx2. (图 9-2) 1app. area 选择 gbls 2输入自定义程序名 zstsub(copy 并取代 sap 默认的标准程序 rggbs000) *自定义的程序名称最好不超过 8 位,在 obbh 似乎只能显示程序名的前 8 位. 相关表格函数和程序. 相关表格 gb01|t001q|t80d|gb03|gb03t|gb31|gb31t|gb907|gb90|gb92|gb922|gb901 |oxt_genobjdtl|,相关函数 fi_substitution_active|fi_substitution_doc |fi_substitution_header|fi_substitution_item.相关程序 zstsub(自定义)| gbtdmfi0| gbtdmfij|rgugbr00 *使用 gcx2 退换标准的 rggbs000 这样就无需申请 access key,另外一个 gcx1 是跨 client 端的,一般用于特殊总帐 spl 中给 field movement 定义用户出口. 2. 建立退代步骤 同 validation 一样,也需为其建立 step,一个 step 包括先决条件和退代(如图 9-3). 1凭证头退代,在凭证抬头回车回保存凭证时满足条件时生效. 2凭证行项目退代. 3增加删除一个退代 *在本例中,使用 only exit u100(对应 zstsub 子程序 u100)修改 line item 的 text. 4使用用户出口做退代. (关于怎么选 form 规则请看本例思考). 5字段级退代. 假设 zstsub form u100 的 source code 如下,那么在满足先决条件时,行项目的 text 都写成了 record payment text. form u100. “#ec called *u100 如只是用于 line item退代. 所以改变xblnr不会成功 . *u100如果同事用于header和line item,则俩句都会成功执行. bkpf-xblnr = reference for stone tes