AII - Concept

Hi Guys,
We have a production order business process which includes production order, production order confirmation, Despatch advice, goods Receipt etc interfaces. There are 60 Sourcing units across Europe and each sourcing unit has 4 different applications which communicate with ECC for these interfaces. Currently the data is sent to / sent by the ECC system using MQ and XI. We are planning to use AII and the data will then be picked up by AII and sent to XI and XI will crete the data in IDocs in ECC for inbound interfaces. for outbound interfaces, the data will be sent from ECC to XI and then XI to AII and AII to the target application. I have few questions regarding AII capabilities.
1. Device manager -> what is the role of device manager in non RFID scenario as most of the source applications are not an RFID systems? where would it be placed? would it sit on AII or source application? how would we get the DC?
2. How the data will be picked by AII from the source applications? currently the data file is picked up by MQ. would AII be able to pick up data from any specified folder?
3. what are the connectivity options(e.g. File/SOAP/HTTP/ JDBC etc)? Do we need to install ABAP as well as JAVA component of AII or only ABAP component will do ? What is the significance of JAVA component?
4. How do we monitor AII? Do we have anything like XI-Runtime work bench/SXMB_MONI?
5. how AII will handle any connectivity failure with either Source application or PI instance?
6. The AII content which we need to import in XI, would it cater to all possible supply chain interfaces? Can we customize it?
Thanks,
Vikas

Similar Messages

Connector to SAP AII scanario

My scenario:
Biztalk RFID ->Connector>XI--> SAP AII
We are not considering between Biztalk RFID to Connector.We are bothered about Connector to SAP AII.Now our people say that,They dont want a folder concept where they will drop their XML content into a folder from where XI will pick it up throught File Adapter.
they want it to get picked up by XI directly from Connector.How is that can be done.Does anyone have any Idea or any suggestion.Plz guide me.
how can we achieve....
Message was edited by:
Raghavesh Reddy

Hi Raghvesh,
here is the imp book link for you
http://www.patrick-theobald.de/postnuke/html/modules.php?op=modload&name=News&file=article&sid=12
here is the another book
Oleg Ovanesyan's book on amazon.com
have a look on this
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/92333e6b-0b01-0010-9cbf-fecd62d6c895
http://www.sap-press.com/product.cfm?account=&product=H1936
****PS: Reward points if use ful.****
Regards,
Sumit Gupta

SAP AII Rules and Activities

Hello!
I have configured the Standalone Business Scenario for SAP AII 2.1 but am stuck on an issue :
If the reader reads a pallet at location A,Packs it to stock,then at another location B the pallet is loaded and finally shipped out.For instance if by chance the pallet comes into the proximity of the reader at location A that read it previously our scenario suggests that the pallet EPC should be discarded but on implementation SAPAII read the pallet again and performed the previous set of operations.
Can anybody suggest how to solve the issue.
Thanks
Mir Junaid

Hi Junaid;
   An interesting suggestion, because that is how we do it. Our device controller is was written on OO ABAP on NetWeaver. It does not do what you are suggesting, but it does do something that may point you in the right direction.
   It does store the tags in shared memory, which could help you with filtering. The concept of shared memory is very robust in 6.40, and could solve your problem in conjunction with a new rule.
   We do it slightly differently here. We don't use a reader to pack the device, we "pack" the document when the delivery message comes over from R/3 (on the APL2 output) with a custom rule that has an ABAP front-end to pull the data together and programmatically call the rule processor. That allows us to decisively indicate to the system the relationship between the case and the pallet labels. It also eliminates the problem of needing another reader to do the packing. It kind of side-steps what might be a complete process because it leaves the correct tag application up to a human, but it works.
   Then when the ALB0 message comes over, we print the tags and the document is set up for the load. The tags then pass through the portal on the dock door and the device controller passes the data to AII. The only problem we run into is overlap between two adjacent dock doors, but that is an issue for another thread...
Cheers,
John

How do I integrate an RTLS system to the Auto-ID Infrastructure (AII)

Where would I find documentation and/or code examples that explain how to integrate a Real Time Location System (RTLS) to the Auto-ID Infrastructure (AII)?

Hi Rchard,
The answer to your question will depend on many things. Here are three initial questions you should answer to get you started.
(1) What do you mean by RTLS - I have heard as many defnitions as there are people talking abou the concept. One view (CompTIA) is that it refers to a container tracking solution in a large container yard e.g. intermodal.
(2) Which business processes are you looking at? - AII 4.0 contains business processes (receiving, shipping, returnables) that you may be able to leverage in your solution. However, there may be other aspects of the solution (e.g. handheld RFID interrogator usage) which you may need to tie directly into XI. Another issue to watch for in regard to AII is the tag data standard - you will not want to use EPC-type tag data on a 433 MHz active tag and you may want to tie sensor data e.g. temperature or movement into your tag data. In this case AII may also be a difficult choice.
(3) Which tags you will use e.g. 433 MHz active versus passive LF or other passive tags will also make a huge difference in that they determine the scope of your solution e.g. what is feasible and what is not.
Hope this helps you get started with your question.
Cheers, Chris
([email protected])

Free goods concept in STO

hi all,
i have an issue regarding free goods for STO betn plants.
our concept is to give free goods for ex- 10 out of 100 are free goods.
when i am creating a po with item catagory U, the free goods indicator is become vanice. so i am unable to process this free goods.
so if any settings is thr , then pls let me know.
regards,
susanta

