sap圈子 sap圈子 http://sap.group.javaeye.com UTF-8 Copyright 2003-2008, JavaEye.com http://blogs.law.harvard.edu/tech/rss JavaEye - 做最棒的软件开发交流社区 一个sold-to-party,多个ship-to-party的问题 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/249572  发表时间: 2008年10月06日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

虽然这个被大家称为是经典问题，但是依然有很多人在问，所以还是简单的演示一下好，其实就是几个图片而已。

SAP不但提供了header的partner功能，item也有的 所以只需要在item的partner功能里，给不同的item设置不同的ship-to-party就好了。至于partner determination的配置，计划近期写一篇简单讲解一下。

 


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Mon, 06 Oct 2008 21:57:57 +0800 http://sap.group.javaeye.com/group/blog/249572 http://sap.group.javaeye.com/group/blog/249572 与variant有关的几个FUNCTION blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/227041  发表时间: 2008年08月12日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

  • VARI_USER_VARS_GET

Reads existing variable values

  • VARI_USER_VARS_SET

Changes existing variable values

  • VARI_USER_VARS_COPY
Copies variable values
  • VARI_USER_VARS_DELETE
Deletes variable values
  • VARI_USER_VARS_RENAME
Renames variable values
  • VARI_USER_VARS_DIALOG
Dialog for entering variable values

  • RS_VARIANT_VALUES_TECH_DATA

Get variant data

  • RS_CHANGE_CREATED_VARIANT

Change variant data


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Tue, 12 Aug 2008 15:50:41 +0800 http://sap.group.javaeye.com/group/blog/227041 http://sap.group.javaeye.com/group/blog/227041 日本会计中 仮払金・仮受金 解释 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/222106  发表时间: 2008年07月31日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

＜ 仮 払 金 ＞
帳簿を記入していると、 現金の支出があったのに相手勘定がわからないというときがあります。 現金が減っているのにその理由がわからないという場合があるんです。

 

 

これだけ書くと、お金を勝手に使い込んでいるような悪いイメージを想像してしまいますが、そうではありません。

例えば、従業員が出張に行く際、旅費などの出張費を渡します。そういった場合、出張先でいくら使うのかが、わからないので、だいたいの金額を渡します。このように現金が減る事はわかっているのにその目的がはっきりしない場合、仮払金（かりばらいきん）勘定という資産の勘定を使用します。

上記のケースでは、出張費で処理をしてもよさそうですが、渡した金額を全て出張で使うとは限りませんよね。なので一時的に仮払金として処理をし、正しい金額が確定したときに出張費などに振り替えます。

仮払金勘定は現金を支払ったとき、金額が確定したときの２つのケースがあります。
それでは、取引と仕訳を見てみましょう。

 

お金を支払ったとき ：

従業員の出張にあたり、旅費として現金60,000円を概算で渡した。

借　　　方     貸　　　方
（仮払金） 60,000     （現　金） 60,000


このような場合、仮払金勘定の借方に概算金額を記入します。この段階では、旅費にいくら使うかわからないからです。


金額が確定したとき ：

従業員が出張から戻り、旅費の金額が70,000円であることがわかった。不足額は従業員へ現金で支払った。  

借　　　方     貸　　　方
（旅　費） 70,000     （仮払金） 60,000
        （現　金） 10,000


この時、はじめて何にいくら使ったのかがわかったので、仮払金から旅費へ振り替えます。

ここでは、旅費が仮払金を超えてしまったケースを見てきました。仮払金の範囲内で納まった場合の取引も見てみましょう。

従業員が出張から戻り、旅費の金額が40,000円であることがわかった。残金20,000円は、現金で受け取った。

借　　　方     貸　　　方
（旅　費） 40,000     （仮払金） 60,000
（現　金） 20,000        

 

＜ 仮 受 金 ＞
仮払金勘定は、現金を支払ったとき、その理由や金額がわからない場合に使用しました。それとは反対に現金を受け取ったときに記入する勘定科目がわからない、金額が不確定といった場合は、仮受金（かりうけきん）勘定という負債の勘定を使用します。

仮受金勘定は、現金を受け取ったとき、金額が確定したときの２つのケースがあります。

 

現金を受け取ったとき ：
出張中の社員から、当座預金に100,000円の振込があったが、その内容は不明である。

借　　　方     貸　　　方
（当座預金） 100,000     （仮受金） 100,000

 

現金を受け取ったが、この段階では受け取った100,000円の内容が不明なので仮受金勘定を使用します。

 

金額が確定したとき ：

従業員が出張から戻り、当座預金に振り込まれた100,000円は商品の売上代金であることが判明した。

借　　　方     貸　　　方
（仮受金） 100,000     （売　上）

100,000

 

 

 


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Thu, 31 Jul 2008 11:15:16 +0800 http://sap.group.javaeye.com/group/blog/222106 http://sap.group.javaeye.com/group/blog/222106 [SAP]用Check Deposit做customer应收账款clear blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/219589  发表时间: 2008年07月25日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

我们手动的做一下支票存款(Check Deposit)来进行应收账款的Clear操作。

首先TCODE FB70来做一张invoice

其中customer为PAUL POWER,Accounts Receivable帐户为159100. 应收账款11欧元。

此刻我们用TCODE   FBL5N - Display/Change Line Items来查看PAUL POWER客户，可以看到这笔未清项。

TCODE FAGLB03 - Display Balances (New) 查看other receivable的balance状况为

 

之后我们便开始手动操作支票收款，TCODE为FF68 - Manual Entry

其中输入check支票的屏幕需要输入支票金额，支票号码，支付的customer的search item以及Invoice号码。

但输入结束，保存之后，通过菜单，进行POST，我们会看到生成了两个session。

因为check deposite会有两个session操作的过程:

subledger session用来与客户AR帐户做clear

bank session会对bank账户做clear

 

通过TCODE SM35会发现两个新建立的session,首先选中BANK session，点击process，选择foreground，我们可以看到整个clear的过程，是通过FB01进行的。

之后选中customer session，点击process，可以看到整个clear过程，通过FB05进行。

Bank session跑完之后，我们再次查看159100的balance，可以看到，已经有11欧元的debit

subledger session跑完之后，我们再次查看paul power的open item已经消失了，出现在了cleared item里面

 

通过FB03可以查看这两个session执行之后产生的document. 整个check deposit过程就结束了。


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Fri, 25 Jul 2008 17:10:05 +0800 http://sap.group.javaeye.com/group/blog/219589 http://sap.group.javaeye.com/group/blog/219589 [SAP]Bank account, House bank, Bank Account基础 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/219526  发表时间: 2008年07月25日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

House Bank: A business partner that represents a bank via which you can process your own internal transactions. 也就是说，你的内部业务处理所需要的一个银行。但是并非是只有一个科目或者一个帐户。
House Bank中的每一个帐户，靠Account ID来区别。House Bank和Account ID组合在一起，就唯一确定了一个Bank Account. 每个Bank Account都指定了一个唯一的G/L中的科目。

他们三个之间的关系如下

 

在IDES系统中，我们演示如下。

首先在找到一个G/L Account主数据，然后看到有House Bank和Account ID两个栏位。

 

TCODE：FI12进入到后台配置，我们就可以看到一个House Bank体现了一个Bank Key定义的银行主数据，而一个House Bank下会有很多Account ID， House Bank和Account ID确定了唯一的一个Bank Account，每个Bank Account会制定一个G/L Account。


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Fri, 25 Jul 2008 14:50:32 +0800 http://sap.group.javaeye.com/group/blog/219526 http://sap.group.javaeye.com/group/blog/219526 invoice和cash journal做clear blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/211220  发表时间: 2008年07月03日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

当我们利用TCODE FBCJ来记录cash journal的时候，如果是一笔客户的incoming payment，即时POST了，也无法与相匹配的invoice做clear。我们必须手动clear一次。过程如下。

 

首先FB70做一张invoice

 

FBCJ来记录一笔cash journal

 

最后F-32将Invoice和payment选中，进行clear


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Thu, 03 Jul 2008 18:08:28 +0800 http://sap.group.javaeye.com/group/blog/211220 http://sap.group.javaeye.com/group/blog/211220 讲ALV GRID中改变的值更新到ALV内表中 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/207816  发表时间: 2008年06月25日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

首先编辑ALV的CALLER_EXIT事件，在call back的subroutine中做如下处理
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = W_ALV_GRID.

 

最后调用 W_ALV_GRID->CHECK_CHANGED_DATA( ).

ALV GRID中编辑的值就可以更新到ALV内表中了


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Wed, 25 Jun 2008 12:40:11 +0800 http://sap.group.javaeye.com/group/blog/207816 http://sap.group.javaeye.com/group/blog/207816 做outbound delivery时是否需要做transfer order来做picking的问题 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/195751  发表时间: 2008年05月22日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

这个是我曾经在itput发的帖子提问 http://www.itpub.net/thread-922888-1-1.html

其实当时最后一个帖子已经回答了我的问题，只是我当时没有自己练习出来。
今天做了一下练习，发现是否需要做TO完全就是取决于这个material item的plant+SLoc.是否被assin了一个warehouse NO.
当没有assign的时候，就不需要TO，直接可以手动添数做PICK，当assign了的时候，就需要来做一个TO做picking了。


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Thu, 22 May 2008 17:37:54 +0800 http://sap.group.javaeye.com/group/blog/195751 http://sap.group.javaeye.com/group/blog/195751 汇票 支票 本票 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/195407  发表时间: 2008年05月21日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

