[SOLVED] Making a program appearing on all workspaces
Hi!
Is it possible to making a program appearing on all available workspaces with Fluxbox?
Last edited by svanberg (2009-08-06 10:46:17)
I found the solution here.
Last edited by svanberg (2009-08-06 10:46:03)
Similar Messages
-
Making the dock appear simultaneously on all screens?
The dock only appears on my second screen if I put my cursor to the bottom. This makes windows resize all the time, and I'd rather have the dock just there at all times. How do I make the dock appear on all the screens at once? Like the taskbar on Windows, for example.
The dock will not display on my MB Pro screen now at all. I have my dock set configured to the bottom of the screen and to hide when not in use. At first it would display on either the external display or the Retina display based on whatever screen was "active" (Menu bar not grayed out), but even then it took like 5 or 10 seconds of hovering at the bottom of the screen to get it to appear. Now it will not display at all on my home screen.
Also, I like the idea of a whole separate menu bar/dock on the external display, with a separate Mission Control, but there should be some option to "link" the 2 displays in 1 mission control as well, as was the case with Mountain Lion. I used several desktops utilizing both displays at work, and kind of have them in categories. It was nice to swipe and move both displays' desktops in one swipe. That functionality is gone in Mavericks as far as I can tell. The user should have an option to use the old "linked" system, or the new one introduced in Mavericks. -
BPM Application Link does not appear in BPM Workspace (11.1.1.7)
I spent huge amount of time to reveal why does that happens.
All that follows further is valid for BPM Suite 11.1.1.7.
The scenario.
You developed a simple BPM process with Initiator pattern (maybe by following the "Quote Request" tutorial).
But the application link did not appear in BPM Workspace.
Here i'm skipping any kind of mistakes as "oh, incorrect swimlane", "oh, i did not include the user to the app role" and so on.
At first, you should know about the "feature" - You have to attach task form to the Initiator Human Task to see the App Link.
The simplest way to do that is to AutoGenerate task form (and deploy it, of course).
Else the Appication Link will not appear.
One exception to this rule - If your Task HAS NO PAYLOAD (no parameters) the Task Form is not required (to appearing of the Application Link).
The second find is a bug (is think so).
If you edited the Role that Attached to the swimlane of Initiator Task, you will not see the Application Link.
If you look to organization.xml you will see something like this:
<ns1:applicationRole id="StartTask.InitRole" isProcessRole="true">
<ns5:name>StartTask.InitRole1</ns5:name>
<ns1:processRole id="InitRole" name="InitRole1"/>
</ns1:applicationRole>
The Application Link will appear ONLY IF THE "applicationRole id", "applicationRole name" and "processRole id" have the same value.
When you edit name of the application role in Organization Editor you change "applicationRole name" and "processRole name" values.
After that "applicationRole id" != "applicationRole name" and the Link does not appear.
How to fix?
Just edit organization.xml (with external editor) - change the "applicationRole name" to the value of "applicationRole id".
That allows to have value of "processRole name" something like "The Initiator Role" - that value appears in the BPMN diagram of process.
Also you can edit organization.xml with Organization Editor and set the Name to the value of "applicationRole id".
In that case the associated swimlane will have the same name as the "applicationRole id".
Hope this helps somebody
OlegFlash Player is a browser add-on, not an executable program.
If you need to open a local SWF file you will need the standalone player (Projector) from http://www.adobe.com/support/flashplayer/downloads.html
Note that the download is the player, not an installer, so you will need to make the file association manually. -
Strange JButton appearance for all LAFs except Windows
It took me a while to figure out how to repeat this problem, but I finally did. I have a simple BoxLayout container in a JFrame, and with Windows Look and Feel it looks as expected. With any other LAF on my system (Metal, Windows Classic, CDE/Motif) all buttons except one are displayed as if their insets are null. The button border is confined very close to the button text. Calling setSize() on the button doesn't make any difference.
What makes it strange is that I can't see why one button is displayed properly. And even stranger is the fact that it's not the button position that determines which one looks correct. Take a look at the test code below, which is a stripped down executable extract of my program. The JButton object "settings" is always displayed correctly, even If you re-arrange the arguments to the cbButtonPanel.add() methods so that "settings" is in a different position. I can't see anything different about how settings is defined or configured compared to the other buttons. I even gave them the same button text to eliminate that as the source of the difference.
If you run the test code with no program argument, it will default to Windows Look and Feel, and the buttons will look as I intended them to. But enter a LAF name for the argument (See the names provided on the console when you run the program) other than Windows and you'll see that all but one button are not displayed properly. (Note that for any multi-word LAF name, e.g. Windows Classic, you need to enclose the argument in quotes.)
The code seems to be a straightforward implementation of a BoxLayout managed container, as documented in the javadocs and the tutorial. Am I doing something wrong that Windows LAF lets me get away with?
import java.awt.Container;
import java.awt.Dimension;
import java.util.HashMap;
import javax.swing.BorderFactory;
import javax.swing.Box;
import javax.swing.BoxLayout;
import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JLabel;
import javax.swing.JMenu;
import javax.swing.JMenuBar;
import javax.swing.JMenuItem;
import javax.swing.JPanel;
import javax.swing.JTextField;
import javax.swing.SwingUtilities;
import javax.swing.UIManager;
import javax.swing.UnsupportedLookAndFeelException;
import javax.swing.UIManager.LookAndFeelInfo;
import javax.swing.border.Border;
public class RcbGuiTest{
JFrame frame = null;
int width;
int height;
JTextField fileSelect = null;
JPanel cbButtonPanel;
JButton sendFile = null;
JButton copyCBToCB = null;
JButton copyCBToFile = null;
JButton settings = null;
JButton restart = null;
JMenuBar menuBar;
JMenu helpMenu;
JMenuItem about;
JMenuItem help;
JMenuItem readme;
JMenuItem rcbWeb;
HashMap lafMap = new HashMap();
String lafName = "";
public static void main(String[] args){
if (args.length == 0){
args = new String[]{"Windows"};
final RcbGuiTest test = new RcbGuiTest(args[0]);
SwingUtilities.invokeLater(new Runnable(){
public void run(){
test.createAndShowGUI();
public RcbGuiTest(String lafName){
this.lafName = lafName;
public void createAndShowGUI(){
Border raisedBevel = BorderFactory.createRaisedBevelBorder();
frame = new JFrame("RCB Control Panel");
//set up menu items
menuBar = new JMenuBar();
helpMenu = new JMenu("Help");
about = new JMenuItem("About RCB");
help = new JMenuItem("RCB Help");
readme = new JMenuItem("Readme File");
rcbWeb = new JMenuItem("RCB on the Web");
helpMenu.add(about);
helpMenu.add(help);
helpMenu.add(readme);
helpMenu.add(rcbWeb);
menuBar.add(helpMenu);
frame.setJMenuBar(menuBar);
Container contentPane = frame.getContentPane();
JLabel fileSelectLabel = new JLabel(
"Enter file name, select files, or drag and drop files");
fileSelect = new JTextField(30);
fileSelect.setMinimumSize(new Dimension(250,20));
fileSelect.setSize(new Dimension(250,20));
sendFile = new JButton("Button");
sendFile.setMinimumSize(new Dimension(120,25));
sendFile.setSize(new Dimension(120,25));
JButton selectFile = new JButton("Button");
copyCBToCB = new JButton("Button");
copyCBToFile = new JButton("Button");
settings = new JButton("Button");
restart = new JButton("Button");
sendFile.setBorder(raisedBevel);
selectFile.setBorder(raisedBevel);
copyCBToCB.setBorder(raisedBevel);
copyCBToFile.setBorder(raisedBevel);
restart.setBorder(raisedBevel);
JPanel labelPanel = new JPanel();
labelPanel.setLayout(new BoxLayout(labelPanel,BoxLayout.X_AXIS));
labelPanel.add(Box.createRigidArea(new Dimension(5,20)));
labelPanel.add(fileSelectLabel);
labelPanel.add(Box.createHorizontalGlue());
JPanel fieldPanel = new JPanel();
fieldPanel.setLayout(new BoxLayout(fieldPanel, BoxLayout.X_AXIS));
fieldPanel.add(Box.createRigidArea(new Dimension(5,20)));
fieldPanel.add(fileSelect);
fieldPanel.add(Box.createRigidArea(new Dimension(5,20)));
JPanel fileButtonPanel = new JPanel();
fileButtonPanel.setLayout(new BoxLayout(fileButtonPanel, BoxLayout.X_AXIS));
fileButtonPanel.add(Box.createRigidArea(new Dimension(5,0)));
fileButtonPanel.add(sendFile);
fileButtonPanel.add(Box.createRigidArea(new Dimension(5,0)));
fileButtonPanel.add(selectFile);
fileButtonPanel.add(Box.createRigidArea(new Dimension(5,0)));
fileButtonPanel.add(restart);
fileButtonPanel.add(Box.createHorizontalGlue());
cbButtonPanel = new JPanel();
cbButtonPanel.setLayout(new BoxLayout(cbButtonPanel, BoxLayout.X_AXIS));
cbButtonPanel.add(Box.createRigidArea(new Dimension(5,0)));
cbButtonPanel.add(copyCBToCB);
cbButtonPanel.add(Box.createRigidArea(new Dimension(5,0)));
cbButtonPanel.add(settings);
cbButtonPanel.add(Box.createRigidArea(new Dimension(5,0)));
cbButtonPanel.add(copyCBToFile);
cbButtonPanel.add(Box.createHorizontalGlue());
contentPane.setLayout(new BoxLayout(contentPane, BoxLayout.Y_AXIS));
contentPane.add(Box.createRigidArea(new Dimension(0,5)));
contentPane.add(labelPanel);
contentPane.add(Box.createRigidArea(new Dimension(0,5)));
contentPane.add(fieldPanel);
contentPane.add(Box.createRigidArea(new Dimension(0,5)));
contentPane.add(fileButtonPanel);
contentPane.add(Box.createRigidArea(new Dimension(0,5)));
contentPane.add(cbButtonPanel);
contentPane.add(Box.createRigidArea(new Dimension(0,5)));
width = 320;
height = 180;
fileSelect.setMaximumSize(new Dimension(width,20));
frame.setMinimumSize(new Dimension(width, height));
frame.setResizable(false);
LookAndFeelInfo[] laf = UIManager.getInstalledLookAndFeels();
for (int i= 0; i<laf.length; i++){
System.out.println("LAF Name: " + laf.getName());
lafMap.put(laf[i].getName(), laf[i].getClassName());
String lafClassName = "";
try {
UIManager.setLookAndFeel( lafClassName = (String)lafMap.get(lafName));
System.out.println("Using Look and Feel " + lafName + "\tclass name: " + lafClassName);
} catch (ClassNotFoundException e1) {
// TODO Auto-generated catch block
e1.printStackTrace();
} catch (InstantiationException e1) {
// TODO Auto-generated catch block
e1.printStackTrace();
} catch (IllegalAccessException e1) {
// TODO Auto-generated catch block
e1.printStackTrace();
} catch (UnsupportedLookAndFeelException e1) {
// TODO Auto-generated catch block
e1.printStackTrace();
SwingUtilities.updateComponentTreeUI(frame);
frame.setVisible(true);The problem turned out to be the setBorder() invocations I was making on the JButtons. This was left over from when I originally used a null layout manager, and the setBounds() calls were making the buttons appear at their desired size. The clue came when I discovered that I was setting the border on all buttons except settings, the one that was behaving properly. Why it behaved as expected with Windows LAF I have no idea.
-
Let's say I'm downloading several files, for each file that I'm downloading two new files appear in my download folder. For 'vol1.rar' I have ''an empty'' 'vol1.rar' and a 'vol1.rar.part' file, same for 'vol2.rar', 'vol3.rar', etc.
I would like to block this empty 'vol1.rar' file from appearing at all - it disappears after the download is finished anyway, and the .part file gets renamed with the actual name.
I'm downloading files to my desktop, from where I move them to the folders I want them in - having this disappearing 2nd file messes up the order I download the files in - if I add a new file after one of the files I was downloading has finished, the file be placed in the empty spot that the finished file has created, making it harder for me to move to the correct folder.
A lot of people have asked if it was possible to turn off the .part file, but I haven't seen a single thread about the empty file instead.
I know this file isn't necessary, because I moved it to another folder/deleted it many times before the download was finished and the real file was still fine.
So, any ideas as to how to block this file?I don't believe there is any way to prevent file downloading if you allow internet access at all. as Király says, whatever they download and install will be limited to the guest account and will go poof on the logout.
however you can disable CD/DVD and external drives access. some of it can be done by enabling parental controls on the guest account. for more options you can install server admin tools
http://support.apple.com/downloads/ServerAdmin_Tools_105
and use workgroup manager to set further restrictions on the guest account.
P.S. workgroup manager can also forbid guest to mount disk images which will effectively make it impossible to install any programs at all even in the guest account.
Message was edited by: V.K. -
IOS - iCal problem - Events appear as "all-day" whereas they shouldn't
See below a conversation I had with a service provider.
There is a bug in iOS when dealing with events in UTC times.
Any solution to this?
On Sat, Nov 16, 2013 at 11:14 AM, xxx wrote:
Hi,
I noticed a small problem with a calendar to which I subscribed on my iphone.
Events that are configured to last from 6.30pm to 7.30pm appears as Full-day events on iOs.
Thank you for reporting this issue. We're aware that IOS sometimes
misinterprets the iCal files we provide. It appears that it is reading
the times properly (as seen in the event detail and grid views), but is
mislabeling the events as all-day in the list view. Is this what you're
seeing?
Thank you
Michael
Exactly.
In the event's details, times are OK, but in the listing, event appears as all-day.
But why only for 6.30 to 7.30? When i change times to 5.30 to 6.30, it shows fine.
It appears to be related to the interpretation of time-zone information. We provide the game times in UTC format and count on your device's calendar program to make the appropriate adjustments for the local time zone. When the provided UTC times span two days (e.g. 11:30pm - 12:30 am, before time zone adjustment), IOS seems to mislabel the event as "all-day".
Thank you.
MichaelDoes this problem still occur with iOS8?
-
Line item data does not appear on all master pages - Adobe forms
Hi Guys,
I have a problem in Adobe forms as explained below-
I have a page in the form which has, you can say, a 2 windows or subforms ( Information window/subfirm on top right corner, main on middle of the page ). The data of the main subform is a line item data of delivery. Some parts of the same data need to be printed on the Information subform also. The main subform can overflow to next pages but the information window will have only very limited data to be printed on one page itself, meaning it does not overflow.
Now the requirement is that each line item should be printed on a new page. For example if there are 2 lines items then first line item should be printed on first page. Then there will be a conditional page break and the next line item will be printed on the next page ( I have achieved this using condition page break). The information window will contain information related to corresponding line items. If the first line item data overflows in main then information window of first line item should be printed on first and 2nd page. The second line item should start printing on 3rd page and information window of 3rd page will contain data of 2nd line item.
I created 1 body page and 1 master page. I created one internal table with data of main window and information window. I put the information window on master page to make it appear on all the pages.
This solution unfortunately does not work. The issue is that in case of overflow, 1st page information window shows first line item. 2nd pages shows 2nd line item and 3rd page is blank whereas ideally 1st and 2nd page information window should show first line item and 3rd page should show 2nd line item. This means that master page and body page are not getting linked. If I create the information window on body page itself, it does not repeat on all the pages. Please provide some inputs to resolve the issue.
Thanks
AbhiHi Abhinav,
I am also trying to solve the similar issue. Need to print the internal table data in the Master page.
Have you resolved this issue. Can you Please share your solution .
Thanks
Swarna. -
Images on Robohelp are very poor quality/blurry or don't appear at all
Hello,
Any help on this problem would be greatly appreciated as I have been attempting to solve this for several hours a day for the past week.
I have a simple employee handbook in word (about 20 pages with images) that I’m trying to turn into an html-based document. I've tried a couple if things in order to get this file into robohelp. I've linked the word document to RoboHelp and worked with that, and I've also imported the word doc into framemaker and then linke my framemaker document to Robohelp.
I’ve managed to create the html version with a table of contents doing it both ways, but there are a few images in the word document that turn out really bad in the html version. They look fine in the word document and in pdf version, but when I view them in RoboHelp or in the html version of the document they’re very blurry and choppy. It almost looks as it pixels are missing. I’ve tried everything I could think of but nothing changes the quality of the image. As soon as I link the word document or framemaker document, when I click "view" on the specific image, or just view it from the handbook in Robohelp the image looks terrible.
Someone suggested that I checkmark "do not re-generate image" under project settings but now some of my images aren't appearing at all. All of my images are the same type but I've also tried changing it to png, or bmp, jpeg but nothing changes. They're either blurry or don't appear at all.
Thanks for any help or suggestions!I don't know if this will help you, but I've had issues with poor image quality when importing Word documents into RH7. I see a fuzziness problem with most images--screen shot or not--but it seems really pronounced if the image in Word is reduced to less than 100%. To resolve this, I've opted to manually copy any Word images to another application (I use SnagIt), save them at 100% to PNG format (JPG and GIFs also work), and import the saved image files to Robohelp. That sounds like that's what you ended up doing with Photoshop.
Also, I wonder if it makes a difference how much the text was magnified/reduced when they took the original screen shots. I just did an experiment--using SnagIt, I took a screen capture of a block of text at 100% magnification. I then pasted the screen shot directly from SnagIt into my Robohelp document. It came in perfectly clean--couldn't see any obvious difference between the Robohelp text and the image of the Word text. I got the same results when I saved the screen capture to a PNG file and imported it that way. That leads me to believe the problem you're seeing is a result of having Word images automatically converted to RH.
(In the example--unfortunately hard to see-- the text in the red box is from a screen capture; the rest of the text was entered in RH8--there's no discernable difference in quality.) -
Revision: 13042
Revision: 13042
Author: [email protected]
Date: 2009-12-17 03:45:27 -0800 (Thu, 17 Dec 2009)
Log Message:
Fix for FM-287, reinstating the main sample (that uses serial and parallel composition), and making another pass at getting all the changed trait methods mapped correctly back- and forth between JS and Flash.
Ticket Links:
http://bugs.adobe.com/jira/browse/FM-287
Modified Paths:
osmf/trunk/apps/samples/framework/HTMLGatewaySample/HTMLGatewaySample.as
osmf/trunk/apps/samples/framework/HTMLGatewaySample/html-template/index.template.html
osmf/trunk/framework/MediaFramework/org/osmf/external/HTMLElement.as
osmf/trunk/framework/MediaFramework/org/osmf/gateways/HTMLGateway.asPerre wrote:I'm used to being able to pick one or a couple of songs and then adding it a specified playlist. Is this impossible in sonata?
It's clearly not impossible, just different than you expect. Create your playlist as you want it to appear in the Current tab (meaning don't dump every single song from your library in there, just the ones you want) and then save the playlist.
Perre wrote:And if I try to play the m3u file created (the one with every song listed) through freevo I get a message that the directory is empty. What am I doing wrong??
Look at save_absolute_paths_in_playlists in your mpd.conf. -
Xmonad: certain windows/applications get displayed on all workspaces
After recent upgrades (relevant pacman.log: http://pastie.org/8633439), some of my programs get wrongly displayed on all workspaces. Mainly, it's mplayer/mpv, the native Steam client and the native linux game "Heroes of Newerth" (HoN).
I start HoN on Workspace 7 in Xmonad and it should stay there. However, after I have started the game and switch to a different workspace, I still see the HoN screen in its entirety. However, I can issue commands to the program that is on the workspace I switched to. For example, I switched to workspace 1 where I have my browser and pressed CTRL+T a few times. After I had closed HoN, I could see that indeed the browser had a few more open tabs. So the focus switches correctly, yet I still see nothing but HoN. The same happens with mplayer or mpv. When I open any video in it and pause it, everything is as it should be when I switch to a different workspace. However, if I switch workspaces while the video is running, it will also be displayed on all other workspaces above all other programs. So I guess it has something to do with programs/windows that update themselves to show something new. Cause it's the same with every Steam window - whenever the Steam store window updates a screenshot or something, Steam will be on all workspaces.
I have tried to replicate this with Openbox to make sure it's got something to do with Xmonad, and yes, this does not occur in Openbox. A buddy of mine has the same problem with the same programs (plus a wine game), he is running xmonad on archlinux as well.
Here is my xmonad.hs: http://pastie.org/8633442
Last edited by kelnoky (2014-01-14 20:33:11)To be more precise: I downgraded xorg-server-common (1.15.0-5 -> 1.14.4-1), xf86-input-evdev (2.8.2-2 -> 2.8.2-1), xorg-server (1.15.0-5 -> 1.14.4-1), libgcrypt (1.6.0-1 -> 1.5.3-1). Then i could switch workspaces as intended. But i got lots of errors with other applications. Like mplayer didn't work because the newer libgcrypt couldn't be found etc. And ofc i don't want to use some old crypto libs anyway.
But that has shown me, that somehow the upgrade to xorg-1.15 had broken things. But i can't really say if that is xorgs ord xmonads error, because it works well with openbox.
I'll take a look at xcompmgr. Thanks for the hint.
Edit: It works like a charm. Thank you very much.
Last edited by verno (2014-01-16 00:45:18) -
Ipad mini jumps from program to another all by it self very intermittent
ipad mini jumps from one program or app all by its self. does not matter if playing games on on wireless it is very intermittent any clue on what it is doing
Try this:
Make sure IOS is updated to latest version
Reboot device by pressing both the home button and sleep/wake (power) buttons at the same time for 10-15 seconds until the apple logo appears on the screen, then let go.
If that doesn't work then reset the device by going to settings/general/reset/reset all settings -
Disabled iPod won't appear at all on computer. What can I do?
I locked out my iPod Touch (4th generation) until it said "connect to iTunes". I did the steps I found to recover it: I turned it off, pressed Home button and plugged it in, etc. Problem is, the iPod will not appear at all on my computer or on iTunes. Not only did I try recovery mode, but I did DFU mode as well and that hasn't worked.
I have downloaded RecBoot, and then this other program I found, but nothing has worked. I have tried everything I have found muliple times. I am 100% sure that the problem lies with the iPod, as I have even tried this with another computer. I'm at a complete loss at what to do.- Try another cable.
- Inspect the dock connector on the iPod for bent or missing contacts, foreign material, corroded contacts, broken, missing or cracked plastic.
- Make an appointment at the Genius Bar of an Apple store.
Apple Retail Store - Genius Bar -
I am trying to use photomerge compose. I open one standard jpeg image and one image that is my business logo in a png format. When I select the png image, to extract the logo from it, it appears as all white and will not allow me to select the logo from it. It has worked in the past but I downloaded the update today and photomerge will not work correctly. Any ideas?
hedger,
How do you expect anyone to help when we don't know a darned thing about the file, abut your setup, exact version of Photoshop and your OS, machine specs, etc.?
BOILERPLATE TEXT:
Note that this is boilerplate text.
If you give complete and detailed information about your setup and the issue at hand,
such as your platform (Mac or Win),
exact versions of your OS, of Photoshop (not just "CS6", but something like CS6v.13.0.6) and of Bridge,
your settings in Photoshop > Preference > Performance
the type of file you were working on,
machine specs, such as total installed RAM, scratch file HDs, total available HD space, video card specs, including total VRAM installed,
what troubleshooting steps you have taken so far,
what error message(s) you receive,
if having issues opening raw files also the exact camera make and model that generated them,
if you're having printing issues, indicate the exact make and model of your printer, paper size, image dimensions in pixels (so many pixels wide by so many pixels high). if going through a RIP, specify that too.
etc.,
someone may be able to help you (not necessarily this poster, who is not a Windows user).
a screen shot of your settings or of the image could be very helpful too.
Please read this FAQ for advice on how to ask your questions correctly for quicker and better answers:
http://forums.adobe.com/thread/419981?tstart=0
Thanks! -
SD Flow program using For all entries.
using simple ALV grid: I have the urgent requirement of changing the following program using 'For all entries' instead of joins and I should not use 'TABLES' -- For top-of-page I need to get dynamic fields like if I select company code in the selection screen then I need to get 'This report is base on COMPANY CODE'.
This program is about sales flow where i shud get only those records that have ebeln in vbak, delivery, invoice.
The original program is as follows:
*& Report ZSD_DOCU_FLOW *
REPORT zsd_docu_flow NO STANDARD PAGE HEADING .
* Program : ZCOS_SALES *
* Dev. Class : ZSD
* Functional :
* Created on : *
* Project :
* CR Number :
* Transaction : ZSDCSUT *
* Description : * Sales document life cylce for given customer
* to declaired period displaying the sales document
* details ,with relevant del details and corresponding
* Invocie Details
*----------- Tables Declaration -----------*
TABLES: vbak,vbap,vbfa,kna1,vbrk,vbrp,likp,lips,t001.
TYPE-POOLS : slis.
*----------- Internal Tables Declaration -----------*
* Internal Table for Sales Order data *
DATA: BEGIN OF it_so OCCURS 0,
vbeln LIKE vbak-vbeln,
kunnr LIKE vbak-kunnr,
posnr LIKE vbap-posnr,
matnr LIKE vbap-matnr,
kwmeng LIKE vbap-kwmeng,
netwr LIKE vbap-netwr,
END OF it_so.
* Internal Table for Delivery Order data *
DATA: BEGIN OF it_del OCCURS 0,
delnum LIKE likp-vbeln,
lfdat LIKE likp-lfdat,
delitem LIKE lips-posnr,
lfimg LIKE lips-lfimg,
END OF it_del.
* Internal Table for Invoice data *
DATA: BEGIN OF it_inv OCCURS 0,
invnum LIKE vbrk-vbeln,
invitem LIKE vbrp-posnr,
fkimg LIKE vbrp-fkimg,
amount LIKE vbrp-netwr,
END OF it_inv.
* Internal Table for Final data *
DATA: BEGIN OF it_final OCCURS 0,
vbeln LIKE vbak-vbeln,
posnr LIKE vbap-posnr,
kunnr LIKE vbak-kunnr,
name LIKE kna1-name1,
matnr LIKE vbap-matnr,
kwmeng LIKE vbap-kwmeng,
netwr LIKE vbap-netwr,
delnum LIKE likp-vbeln,
lfdat LIKE likp-lfdat,
delitem LIKE lips-posnr,
lfimg LIKE lips-lfimg,
invnum LIKE vbrk-vbeln,
invitem LIKE vbrp-posnr,
fkimg LIKE vbrp-fkimg,
amount LIKE vbrp-netwr,
END OF it_final.
*----------- Variables Declaration -----------*
DATA: v_name LIKE kna1-kunnr," variable for customer name
v_delnum LIKE likp-vbeln," variable for delivery number
v_invnum LIKE vbrk-vbeln." variable for invoce number
DATA : ls_layout TYPE slis_layout_alv,
it_fcat TYPE slis_t_fieldcat_alv ,
wa_fcat TYPE slis_fieldcat_alv,
lh TYPE slis_t_listheader,
ls TYPE slis_listheader,
it_events TYPE slis_t_event ,
ls_event TYPE slis_alv_event ,
i_sort TYPE slis_t_sortinfo_alv,
w_var TYPE i.
DATA : l_date(10).
DATA : l_date1(20).
DATA : l_repid LIKE trdir-name.
l_repid = 'ZSD_DOCU_FLOW1'.
*----------- Select-options & parameters Declaration ---*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE vbak-bukrs_vf,
p_vkorg LIKE vbak-vkorg,
p_vtweg LIKE vbak-vtweg,
p_spart LIKE vbak-spart.
SELECT-OPTIONS: s_kunnr FOR vbak-kunnr,
s_audat FOR vbak-audat.
SELECTION-SCREEN END OF BLOCK b1.
*----------- AT SELECTION-SCREEN --------------------------*
AT SELECTION-SCREEN.
SELECT SINGLE * FROM t001 INTO t001
WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'Enter a Valid Company Code'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
WHERE vkorg = p_vkorg.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'Enter a Valid Sales Organization'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
WHERE vtweg = p_vtweg.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'Enter a Valid distribution channel'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
WHERE spart = p_spart.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'Enter a Valid Division'.
ENDIF.
SELECT SINGLE * FROM kna1 INTO kna1
WHERE kunnr IN s_kunnr.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'Enter a Valid Customer Number'.
ENDIF.
*----------- START-OF-SELECTION-----------------------------*
START-OF-SELECTION.
ls-typ = 'H'.
ls-info = 'Sales Document Flow'.
APPEND ls TO lh.
ls-typ = 'S'.
WRITE: sy-datum TO l_date USING EDIT MASK '__/__/____'.
CONCATENATE 'DATE :' l_date INTO l_date1 SEPARATED BY space.
ls-info = l_date1.
APPEND ls TO lh.
PERFORM field_cat.
PERFORM t_sort_build USING i_sort.
PERFORM get-data.
*----------- END-OF-SELECTION-----------------------------*
END-OF-SELECTION.
IF it_final[] IS INITIAL.
MESSAGE i000(8i) WITH 'No data Found'.
EXIT.
ENDIF.
PERFORM print-data.
*& Form get-data
* text
* --> p1 text
* <-- p2 text
FORM get-data .
* Accesing Sales Data
SELECT a~vbeln a~kunnr b~posnr b~matnr b~kwmeng b~netwr
INTO CORRESPONDING FIELDS OF TABLE it_so
FROM vbak AS a INNER JOIN vbap AS b
ON a~vbeln = b~vbeln
WHERE a~bukrs_vf = p_bukrs
AND a~vkorg = p_vkorg
AND a~vtweg = p_vtweg
AND a~spart = p_spart
AND a~kunnr IN s_kunnr
AND a~audat IN s_audat.
LOOP AT it_so.
SELECT SINGLE name1 FROM kna1 INTO v_name
WHERE kunnr = it_so-kunnr.
SELECT SINGLE vbeln FROM vbfa INTO v_delnum
WHERE vbelv = it_so-vbeln
AND vbtyp_n = 'J'.
IF sy-subrc = 0.
SELECT SINGLE vbeln FROM vbfa INTO v_invnum
WHERE vbelv = v_delnum
AND vbtyp_n = 'M'.
ENDIF.
MOVE-CORRESPONDING it_so TO it_final.
it_final-name = v_name.
it_final-delnum = v_delnum.
it_final-invnum = v_invnum.
APPEND it_final.
CLEAR it_final.
CLEAR v_delnum.
CLEAR v_invnum.
ENDLOOP.
LOOP AT it_final.
IF it_final-delnum NE ' '.
* Reading Del Data.
SELECT SINGLE a~vbeln a~lfdat b~posnr b~lfimg INTO
(it_del-delnum, it_del-lfdat, it_del-delitem,
it_del-lfimg ) FROM
likp AS a INNER JOIN lips AS b ON a~vbeln = b~vbeln
WHERE a~vbeln = it_final-delnum
AND b~posnr = it_final-posnr.
MOVE-CORRESPONDING it_del TO it_final.
MODIFY it_final.
ENDIF.
IF it_final-invnum NE ' '.
* Reading Invoice Data.
SELECT SINGLE vbeln posnr fkimg netwr INTO
(it_inv-invnum, it_inv-invitem, it_inv-fkimg, it_inv-amount )
FROM vbrp WHERE vbeln = it_final-invnum
AND posnr = it_final-posnr.
MOVE-CORRESPONDING it_inv TO it_final.
MODIFY it_final.
ENDIF.
ENDLOOP.
ENDFORM. " get-data
*& Form print-data
* text
* --> p1 text
* <-- p2 text
FORM print-data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = l_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
i_callback_top_of_page = 'TOP'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
it_fieldcat = it_fcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
IT_SORT = i_sort[]
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_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
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_final.
* 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. " print-data
*& Form field_cat
* text
* --> p1 text
* <-- p2 text
FORM field_cat .
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'VBELN'.
wa_fcat-key = 'X'.
wa_fcat-ref_fieldname = 'VBELN'.
wa_fcat-ref_tabname = 'VBAK'.
wa_fcat-seltext_m = 'Sales Order NO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'POSNR'.
wa_fcat-ref_fieldname = 'POSNR'.
wa_fcat-ref_tabname = 'VBAP'.
wa_fcat-seltext_m = 'SalesItemNO'.
wa_fcat-fix_column = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KUNNR'.
wa_fcat-seltext_m = 'CUSTNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NAME'.
wa_fcat-seltext_m = 'CUSTNAME'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-seltext_m = 'MATNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KWMENG'.
wa_fcat-seltext_m = 'Sales Quantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NETWR'.
wa_fcat-seltext_m = 'Value'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELNUM'.
wa_fcat-seltext_m = 'DeloveryNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELITEM'.
wa_fcat-seltext_m = 'DelItemNO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFDAT'.
wa_fcat-seltext_m = 'DelDate'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFIMG'.
wa_fcat-seltext_m = 'DelQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVNUM'.
wa_fcat-seltext_m = 'InvoiceNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVITEM'.
wa_fcat-seltext_m = 'InvoiceItem'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'FKIMG'.
wa_fcat-seltext_m = 'INVQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'AMOUNT'.
wa_fcat-seltext_m = 'INVvalue'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
ENDFORM. " field_cat
*& Form top
* text
FORM t_sort_build USING l_sort TYPE slis_t_sortinfo_alv.
DATA: ls_sort TYPE slis_sortinfo_alv.
ls_sort-fieldname = 'VBELN'.
ls_sort-spos = 1.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
APPEND ls_sort TO l_sort.
ls_sort-fieldname = 'KUNNR'.
ls_sort-spos = 2.
ls_sort-up = 'X'.
APPEND ls_sort TO l_sort.
ENDFORM. "t_sort_bui
FORM top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = lh
* I_LOGO =
* I_END_OF_LIST_GRID =
ENDFORM. "TOP
===========================================================================
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN, "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR, " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR, " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR, " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG, " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR, " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN, "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT, " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR, " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG, " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN, "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR, "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG, "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR, "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
V_DELVBELN TYPE LIKP-VBELN,
V_INVVBELN TYPE VBRK-VBELN,
V_BUKRS TYPE T001-BUKRS, "COMPANY CODE "#EC *
V_AUDAT TYPE VBAK-AUDAT,
V_VKORG TYPE VBAK-VKORG,
V_VKGRP TYPE VBAK-VKGRP,
V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
WA_VBAK TYPE XT_VBAK,
IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
WA_VBAP TYPE XT_VBAP,
IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
WA_LIKP TYPE XT_LIKP,
IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
WA_LIPS TYPE XT_LIPS,
IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
WA_VBRK TYPE XT_VBRK,
IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
WA_VBRP TYPE XT_VBRP,
IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
IT_LSTHDR TYPE SLIS_T_LISTHEADER,
WA_LSTHDR TYPE SLIS_LISTHEADER,
IT_EVENTS TYPE SLIS_T_EVENT,
WA_EVENTS TYPE SLIS_ALV_EVENT,
IT_SORT TYPE SLIS_T_SORTINFO_ALV,
IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
S_AUDAT FOR V_AUDAT, "SALES DOCUMENT DATE
S_VKORG FOR V_VKORG, "SALES ORGANISATION
S_VKGRP FOR V_VKGRP, "SALES GROUP
S_SPART FOR V_SPART. "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*& Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
INTO TABLE IT_VBAK
FROM VBAK
WHERE VBELN IN S_VBELN.
* BUKRS_VF IN S_BUKRS AND
* VKORG IN S_VKORG AND
* VKGRP IN S_VKGRP AND
* SPART IN S_SPART AND
* KUNNR IN S_KUNNR AND
* AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
INTO TABLE IT_VBAP
FROM VBAP
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
INTO TABLE IT_LIKP
FROM LIKP
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
INTO TABLE IT_LIPS
FROM LIPS
FOR ALL ENTRIES IN IT_VBAP
WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
INTO TABLE IT_VBRK
FROM VBRK
FOR ALL ENTRIES IN IT_LIKP
WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
INTO TABLE IT_VBRP
FROM VBRP
FOR ALL ENTRIES IN IT_LIPS
WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM. " GET_DATA
Edited by: srk s on Jan 29, 2008 7:33 PM
Edited by: Alvaro Tejada Galindo on Jan 29, 2008 9:49 AMHi Satish,
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries, I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN, "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR, " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR, " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR, " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG, " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR, " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN, "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT, " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR, " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG, " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN, "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR, "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG, "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR, "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
V_DELVBELN TYPE LIKP-VBELN,
V_INVVBELN TYPE VBRK-VBELN,
V_BUKRS TYPE T001-BUKRS, "COMPANY CODE "#EC *
V_AUDAT TYPE VBAK-AUDAT,
V_VKORG TYPE VBAK-VKORG,
V_VKGRP TYPE VBAK-VKGRP,
V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
WA_VBAK TYPE XT_VBAK,
IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
WA_VBAP TYPE XT_VBAP,
IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
WA_LIKP TYPE XT_LIKP,
IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
WA_LIPS TYPE XT_LIPS,
IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
WA_VBRK TYPE XT_VBRK,
IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
WA_VBRP TYPE XT_VBRP,
IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
IT_LSTHDR TYPE SLIS_T_LISTHEADER,
WA_LSTHDR TYPE SLIS_LISTHEADER,
IT_EVENTS TYPE SLIS_T_EVENT,
WA_EVENTS TYPE SLIS_ALV_EVENT,
IT_SORT TYPE SLIS_T_SORTINFO_ALV,
IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
S_AUDAT FOR V_AUDAT, "SALES DOCUMENT DATE
S_VKORG FOR V_VKORG, "SALES ORGANISATION
S_VKGRP FOR V_VKGRP, "SALES GROUP
S_SPART FOR V_SPART. "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*& Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
INTO TABLE IT_VBAK
FROM VBAK
WHERE VBELN IN S_VBELN.
* BUKRS_VF IN S_BUKRS AND
* VKORG IN S_VKORG AND
* VKGRP IN S_VKGRP AND
* SPART IN S_SPART AND
* KUNNR IN S_KUNNR AND
* AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
INTO TABLE IT_VBAP
FROM VBAP
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
INTO TABLE IT_LIKP
FROM LIKP
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
INTO TABLE IT_LIPS
FROM LIPS
FOR ALL ENTRIES IN IT_VBAP
WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
INTO TABLE IT_VBRK
FROM VBRK
FOR ALL ENTRIES IN IT_LIKP
WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
INTO TABLE IT_VBRP
FROM VBRP
FOR ALL ENTRIES IN IT_LIPS
WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM. " GET_DATA
Code Formatted by: Alvaro Tejada Galindo on Jan 29, 2008 9:48 AM -
I'm using a macbook pro, running snow leopard. Yesterday I got around to emptying my trash for the first time in quite awhile and was surprised by how much there seemed to be in there. Immediately after a question mark symbol appeared on all my hard disk folders. If I click on these question marks I get a message saying ' the item can't be found'.
mpagan47 wrote: a question mark symbol appeared on all my hard disk folders.
Not sure where these hard disk folders are located that you are referring to? Finder, Finder tool bar, Finder side bar, Desktop, Dock?
More then likely they are an alias that not longer point to the orginals, thus the question mark.
I would reboot. Delete icons if an alias and just recreate by dragging from the source. Try right click (control) click to remove.
Maybe you are looking for
-
Horizontal scroll bar not appeating in af:treeTable
We have an af:treeTable component in a popup with two af:column. Issue: 1. af:treeTable is not showing horizontal scroll bar. When i set the width to a fixed value say 1000 on af:column c171, it shows scroll bar but the size is fixed. This is not the
-
How to unfreeze a white screen?
my son's ipod touch has frozen on a white screen and i have tried reseting by holding down the mute button and home button at the same time for at least 10 secs- i've done this several time and it is not working.
-
Xellerate is in failed state as initialization failed state.
Hi, I am facing an issue on one of my app server which is on clustered environment. I am getting the follwing error 09/08/18 18:58:06 Error initializing the Oracle JMS Resource provider for Queues: Connection Cache with this Cache Name is Disabled 09
-
Can't install operating system (OS)
i have downloaded the os of blackberry but i haven't downloaded/install blackberry desktop, why i can't install the OS? cause i haven't installed blackberry desktop or ......? after run the OS, "the version of this file is not compatible with the ver
-
Where is Travel Approvals stored?
In which SAP table can we view whether a trip has been approved? Either by the first Approver in the workflow or by all of them?