hi
ru selling ur goods to ur plant?
in sto ur not selling the material to ur plant
so the issue of free goods is not there
thats why u cant see any kind of basic cost condition in that
as the material is transfer from one plant to another the inventory changes and so the the price in material master is get updated for the another plznt
refer following docs
with delivery
http://help.sap.com/bp_blv1600/V5600/BBLibrary/HTML/134_EN_IN.htm
without delivery
http://help.sap.com/bp_blv1600/V5600/BBLibrary/HTML/135_EN_IN.htm
hope it clears
regards
kunal
award if helpful

Concept of free –m command in Linux

I wanted to know the concept of free –m command as there are different rows of Mem, -/+ buffers/cache & Swap in the output. As an example, it is showing 195 as free Mem in my server but 13850 in the free section of the -/+ buffers/cache. The output needs in depth knowledge of the different parameters of the command.
I hope, my question is clear.
Please revert with the reply to my query.
Regards

This is my understanding. used and free column in line 2 can be used to find out total used and free memory for applications
[oracle@test ~]$ free
total used free shared buffers cached
Mem: 264122724 253692112 10430612 0 2074864 178696468
-/+ buffers/cache: 72920780 191201944
Swap: 8388600 0 8388600
select 264122724/1024/1024 "Total RAM" FROM DUAL; (264122724 ---from line 1 Mem)
Total RAM
251.887058
select (253692112-(2074864+178696468)) "used for applications" from dual; (used from line 1 - (buffers + cached) from line 1)
used for applications
--------------------- (matches with used from line 2)
72920780
select 10430612+2074864+178696468 "total free for applications" from dual;
total free for applications
191201944 (matches with free from line 2)
Edited by: vlethakula on Jan 17, 2013 7:18 AM

HR-ABAP-Infotypes concept

Hi Masters,
Can you please let me know the perfect reason for infotypes concept in HR-ABAP.
1 Why we are using infotypes and exactly what is purpose?
2.Why we are using LDB's why cannot we extract data directly from database tables?
3.Can you please give me clear explanations about these infotypes.

Hi
Infotype(s) are used in the Personnel Management (PA) module primarily. This is where personnel master data is stored. Data is grouped according to subject matter. The Human Resources component aims to enable the user to process employee data in an effective structure in accordance with business requirements. The data structure of infotypes mirrors a logical set of data records. Infotypes can be identified by their four-digit keys, for example, the Addresses infotype (0006). To facilitate reporting on past employee data, infotypes can be saved for specific periods.
Some people use the term HR ABAP to describe the method of managing the infotype data. Typically HR logical databases are used which offers more secure methods of accessing the infotype data. Once the infotypes are declared, you can use standard macros to access the data. Table TRMAC holds the macro name and the code behind it. This makes developing HR programs much quicker and easy to turn around.
HR uses INFOTYPES instead of tables.
There are different sub modules exist in HR.
For Personal Admn the Infotypes start with PA0000 to PA1999
Time Related Infotypes start with PA2000 to PA2999.
Orgn related Infotypes start with HRP1000 to HRP1999.
All custom developed infotypes stsrat with PA9000 onwards.
In payroll processing we use Clusters like PCL1,2,3 and 4.
Instead of Select query we use PROVIDE and ENDPROVIDE..
You have to assign a Logical Database in the attributes PNP.
Go through the SAp doc for HR programming and start doing.
http://www.sapdevelopment.co.uk/hr/hrhome.htm
See:
http://help.sap.com/saphelp_46c/helpdata/en/4f/d5268a575e11d189270000e8322f96/content.htm
http://help.sap.com/saphelp_47x200/helpdata/en/bb/bdb041575911d189240000e8323d3a/frameset.htm
see this link you would get information about types of infotypes
Logical databases are special ABAP programs that retrieve data and make it available toapplication programs. The most common use of logical databases is still to read data fromdatabase tables by linkin them to executable ABAP programs.
Logical databases contain Open SQL statements that read data from the database.You do not therefore need to use SQL in your own programs. The logical database reads theprogram, stores them in the program if necessary, and then passes them line by line to theapplication program or the function module LDB_PROCESS using an interface work area .
For further info
check link http://help.sap.com/saphelp_nw70/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/frameset.htm
1. A logical database is in fact
a program only.
2. This LDB provides two main things :
a) a pre-defined selection screen
which handles all user inputs and validations
b) pre defined set of data
based upon the user selection.
3. So we dont have to worry about from
which tables to fetch data.
4. Moreover, this LDB Program,
handles all user-authorisations
and is efficient in all respects.
5. tcode is SLDB.
/people/srivijaya.gutala/blog/2007/03/05/why-not-logical-databases
REward fi suefull

Java package concept in ABAP Objects

Hi, just a question on grouping of classes in ABAP Objects.
In Java, you can group classes by "package" to avoid
namespace collision, my question, in ABAP Objects, how
do you group classes to avoid namespace collision?
I know that there is package concept in SAP/ABAP but it
is different concept in Java.
Thanks in advanced for your reply.

Hello One and Lonley,
the package concept in ABAP and Java is quite different. In java the package name is part of the development object in ABAP not. So any class pool name is global unique. In combination with the restriction on 30 chars this leads often to somehow cryptic names.
The only way to escape this somehow is the excessive use of local classes. That mean classes defined within main programs. If you are on 7.00 you may check FuGr SAPLSAUNIT_TREE_CTRL_LISTENER for this technique.
Best Regards
klaus

Com.sap.aii.af.ra.ms.api.DuplicateMessageException - Msg Successful