汇票。汇票是出票人签发的，委托付款人在见票时或者在指定日期或者在将来可以确定的日期，向收款人或持票人无条件支付确定金额的票据。汇票的当事人，有出票人、付款人和收款人。其中，出票人可以同时是收款人。出票人是签发汇票并将其交付与他人之人。汇票签发后，出票人对收款人及正当持票人承担当汇票提示时付款人一定承兑或付款的保证责任。在汇票未经承兑之前，出票人是汇票的主债务人。付款人又称受票人，是根据出票人的命令支付票款之人。但在远期汇票，付款人在作出承兑前只是从债务人，汇票承兑后，付款人成为主债务人，出票人退居从债务人地位。收款人是有权收取票款之人，亦即汇票的债权人。收款人如果遭到拒付，有权向出票人追索票款。
根据出票人的不同，汇票分商业汇票与银行汇票。出票人为企业或个人的，为商业汇票 。在商品买卖交易中 ，买方以第三方为付款人、以卖方为收款人签发的汇票，或者卖方以买方为付款人、以自己为收款人签发的汇票，即为商业汇票。银行汇票是以银行为出票人的汇票，它是一家银行向另一家银行发出的书面支付命令。银行汇票由银行签发后交汇款人，由汇款人寄给收款人。

本票。本票是出票人签发的，承诺自己在见票时或在指定的日期或在可以确定的将来日期，无条件向收款人或持票人支付确定金额的票据。本票只有出票人与收款人两方当事人。出票人是签发本票并将其交付他人之人，他完成出票行为后即成为本票的付款人，承担见票付款或定期付款的义务。收款人是自出票人取得本票，有权向出票人提示并要求出票人付款之人。
根据出票人的不同，本票分为一般本票与银行本票。由企业或个人签发的为一般本票，由银行签发的为银行本票。我国《票据法》规定的本票，限于银行本票。银行签发的见票即付不记名本票，可以代替现金流通，因此，各国对签发银行本票均有一定的限制。我国《票据法》第75条规定：本票出票人的资格由中国人民银行审定，具体管理办法由中国人民银行规定。

支票是指由出票人签发的，委托办理支票存款业务的银行或者其他金融机构在见票时无条件支付确定的金额给收款人或者持票人的票据。开立支票存款账户和领用支票，必须有可靠的资信，并存入一定的资金。支票可分为现金支票和转账支票。支票一经背书即可流通转让，具有通货作用，成为替代货币发挥流通手段和支付手段职能的信用流通工具。运用支票进行货币结算，可以减少现金的流通量，节约货币流通费用。

 


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Wed, 21 May 2008 19:34:14 +0800 http://sap.group.javaeye.com/group/blog/195407 http://sap.group.javaeye.com/group/blog/195407 [收藏]移动类型 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/195392  发表时间: 2008年05月21日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

http://www.itpub.net/viewthread.php?tid=963690

移动类型       Translated by   baiboyd.itpub.net    2007年6月




----------------------------------------------------------------------------------------------------------------------------------------------------------------




The Movement Type Concept
移动类型的概念




What Is a Movement Type?
什么是移动类型？




When you enter a goods movement in the system, you must enter a movement type to differentiate between the various goods movements. A movement type is a three-digit identification key for a goods movement. The following table contains examples of movement types.
当你在SAP系统输入一个货物移动时，你必须输入一个移动类型来区分不用的货物移动。一个移动类型是由3个数字组成的检索表。下表中包含了几个移动类型的例子。




Goods Movements and Movement Types 货物移动与移动类型



Goods movement 货物移动


Movement type 移动类型



Goods receipt for a purchase order 来自采购订单的收货


101



Goods issue for a cost center 有关成本中心的发货


201



Release from quality inspection stock 质检库存到非限制的释放


321





Control Functions of the Movement Type
移动类型的控制功能




The movement type has important control functions in Inventory Management.
在库存管理中，移动类型有着重要的控制功能。




For example, the movement type plays an important role in
例如，移动类型扮演着这样的角色：




updating of quantity fields
数量值的更新
updating of stock and consumption accounts
库存及消耗科目的更新

determining which fields are displayed during entry of a document in the system
决定在系统输入一个凭证时，哪一个栏位会被显示
Results of a Good Movement in the System
货物移动在系统中产生的结果




Use 用法




When you enter a goods movement, you start the following chain of events in the system:
当你输入一个货物移动时，你便开始了如下一系列的事件：




A material document is generated, which is used as proof of the movement and as a source of information for any other applications involved.
一个物料凭证会被创建，可以被用来作为移动的证明，及作为其它任何相关应用的一个信息来源。
If the movement is relevant for Financial Accounting, one or more accounting documents are generated.
如果移动跟财务会计有关，同时还会另外产生一个或多个会计凭证。
The stock quantities of the material are updated.
物料的库存数量被更新

The stock values in the material master record are updated, as are the stock and consumption accounts.
物料主数据的库存价值被更新，例如库存及消耗科目
Depending on the movement type, additional updates are carried out in participating applications. All updates are based on the information contained in the material document and the financial accounting document. For example, in the case of a goods issue for a cost center, the consumption values of the items are also updated.
根据移动类型，在参与的应用中会产生额外的数据更新。所有的更新都是基于包含在物料凭证及会计凭证的信息的。例如，有关成本中心的发货，行项目中的消耗值也同样会更新。




Use of movement type
移动类型的使用




Inventory Management (MM-IM)
库存管理 (MM-IM)




Classification key indicating the type of material movement (for example, goods receipt, goods issue, physical stock transfer).
分类码指定了物料移动的类型（例如，收货，发货，库存转储）




The movement type enables the system to find predefined posting rules determining how the accounts of the financial accounting system (stock and consumption accounts) are to be posted and how the stock fields in the material master record are to be updated.
移动类型能够激发系统去查找过帐规则，以确定财务会计系统的科目（库存及消耗科目）如何记帐，以及物料主数据中的库存值如何更新。




Logistics Execution (LE)
后勤执行 (LE)




Classification key used in the Warehouse Management system to describe a stock movement within a warehouse complex (warehouse number).
分类码在仓库管理系统中用来描述在一个复杂的仓库（仓库号）中的库存移动




Industry-Specific Components for Hospitals (IS-H)
用于医院的特定行业组件 (IS-H) (略)




Classification of a movement category.




By way of an example, the movement category 'admission' can have the movement types






Self-referral




Referral by general practitioner




Admission via emergency physician's car




Transfer from external hospital
Copy, Change Movement Types
复制，更改移动类型




In this step, you can
在这个步骤中，你可以






change the setting of existing movement types
修改已存在的移动类型的设置




define new movement types
定义新的移动类型
When you enter a goods movement, you must always enter the movement type. The movement type has important control functions in Inventory Management. It is essential for
当你输入一个货物移动，你始终必须输入一个移动类型。移动类型在库存管理中有着重要的控制功能。它对下列动作是必不可少的：






updating the quantity fields
更新数量栏位




updating the stock and consumption accounts
更新库存及消耗科目




selection of the fields used for entering documents
选定用于输入凭证的字段




printing goods receipt/issue slips
打印收货/发货标签
At the end of this document, a short description of the movement types defined in the Standard configuration is contained under Further information.




Note 注意




You have already completed the settings of the existing movement types in other steps. This means that, normally, you do not need to maintain the existing movement types.
在其它步骤中，你已经完成了现有的移动类型的设置。意思是说，通常地，你没有必要去维护已有的移动类型。




The various control indicators for the movement types are divided into several views in this step (for example, entry control, posting control). You can find the relevant control indicators in each view.
在这个步骤中，不同的移动类型控制标识分别存在于几个视图中（例如，输入控制，过帐控制）。你可以在各个视图中定义相关的控制标识。




As some control indicators do not only depend on the movoment type, but also on other parameters (for example, debit/credit indicator, special stock indicator, indicator for updating quantities and values), you may find several entries for a movement type for certain views. These entries are necessary to cover all possible data constellations in the system.
一些控制标识不仅取决于移动类型，而且还跟其它因素（例如，借/贷标识，特殊库存标识，数量和价值更新标识）有关，你可以在不同视图中找到一个移动类型的几个条目。这些条目必须含盖系统中遍布的所有可能的数据。




Standard Settings
标准设置




In the standard system, movement types are preset for all transactions/events.
在标准系统中，移动类型为所有的事务/事件预置好了。




Recommendations
建议




SAP recommends that you accept the settings defined in the standard system. In this case, no action is required on your part.
SAP推荐你认可标准系统中定义好的设置。在这种情况下，你不必作任何改动。




However, if you have to define new movement types, it is recommended that you create these movement types with reference to an existing movement type. In doing so, you do not have to manually maintain the control indicators.
当然，如果你必须定义新的移动类型，建议你参考已有的移动类型来创建这些新的移动类型。如此一来，你就不必手动去维护那些控制标识了。




Activities
作业




Check whether you can use the preset movement types.
检查你能否使用系统预置的移动类型。




If not, define new movement types as follows:
如果没有，你可以根据下列步骤定义新的移动类型：




1. Once you have carried out the activity, the system displays a dialog box for field selection. In this, you can restrict the movement types you work with to various fields. To copy a movement type, select the field Movement type and choose Continue. The dialog box Define work area appears.
首先执行这个操作(事务代码：OMJJ)，系统弹出字段选择对话框。在这里，你可以使用几个字段作为条件来限定移动类型的范围。复制一个移动类型，要选定 移动类型 字段和选择继续 按钮。出现确定工作区对话框。




2. In the dialog box Define work area, enter the movement type you want to copy in the From: field. In the To: field, enter the name of the movement type that you want to recreate. To go to the overview of the selected movement types, choose Continue.
在确定工作区对话框中，输入你想复制的移动类型的范围（从：到：），选择 继续 按钮。




3. Select the movement type you want to copy, and choose Edit -> Copy as .
Overtype the selected movement type with the new movement type (beginning with 9, X, Y, or Z) and copy all dependent entries.
选定你想复制的移动类型，选择 编辑 -> 复制为… 。
将选定的移动类型改写为新的移动类型（以9, X, Y, 或Z 打头），及 复制所有 附属的条目。




The system copies all control indicators from the reference movement type to the new movement type.
系统将从参考的移动类型中复制所有的控制标识到新的移动类型中。




4. Check all views for the new movement type and, if necessary, change the control indicators. Please note that some views have a detail screen.
检查新移动类型的所有视图，如果有必要，可以修改控制标识。注意一些视图会有一个详细的屏幕。




