abap/4 (1)

前 言
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]表示应用服务器(通常企业为了节省成本和方便管理可能会将应用服务器和数据库安装在同一起),[2]System 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有这样的画面,[1][2]的appl和work area实际上对应的就是程序的message_id(SE91:message class).
2.在程序Title中定义直接在语句中使用.
REPORT ZMSGTEST .
MESSAGE I017(ZFIMSG).
将变量赋给消息.
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相关.
如图:[1]SE38找到程序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数据似乎不可新建)
设置消息.如下图.
[1]Appl 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.
***在大多数情况下追踪消息能发现问题所在,然而在一些特定情况下,SAP显示的消息似乎和实际业务并不符合.好比一个人咳嗽的厉害,以为是感冒结果其实不过是有写异物进入其喉咙而已.
14.使用用户授权
15.调用外部程序和程序动态生产
16.选择屏幕
17.使用程序运行变式
18.制作Tcode

 

二.加强篇 .
1.CATT
2.BDC
3.制作程序的background job
4.SapScript
5.Smartform
6.SAP Query
7.ALV编程
8.ALE/iDoc
9.Report painter和Drilldown Report
10.RFC/BAPI
11.编写用户增强
12.深入ABAP工作台
在这章将深入介绍各种ABAP对象的操作.
13.传输请求
这节并不是侧重介绍如何配置传输请求和其运行机制的,这通常是basis的工作和ABAPer并无关系,还是那句话,了解点大概是必要的.
通 常企业起码会有两个系统,开发(测试)系统和生产系统(有些企业开发任务相对少,开发和测试使用同一台server甚至同一client,开发和测试也都 有ABAPer完成),如果要严格开发流程,开发,测试必须是分开的(为了节省当然可使用同一server,不同的Client甚至用不同System Number逻辑分成两Server),在此不深入讨论.
熟悉几个名词:
1开发类(Development Class).
开发类可简单理解为逻辑上相关的一组ABAP对象,在将来传输时将使用同一传输层.实际上开发类本身也可看做是一个ABAP对象,可使用SE80建立.
$TMP是本地开发类,属于此开发类的任何ABAP对象(包括自定义的表,编写的程序等都只能在Client做测试用而不能被传输到其他Client.
包现在被用来代退开发类.
2.包(Package)
相关的ABAP对象被组合在一个包内,SE16:TADIR可看到被分配到某包的所有的ABAP对象,包决定了这些对象的传输层.
所有的包被存在表TDEVC中,建立包可使用SE80或直接使用SM30:V_TDEVC.
包作为开发类的退代和前身有这么几个加强特征.
1.包可嵌套使用(这点类似Java package)
2.包类可包含最多本包中可见的对象,这些对象在包外不可见
这点类似私有对象(Private object),在OOP中也很常见.
3.包可为包接口定义使用访问授权.
4.通常自定义包必须是Y或Z前坠,这点和其他ABAP对象相同(包其实也可看做ABAP对象).其他一些包前坠 A-S, U-X表示SAP标准包,T私有测试包,$本地临时包,/***名字空间前坠.
3.传输层(Transport Layer)
传输层决定包内对象是分配给本地还是可产生传输请求.
通常,开发系统都被分配了一个标准的传输层,当包被建立时,.它就被分配了一个标准传输层.包内对象也立即自动获得相关传输属性.
相关IMG配置使用的是标准的传输层.
通常由basis使用Tcode STMS配置传输管理系统维护传输曾和路由.
图2.13-1,显示的是从DVU开发的程序传输到QAS和PRD的传输路由,在图中程序在DVU server的client 210,100开发后被传输到QAS Client 310测试,成功后被分别传入PRD Client 800,810和820 .
4.传输请求
程序是究竟保存在server的什么地方程序是如何在不同client和server之间进行传输的要明白这问题,首先让我们看看什么是传输程序和传输控制程序.
传输控制程序TP和R3TRANS传输程序,R3TRANS被用来实现SAP各Client间的数据传输和不同版本迁移,TP传输控制程序根据传输参数(Transport Profile)调用R3TRANS传输程序.
14.和其它语言的交互
VB,Delphi,Java其实开发工具使用都简单,别人都弄出开发环境都给弄出了,学用还会难吗
三.实战篇
在 这一篇将介绍企业常用模块开发实例,其中可能还涉及一些辅助相关后台配置,每个模块的8个实例是经过精心挑选出的具有相当代表性,由于篇幅原因和各个企业 实际需求可能不一样,有的可能在本书只描述了设计思路和部分源代码,希望读者在实际运用中能自行完善并能举一反三.除非必要,尽量使用SAP标准的报表少 自行开发,另外,如有可能,使用信息结构.
1.MM模块开发实例.
一.MM常用表格及其关联关系图
二.开发实例
下面是一个企业的参考MM开发需求清单(并不包括用户出口等).
供 应商列表|信息记录|PR,PO打印(Scrip或Smartform)|MRB物料清单|物料报废报表|物料入库报表|物料运输申请单|物料主数据查询 报表|收货单打印|IQC报表|Pull List|发料单(生产定单)|物料转移单|Delivery notes|Packing List|RMA发料单|库存分析报告|PO分析报告|GR/IR分析报告|物料盘点单|盘点物料报告等.
如项目紧急而开发人手不足(有些中小企业专职的ABAPer可能只有一个或各模块的SAP内部支持顾问兼做开发),必须排定开发优先次序,除了比如PO套打收货单打印等必须在项目正式上线前完成的开发任务,相关查询报表可在上线后开发.
如果是专职负责开发,依旧需要很好理解业务,最好和负责业务支持的多沟通,一个最有效的方法就是将相关模块的业务流程(通常在业务蓝图阶段会有非常详细的相关资料)在测试系统走一遍,这样对以后开发是大有益处的.
1.MM相关单据打印
PO和收货单打印开发
NACE,MB04外协PO.
2.PO增强编程
PO change history
*&---------------------------------------------------------------------*
*& 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
***本程序思路同样适合从建立Sales order时自动建立PO 只是调用的function是BAPI_CREATE_PO和使用creating SO时的User_exit而已
SE11建立一记录表ZPOSO
如图建立一个表ZPOSO俩个用途,
保存PO到SO的联系以方便将来查询
判断PO是create还是change (比如ME22N update PO qty,or delete PO line.)
判断
***注意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"而已
E Enhancement exits :就是常说的写User_exit
C GUI codes 没用过
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.吧.
还有一样要注意. AG—SP, RE—BP
—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 '1000'.
* exit.
*endif.
check I_EKKO-BUKRS eq '1000'. "只对comp 1000适用.
***判断表ZPOSO有无PO no.无call BAPI_SALESORDER_CREATEFROMDATA create SO
*** 如果存在call BAPi BAPI_SALESORDER_CHANGE change SO.
***注意在ME22N change PO时间XEKPO内表中只保留了被改变line item的数据.
select single * from ZPOSO where EBELN eq I_EKKO-EBELN.
if sy-subrc eq 0 .
* Change Sales Order,Purchase Order留给你自己写不告诉你
*CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
*CALL FUNCTION 'BAPI_PO_CHANGE'
else . "建立Purchase Order 和Sales Order
*** 从ZFLAG表中读取Zrepcall看是否是T, 不管使用什么方法总之不要反复
**在此处设置断点在第二次调用时将Zrepcall设成T退出.
**好象无法设置到那种真正的全局变量只好使用一个表罗
**你就会发现当在comp 1000建立PO同时也建立了SO并且comp 2000也有PO
*select single Zrepcall into Zrepcall from zflag .
if Zrepcall = 'T' .
exit .
endif.
***注意使用PO另一个user_exit 001将Zflag的zrepcall设置成F
***接下来的语句立即update zflag将zrepcall设置成T.
***----------------------------------------------***
*** 开始建立Purchase Order in company 2000 ***
***----------------------------------------------***
***----------------------------------------------***
*** 开始建立Sales Order in same company 1000 ***
***----------------------------------------------***
***根据公司实际更改ZOR是标准Sales order
***----Sales Order Header --- ***
ZORDER_HEADER_IN-DOC_TYPE = 'ZOR'.
ZORDER_HEADER_IN-SALES_ORG = '1100'.
ZORDER_HEADER_IN-DISTR_CHAN = '11'.
ZORDER_HEADER_IN-DIVISION = '11'.
ZORDER_HEADER_IN-CURRENCY = I_EKKO-WAERS. "Order currency
ZORDER_HEADER_IN-PURCH_NO = I_EKKO-EBELN .
***---Purchase Order Header ---***
ZPOHEADER-PURCH_ORG = I_EKKO-EKORG. "正式使用换2000的采购组织
ZPOHEADER-PUR_GROUP = I_EKKO-EKGRP . "正式使用换comp2000的采购组
ZPOHEADER-CO_CODE = '2000' .
ZPOHEADER-VENDOR = I_EKKO-LIFNR .
ZPOHEADER-DOC_TYPE = 'NB' . "I_EKKO-BSART.
***根据PO item写入SO item和另家公司的PO items
loop at XEKPO .
***----写SO items ---***
ZORDER_ITEMS_IN-ITM_NUMBER = XEKPO-EBELP .
* 使PO item NO和SO item No完全相对应,PO,SO item可manual input.
ZORDER_ITEMS_IN-MATERIAL = XEKPO-MATNR. "'08K2555'.
ZORDER_ITEMS_IN-REQ_QTY = XEKPO-MENGE .
ZORDER_ITEMS_IN-REQ_QTY = ZORDER_ITEMS_IN-REQ_QTY * 1000 .
* Call SO BAPI时Qty 测试时间必须乘上1000.ABAP中则不用
ZORDER_ITEMS_IN-COND_TYPE = 'ZPR1'. "ZPR1是EST定义的price cond.
ZORDER_ITEMS_IN-COND_VALUE = XEKPO-NETPR.
ZORDER_ITEMS_IN-COND_VALUE = ZORDER_ITEMS_IN-COND_VALUE / 10 .
*Call SO BAPI test时Price必须/10
ZORDER_ITEMS_IN-PO_METH_S = '010' . "表示是维修期,EST设置成必输字段.
Append ZORDER_ITEMS_IN .
***---写另公司的PO items,如果有必要让俩公司PO外部给号PONo可一致---***
ZPOITEMS-PUR_MAT = XEKPO-MATNR.
ZPOITEMS-PLANT = XEKPO-WERKS .
ZPOITEMS-NET_PRICE = XEKPO-NETPR.
***仅仅是test,注意XEKET,shedules delivery date 没item不同哟.自己去加强吧
ZPO_ITEM_SCHEDULES-DELIV_DATE = SY-DATUM . " XEKET-EINDT
ZPO_ITEM_SCHEDULES-QUANTITY = XEKPO-MENGE .
append ZPOITEMS .
append ZPO_ITEM_SCHEDULES .
endloop.
***为了简单就将SP-Sold_to_Party和SH-Ship_to_Party设置成相同.
***AG-SP:sold_to WE:SH Shipping-to,BAPI测试只要SP,call时则要求俩者
***下面假设PO vendor no就是SO 的customer no,如非就建立对应关系.
ZORDER_PARTNERS-PARTN_ROLE = 'AG'.
ZORDER_PARTNERS-PARTN_NUMB = I_EKKO-LIFNR.
***实际应用时HK开PO时产生的SO customer当然只有一个就是SZ公司.
Append ZORDER_PARTNERS .
ZORDER_PARTNERS-PARTN_ROLE = 'WE'.
ZORDER_PARTNERS-PARTN_NUMB = I_EKKO-LIFNR.
Append ZORDER_PARTNERS .
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDATA'
EXPORTING
ORDER_HEADER_IN = ZORDER_HEADER_IN
IMPORTING
SALESDOCUMENT = ZSALESDOCUMENT
* SOLD_TO_PARTY =
* SHIP_TO_PARTY =
* BILLING_PARTY =
RETURN = ZRETURN
TABLES
ORDER_ITEMS_IN = ZORDER_ITEMS_IN
ORDER_PARTNERS = ZORDER_PARTNERS
* ORDER_ITEMS_OUT =
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CFGS_BLOB =
* ORDER_CCARD =
.
if ZSALESDOCUMENT '' .
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 length<10补充到10位,否则就会出错
poheader.Value("VENDOR") = tvendor
poheader.Value("PURCH_ORG") = "1000" 'Trim(Text2.Text)
poheader.Value("PUR_GROUP") = "111" ' Trim(Text3.Text)
poheader.Value("DOC_TYPE") = "NB" 'Trim(Text4.Text)
poitems.Rows.Add
poitems.Value(1, "PUR_MAT") = "C-010" ' Trim(Text5.Text)
poitems.Value(1, "PLANT") = "1100" 'Trim(Text6.Text)
poitems.Value(1, "NET_PRICE") = "222" ' Trim(Text7.Text)
poitemschedule.Rows.Add
poitemschedule.Value(1, "DELIV_DATE") = "2005/08/16" 'Text8.Text
poitemschedule.Value(1, "QUANTITY") = "888" ' Text9.Text
3.物料主数据编程
使用物料主数据
4.供应商列表分析
5.收货检测增强
物料移动报表
6.库存分析报表
7.GR/IR报表
8.报废流程增强
LIS系统简介
2.SD模块开发实例.
企业SD的一般流程汇总:
典型的SD开发有(不包含SD模块增强).
发票打印|销售分析报表|Credit Note申请Form|Shipping Note|Sales Forecast|Dunning Letter|Shipment Status|Packing List|产品批次和系列号报表等.
由于SD可能有大量的用户增强,在实例中有几个典型的案例.
1.读取销售文本
2.销售订单审批
3.
4.
5.
6.
7.
8.
3.PP模块开发实例.
企业PP的一般流程汇总:
典型的SD开发有(不包含SD模块增强).
发票打印|销售分析报表|Credit Note申请Form|Shipping Note|Sales Forecast|Dunning Letter|Shipment Status|Packing List|产品批次和系列号报表等.
由于SD可能有大量的用户增强,在实例中有几个典型的案例.
1.MD04 save的Prod极其素原的PR
2.
3.
4.
5.
6.
7.
8.
4.FI模块开发实例.
1.编写财务报表
2.财务凭证的确定(Validation)
在HR,AP,AP,GL,Consolidation,Real Estate,Special Purpose Ledger等多模快都能发现有效性检查(Validation)配置,所谓 Validation 不过是在凭证保存前根据设置条件判断此凭证是否有效,再根据Validation设置的消息类型(关于消息请参考第例消息控制)决定凭证是否允许保存(顺 利保存的),对稍微了解ABAP开发基础的用户是很容易理解的.
凭证Validation,Substitution和User Exit的使用保证了凭证能成功通过某些企业实际的自订复杂业务检测最后保存在数据库中.
***可使用Validation检测在记帐时某些cost center只能对应到具体某Functional Area(如上了Functional Area的话),某些费用类科目只能记到某具体
Cost center等.
比较实用的Validation IMG T-code有: OB28:AP/AR/GL Doc.| OAZ1:AM Posting|
GCVW:Global Validation(In SPL,Company Level)|GCVV:Local Validation(In SPL,
Company code Level).
下面以OB28为例,详细说明Validation的用法.(IMG Path如图7-1标号1)
[1]定义记帐确认.
[2]定义会计凭证退代.
建立Validation步骤:
下面以Line Validation STLINE只允许用户STONEF在5100(本位币HKD)记帐时本位货币金额不超过1000HKD为例子,详细介绍Validation的配置步骤.
***当然使用其他配置也能达到相同效果.
1.选择Callup Point建立Validation Name(如图7-2).
[1]1.在凭证抬头触发 2.凭证行项目触发 3.整个凭证触发,触发通常发生在用户按Enter键和保存之时.
[2]新建Validation时按F2进入详细画面(如图7-3)
[3]1表示激活,只有选择激活后Validation才真正起作用.
2.Validation建立步骤详解(如图7-3).
[1]新建Validation,如在此新建Validation要回到图7-2按New entries然后激活.
[2] 新建Step,一个Step包含先决条件,检查和消息. 图7-3 Step001表示的是在
Company code 5100(Local Currency HKD)下如果User是STONEF,如记帐本位币超过1000HKD,就弹出错误消息ZFIMSG 017(关于消息剖析请参考第例消息控制).
***Validation触发的条件是满足先决条件但是不满足检查条件.
[3]Rule 可用在Validation,Substitution,Report Write Selection甚至ATP check,简单理解,经常用到的一些判断条件可建立成Rule,将Prerequisite和check建立俩Rule-ZRULE1(图7-4)和 ZRULE2(图略.BSEG-DMBTR 1000
时出现的错误(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相同,就不再一一讲解,希望读者在实际业务中能举一反三,发挥退代作用.
自定义的退代程序.
相关Tcode:GCX2. (图9-2)
[1]App. 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定义用户出口.
建立退代步骤
同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 Test'.
BSEG-SGTXT = 'Record Payment Text ' .
ENDFORM.