Hi all,
We have a scenario where JDBC sender adapter polls - DB2 data base.
Picks up the records. Updates the records.Messages are sent out.
Everything is fine. The message is sent to IE and then to the receiver.
But I see a com.sap.aii.af.ra.ms.api.DuplicateMessageException in the audit log.
2008-11-21 00:00:26 Error Putting message into send queue failed, due to: com.sap.aii.af.ra.ms.api.DuplicateMessageException:
Message ID 56149940-20b1-472f-0905-893a906a65cf(OUTBOUND) already exists in database:
com.sap.sql.DuplicateKeyException: DB2 SQL error: SQLCODE: -803, SQLSTATE: 23505, SQLERRMC: #XIR1N5J;000000030F.
2008-11-21 00:00:26 Error Returning to application. Exception: com.sap.aii.af.ra.ms.api.DuplicateMessageException:
Message ID 56149940-20b1-472f-0905-893a906a65cf(OUTBOUND) already exists in database:
com.sap.sql.DuplicateKeyException: DB2 SQL error: SQLCODE: -803, SQLSTATE: 23505, SQLERRMC: #XIR1N5J;000000030F

HI
I think there is some issue with your query. Its either updating the same field or database got some error.
Check notes 962578 & 831162
Thanks
Gaurav

SAP Java Connectivity Builder -NoClassDefFoundError com.sap.aii...Reference

Hi there,
I'm trying to generate Java Proxies for SAPJCO using the SAP Java Connectivity Builder (JCB). I got it from the NetWeaver 6.20 Release. The tool installs and runs properly but after putting in the connection properties and klicking "next", the application hangs. When activating System output, I get the error shown below.
I already tried to put all jar files contained in the C:\JBuilder5\lib\ext directiry into the classpath (but none of them contains the class mentioned).
Which is the right (standalone) tool for generating Java Proxies for a standalone Java application?
If it is JCB, is there a bug on the version I use (NetWeaver Release 6.20)?
Any help would be apreciated.
C:\JBuilder5>java -Dlog.handler.FileLog=FileHandler,log.txt -Dlog.logger.com=ALL,FileLog -cp lib/ext/aii_basis.jar;lib/e
xt/aii_ifr_core.jar;lib/ext/aii_ifr_jbtool.jar;lib/ext/aii_lcraccess.jar;lib/ext/aii_msg_runtime.jar;lib/ext/aii_proxy_g
en.jar;lib/ext/aii_proxy_rt.jar;lib/ext/aii_util.jar;lib/ext/aii_util_log.jar;lib/ext/lcrclient.jar;lib/ext/logging.jar;
lib/ext/SapIdeHelp.jar;lib/ext/SapIdeJBUtil.jar;lib/ext/SapIdeJspInsight.jar;lib/ext/SapIdeTaglibReflection11.jar;lib/ex
t/SapIdeTracing.jar;lib/ext/SapIdeUtil.jar;lib/ext/SAPJ2EEEngineJBuilderPlugin.jar;lib/ext/sapjco.jar;lib/ext/SAPmdi.jar
;lib/ext/servlet.jar;lib/ext/tc_sec_core.jar com.sap.aii.ifr.tool.jbuilder.JBuilderTool
#0 12:35:37 [main] DEBUG com.sap.aii.util.misc.api.AIIProperties: Initial AIIProperties
 com.sap.aii.client = true