5. Copy the reversal movement type and enter it in the view Reversal/follow-on movement types.
复制冲销移动类型，及在 回转/后续移动类型 视图中维护这个冲销的移动类型。




6. Save your settings.
保存你的设置。




@1A@Caution 警告




Movement types have an important control function. In particular, they play a major role in updating the stock quantity and stock value in the material master record. Changing some of the indicators (such as the quantity string or value string) is considered a modification. Please note that update errors resulting from incorrect settings for a movement type are modification-based errors and as such cannot be corrected by the SAP Hotline.
移动类型有一个重要的控制功能。特别地，它们在物料主记录的库存数量和库存价值更新中，扮演着主要的角色。更改一些控制标识（比如数量串和价值串）会被认为是一个（评估）修改。请注意从一个错误的移动类型的设置中出现的，基于（评估）修改的新的错误结果，而且这个结果无法通过SAP Hotline（SAP热线）来修正的。
本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Wed, 21 May 2008 18:24:08 +0800 http://sap.group.javaeye.com/group/blog/195392 http://sap.group.javaeye.com/group/blog/195392 ABAP 常用函数(zt) jgtang82 作者: jgtang82  链接：http://sap.group.javaeye.com/group/blog/191039  发表时间: 2008年05月08日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

以前波波总结过一个，不过不知道存到哪里去了。下面这个转自：http://www.delphibbs.com/keylife/iblog_show.asp?xid=27887

RS_VARIANT_VALUES_TECH_DATA

可以返回一个内表, 里面存的是PARAMETER SELECT-OPTION的名字 以及对应的值. 可用于background job中对vaiant的修改.

函数名 描述
SD_VBAP_READ_WITH_VBELN 根据销售订单读取表vbap中的信息
EDIT_LINES 把READ_TEXT返回的LINES中的行按照TDFORMAT=“*”重新组织
VIEW_MAINTENANCE_CALL 维护表视图

函数名 描述
DY_GET_FOCUS 获得屏幕焦点
DY_GET_SET_FIELD_VALUE 获得或者设置屏幕字段的值

函数名 描述
F4IF_INT_TABLE_VALUE_REQUEST 显示检索help
READ_TEXT 读取长文本
CONVERSION_EXIT_CUNIT_OUTPUT 单位转换
SJIS_DBC_TO_SBC 全角转半角
SJIS_SBC_TO_DBC 半角转换为全角
CO_R0_CHECK_DECIMAL_POINT 根据单位检查数据的小数位
POSTAL_CODE_CHECK 检查邮政编码

函数名 描述
CONVERSION_EXIT_ALPHA_INPUT 全数字则在前面补0
CONVERSION_EXIT_ALPHA_INPUT 和上面相反
GET_JOB_RUNTIME_INFO 获得job相关信息
TERMINAL_ID_GET 获得端末id
DATE_CONVERT_TO_FACTORYDATE 把输入日期转为工厂日历日期
MESSAGE_TEXT_BUILD 把消息转为文本

函数名 描述
POPUP_TO_CONFIRM 弹出确认窗口

函数名 描述
CONVERSION_EXIT_MATN1_INPUT 物料号码转换函数
CONVERSION_EXIT_MATN1_OUTPUT 同上相反
CONVERT_TO_LOCAL_CURRENCY 按照指定日期汇率转换金额为指定货币类型
SSF_FUNCTION_MODULE_NAME 根据form名取得对应的函数名(SmartForm)

函数名 描述
DATE_CHECK_PLAUSIBILITY 日期CHECK
cl_gui_frontend_services=>gui_upload 上传到服务器
cl_gui_frontend_services=>gui_download 下载到服本地
SSF_FUNCTION_MODULE_NAME SMARTFORMS输出报表时，生成一个函数名称，然后CALL这个名称

函数名 描述
POPUP_TO_DECIDE_LIST 弹出供选择窗口

ABAP_DOCU_DOWNLOAD – 以HTML格式下载ABAP文档。

ARFC_GET_TID – 以十六进制形式返回终端的IP地址。

BAL_* -容纳了SAP的应用程序日志所有的函数模块。

BP_EVENT_RAISE –在 ABAP/4 程序中触发一个事件。

BP_JOBLOG_READ –获得job log的执行结果。

CLOI_PUT_SIGN_IN_FRONT – 将负号前置， SAP默认将负号放在数字后面。

CLPB_EXPORT –从内表导入到剪贴板。

CLPB_IMPORT – 从剪贴板导入内表。

COMMIT_TEXT -To load long text into SAP 。

CONVERSION_EXIT_ALPHA_INPUT - 数字串前补0
example:
input = 123
output = 0000000000000。。。000000000000123

CONVERSION_EXIT_ALPHA_OUTPUT – 消除数字串前的0
example:
input = 00000000000123
output = 123

CONVERT_OTF – 将SAP文档(SAP Script)转换成其他类型。
example:
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
IMPORTING
BIN_FILESIZE = FILE_LEN
TABLES
OTF = OTFDATA
LINES = PDFDATA
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
OTHERS = 4.

DATE_GET_WEEK – 返回一个日期所在的周数。

DATE_CHECK_PLAUSIBILITY – 检查一个日期是否是SAP的有效格式。

DYNP_VALUES_READ – 读取SCREEN字段的值，也可以用来读取报表SELECTION SCREEN。

DYNP_VALUES_UPDATE -更新屏幕字段的值。

ENQUE_SLEEP –在继续处理之前等待一个指定的时间。

ENQUEUE_ESFUNCTION – 锁定一个ABAP程序使它不可以被执行:

RELID = 'ZZ'
SRTF2 = 0
SRTF = (your report name)

注意不要用SY-REPID来传递你的报表名字，当把SY-REPID作为参数传递给函数模块的时候，SY-REPID的值实际上已经发生了变化。

EPS_GET_FILE_ATTRIBUTES – 获得文件属性。

EPS_GET_DIRECTORY_LISTING – 返回一个本地或网络目录的文件列表。

F4_DATE - 弹出一个窗口显示一个日历允许用户选择一个日期。

F4IF_SHLP_EXIT_EXAMPLE – F4接口模块。

FILENAME_GET – 弹出一个文件选择对话框。

DATA out(60) TYPE c.
CALL FUNCTION 'FILENAME_GET'
  EXPORTING
    filename = 'c:\1.txt'
    title    = 'GET FILENAME'
  IMPORTING
    filename = OUT.

FTP_CONNECT    – 打开并登陆FTP服务器的连接。
FTP_COMMAND    – 在FTP服务器上执行一个命令。
FTP_DISCONNECT –关闭指向FTP服务器的连接。

FORMAT_MESSAGE - Takes a message id and number, and puts it into a variable。 Works better than WRITE_MESSAGE, since some messages use $ as a place holder, and WRITE_MESSAGE does not accommodate that, it only replaces the ampersands (&) in the message。

GET_GLOBAL_SYMBOLS – 返回一个程序的tables, select options, texts, etc 。甚至包含selection screen的文本定义。

GET_INCLUDETAB – 获得一个程序的INCLUDES列表。

GUI_CREATE_DIRECTORY –在显示服务器端创建一个目录 。

GUI_DELETE_FILE – 在显示服务器端删除一个文件 。

GUI_DOWNLOAD – 从应用服务器下载内表到显示服务器。

GUI_EXEC – 调用一个文件或程序，取代了WS_EXECUTE。

GUI_GET_DESKTOP_INFO – 获得客户端桌面信息，取代了WS_QUERY。

GUI_REMOVE_DIRECTORY – 从显示服务器删除一个目录 。

GUI_RUN – 启动一个文件或程序 。

GUI_UPLOAD – 从显示服务器上传文件到应用服务器，取代了WS_UPLOAD。

HELP_START – 为一个字段显示帮助。 Useful for doing AT SELECTION SCREEN ON VALUE REQUEST for those fields that do not provide F4 help at the DDIC level。

HOLIDAY_GET – 基于Factory Calendar&/ Holiday Calendar提供了一个节日表。

INIT_TEXT –上传长文本到SAP。

K_WERKS_OF_BUKRS_FIND – 返回一个特定公司代码的所有工厂。

LIST_TO_ASCII –将ABAP报表从 OTF形式转换成ASCII 形式。

LIST_FROM_MEMORY – Retrieves the output of a report from memory when the report was executed using SUBMIT。。。EXPORTING LIST TO MEMORY。 See also WRITE_LIST。

MONTH_NAMES_GET – 获得所有的月和名字

**** MS_EXCEL_OLE_STANDARD_OLE – 创建一个文件并自动启动Excel 。

CONVERT_OTFSPOOLJOB_2_PDF - converts a OTF spool to PDF (i。e。 Sap script document)

CONVERT_ABAPSPOOLJOB_2_PDF -convert ABAP spool output to PDF

POPUP_TO_CONFIRM_LOSS_OF_DATA – 弹出一个对话框告知用户有可能丢失数据，询问是否操作继续。

POPUP_TO_CONFIRM_STEP -弹出一个对话框询问用户是否操作继续。

POPUP_TO_CONFIRM_WITH_MESSAGE  可以显示定制的提示信息的确认窗口 类似POPUP_TO_CONFIRM_STEP，只是多三行的文本错误诊断提示。

POPUP_TO_CONFIRM_WITH_VALUE  用此函数可以建立一个对话框用于询问用户是否执行某步操作，该操作可能会丢失数据，用户可以选择Yes No                             或者Cancel。该函数可以传入一个标题，两行的文本（提示问题）和一个对象值

POPUP_TO_DECIDE              显示一个对话框，用户可以两个操作中的一个或者取消。可以传入三行提示文本

POPUP_TO_DECIDE_WITH_MESSAGE   类似POPUP_TO_DECIDE

POPUP_TO_DISPLAY_TEXT  显示多行信息的窗口

POPUP_TO_SELECT_MONTH –弹出一个对话框供选择月。

POPUP_WITH_TABLE_DISPLAY -Provide a display of a table for user to select one,
with the value of the table line returned when selected。

PRICING – 获得定价条件

PROFILE_GET - 从INI文件读取一条记录

PROFILE_SET – 往INI文件写一条记录

READ_TEXT – 上传长文本

REGISTRY_GET – 从注册表读取一条记录

REGISTRY_SET – 在注册表里设置一条记录

RFC_ABAP_INSTALL_AND_RUN – 当MODE参数值为‘F’时运行PROGRAM表中的程序'.

RH_GET_ACTIVE_WF_PLVAR – 获得激活的HR计划

RH_START_EXCEL_WITH_DATA – 启动Excel并用内表给文件赋值

RH_STRUC_GET –返回所有相关的组织信息

RP_CALC_DATE_IN_INTERVAL – 年月日加减

RP_LAST_DAY_OF_MONTHS – 获得一个月的最后一天

RPY_DYNPRO_READ – 读取屏幕

RPY_TRANSACTION_READ – 给定一个事务代码，获得其程序和屏幕；或给定一个程序和屏幕获得事务代码

RS_COVERPAGE_SELECTIONS – 获得一个报表的选择参数列表。

RS_REFRESH_FROM_SELECTOPTIONS –获得当前选择屏幕的内容

RS_SEND_MAIL_FOR_SPOOLLIST – 在程序中给SAP office 发送消息

RS_VARIANT_CONTENTS – 获得一个变式的内容

RZL_SLEEP – 将当前程序挂起

RZL_SUBMIT – 提交一个远程报表

RZL_READ_DIR_LOCAL – 读取应用服务器的目录

RZL_READ_DIR – 如果服务器名字左部为空，从本地读取目录，否则读取远程服务器的目录

RZL_READ_FILE – 如果为给定服务器名字则读取本地文件，否则读取远程服务器文件。

RZL_WRITE_FILE_LOCAL - 将内表保存到显示服务器(not PC). 不使用OPEN DATASET因此避免了授权检查。

SAPGUI_PROGRESS_INDICATOR – 显示一个进度条

SAVE_TEXT – 上传长文本

SCROLLING_IN_TABLE –当编写模块池的时候可以用它来处理滚动

SD_DATETIME_DIFFERENCE – 两日期作差

SO_NEW_DOCUMENT_ATT_SEND_API1 - 将文档作为邮件的一部分发送

SO_SPLIT_FILE_AND_PATH – 将一个包含路径的全文件名分割为文件名和路径

SO_SPOOL_READ – 根据SPOOL号获得printer spool

SO_WIND_SPOOL_LIST – 根据用户浏览printer spool号

SX_OBJECT_CONVERT_OTF_PDF – 从OTF转换为PDF (SAP 脚本转换)

SX_OBJECT_CONVERT_OTF_PRT – 从OTF转换为打印机格式(SAP 脚本转换)

SX_OBJECT_CONVERT_OTF_RAW – 从OTF转换为ASCII(SAP 脚本转换)

SXPG_CALL_SYSTEM - 检查用户是否有执行某个命令的权限

SXPG_COMMAND_LIST_GET – 获得一个包含所有定义的外部OS命令的列表.

SXPG_COMMAND_DEFINITION_GET – 从R/3系统数据库读取单个外部OS命令的定义

SXPG_COMMAND_CHECK - 检查用户是否有执行某个命令的权限

SXPG_COMMAND_EXECUTE -检查用户是否有执行某个命令的权限，拥有授权则执行命令

TERMINAL_ID_GET –返回终端ID

TH_DELETE_USER – 剔除一个用户，效果同SM04

TH_ENVIRONMENT – 获得UNIX环境

TH_POPUP –在特定用户屏幕上显示一个系统消息

TH_REMOTE_TRANSACTION – 在远程服务器上运行事务代码

TH_USER_INFO – 获得当前用户的信息 (会话，登陆的工作台等)

TH_USER_LIST –显示登陆到应用服务器的用户列表

UNIT_CONVERSION_SIMPLE –衡量单位转换

UPLOAD –上传文件到显示服务器

UPLOAD_FILES – 上传一个或多个文件

WRITE_LIST –显示一个列表对象

WS_DOWNLOAD –将内表下载到显示服务器

WS_EXCEL –启动EXCEL

WS_EXECUTE –执行一个程序

WS_FILE_DELETE – 删除一个文件

WS_FILENAME_GET –调用文件选择对话框

WS_MSG –显示一个对话框显示在线消息

WS_UPLOAD – 从显示服务器上传文件到内表

WS_VOLUME_GET –获得终端设备标签

WWW_LIST_TO_HTML – 运行一个报表之后，调用这个方法将列表输出转换成HTML

SD_VBAP_READ_WITH_VBELN 根据销售订单读取表vbap中的信息

EDIT_LINES 把READ_TEXT返回的LINES中的行按照TDFORMAT=“*”重新组织

VIEW_MAINTENANCE_CALL 维护表视图

DY_GET_FOCUS 获得屏幕焦点

DY_GET_SET_FIELD_VALUE 获得或者设置屏幕字段的值

F4IF_INT_TABLE_VALUE_REQUEST 显示检索help

CONVERSION_EXIT_CUNIT_OUTPUT 单位转换

SJIS_DBC_TO_SBC 全角转半角

SJIS_SBC_TO_DBC 半角转换为全角

CO_R0_CHECK_DECIMAL_POINT 根据单位检查数据的小数位

POSTAL_CODE_CHECK 检查邮政编码 GET_JOB_RUNTIME_INFO 获得job相关信息

TERMINAL_ID_GET 获得终端

idDATE_CONVERT_TO_FACTORYDATE 把输入日期转为工厂日历日期

MESSAGE_TEXT_BUILD 把消息转为文本
 
CONVERT_TO_LOCAL_CURRENCY 按照指定日期汇率转换金额为指定货币类型

SSF_FUNCTION_MODULE_NAME 根据form名取得对应的函数名(SmartForm)

DATE_CHECK_PLAUSIBILITY 检查日期合法性

CHECKcl_gui_frontend_services=>gui_upload 上传到服务器

cl_gui_frontend_services=>gui_download 下载到本地

SSF_FUNCTION_MODULE_NAME SMARTFORMS输出报表时，生成一个函数名称，然后CALL这个名  

通过这个日期得出那天是星期几
DAY_IN_WEEK

用来得到将来/过去的日期的
RP_CALC_DATE_IN_INTERVAL

日期的加减
BKK_ADD_MONTH_TO_DATE

一组有用的用户交互窗口函数
POPUP_TO_CONFIRM_LOSS_OF_DATA 显示有YES/NO的弹出窗口，提示用户未保存的数据将丢失

POPUP_TO_CONFIRM_STEP 提示是否确认操作的弹出窗口

POPUP_TO_CONFIRM_WITH_MESSAGE 可以显示定制的提示信息的确认窗口

POPUP_TO_CONFIRM_WITH_VALUE 显示确认用户对某个特定对象的操作的弹出窗口

POPUP_TO_DECIDE 将待确认选项以单选按钮的方式显示的弹出窗口

POPUP_TO_DECIDE_WITH_MESSAGE 带消息的确认窗口

POPUP_TO_DISPLAY_TEXT 显示多行信息的窗口

POPUP_TO_SELECT_MONTH 月份选择窗口

POPUP_WITH_TABLE_DISPLAY 有表格对象的确认窗口

一组操纵客户端文件系统的函数
GUI_CREATE_DIRECTORY 在PC上建立文件目录

GUI_DELETE_FILE 删除PC上的文件

GUI_DOWNLOAD 文件下载函数

GUI_EXEC 执行PC上的程序，或者打开文件

GUI_GET_DESKTOP_INFO 得到PC客户端的系统信息，比如操作系统等

GUI_REMOVE_DIRECTORY 删除PC目录

GUI_RUN 运行PC程序（ShellExecute）

GUI_UPLOAD 从PC上传程序

判断某天是否是假日
HOLIDAY_CHECK_AND_GET_INFO

ABAP_DOCU_DOWNLOAD
Download ABAP documentation in HTML format.

GET_CURRENT_YEAR
得到当前的财政年（fiscal year）

察看某日期的属性，包括该日期是星期几，第几天（周2=2），是不是公共假期等，需要输入国家日历。

DAY_ATTRIBUTES_GET

Return useful information about a day. Will tell you the day of the week as a word (Tuesday), the day of the week (2 would be Tuedsay), whether the day is a holiday, and more.(provided by Francois Henrotte)?

CLPB_IMPORT ：从剪贴板导入internal table
CLPB_EXPORT ： 从internal table输入到剪贴板
示例程序：GRCLPB_1


本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Thu, 08 May 2008 13:42:09 +0800 http://sap.group.javaeye.com/group/blog/191039 http://sap.group.javaeye.com/group/blog/191039 更改ALV subtotal text sample程序 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/188861  发表时间: 2008年05月02日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

By Joyjit Ghosh, IBM India

Code:*&---------------------------------------------------------------------*
*& Report  Z_ALV_SUBTOTAL
*&
*&---------------------------------------------------------------------
REPORT z_alv_subtotal.*&---------------------------------------------------------------------*
*& Table declaration
*&---------------------------------------------------------------------*TABLES: ekko.*&---------------------------------------------------------------------*
*& Type pool declaration
*&---------------------------------------------------------------------*
TYPE-POOLS: slis. " Type pool for ALV*&---------------------------------------------------------------------*
*& Selection screen
*&---------------------------------------------------------------------*
SELECT-OPTIONS: s_ebeln FOR ekko-ebeln.*&---------------------------------------------------------------------*
*& Type declaration
*&---------------------------------------------------------------------** Type declaration for internal table to store EKPO data
TYPES: BEGIN OF x_data,
       ebeln  TYPE char30,  " Document no.
       ebelp  TYPE ebelp,   " Item no
       matnr  TYPE matnr,   " Material no
       matnr1 TYPE matnr,   " Material no
       werks  TYPE werks_d, " Plant
       werks1 TYPE werks_d, " Plant
       ntgew  TYPE entge,   " Net weight
       gewe   TYPE egewe,   " Unit of weight                    
       END OF x_data.*&---------------------------------------------------------------------*