#1 12:35:37 [main] FINE com.sap.aii.util.misc.api.AIIProperties: changed Property "com.sap.aii.standalone" from "null" t
o "true"
#2 12:35:37 [main] FINE com.sap.aii.util.misc.api.AIIProperties: changed Property "com.sap.aii.xml.parserFactory" from "
null" to "com.inqmy.lib.jaxp.SAXParserFactoryImpl"
#3 12:35:37 [main] FINE com.sap.aii.util.misc.api.AIIProperties: changed Property "com.sap.aii.xml.transformerFactory" f
rom "null" to "com.inqmy.lib.jaxp.TransformerFactoryImpl"
#4 12:35:46 [AWT-EventQueue-0] DEBUG com.sap.aii.ifr.upload.client.SAPNavigationPane: New file is C:\Documents and Setti
ngs\kalkoo1\Desktop\t.jar
#5 12:36:08 [AWT-EventQueue-0] FINER com.sap.aii.ifr.upload.client.R3LogonScreen: setting for Client : 010
#6 12:36:08 [AWT-EventQueue-0] FINER com.sap.aii.ifr.upload.client.R3LogonScreen: setting for Logon Name : kalkoo1
#7 12:36:08 [AWT-EventQueue-0] FINER com.sap.aii.ifr.upload.client.R3LogonScreen: setting for Password : #########
#8 12:36:08 [AWT-EventQueue-0] FINER com.sap.aii.ifr.upload.client.R3LogonScreen: setting for Language : EN
#9 12:36:08 [AWT-EventQueue-0] FINER com.sap.aii.ifr.upload.client.R3LogonScreen: setting for Host name: bgstsapedai01.s
t.behr.de
#10 12:36:08 [AWT-EventQueue-0] FINER com.sap.aii.ifr.upload.client.R3LogonScreen: setting for System number : 20
#11 12:36:08 [AWT-EventQueue-0] INFO com.sap.aii.ifr.upload.client.R3LogonScreen: trying to establish connection
#12 12:36:08 [AWT-EventQueue-0] FINEST com.sap.aii.ifr.util.IdentityCheck: Looking up identity
#13 12:36:08 [AWT-EventQueue-0] DEBUG com.sap.aii.ifr.util.IdentityCheck: Results of identity check: isIFRServer: false;
isIFRRMIClient: false; isStandaloneIFR: true
#14 12:36:08 [AWT-EventQueue-0] FINEST com.sap.aii.ifr.util.IdentityCheck: Checking IdentityCheck.isIFRServer. Result: f
alse
#15 12:36:08 [AWT-EventQueue-0] INFO com.sap.aii.ifr.upload.sap.SAPConnection: connecting to system 20 on bgstsapedai01.
st.behr.de via JCo
#16 12:36:09 [AWT-EventQueue-0] DEBUG com.sap.aii.ifr.upload.sap.SAPUploadSource: init MDI to System bgstsapedai01.st.be
hr.de (system=20, client=010) (BasisRelease: 620)
#17 12:36:09 [AWT-EventQueue-0] DEBUG com.sap.aii.ifr.upload.UploadBuffer: new UploadBuffer
Exception in thread "AWT-EventQueue-0" java.lang.NoClassDefFoundError: com/sap/aii/ifr/client/editor/Reference
 at java.lang.Class.getDeclaredMethods0(Native Method)
 at java.lang.Class.privateGetDeclaredMethods(Unknown Source)
 at java.lang.Class.getDeclaredMethod(Unknown Source)
 at java.awt.Component.isCoalesceEventsOverriden(Unknown Source)
 at java.awt.Component.access$100(Unknown Source)
 at java.awt.Component$2.run(Unknown Source)
 at java.awt.Component$2.run(Unknown Source)
 at java.security.AccessController.doPrivileged(Native Method)
 at java.awt.Component.checkCoalescing(Unknown Source)
 at java.awt.Component.<init>(Unknown Source)
 at java.awt.Container.<init>(Unknown Source)
 at javax.swing.JComponent.<init>(Unknown Source)
 at javax.swing.JTree.<init>(Unknown Source)
 at javax.swing.JTree.<init>(Unknown Source)
 at com.sap.aii.ifr.navigation.IFRJTree.<init>(IFRJTree.java:84)
 at com.sap.aii.ifr.navigation.IFRTreePane.buildPane(IFRTreePane.java:123)
 at com.sap.aii.ifr.navigation.IFRTreePane.<init>(IFRTreePane.java:33)
 at com.sap.aii.ifr.upload.client.SAPNavigationPane.<init>(SAPNavigationPane.java:43)
 at com.sap.aii.ifr.upload.client.SAPBrowser.setIsConnected(SAPBrowser.java:252)
 at com.sap.aii.ifr.upload.client.SAPBrowser$ConnectAction.actionPerformed(SAPBrowser.java:594)
 at com.sap.aii.ifr.upload.client.SAPBrowser$NextAction.actionPerformed(SAPBrowser.java:536)
 at javax.swing.AbstractButton.fireActionPerformed(Unknown Source)
 at javax.swing.AbstractButton$Handler.actionPerformed(Unknown Source)
 at javax.swing.DefaultButtonModel.fireActionPerformed(Unknown Source)
 at javax.swing.DefaultButtonModel.setPressed(Unknown Source)
 at javax.swing.plaf.basic.BasicButtonListener.mouseReleased(Unknown Source)
 at java.awt.AWTEventMulticaster.mouseReleased(Unknown Source)
 at java.awt.AWTEventMulticaster.mouseReleased(Unknown Source)
 at java.awt.Component.processMouseEvent(Unknown Source)
 at javax.swing.JComponent.processMouseEvent(Unknown Source)
 at java.awt.Component.processEvent(Unknown Source)
 at java.awt.Container.processEvent(Unknown Source)
 at java.awt.Component.dispatchEventImpl(Unknown Source)
 at java.awt.Container.dispatchEventImpl(Unknown Source)
 at java.awt.Component.dispatchEvent(Unknown Source)
 at java.awt.LightweightDispatcher.retargetMouseEvent(Unknown Source)
 at java.awt.LightweightDispatcher.processMouseEvent(Unknown Source)
 at java.awt.LightweightDispatcher.dispatchEvent(Unknown Source)
 at java.awt.Container.dispatchEventImpl(Unknown Source)
 at java.awt.Window.dispatchEventImpl(Unknown Source)
 at java.awt.Component.dispatchEvent(Unknown Source)
 at java.awt.EventQueue.dispatchEvent(Unknown Source)
 at java.awt.EventDispatchThread.pumpOneEventForFilters(Unknown Source)
 at java.awt.EventDispatchThread.pumpEventsForFilter(Unknown Source)
 at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)
 at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
 at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
 at java.awt.EventDispatchThread.run(Unknown Source)

Hi,
>> Error :- java.lang.NoClassDefFoundError: com/sap/aii/security/proxy/KeystoreHelp
1) Can you check the class path you have mentioned is correctly
2) Setting of the Java in your system ( Desk top /Lap top ) check the Proxy settings
3) Re start the J2EE engine in the server
Regards
Agasthuri Doss

AII 4.0 with XI 3.0 ? possible ?

hi,
I heard that there's an OSS note that allows
to connect AII 4.0 with XI 3.0
did anyone hear about such a note?
Regards,
michal

Michael, I'm surprised as well. But my understanding is that as long as there are compatible plug in on both side, it can be connected. however, not all template may not be available on XI where AII 4.0 provides, so not all functionality can be used. I think this is a possibility.
For incompatible plug in, usually, XI requires higher version. if it is available, I don't see any reason it shouldn't.
For templates, I hope SAP provides those for XI 3.0 to be imported using SDM.
I did search for such note but didn't succeed.

Call to messaging system failed: com.sap.aii.af.ra.ms.api.DeliveryException

hello
I am running an interface RFC2WS sync and recieve this message in the RFC. the message does not get out of the XI and rich the target (WS).
the XI been upgraded lately, and I think this might be the cuase to the problem, becuase the interface been worked before, and still working in PROD environment as is.
what could be the problem and how can I start investigate it to find the problem?
this is what the SAP recieves
call to messaging system failed: com.sap.aii.af.ra.ms.api.DeliveryException
Thanks
Kfir