*& Internal table declaration
*&---------------------------------------------------------------------*
DATA:* Internal table to store EKPO data
  i_ekpo TYPE STANDARD TABLE OF x_data INITIAL SIZE 0,
* Internal table for storing field catalog information
  i_fieldcat TYPE slis_t_fieldcat_alv,
* Internal table for Top of Page info. in ALV Display
  i_alv_top_of_page TYPE slis_t_listheader,
* Internal table for ALV Display events
  i_events TYPE slis_t_event,
* Internal table for storing ALV sort information
  i_sort TYPE  slis_t_sortinfo_alv,
  i_event TYPE slis_t_event.*&---------------------------------------------------------------------*
*& Work area declaration
*&---------------------------------------------------------------------*DATA:
  wa_ekko TYPE x_data,
  wa_layout     TYPE slis_layout_alv,
  wa_events         TYPE slis_alv_event,
  wa_sort TYPE slis_sortinfo_alv.*&---------------------------------------------------------------------*
*& Constant declaration
*&---------------------------------------------------------------------*CONSTANTS:
   c_header   TYPE char1
              VALUE 'H',                    "Header in ALV
   c_item     TYPE char1
              VALUE 'S'.*&---------------------------------------------------------------------*
*& Start-of-selection event
*&---------------------------------------------------------------------*START-OF-SELECTION.* Select data from ekpo
  SELECT ebeln " Doc no
         ebelp " Item
         matnr " Material
         matnr " Material
         werks " Plant
         werks " Plant
         ntgew " Quantity
         gewei " Unit
         FROM ekpo
         INTO TABLE i_ekpo
         WHERE ebeln IN s_ebeln
         AND ntgew NE '0.00'.  IF sy-subrc = 0.
    SORT i_ekpo BY ebeln ebelp matnr .
  ENDIF.* To build the Page header
  PERFORM sub_build_header.* To prepare field catalog
  PERFORM sub_field_catalog.* Perform to populate the layout structure
  PERFORM sub_populate_layout.* Perform to populate the sort table.
  PERFORM sub_populate_sort.* Perform to populate ALV event
  PERFORM sub_get_event.END-OF-SELECTION.* Perform to display ALV report
  PERFORM sub_alv_report_display.
*&---------------------------------------------------------------------*
*&      Form  sub_build_header
*&---------------------------------------------------------------------*
*       To build the header
*----------------------------------------------------------------------*
*       No Parameter
*----------------------------------------------------------------------*
FORM sub_build_header .* Local data declaration
  DATA: l_system     TYPE char10 ,          "System id
        l_r_line     TYPE slis_listheader,  "Hold list header
        l_date       TYPE char10,           "Date
        l_time       TYPE char10,           "Time
        l_success_records TYPE i,           "No of success records
        l_title(300) TYPE c.                " Title
* Title  Display
  l_r_line-typ = c_header.               " header
  l_title = 'Test report'(001).
  l_r_line-info = l_title.
  APPEND l_r_line TO i_alv_top_of_page.
  CLEAR l_r_line.* Run date Display
  CLEAR l_date.
  l_r_line-typ  = c_item.                " Item
  WRITE: sy-datum  TO l_date MM/DD/YYYY.
  l_r_line-key = 'Run Date :'(002).
  l_r_line-info = l_date.
  APPEND l_r_line TO i_alv_top_of_page.
  CLEAR: l_r_line,
         l_date.ENDFORM.                    " sub_build_header
*&---------------------------------------------------------------------*
*&      Form  sub_field_catalog
*&---------------------------------------------------------------------*
*       Build Field Catalog
*----------------------------------------------------------------------*
*       No Parameter
*----------------------------------------------------------------------*
FORM sub_field_catalog .*  Build Field Catalog
  PERFORM sub_fill_alv_field_catalog USING:     '01' '01' 'EBELN' 'I_EKPO' 'L'
     'Doc No'(003) ' ' ' ' ' ' ' ',     '01' '02' 'EBELP' 'I_EKPO' 'L'
     'Item No'(004) 'X' 'X' ' ' ' ',     '01' '03' 'MATNR' 'I_EKPO' 'L'
     'Material No'(005) 'X' 'X' ' ' ' ',     '01' '03' 'MATNR1' 'I_EKPO' 'L'
     'Material No'(005) ' ' ' ' ' ' ' ',
     '01' '04' 'WERKS' 'I_EKPO' 'L'
     'Plant'(006) 'X' 'X' ' ' ' ',     '01' '04' 'WERKS1' 'I_EKPO' 'L'
     'Plant'(006) ' ' ' ' ' ' ' ',     '01' '05' 'NTGEW' 'I_EKPO' 'R'
     'Net Weight'(007) ' ' ' ' 'GEWE' 'I_EKPO'.ENDFORM.                    " sub_field_catalog*&---------------------------------------------------------------------*
*&     Form  sub_fill_alv_field_catalog
*&---------------------------------------------------------------------*
*&     For building Field Catalog
*&---------------------------------------------------------------------*
*&     p_rowpos   Row position
*&     p_colpos   Col position
*&     p_fldnam   Fldname
*&     p_tabnam   Tabname
*&     p_justif   Justification
*&     p_seltext  Seltext
*&     p_out      no out
*&     p_tech     Technical field
*&     p_qfield   Quantity field
*&     p_qtab     Quantity table
*&---------------------------------------------------------------------*
FORM sub_fill_alv_field_catalog  USING  p_rowpos    TYPE sycurow
                                        p_colpos    TYPE sycucol
                                        p_fldnam    TYPE fieldname
                                        p_tabnam    TYPE tabname
                                        p_justif    TYPE char1
                                        p_seltext   TYPE dd03p-scrtext_l
                                        p_out       TYPE char1
                                        p_tech      TYPE char1
                                        p_qfield    TYPE slis_fieldname
                                        p_qtab      TYPE slis_tabname.* Local declaration for field catalog
  DATA: wa_lfl_fcat    TYPE  slis_fieldcat_alv.  wa_lfl_fcat-row_pos        =  p_rowpos.     "Row
  wa_lfl_fcat-col_pos        =  p_colpos.     "Column
  wa_lfl_fcat-fieldname      =  p_fldnam.     "Field Name
  wa_lfl_fcat-tabname        =  p_tabnam.     "Internal Table Name
  wa_lfl_fcat-just           =  p_justif.     "Screen Justified
  wa_lfl_fcat-seltext_l      =  p_seltext.    "Field Text
  wa_lfl_fcat-no_out         =  p_out.        "No output
  wa_lfl_fcat-tech           =  p_tech.       "Technical field
  wa_lfl_fcat-qfieldname     =  p_qfield.     "Quantity unit
  wa_lfl_fcat-qtabname       =  p_qtab .      "Quantity table  IF p_fldnam = 'NTGEW'.
    wa_lfl_fcat-do_sum  = 'X'.
  ENDIF.
  APPEND wa_lfl_fcat TO i_fieldcat.
  CLEAR wa_lfl_fcat.
ENDFORM.                    " sub_fill_alv_field_catalog*&---------------------------------------------------------------------*
*&      Form  sub_populate_layout
*&---------------------------------------------------------------------*
*       Populate ALV layout
*----------------------------------------------------------------------*
*       No Parameter
*----------------------------------------------------------------------*
FORM sub_populate_layout .  CLEAR wa_layout.
  wa_layout-colwidth_optimize = 'X'." Optimization of Col widthENDFORM.                    " sub_populate_layout*&---------------------------------------------------------------------*
*&      Form  sub_populate_sort
*&---------------------------------------------------------------------*
*       Populate ALV sort table
*----------------------------------------------------------------------*
*       No Parameter
*----------------------------------------------------------------------*
FORM sub_populate_sort .* Sort on material
  wa_sort-spos = '01' .
  wa_sort-fieldname = 'MATNR'.
  wa_sort-tabname = 'I_EKPO'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO i_sort .
  CLEAR wa_sort.* Sort on plant
  wa_sort-spos = '02'.
  wa_sort-fieldname = 'WERKS'.
  wa_sort-tabname = 'I_EKPO'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO i_sort .
  CLEAR wa_sort.
ENDFORM.                    " sub_populate_sort*&---------------------------------------------------------------------*
*&      Form  sub_get_event
*&---------------------------------------------------------------------*
*       Get ALV grid event and pass the form name to subtotal_text
*       event
*----------------------------------------------------------------------*
*       No Parameter
*----------------------------------------------------------------------*
FORM sub_get_event .
  CONSTANTS : c_formname_subtotal_text TYPE slis_formname VALUE
'SUBTOTAL_TEXT'.  DATA: l_s_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 4
    IMPORTING
      et_events       = i_event
    EXCEPTIONS
      list_type_wrong = 0
      OTHERS          = 0.* Subtotal
  READ TABLE i_event  INTO l_s_event
                    WITH KEY name = slis_ev_subtotal_text.
  IF sy-subrc = 0.
    MOVE c_formname_subtotal_text TO l_s_event-form.
    MODIFY i_event FROM l_s_event INDEX sy-tabix.
  ENDIF.ENDFORM.                    " sub_get_event*&---------------------------------------------------------------------*
*&      Form  sub_alv_report_display
*&---------------------------------------------------------------------*
*       For ALV Report Display
*----------------------------------------------------------------------*
*       No Parameter
*----------------------------------------------------------------------*
FORM sub_alv_report_display .
  DATA: l_repid TYPE syrepid .
  l_repid = sy-repid .* This function module for displaying the ALV report
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = l_repid
      i_callback_top_of_page   = 'SUB_ALV_TOP_OF_PAGE'
      is_layout                = wa_layout
      it_fieldcat              = i_fieldcat
      it_sort = i_sort
      it_events                = i_event
      i_default                = 'X'
      i_save                   = 'A'
    TABLES
      t_outtab                 = i_ekpo
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
*    MESSAGE i000 WITH 'Error in ALV report display'(055).
  ENDIF.ENDFORM.                    " sub_alv_report_display*&---------------------------------------------------------------------*