Hi Kfir,
just check in RWB, in component monitoring, the status of integration server and adapter engine.......if it is red, then ask your basis guys to remove that error................just check your comm channels, i think your comm channels are in error, if they are just edit them, save and activate them again..........i think then your this issue will be resolved.'
Regards,
Rajeev Gupta

"call to messaging system failed: com.sap.aii.af.ra.ms.api.DeliveryExceptio

Hello XI guru,
I am configuring RFC to File scneario where i am using BAPI as Source. When i run this BAPI in se37 it gives me short dump stating "call to messaging system failed: com.sap.aii.af.ra.ms.api.DeliveryException:
Please help.
Also I want to know is it necessary to write wrapper for BAPI before configuring. This bapi list all orders created in SCM system.
awaiting ur advises and help
Thanx
Anu

Hello guys,
I am sorry but kind of confuse, please be with me.
I have RFC with following structure:
'Z_BAPI_MOSRVAPS_GETLIST2'
importing parameters
 LOGICAL_SYSTEM = T_LOGICAL_SYSTEM
 START_TIME = T_START_TIME
TABLES
 PRODUCT_SELECTION = T_PRODUCT_SELECTION
 LOCATION_SELECTION = T_LOCATION_SELECTION
 LOCTYPE_SELECTION = T_LOCTYPE_SELECTION
 ORDER_HEADS = T_ORDER_HEADS
 OUTPUT_NODES = T_OUTPUT_NODES.
I put values in logical system/start_time/
product_selection/location_selection/loctype_selection
based on these values order_heads and output_nodes is populated. I want value of these to tables to be sent as file.
Data structure for file is as follows
<?xml version="1.0" encoding="UTF-8" ?>
- <ns0:ORDER_MT xmlns:ns0="uri:scm:sql:transaction">
- <ORDER_HEADS>
- <ITEM>
<ORDER_NUMBER />
<ORDER_TYPE />
</ITEM>
</ORDER_HEADS>
- <OUTPUT_NODES>
- <ITEM>
<MASTER_PRODUCT />
<MASTER_PLANT />
</ITEM>
</OUTPUT_NODES>
</ns0:ORDER_MT>
But the payload has value
<?xml version="1.0" encoding="UTF-8" ?>
- <ns0:ORDER_MT xmlns:ns0="uri:scm:sql:transaction">
remaining is not seen in sxmb_moni and payload cannot be read error is given.
file structure is dummy structure, please tell me know if it is right or i need to change.
Thanx
Anu

Help needed Displaying ALV Secondary list without using oops concept

Hi Experts
Help needed Displaying ALV Secondary list without using oops concept.
its urgent
regds
rajasekhar

hi chk this code
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
 G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
 R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*& Form validate
 text
--> p1 text
<-- p2 text
FORM VALIDATE .
SELECT SINGLE VBELN
 FROM VBAP
 INTO V_VBELN
 WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM. " validate
*& Form get_details
 text
--> p1 text
<-- p2 text
FORM GET_DETAILS .
SELECT VBELN
 POSNR
 MATNR
 FROM VBAP
 INTO TABLE IT_VBAP
 WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM. " get_details
*& Form fieldcat
 text
--> p1 text
<-- p2 text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. " fieldcat
*& Form LAYOUT
 text
--> p1 text
<-- p2 text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM. " LAYOUT
*& Form VARIANT
 text
--> p1 text
<-- p2 text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM. " VARIANT
*& Form SAVE
 text
--> p1 text
<-- p2 text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM. " SAVE
*& Form EVENTS
 text
--> p1 text
<-- p2 text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM. " EVENTS
*& Form TOP_OF_PAGE
 text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM. "TOP_OF_PAGE
*& Form ALV_DISPLAY
 text
--> p1 text
<-- p2 text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_PF_STATUS_SET = PF_STATUS
 I_CALLBACK_USER_COMMAND = USER_COMMAND
I_STRUCTURE_NAME =
 IS_LAYOUT = WA_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
 I_SAVE = G_SAVE
 IS_VARIANT = G_VARIANT
 IT_EVENTS = G_EVENTS
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_VBAP
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " ALV_DISPLAY
*& Form SET_PF_STATUS
 text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z50651_PFSTATUS' EXCLUDING EXTAB.
ENDFORM. "SET_PF_STATUS
*& Form SET_USER_COMMAND
 text
FORM SET_USER_COMMAND USING R_UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN 'DC'.
 READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
 IF SY-SUBRC = 0.
 SELECT SINGLE MTART
 FROM MARA
 INTO V_MTART
 WHERE MATNR = IT_VBAP-MATNR.
 IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
 ELSE.
 WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
 WRITE :/ 'MATERIAL TYPE :' , V_MTART.
 ENDIF.
 ENDIF.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 WHEN 'CLOSE'.
 CALL TRANSACTION 'SE38'.
ENDCASE.
REPORT Z_ALV_INTERACTIVE MESSAGE-ID ZMSG_50651
 LINE-SIZE 100
 LINE-COUNT 60
 NO STANDARD PAGE HEADING.
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
 G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
 R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*& Form validate
 text
--> p1 text
<-- p2 text
FORM VALIDATE .
SELECT SINGLE VBELN
 FROM VBAP
 INTO V_VBELN
 WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM. " validate
*& Form get_details
 text
--> p1 text
<-- p2 text
FORM GET_DETAILS .
SELECT VBELN
 POSNR
 MATNR
 FROM VBAP
 INTO TABLE IT_VBAP
 WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM. " get_details
*& Form fieldcat
 text