*       FORM sub_alv_top_of_page
*---------------------------------------------------------------------*
*       Call ALV top of page
*---------------------------------------------------------------------*
*       No parameter
*---------------------------------------------------------------------*FORM sub_alv_top_of_page.                                   "#EC CALLED* To write header for the ALV
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_alv_top_of_page.
ENDFORM.                    "alv_top_of_page*&---------------------------------------------------------------------*
*&      Form  subtotal_text
*&---------------------------------------------------------------------*
*       Build subtotal text
*----------------------------------------------------------------------*
*       P_total  Total
*       p_subtot_text Subtotal text info
*----------------------------------------------------------------------*
FORM subtotal_text CHANGING
               p_total TYPE any
               p_subtot_text TYPE slis_subtot_text.
* Material level sub total
  IF p_subtot_text-criteria = 'MATNR'.
    p_subtot_text-display_text_for_subtotal
    = 'Material level total'(009).
  ENDIF.* Plant level sub total
  IF p_subtot_text-criteria = 'WERKS'.
    p_subtot_text-display_text_for_subtotal = 'Plant level total'(010).
  ENDIF.
ENDFORM.                    "subtotal_text
本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Fri, 02 May 2008 16:38:15 +0800 http://sap.group.javaeye.com/group/blog/188861 http://sap.group.javaeye.com/group/blog/188861 [收藏]业务范围 blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/186795  发表时间: 2008年04月25日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

http://www.kaola.cn/u/youlan/321248.html

http://www.sapfans.com.cn/sapbbs/dispbbs.asp?boardid=93&id=7798&star=1
本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Fri, 25 Apr 2008 15:10:19 +0800 http://sap.group.javaeye.com/group/blog/186795 http://sap.group.javaeye.com/group/blog/186795 [收藏]What is WBS element? blueoxygen 作者: blueoxygen  链接：http://sap.group.javaeye.com/group/blog/178124  发表时间: 2008年03月31日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

1) What is WBS element?
2) What is the Tcode to get to that screen?
3) What is the need and pupose of WBS element?
4) Do we happen to work on Functional module during our implementaion project?
5) In what scenario/situation we will be working on WBS?

WBS is nothing but Work Breakdown Structure. It is mainly used in Project System (PS) module. Tcode : CJ20N

For any project defined we must have atleast one WBS. Within this WBS we can have networks. Networks are nothing but the series of activities. Material are used to perform the activities.

To explain in detail just consider one example:

Govt of india wants to have Roads to be build through out the india. So Project can be defined in sap as "Connectivity".

WBS can be roads within different states like Roads for Gujarat, Karnataka etc.. i.e. WBS Gujarat, WBS Karnataka etc.

We can define different networks for these WBS  like Road Between Ahmedabad to Surat or Between Bangalore to Belgham.

For this network we can have many activities like Land selection, Land Preparation, Road Building, Final finishing etc etc.
 

Hemal's example was a good example. Project Systems comes into play only when the industry's business is based on projects like... Construction companies, Engineer to Order scenarios. You may not see anyone using PS module for retail business. As Hemal explained in that example, you have a main project which is broken down into WBS elements. You can use the TC CJ20N to create the project and the WBS elements. Each WBS may have mutiple Networks associated and each Network may have multiple Network Activities as explained in the example by Hemal.
   
On the Sales Order, if your client is implementing PS module, you may have to attach the Sales Order to the WBS element it belongs to. WBS element is nothing but a bucket where all the activities belonging to that particular part of the project are captured. In the example, WBS Gujurat will tell you how many Sales Orders were created for the Gujurat sector, howmuch was spent on raw materials, what's the currect stock ([roject stock) available. How many Production Orders have been confirmed and howmany of them are getting confrmed in the future. How many invoices have been generated or how much revenue has been generated for that particular sector. How many deliveries have been made, what deliverables are still not accomplished. 
   
So as you can see, PS is the center stage for all the modules that are being implemented like FI/CO, SD, MM, PP in this example. You can have cost centers and work centers defined. You can also have profit centers assigned at the plant level and get reports on varius selection criteria. 
   
In a complete cycle of PS, like in reality, you initiate a project, you confirm/release the WBS/activities as per requirement, you execute the project and you close it. 
   
One cannot initiate an activity unless it has been released by the project manager. Everything is accountable here and every dime is counted and at the end you know howmuch did you spend or make on each sector (WBS). Dont get confused with the term sector here... I am using it just for the explaination purposes.
   
In one typical example, the company I was working with until not too long ago, had Deliveries from the Project (TC: CNS0). We never used VL01N. We used CNS0 to create a delivery and then used VL02N for confirming the picking quantity for the already created delivery document.
   
I hope this should help you at least a bit. I'm not a PS consultant so I may not know a whole lot but trying going to CJ20N and you will see a lot yourself. 
   
PS concultants are one of the highest paid consultants. Their supply is less and so is the demand. They are expected to understand real world business processes very well and they are generally the center stage of a project.

Tips by : Hemal, Kunal
本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Mon, 31 Mar 2008 17:23:47 +0800 http://sap.group.javaeye.com/group/blog/178124 http://sap.group.javaeye.com/group/blog/178124 ABAP Function module文档生成工具 keynesc 作者: keynesc  链接：http://sap.group.javaeye.com/group/blog/174833  发表时间: 2008年03月22日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

用来生成function module的HTML格式的文档 
*&---------------------------------------------------------------------*
*& Report  ZABAPDOC
*&
*&---------------------------------------------------------------------*
*& This report generate HTML files containing the API information about
*& the selected function modules.
*& SDN https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/u/251708914
*& This program has been developed via the ABAP Eclipse Editor
*&---------------------------------------------------------------------*

REPORT  zabapdoc MESSAGE-ID eu.

TYPE-POOLS:
  sscr.

TABLES:
  tadir,
  tlibt,
  trdir.

CLASS:
  lcl_source_scan DEFINITION DEFERRED.

DATA:
  lo_sscan   TYPE REF TO lcl_source_scan,
  lv_appl    TYPE taplt-appl,
  tofolder_string TYPE string.

SELECTION-SCREEN: BEGIN OF BLOCK a11 WITH FRAME TITLE a11.
SELECT-OPTIONS:    devclass FOR tadir-devclass,
                   funcgrp  FOR tlibt-area.
SELECTION-SCREEN: END OF BLOCK a11,
                  BEGIN OF BLOCK a20 WITH FRAME TITLE a20.
PARAMETERS:       funcmod     TYPE xfeld AS CHECKBOX DEFAULT 'X' ,
                  tofolder    TYPE char255 DEFAULT 'C:\TEMP'.
SELECTION-SCREEN: END OF BLOCK a20.

*----------------------------------------------------------------------*
*       CLASS lcx_scan_exceptions DEFINITION
*----------------------------------------------------------------------*
*       Exceptions for source scanning
*----------------------------------------------------------------------*
CLASS lcx_scan_exceptions DEFINITION INHERITING FROM cx_static_check.
ENDCLASS.                    "lcx_scan_exceptions DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_source_scan DEFINITION
*----------------------------------------------------------------------*
*       ABAP source scanner
*----------------------------------------------------------------------*
CLASS lcl_source_scan DEFINITION.
  PUBLIC SECTION.
    METHODS:
      constructor,

      f4_class
        CHANGING
          cv_class_name TYPE clike,

      f4_function_group
        IMPORTING
          iv_group_name TYPE clike,

      f4_repname
        CHANGING
          cv_repname TYPE clike,

      start.

  PROTECTED SECTION.
    TYPES:
      BEGIN OF ty_ls_objname,
        report TYPE sy-repid,
        dynnr  TYPE sy-dynnr,
      END OF ty_ls_objname.

    TYPES:
      BEGIN OF ts_comment_tab,
        report TYPE sy-repid,
        source TYPE abaptxt255,
      END OF ts_comment_tab.

    DATA:
      gv_hit_count  TYPE i,
      gv_sstring    TYPE string,
      gv_dynp_found TYPE xfeld,
      gv_vers_found TYPE xfeld,
      gt_object     TYPE STANDARD TABLE OF tadir-obj_name,
      gt_vrsd       TYPE HASHED TABLE OF vrsd
                      WITH UNIQUE KEY objname versno,
      gt_results    TYPE TABLE OF ts_comment_tab
                      .


    CONSTANTS:
      gc_x TYPE xfeld VALUE 'X'.

    METHODS:

      display,

      get_version_numbers
        IMPORTING
          iv_report TYPE clike
          iv_dynpro TYPE clike OPTIONAL
        RETURNING value(rt_vrsd) LIKE gt_vrsd,

      get_source_names,

      get_source_by_version
        IMPORTING
          iv_report TYPE clike
          iv_dynpro TYPE clike OPTIONAL
          iv_versno TYPE vrsd-versno
        RETURNING value(rt_abap) TYPE abaptxt255_tab,

      get_report_names,
      get_function_names,
      get_includes,

      get_method_includes
        IMPORTING
          iv_class_name TYPE clike,

      search_abap_source   RAISING lcx_scan_exceptions,

      search_source
        IMPORTING
          it_source TYPE abaptxt255_tab
          iv_report TYPE clike
          iv_dynpro TYPE clike OPTIONAL
        RAISING lcx_scan_exceptions,

      generateindex,

      generateinfopage
          IMPORTING
              iv_fm TYPE rs38l_fnam
              iv_report TYPE progname OPTIONAL,

      get_parametertype
          IMPORTING
              is_eparameter TYPE rsexp OPTIONAL
              is_iparameter TYPE rsimp OPTIONAL
              is_cparameter TYPE rscha OPTIONAL
              is_tparameter TYPE rstbl OPTIONAL
          RETURNING value(rl_type) TYPE string,

      get_parametertypename
          IMPORTING
              is_eparameter TYPE rsexp OPTIONAL
              is_iparameter TYPE rsimp OPTIONAL
              is_cparameter TYPE rscha OPTIONAL
              is_tparameter TYPE rstbl OPTIONAL
          RETURNING value(rl_type) TYPE string.

ENDCLASS.                    "lcl_source_scan DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_source_scan IMPLEMENTATION
*----------------------------------------------------------------------*
*       ABAP source scanner
*----------------------------------------------------------------------*
CLASS lcl_source_scan IMPLEMENTATION.

  METHOD constructor.
    DATA:
      ls_restrict    TYPE sscr_restrict,
      ls_opt_list    TYPE sscr_opt_list,
      ls_association TYPE sscr_ass.

    ls_opt_list-name       = 'RESTRICT'.
    ls_opt_list-options-cp = gc_x.
    ls_opt_list-options-eq = gc_x.

    APPEND ls_opt_list TO ls_restrict-opt_list_tab.

    ls_association-kind    = 'S'.
    ls_association-name    = 'SSTRING'.
    ls_association-sg_main = 'I'.
    ls_association-op_main = ls_association-op_addy = 'RESTRICT'.

    APPEND ls_association TO ls_restrict-ass_tab.

    CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
      EXPORTING
        program                = sy-repid
        restriction            = ls_restrict
      EXCEPTIONS
        too_late               = 1
        repeated               = 2
        selopt_without_options = 3
        selopt_without_signs   = 4
        invalid_sign           = 5
        empty_option_list      = 6
        invalid_kind           = 7
        repeated_kind_a        = 8
        OTHERS                 = 9.

  ENDMETHOD.                    "constructor

  METHOD f4_repname.
    CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
      EXPORTING
        object_type          = 'PROG'
        object_name          = cv_repname
        suppress_selection   = 'X'
      IMPORTING
        object_name_selected = cv_repname
      EXCEPTIONS
        cancel               = 1.
  ENDMETHOD.                                                "f4_repname

  METHOD f4_function_group.
    DATA:
      lv_fname TYPE dynfnam.

    lv_fname = iv_group_name.

    CALL FUNCTION 'RS_HELP_HANDLING'
      EXPORTING
        dynpfield                 = lv_fname
        dynpname                  = sy-dynnr
        object                    = 'FG  '
        progname                  = sy-repid
        suppress_selection_screen = 'X'.

  ENDMETHOD.                    "f4_function_group

  METHOD f4_class.
    CALL FUNCTION 'F4_DD_ALLTYPES'
      EXPORTING
        object               = cv_class_name
        suppress_selection   = gc_x
        display_only         = space
        only_types_for_clifs = gc_x
      IMPORTING
        RESULT               = cv_class_name.
  ENDMETHOD.                                                "f4_class

  METHOD display.
    DATA lv_filename TYPE string.

    WRITE: / 'API information files have been generated.'.
    CONCATENATE tofolder '\abapdoc_index.html' INTO lv_filename.
    WRITE: / 'Open',  lv_filename, 'in your browser to view the ABAPdoc.'.

  ENDMETHOD.                    "display


  METHOD get_source_by_version.
    DATA:
      lv_object_name TYPE versobjnam,
      ls_object_name TYPE ty_ls_objname,
      lt_trdir       TYPE STANDARD TABLE OF trdir,
      lt_d022s       TYPE STANDARD TABLE OF d022s.

    IF iv_dynpro IS INITIAL.
      lv_object_name = iv_report.

      CALL FUNCTION 'SVRS_GET_REPS_FROM_OBJECT'
        EXPORTING
          object_name                  = lv_object_name
          object_type                  = 'REPS'
          versno                       = iv_versno
          iv_no_release_transformation = 'X'
        TABLES
          repos_tab                    = rt_abap
          trdir_tab                    = lt_trdir
        EXCEPTIONS
          no_version                   = 1
          OTHERS                       = 2.
    ELSE.
      ls_object_name-report = iv_report.
      ls_object_name-dynnr  = iv_dynpro.

      lv_object_name = ls_object_name.

      CALL FUNCTION 'SVRS_GET_VERSION_DYNP_40'
        EXPORTING
          object_name = lv_object_name
          versno      = iv_versno
        TABLES
          d022s_tab   = lt_d022s
        EXCEPTIONS
          no_version  = 01
          OTHERS      = 02.

      CHECK sy-subrc IS INITIAL AND lt_d022s IS NOT INITIAL.

      APPEND LINES OF lt_d022s TO rt_abap.

    ENDIF.
  ENDMETHOD.                    "get_source_by_version

  METHOD get_version_numbers.
    DATA:
      ls_objname TYPE ty_ls_objname,
      lv_objtype TYPE vrsd-objtype,
      lv_objname TYPE versobjnam,
      lv_versno  TYPE versno,
      lt_vrsn    TYPE STANDARD TABLE OF vrsn,
      lt_vrsd    TYPE STANDARD TABLE OF vrsd.

    ls_objname-report = iv_report.
    ls_objname-dynnr  = iv_dynpro.
    lv_objname        = ls_objname.

    IF iv_dynpro IS INITIAL.
      lv_objtype = 'REPS'.
    ELSE.
      lv_objtype = 'DYNP'.
    ENDIF.

    CALL FUNCTION 'SVRS_GET_VERSION_DIRECTORY_46'
      EXPORTING
        objname                = lv_objname
        objtype                = lv_objtype
      TABLES
        lversno_list           = lt_vrsn
        version_list           = lt_vrsd
      EXCEPTIONS
        no_entry               = 1
        communication_failure_ = 2
        system_failure         = 3
        OTHERS                 = 4.

    CHECK sy-subrc IS INITIAL .

    SORT lt_vrsd BY objname versno.
    DELETE ADJACENT DUPLICATES FROM lt_vrsd COMPARING objname versno.

    rt_vrsd = lt_vrsd.

    DELETE TABLE rt_vrsd WITH TABLE KEY objname = lv_objname
                                        versno  = lv_versno.

    SORT rt_vrsd.

    CHECK iv_dynpro IS NOT INITIAL.
*   For dynpros we need to save the version information for the version display
*   this is not required for source code
    INSERT LINES OF rt_vrsd INTO TABLE gt_vrsd.

  ENDMETHOD.                    "get_version_Numbers

  METHOD search_abap_source.
    DATA:
      lt_abap TYPE abaptxt255_tab.

    FIELD-SYMBOLS:
     <lv_obj> TYPE tadir-obj_name.

    LOOP AT gt_object ASSIGNING <lv_obj>.
      READ REPORT <lv_obj> INTO lt_abap.
      IF sy-subrc IS NOT INITIAL.
        CONTINUE.
      ENDIF.

      search_source( it_source = lt_abap
                     iv_report = <lv_obj> ).

    ENDLOOP.

    "FREE gt_object.

  ENDMETHOD.                    "search_abap_source

  METHOD search_source.
    DATA:
      lt_source       TYPE abaptxt255_tab,
      lt_source_vers  TYPE abaptxt255_tab,
      lt_vrsd         TYPE STANDARD TABLE OF vrsd,
      ls_vrsd         LIKE LINE OF lt_vrsd,
      lv_number       TYPE i,
      lv_index        TYPE i.

    lt_source = it_source.

    lv_number = 1.

    DO lv_number TIMES.

      IF sy-index = 1.
        CLEAR ls_vrsd.
      ELSE.
        lv_index = sy-index - 1.
        READ TABLE lt_vrsd INDEX lv_index INTO ls_vrsd.
        CHECK sy-subrc IS INITIAL.

        lt_source_vers = get_source_by_version( iv_report = iv_report
                                                iv_dynpro = iv_dynpro
                                                iv_versno = ls_vrsd-versno ).

        IF lt_source_vers IS NOT INITIAL.
          lt_source = lt_source_vers.
        ELSE.
          CONTINUE.
        ENDIF.
      ENDIF.

      DATA: tokens       TYPE TABLE OF stokesx,
            token        TYPE stokesx,
            tokenource   TYPE stokesx,
            statement    TYPE sstmnt,
            statements   TYPE TABLE OF sstmnt,
            selectsource TYPE string,
            mat_res      TYPE ts_comment_tab,
            lv_line      TYPE abaptxt255.

      LOOP AT lt_source INTO lv_line.
        IF ( sy-tabix = 1 AND lv_line(8) = 'FUNCTION' ).
          CONTINUE.
        ELSEIF ( sy-tabix > 1 and lv_line(1) = '*' ).
              mat_res-source = lv_line.
              mat_res-report = iv_report.
              INSERT mat_res INTO TABLE gt_results.
        ELSE.
          RETURN.
        ENDIF.
      ENDLOOP.
    ENDDO.
  ENDMETHOD.                    "search_source

  METHOD get_includes.
    DATA:
     lt_inc     TYPE STANDARD TABLE OF tadir-obj_name,
     lt_inc_tmp LIKE lt_inc,
     lv_program TYPE sy-repid,
     lv_old     TYPE xfeld.

    FIELD-SYMBOLS:
      <lv_obj> TYPE tadir-obj_name.

    LOOP AT gt_object ASSIGNING <lv_obj>
      WHERE table_line(2) <> 'CL'.    "for classes we already have the includes

      REFRESH lt_inc_tmp.

      IF lv_old IS NOT INITIAL.
        CALL FUNCTION 'GET_INCLUDES'
          EXPORTING
            progname = <lv_obj>
          TABLES
            incltab  = lt_inc_tmp.

      ELSE.
        lv_program = <lv_obj>.

        CALL FUNCTION 'RS_GET_ALL_INCLUDES'
          EXPORTING
            program      = lv_program
          TABLES
            includetab   = lt_inc_tmp
          EXCEPTIONS
            not_existent = 1
            no_program   = 2
            OTHERS       = 3.

        CHECK sy-subrc IS INITIAL.
      ENDIF.

      APPEND LINES OF lt_inc_tmp TO lt_inc.
    ENDLOOP.

    SORT lt_inc.
    DELETE ADJACENT DUPLICATES FROM lt_inc.

    APPEND LINES OF lt_inc TO gt_object.

  ENDMETHOD.                    "get_includes

  METHOD get_method_includes.
    DATA: lo_name     TYPE REF TO cl_oo_include_naming,
          lo_name_tmp TYPE REF TO if_oo_clif_incl_naming,
          lt_method   TYPE seop_methods_w_include,
          lv_obj      TYPE tadir-obj_name.

    FIELD-SYMBOLS:
     <ls_method> LIKE LINE OF lt_method.

    CALL METHOD cl_oo_include_naming=>get_instance_by_name
      EXPORTING
        name           = iv_class_name
      RECEIVING
        cifref         = lo_name_tmp
      EXCEPTIONS
        no_objecttype  = 1
        internal_error = 2
        OTHERS         = 3.

    CHECK sy-subrc IS INITIAL.

    lo_name ?= lo_name_tmp.

    CALL METHOD lo_name->if_oo_class_incl_naming~get_all_method_includes
      RECEIVING
        methods_w_include           = lt_method
      EXCEPTIONS
        internal_class_not_existing = 1
        OTHERS                      = 2.

    LOOP AT lt_method ASSIGNING <ls_method>.
      lv_obj = <ls_method>-incname.
      APPEND lv_obj TO gt_object.
    ENDLOOP.
  ENDMETHOD.                    "get_method_includes

  METHOD get_report_names.
    SELECT obj_name INTO TABLE gt_object
      FROM tadir
      WHERE pgmid  = 'R3TR'
      AND   object = 'PROG'
      AND   devclass IN devclass.                     "#EC CI_SGLSELECT
  ENDMETHOD.                    "get_report_names

  METHOD get_function_names.
    DATA:
      lt_obj     TYPE STANDARD TABLE OF tadir-obj_name,
      lv_obj     TYPE tadir-obj_name,
      lv_fgroup  TYPE rs38l-area,
      lv_program TYPE progname.

    FIELD-SYMBOLS:
      <lv_obj> LIKE LINE OF lt_obj.

    SELECT obj_name INTO TABLE lt_obj
      FROM tadir
      WHERE pgmid  = 'R3TR'
      AND   object = 'FUGR'
      AND   devclass IN devclass
      AND   obj_name IN funcgrp.                      "#EC CI_SGLSELECT

    LOOP AT lt_obj ASSIGNING <lv_obj>.
      lv_fgroup = <lv_obj>.
      CLEAR lv_program.

      CALL FUNCTION 'FUNCTION_INCLUDE_CONCATENATE'
        CHANGING
          program                  = lv_program
          group                    = lv_fgroup
        EXCEPTIONS
          not_enough_input         = 1
          no_function_pool         = 2
          delimiter_wrong_position = 3
          OTHERS                   = 4.

      CHECK sy-subrc IS INITIAL AND lv_program IS NOT INITIAL.

      lv_obj = lv_program.
      APPEND lv_obj TO gt_object.
    ENDLOOP.
  ENDMETHOD.                    "get_function_names

  METHOD get_source_names.

    IF devclass[] IS NOT INITIAL.
      "get_report_names( ).
      get_function_names( ).
    ENDIF.

    IF funcgrp[] IS NOT INITIAL.
      get_function_names( ).
    ENDIF.

  ENDMETHOD.                    "get_source_names

  METHOD start.

    get_source_names( ).
    get_includes( ).

    TRY.
        search_abap_source( ).
      CATCH lcx_scan_exceptions.
        RETURN.
    ENDTRY.

    IF funcmod = 'X'. " Generate HTML files for function modules API
      generateindex( ).
    ENDIF.

    display( ).
  ENDMETHOD.                    "start
  METHOD generateindex.
    DATA: lv_string   TYPE string,
          lt_string   TYPE TABLE OF string,
          lv_funcname TYPE  rs38l_fnam,
          lv_include  TYPE  progname,
          lv_filename TYPE string.