--> p1 text
<-- p2 text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. " fieldcat
*& Form LAYOUT
 text
--> p1 text
<-- p2 text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM. " LAYOUT
*& Form VARIANT
 text
--> p1 text
<-- p2 text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM. " VARIANT
*& Form SAVE
 text
--> p1 text
<-- p2 text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM. " SAVE
*& Form EVENTS
 text
--> p1 text
<-- p2 text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM. " EVENTS
*& Form TOP_OF_PAGE
 text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM. "TOP_OF_PAGE
*& Form ALV_DISPLAY
 text
--> p1 text
<-- p2 text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_PF_STATUS_SET = PF_STATUS
 I_CALLBACK_USER_COMMAND = USER_COMMAND
I_STRUCTURE_NAME =
 IS_LAYOUT = WA_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
 I_SAVE = G_SAVE
 IS_VARIANT = G_VARIANT
 IT_EVENTS = G_EVENTS
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_VBAP
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " ALV_DISPLAY
*& Form SET_PF_STATUS
 text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD' EXCLUDING EXTAB.
ENDFORM. "SET_PF_STATUS
*& Form SET_USER_COMMAND
 text
FORM SET_USER_COMMAND USING R_UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN 'DC'.
 READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
 IF SY-SUBRC = 0.
 SELECT SINGLE MTART
 FROM MARA
 INTO V_MTART
 WHERE MATNR = IT_VBAP-MATNR.
 IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
 ELSE.
 WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
 WRITE :/ 'MATERIAL TYPE :' , V_MTART.
SUBMIT SLIS_DUMMY WITH P_MATNR EQ IT_VBAP-MATNR
 WITH P_MTART EQ V_MTART.
 ENDIF.
 ENDIF.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 WHEN 'CLOSE'.
 CALL TRANSACTION 'SE38'.
ENDCASE.
plz reward if useful

Need help to modify a report written using Field-Groups Concept. - Part1

Hello ABAP Experts,
I need your help to modify the following report with following requirement as I have least knowledge
about the field-group concept. Thats is the reason, I am pasting the whole code. As it is part of our
production requirement. I really appreciate your help, If its sent modifying the code required.
Modification required in the report.
To allow the sales representatives to see billed shipments and open orders for the current month.
1) Selection Screen Changes:
u2022 Add selection by Sales group and Customer group
u2022 Add sort by: 3. Ship-to / Material
u2022 Add another selection box
[ ] Open Orders and Shipments with the current month
2) For the new selection box, subtotal sales quantity and delivery quantity.
 If delivered, make the sales quantity zero in the subtotal
Current report displays, in Selection Screen
Sales org:
Person Name:
Material:
Plant:
Sales Office:
Ship to Name:
Ship to Number:
Sorts Report by : 1. Person Name 2. Material
Check Boxes : 1. Open Orders 2. Delayed Orders.
report zorder LINE-SIZE 170
 LINE-COUNT 58
 MESSAGE-ID zv
 NO STANDARD PAGE HEADING.
TABLES:
cdhdr, "Change Doc Header
cdpos, "Change Doc Item
kna1, "Customer master
likp, "Delivery Header
lips, "Delivery Item
*lips, "Delivery Item
zvbpa_lfa1, "Vendor Master
makt, "Material Desc
t001w, "Plant
tvkbt, "Sales Office
tvko, "Sales Organizations
vbak, "Sales Header
vbap, "Sales Item
zvvbak, "Sales Hdr - Time calc
vbup, "Item status
vbep, "Sales Schedule Line
vbfa, "Flow documents
vbpa, "Partners
vbrk, "Billing Header
vbrp. "Billing Item
SELECT-OPTIONS:
s_vkorg FOR vbak-vkorg OBLIGATORY,
s_ernam FOR vbak-ernam,
s_matnr FOR vbap-matnr,
s_werks FOR vbap-werks,
s_vkbur FOR vbak-vkbur,
s_name1 FOR kna1-name1,
s_kunnr FOR kna1-kunnr.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(49) text-c20.
PARAMETERS: p_sort TYPE n DEFAULT '1'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-022.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-023.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-024.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-070.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF BLOCK b20 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_open AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 5(48) text-072.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_delay AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 5(48) text-073.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b20.
DATA:
vbeln(11), "Document number
cancel_dt TYPE d, "Cancellation Date
BEGIN OF tabkey, "Tabkey
mandant LIKE sy-mandt,
vbeln LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
END OF tabkey,
name1_sp1 LIKE lfa1-name1, "Sales Carrier Name
name1_sp2 LIKE lfa1-name1, "Delivery Carrier Name
datum-1 TYPE d, "Current Dt Less 1
datum-14 TYPE d, "Current Dt Less 14
datum-90 TYPE d, "Current Dt Less 90
rpt_hdr1(170), "Report Header 1
rpt_hdr2(170), "Report Header 2
rpt_hdr3(170), "Report Header 3
cb_hdr1(170), "Control Break Header 1
line_pos1 TYPE i, "Line Print Position HDR1
line_pos2 TYPE i, "Line Print Position HDR2
line_pos3 TYPE i, "Line Print Position DET2
status, "Order Status
open, "Open Order
delayed VALUE 'D', "Delayed Order
v_comp(30). "Company Text Field
DATA: v_flagh2. " Flag for header 2 & 3
DATA: ls_comwa LIKE vbco6. "Structure for flow information
DATA: t_vbfa_tab TYPE STANDARD TABLE OF vbfa WITH HEADER LINE."Itab
for flow information
data: g_trans_id type vttk-tdlnr. "get transport id from flow
information
data v_sales_org_cpimex type vkorg value '3300'.
FIELD-GROUPS:
header,
order.
INSERT
status "Status
vbak-vkbur "Sales Office
vbak-ernam "Created By
kna1-kunnr "Customer
kna1-name1 "Customer Name
vbap-matnr "Material
vbap-werks "Plant
vbep-lddat "Load Dt
vbap-vbeln "Sales Document
INTO header.
INSERT
kna1-ort01 "City
kna1-regio "Region
likp-traid "Transport ID
lips-vbeln "Delivery Document
lips-ntgew "Net Wt
lips-gewei "Unit of Weight
vbap-kwmeng "Order Qty
vbap-vrkme "Sales Unit
vbak-bstnk "Customer PO
vbak-erdat "Sales Create Dt
vbak-ihrez "PO Release
vbak-vdatu "Req Delivery Dt
vbak-vzeit "Req Delivery Time
vbfa-vbeln "Goods issue doc
vbrk-vbeln "Billing Document
name1_sp1 "Sales Carrier
name1_sp2 "Delivery Carrier
INTO order.
INITIALIZATION.
AT SELECTION-SCREEN.
IF NOT p_sort BETWEEN 1 AND 2.
 MESSAGE e022 WITH p_sort.
ENDIF.
* Report 1 or more of cancelled, delayed or open
IF p_open IS INITIAL AND
 p_delay IS INITIAL.
 MESSAGE e023.
ENDIF.
START-OF-SELECTION.
* Load Company Name
WRITE 'XYZ INC'(000) TO v_comp.
* Calculate Date Range
datum-1 = sy-datum - 1.
datum-14 = sy-datum - 14.
datum-90 = sy-datum - 90.
* Compose Parameter Header
PERFORM parm_hdr.
** Compose Report Header
v_flagh2 = 1.
PERFORM data_selection.
END-OF-SELECTION.
* Determine Sort
CASE p_sort.
 WHEN 1.
 SORT BY status vbak-ernam kna1-name1 kna1-kunnr
 vbep-lddat vbap-vbeln.
 WHEN 2.
 SORT BY status vbap-matnr vbap-werks vbep-lddat
 vbap-vbeln.
ENDCASE.
LOOP.
 AT NEW status.
 CASE status.
 WHEN delayed.
 WRITE 'Delayed Orders'(061) TO rpt_hdr1.
 WHEN OTHERS.
 WRITE 'Open Orders'(062) TO rpt_hdr1.
 ENDCASE.
 NEW-PAGE.
 ENDAT.
 AT NEW vbak-ernam.
 IF p_sort = 1.
 CLEAR cb_hdr1.
 WRITE 'CAA:'(064) TO cb_hdr1.
 WRITE vbak-ernam TO cb_hdr1+5.
 NEW-PAGE.
 ENDIF.
 ENDAT.
 AT NEW vbap-matnr.
 IF p_sort = 2.
 CLEAR makt.
 SELECT SINGLE * FROM makt
 WHERE spras = sy-langu AND
 matnr = vbap-matnr.
 CLEAR cb_hdr1.
 WRITE 'Material:'(042) TO cb_hdr1.
 WRITE vbap-matnr TO cb_hdr1+10.
 WRITE makt-maktx TO cb_hdr1+21.
 NEW-PAGE.
 ENDIF.
 ENDAT.
 AT NEW vbap-werks.
 AT order.
 RESERVE 3 LINES.
 SKIP 1.
 NEW-LINE.
* Indicate new open item
 WRITE vbap-vbeln TO vbeln.
* Find Transport ID
* Fill the structure LS_COMWA
 ls_comwa-mandt = sy-mandt.
 ls_comwa-vbeln = vbap-vbeln.
 CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
 EXPORTING
 comwa = ls_comwa
 TABLES
 vbfa_tab = t_vbfa_tab.
 IF sy-subrc EQ 0.
 READ TABLE t_vbfa_tab WITH KEY vbtyp_n = '8'.
 IF sy-subrc EQ 0.
 SELECT SINGLE tdlnr INTO g_trans_id
 FROM vttk WHERE tknum = t_vbfa_tab-vbeln.
 CONDENSE g_trans_id.
 ENDIF.
 ENDIF.
 IF vbak-erdat >= datum-1.
 vbeln+10 = 'N'.
 ENDIF.
 CASE p_sort.
 WHEN 1.
 WRITE 1 vbak-vkbur.
 WRITE 8 kna1-name1.
 WRITE 44 vbeln.
 WRITE 56 vbap-matnr.
 WRITE:
 75 vbap-kwmeng LEFT-JUSTIFIED,
 vbap-vrkme,
 100 vbak-bstnk,
 vbak-ihrez,
 134 vbak-vdatu,
 vbak-vzeit,
 154 vbep-lddat.
 WRITE 166 vbap-werks.
 NEW-LINE.
 WRITE:
 5 kna1-ort01,
 41 kna1-regio.
 IF name1_sp2 IS INITIAL.
 WRITE:
 45 name1_sp1,
 ELSE.
 WRITE 45 name1_sp2.
 IF name1_sp1 = name1_sp2.
 WRITE ' '.
 ELSE.
 WRITE '*'.
 ENDIF.
 ENDIF.
 IF vbak-vkorg = v_sales_org_cpimex .
 WRITE 81 g_trans_id.
 ELSE.
 WRITE 81 likp-traid.
 ENDIF.
 WRITE:
 102 lips-vbeln,
 115 lips-ntgew NO-ZERO LEFT-JUSTIFIED,
 lips-gewei,
 140 vbfa-vbeln,
 152 vbrk-vbeln.
 WHEN 2.
 WRITE 1 vbak-ernam.
 WRITE 14 vbak-vkbur.
 WRITE 21 kna1-name1.
 WRITE 57 vbeln.
 WRITE:
 69 vbap-kwmeng LEFT-JUSTIFIED,
 vbap-vrkme,
 92 vbak-bstnk,
 vbak-ihrez,
 126 vbak-vdatu,
 vbak-vzeit,
 146 vbep-lddat.
 WRITE 162 vbap-werks.
 NEW-LINE.
 WRITE:
 5 kna1-ort01,
 41 kna1-regio.
 IF name1_sp2 IS INITIAL.
 WRITE:
 45 name1_sp1,
 ELSE.
 WRITE 45 name1_sp2.
 IF name1_sp1 = name1_sp2.
 WRITE ' '.
 ELSE.
 WRITE '*'.
 ENDIF.
 ENDIF.
 IF vbak-vkorg = v_sales_org_cpimex .
 WRITE 81 g_trans_id.
 ELSE.
 WRITE 81 likp-traid.
 ENDIF.
 WRITE:
 102 lips-vbeln,
 115 lips-ntgew NO-ZERO LEFT-JUSTIFIED,
 lips-gewei,
 140 vbfa-vbeln,
 152 vbrk-vbeln.
 ENDCASE.
 ENDAT.
 ENDLOOP.