*   Generate HTML index file.
    APPEND '<HTML><HEAD><TITLE>ABAPdoc</TITLE></HEAD>' TO lt_string.
    APPEND '<FRAMESET cols="20%,80%">' TO lt_string.
    APPEND '<FRAME src="abapdoc_all-frame.html" name="packageFrame">' TO lt_string.
    APPEND '<FRAME src="abapdoc_main.html" name="classFrame">' TO lt_string.
    APPEND '</FRAMESET></HTML>' TO lt_string.

    CONCATENATE tofolder '\abapdoc_index.html' INTO lv_filename.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = lv_filename
        filetype = 'ASC'
      TABLES
        data_tab = lt_string.
    IF sy-subrc <> 0.
    ENDIF.

    CLEAR lt_string.

*   Generate HTML index file.
    APPEND '<HTML><HEAD><TITLE>ABAPdoc</TITLE></HEAD><BODY><br/><CENTER><B>' TO lt_string.
    APPEND 'ABAPdoc has been created via the <a href="http://www.ceon.nl/abapeclipse">ABAP Eclipse Editor</a>' TO lt_string.
    APPEND '</B></CENTER></BODY></HTML>' TO lt_string.

    CONCATENATE tofolder '\abapdoc_main.html' INTO lv_filename.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = lv_filename
        filetype = 'ASC'
      TABLES
        data_tab = lt_string.
    IF sy-subrc <> 0.
    ENDIF.

    CLEAR lt_string.

    APPEND '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN""http://www.w3.org/TR/REC-html40/frameset.dtd"><HTML><HEAD>' TO lt_string.

    IF NOT funcgrp IS INITIAL.
      APPEND '<TITLE>All Function Modules of ' TO lt_string.
      APPEND funcgrp TO lt_string.
      APPEND '</TITLE>' TO lt_string.
    ENDIF.
    "append '<TITLE>All Function Modules of ' to lt_string.

    APPEND '<STYLE>body.allclasses { background-color: #4C4C4C; font-family: arial, sans-serif; font-size: 9pt; letter-spacing: 1px; font-weight: 500; color: white; }' TO lt_string.
    APPEND 'a { font-family: arial, sans-serif; font-size: 9pt; letter-spacing: 1px; font-weight: 500; color: white; }</STYLE>' TO lt_string.
    APPEND '</HEAD><BODY CLASS="allclasses">' TO lt_string.
    APPEND '<FONT CLASS="FrameHeadingFont"><B>' TO lt_string.
    IF NOT funcgrp IS INITIAL.
      APPEND 'All Function Modules of ' TO lt_string.
      APPEND funcgrp+3 TO lt_string.
    ENDIF.
    IF NOT devclass IS INITIAL.
      APPEND 'All Function Modules of package ' TO lt_string.
      APPEND devclass+3 TO lt_string.
    ENDIF.

    APPEND '</B></FONT><BR/><BR/><BR/>' TO lt_string.

    FIELD-SYMBOLS:
     <lv_obj> TYPE tadir-obj_name.

    LOOP AT gt_object ASSIGNING <lv_obj>.
      lv_include = <lv_obj>.
      CLEAR lv_funcname.
      CALL FUNCTION 'FUNCTION_INCLUDE_INFO'
        CHANGING
          funcname            = lv_funcname
          include             = lv_include
        EXCEPTIONS
          function_not_exists = 1
          include_not_exists  = 2
          group_not_exists    = 3
          no_selections       = 4
          no_function_include = 5
          OTHERS              = 6.
      IF sy-subrc = 0 AND lv_funcname IS NOT INITIAL.
        CONCATENATE '<A HREF="abapdoc_' lv_funcname '.html" TARGET="classFrame">' lv_funcname '</A><br/>' INTO lv_string.
        APPEND lv_string TO lt_string.
        generateinfopage( iv_fm = lv_funcname iv_report = lv_include ).
      ENDIF.

    ENDLOOP.

    APPEND '</BODY></HTML>' TO lt_string.

    CONCATENATE tofolder '\abapdoc_all-frame.html' INTO lv_filename.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = lv_filename
        filetype = 'ASC'
      TABLES
        data_tab = lt_string.
    IF sy-subrc <> 0.
    ENDIF.


  ENDMETHOD.                    "generateindex
  METHOD generateinfopage.
    DATA: filename            TYPE string,
          lv_string           TYPE string,
          lt_string           TYPE TABLE OF string,
          lv_funcname         TYPE  rs38l_fnam,
          lv_include          TYPE  progname,
          lv_remote_call      TYPE rs38l-remote,
          lv_update_task      TYPE rs38l-utask,
          lv_exception_list   TYPE rsexc,
          lv_export_parameter TYPE rsexp,
          lv_import_parameter TYPE rsimp,
          lv_changing_parameter TYPE rscha,
          lv_tables_parameter TYPE rstbl,
          lv_p_docu           TYPE funct,
          lt_exception_list   TYPE TABLE OF rsexc,
          lt_export_parameter TYPE TABLE OF rsexp,
          lt_import_parameter TYPE TABLE OF rsimp,
          lt_changing_parameter TYPE TABLE OF rscha,
          lt_tables_parameter TYPE TABLE OF rstbl,
          lt_p_docu           TYPE TABLE OF funct,
          lv_stext            TYPE rs38l_ftxt.

    lv_funcname = iv_fm.

    CALL FUNCTION 'FUNCTION_IMPORT_DOKU'
      EXPORTING
        funcname                 = lv_funcname
        language                 = sy-langu
     IMPORTING
*       GLOBAL_FLAG              =
        remote_call              = lv_remote_call
        update_task              = lv_update_task
        short_text               = lv_stext
*       FREEDATE                 =
*       EXCEPTION_CLASS          =
      TABLES
        dokumentation            = lt_p_docu
        exception_list           = lt_exception_list
        export_parameter         = lt_export_parameter
        import_parameter         = lt_import_parameter
        changing_parameter       = lt_changing_parameter
        tables_parameter         = lt_tables_parameter
     EXCEPTIONS
       error_message            = 1
       function_not_found       = 2
       invalid_name             = 3
       OTHERS                   = 4
              .

    IF sy-sub