* FORM PARM_HDR *
FORM parm_hdr.
WRITE 'Program selections'(101) TO rpt_hdr1.
WRITE 'Sign'(102) TO rpt_hdr1+29.
WRITE 'Option'(103) TO rpt_hdr1+34.
WRITE 'From'(104) TO rpt_hdr1+41.
WRITE 'To'(105) TO rpt_hdr1+77.
ENDFORM. "PARM_HDR
* FORM RPT_HDR *
FORM rpt_hdr.
CASE p_sort.
 WHEN 1. "When sort by CAA
 WRITE 1'SOff'(066).
 WRITE 8'Customer'(009).
 WRITE 44'Sales Doc'(010).
 WRITE 56'Material'(031).
 WRITE 75'Sales Qty'(011).
 WRITE 100'Customer PO'(012).
 WRITE 134'Req.Del.Dt & Tm'(014).
 WRITE 154'Load Dt'(015).
 WRITE 166'Plnt'(016).
 NEW-LINE.
 WRITE 5'City'(017).
 WRITE 41'Reg'(069).
 WRITE 45'Carrier'(018).
 WRITE 81'Transport ID'(019).
 WRITE 102'Dlvry Doc'(021).
 WRITE 115'Dlvry Qty'(025).
 WRITE 140'PGI Doc'(026).
 WRITE 152'Billng Doc'(027).
 WHEN 2. "When sort by Material
 WRITE 1'Created By'(008).
 WRITE 14'SOff'(066).
 WRITE 21'Customer'(009).
 WRITE 57'Sales Doc'(010).
 WRITE 69'Sales Qty'(011).
 WRITE 92'Customer PO'(012).
 WRITE 126'Req.Del.Dt & Tm'(014).
 WRITE 146'Load Dt'(015).
 WRITE 162'Plnt'(016).
 NEW-LINE.
 WRITE 5'City'(017).
 WRITE 41'Reg'(069).
 WRITE 45'Carrier'(018).
 WRITE 81'Transport ID'(019).
 WRITE 102'Dlvry Doc'(021).
 WRITE 115'Dlvry Qty'(025).
 WRITE 140'PGI Doc'(026).
 WRITE 152'Billng Doc'(027).
ENDCASE.
ENDFORM. "RPT_HDR
INCLUDE zrpthdri.
WRITE:
/ rpt_hdr1.
ULINE.
IF v_flagh2 <> 0.
PERFORM rpt_hdr. "Write secondary header
ULINE.
* Control Break Header
WRITE / cb_hdr1.
ENDIF.
Continued in Part-2
Thanks a ton in advance.
Mythili Sharma
Edited by: Mythili sharma on Mar 30, 2009 3:32 AM
Edited by: Rob Burbank on Mar 30, 2009 10:46 AM

Hello ABAP Experts,
I need your help to modify the following report with following requirement as I have least knowledge about the field-group concept. Thats is the reason, I am pasting the whole code. As it is part of our production requirement. I really appreciate your help, If its sent modifying the code required.
Modification required in the report.
To allow the sales representatives to see billed shipments and open orders for the current month.
1) Selection Screen Changes:
u2022 Add selection by Sales group and Customer group
u2022 Add sort by: 5. Ship-to / Material
u2022 Add another selection box
[ ] Open Orders and Shipments with the current month
2) For the new selection box, subtotal sales quantity and delivery quantity.
 If delivered, make the sales quantity zero in the subtotal
Current report displays, in Selection Screen
Sales org:
Person Name:
Material:
Plant:
Sales Office:
Ship to Name:
Ship to Number:
Sorts Report by :
1. Person Name
2. Material
3. Plant
4. Sales Office
Check Boxes :
1. Open Orders
2. Delayed Orders
3.Cancelled Orders
PLEASE DOWNLOAD THE COMPLETE REPORT FROM THE FOLLOWING LINK
<< Link removed >>
It would be a great help, If the program is modified according to the requirement and snd it back through send space and send link, even if u send the necessary changes to be done in the report is also appreciable.
Thanks a ton in adanvce
Mythili
I wanted to close this thread as I could not put my question in a proper format. So please reply in the new thread which is posted.
Edited by: Mythili sharma on Mar 30, 2009 2:16 PM
Edited by: Rob Burbank on Mar 30, 2009 4:24 PM

AII - Concept

Similar Messages

Maybe you are looking for