T-code ME23 - Show GR and IR matched together - GR/IR Assgt
When we look at scheduling (outline??) agreements (ME33) history, one of the choices from the toolbar is "GR/IR Assgt". That option shows a grouped display of the GR's and IR's for an agreement, with matched GR's and IR's shown together as a group, and with unmatched records falling to the bottom of the display.
When we look at the history of a purchase order, though, that option to display the grouped GR/IR is not even an available choice.
Are we doing something wrong when we set the PO up, or does this work only with ME33? Maybe this feature only works with certain settings on the PO???
Any advice would be really appreciated.
At Purchase order history in ME23N by default it show no of GRs and IRs done against that PO only.
in me33 it shows the GR/IR for that schedule ageement only. both may not match. This is standard setting.
Instead of ME23 use ME23N
Similar Messages
-
I tried to empty my trash and could not - an error code 8003 showed up and stopped me. What can I do to empty the trash?
Look to the right under 'More like This' - many good sugestions there.
-
Show keynote and video explanation together!
Hi everybody!
During Apple Keynotes they usually show the video of explanation of the new products and the presentation slides together on the screen (zooming in and out all the time). I wasn't able to figure out how I could do the same. Can somebody of you help me with this? Is it a matter of Keynote? Is it a matter of iMovie? Or do I need some additional software?
Thank you very much!Sure, consider this link. It's of the last Apple keynote:
http://events.apple.com.edgesuite.net/0909oijasdv/event/index.html?internal=ijal rmacu
Sometimes the camera shows Steve and the Presentation at the same time. That's what I mean. Or, for example, when you use podcast producer 2 in a network you can make a presentation and show yourself at the same time. Consider this link for that:
http://www.apple.com/server/macosx/features/podcast-producer.html
Thank you! I hope this helps! -
It says "if you want to make modifications to files:
/sbin/fsck -fy
/sbin/mount -uw /Hello frankenstienfromab,
Thanks for using Apple Support Communities.
For more information on this, take a look at:
Resolve startup issues and perform disk maintenance with Disk Utility and fsck
http://support.apple.com/kb/ts1417
If your computer won't start up normally, you may need to use a disk repair utility to fix the issue. Mac OS X includes two utilities for this—Disk Utility and fsck (a command-line utility).
fsck is a command-line utility that may be able to verify and repair a disk.
Best of luck,
Mario -
How to move Line, Grid and X Ticks together?
The code below plots a XYLineChart: by left mouse click and drag the plotted line can be translated left/right.
package javafxapplication3;
import javafx.application.Application;
import javafx.beans.property.SimpleDoubleProperty;
import javafx.event.EventHandler;
import javafx.scene.chart.NumberAxis;
import javafx.scene.chart.XYChart;
import javafx.stage.Stage;
import javafx.scene.Scene;
import javafx.scene.chart.LineChart;
import javafx.scene.input.MouseEvent;
import javafx.scene.layout.BorderPane;
public class GridMove extends Application {
BorderPane pane;
XYChart.Series series1 = new XYChart.Series();
SimpleDoubleProperty rectinitX = new SimpleDoubleProperty();
SimpleDoubleProperty rectX = new SimpleDoubleProperty();
SimpleDoubleProperty rectY = new SimpleDoubleProperty();
@Override
public void start(Stage stage) {
final NumberAxis xAxis = new NumberAxis(1, 12, 1);
final NumberAxis yAxis = new NumberAxis(0.53000, 0.53910, 0.0005);
xAxis.setAnimated(false);
yAxis.setAnimated(false);
yAxis.setTickLabelFormatter(new NumberAxis.DefaultFormatter(yAxis) {
@Override
public String toString(Number object) {
return String.format("%7.5f", object);
final LineChart<Number, Number> lineChart = new LineChart<Number, Number>(xAxis, yAxis);
lineChart.setCreateSymbols(false);
lineChart.setAlternativeRowFillVisible(false);
lineChart.setAnimated(false);
lineChart.setLegendVisible(false);
series1.getData().add(new XYChart.Data(1, 0.53185));
series1.getData().add(new XYChart.Data(2, 0.532235));
series1.getData().add(new XYChart.Data(3, 0.53234));
series1.getData().add(new XYChart.Data(4, 0.538765));
series1.getData().add(new XYChart.Data(5, 0.53442));
series1.getData().add(new XYChart.Data(6, 0.534658));
series1.getData().add(new XYChart.Data(7, 0.53023));
series1.getData().add(new XYChart.Data(8, 0.53001));
series1.getData().add(new XYChart.Data(9, 0.53589));
series1.getData().add(new XYChart.Data(10, 0.53476));
pane = new BorderPane();
pane.setCenter(lineChart);
Scene scene = new Scene(pane, 800, 600);
lineChart.getData().addAll(series1);
stage.setScene(scene);
scene.setOnMouseClicked(mouseHandler);
scene.setOnMouseDragged(mouseHandler);
scene.setOnMouseEntered(mouseHandler);
scene.setOnMouseExited(mouseHandler);
scene.setOnMouseMoved(mouseHandler);
scene.setOnMousePressed(mouseHandler);
scene.setOnMouseReleased(mouseHandler);
stage.show();
EventHandler<MouseEvent> mouseHandler = new EventHandler<MouseEvent>() {
@Override
public void handle(MouseEvent mouseEvent) {
if (mouseEvent.getEventType() == MouseEvent.MOUSE_PRESSED) {
rectinitX.set(mouseEvent.getX());
else if (mouseEvent.getEventType() == MouseEvent.MOUSE_DRAGGED || mouseEvent.getEventType() == MouseEvent.MOUSE_MOVED) {
LineChart<Number, Number> lineChart = (LineChart<Number, Number>) pane.getCenter();
NumberAxis xAxis = (NumberAxis) lineChart.getXAxis();
double Tgap = xAxis.getWidth()/(xAxis.getUpperBound() - xAxis.getLowerBound());
double newXlower=xAxis.getLowerBound(), newXupper=xAxis.getUpperBound();
double Delta=0.3;
if(mouseEvent.getEventType() == MouseEvent.MOUSE_DRAGGED){
if(rectinitX.get() < mouseEvent.getX()){
newXlower=xAxis.getLowerBound()-Delta;
newXupper=xAxis.getUpperBound()-Delta;
else if(rectinitX.get() > mouseEvent.getX()){
newXlower=xAxis.getLowerBound()+Delta;
newXupper=xAxis.getUpperBound()+Delta;
xAxis.setLowerBound( newXlower );
xAxis.setUpperBound( newXupper );
rectinitX.set(mouseEvent.getX());
public static void main(String[] args) {
launch(args);
}My question is: now by moving the Line left/right, Grid and X Ticks does not move: so, how to translate Line, Grid and X Ticks together?
Any help really appreciated!
Thanks
Edit: nobody willing to help?
Edited by: 932518 on 30-ott-2012 1.31
Edited by: 932518 on 31-ott-2012 8.49Some code improvements, now grid and line moves together. It only remains to move X axis ticks along with line and grid, and vertical grid lines are missing outside line range values
import javafx.application.Application;
import javafx.beans.property.DoubleProperty;
import javafx.beans.property.SimpleDoubleProperty;
import javafx.collections.ObservableList;
import javafx.event.EventHandler;
import javafx.scene.chart.Axis;
import javafx.scene.chart.NumberAxis;
import javafx.scene.chart.XYChart;
import javafx.scene.chart.XYChart.Series;
import javafx.stage.Stage;
import javafx.scene.Node;
import javafx.scene.Scene;
import javafx.scene.chart.LineChart;
import javafx.scene.input.MouseEvent;
import javafx.scene.layout.BorderPane;
import javafx.scene.shape.LineTo;
import javafx.scene.shape.MoveTo;
import javafx.scene.shape.Path;
public class GridMove extends Application {
BorderPane pane;
XYChart.Series series1 = new XYChart.Series();
SimpleDoubleProperty rectinitX = new SimpleDoubleProperty();
SimpleDoubleProperty rectX = new SimpleDoubleProperty();
SimpleDoubleProperty rectY = new SimpleDoubleProperty();
LineChart<Number, Number> lineChart;
@Override
public void start(Stage stage) {
final NumberAxis xAxis = new NumberAxis(1, 12, 1);
final NumberAxis yAxis = new NumberAxis(0.53000, 0.53910, 0.0005);
xAxis.setAnimated(false);
yAxis.setAnimated(false);
yAxis.setTickLabelFormatter(new NumberAxis.DefaultFormatter(yAxis) {
@Override
public String toString(Number object) {
return String.format("%7.5f", object);
lineChart = new LineChart<Number, Number>(xAxis, yAxis);
lineChart.setCreateSymbols(false);
lineChart.setAlternativeRowFillVisible(false);
lineChart.setAnimated(false);
lineChart.setLegendVisible(false);
series1.getData().add(new XYChart.Data(1, 0.53185));
series1.getData().add(new XYChart.Data(2, 0.532235));
series1.getData().add(new XYChart.Data(3, 0.53234));
series1.getData().add(new XYChart.Data(4, 0.538765));
series1.getData().add(new XYChart.Data(5, 0.53442));
series1.getData().add(new XYChart.Data(6, 0.534658));
series1.getData().add(new XYChart.Data(7, 0.53023));
series1.getData().add(new XYChart.Data(8, 0.53001));
series1.getData().add(new XYChart.Data(9, 0.53589));
series1.getData().add(new XYChart.Data(10, 0.53476));
pane = new BorderPane();
pane.setCenter(lineChart);
Scene scene = new Scene(pane, 800, 600);
lineChart.getData().addAll(series1);
stage.setScene(scene);
scene.setOnMouseClicked(mouseHandler);
scene.setOnMouseDragged(mouseHandler);
scene.setOnMouseEntered(mouseHandler);
scene.setOnMouseExited(mouseHandler);
scene.setOnMouseMoved(mouseHandler);
scene.setOnMousePressed(mouseHandler);
scene.setOnMouseReleased(mouseHandler);
stage.show();
EventHandler<MouseEvent> mouseHandler = new EventHandler<MouseEvent>() {
@Override
public void handle(MouseEvent mouseEvent) {
if (mouseEvent.getEventType() == MouseEvent.MOUSE_PRESSED) {
rectinitX.set(mouseEvent.getX());
} else if (mouseEvent.getEventType() == MouseEvent.MOUSE_DRAGGED || mouseEvent.getEventType() == MouseEvent.MOUSE_MOVED) {
LineChart<Number, Number> lineChart = (LineChart<Number, Number>) pane.getCenter();
NumberAxis xAxis = (NumberAxis) lineChart.getXAxis();
double newXlower = xAxis.getLowerBound(), newXupper = xAxis.getUpperBound();
double Delta = 0.3;
if (mouseEvent.getEventType() == MouseEvent.MOUSE_DRAGGED) {
if (rectinitX.get() < mouseEvent.getX()) {
Delta *= -1;
newXlower = xAxis.getLowerBound() + Delta;
newXupper = xAxis.getUpperBound() + Delta;
xAxis.setLowerBound(newXlower);
xAxis.setUpperBound(newXupper);
DoubleProperty p1 = xAxis.scaleXProperty();
DoubleProperty p2 = xAxis.translateXProperty();
double horizontalValueRange = xAxis.getUpperBound() - xAxis.getLowerBound();
double horizontalWidthPixels = xAxis.getWidth();
//pixels per unit
double xScale = horizontalWidthPixels / horizontalValueRange;
Set<Node> nodes = lineChart.lookupAll(".chart-vertical-grid-lines");
for (Node n: nodes) {
Path p = (Path) n;
double currLayoutX = p.getLayoutX();
p.setLayoutX(currLayoutX + (Delta*-1) * xScale);
double lox = xAxis.getLayoutX();
rectinitX.set(mouseEvent.getX());
public static void main(String[] args) {
launch(args);
}Any help very much appreciated! -
Hi experts:
I need a Project Accounting Report that shows Original and Current budget together with PTD,ITD,MTD and YTD labor amount, labor cost, non-labor cost, and revenue on the same line for all the task_id for a project. I know these are coming from these ,PA_BUDGET_VERSIONS V, PA_RESOURCE_ASSIGNMENTS A,PA_BUDGET_LINES L, main tables. But I am unable to break down the amounts according to PA and GL periods. Can anyone help please?
Thanks a million , in advance.Help you with what?
No database version number.
No application name or version number.
No DDL.
Do you, for some reason, think we have any idea what PTD and ITD are? If so why?
Do you think we all have your version of a table named PA_RESOURCE_ASSIGNMENTS on our hard disks?
Perhaps you have some version of e-Business Suite. Perhaps you have SAP. Perhaps you have something we've never even heard of.
Your task is as follows:
1. If this question relates to an Oracle product change the subject of the post to "Please Ignore" and post your question in the correct forum.
or
2. Provide us with sufficient information that we can duplicate those portions of your environment required to understand what you are asking. -
(Error code: sec_error_bad_signature) shows up on both firefox and ie when i try to go on google or youtube. it says exactly:Secure Connection Failed
An error occurred during a connection to www.google.com. Peer's certificate has an invalid signature. (Error code: sec_error_bad_signature)
The page you are trying to view cannot be shown because the authenticity of the received data could not be verified.
Please contact the website owners to inform them of this problem. Alternatively, use the command found in the help menu to report this broken site.
What peer?
please answerDo you get a prompt to create an exception?
Click the site identity button - More Information - View Certificate https://support.mozilla.org/en-US/kb/how-do-i-tell-if-my-connection-is-secure
Look for 'Issued By' and post that information or post a screenshot.
https://support.mozilla.org/en-US/kb/how-do-i-create-screenshot-my-problem
Note that some anti-virus/firewall software and programs like Sendori, FiddlerRoot, or BrowserProtect can intercept your secure connections and send their own certificate instead of the website's certificate. -
I have 2 apple tv's but my playlists only show up on one; can I get them to show up on both? I have home sharing turned on and itunes match.
If you are attempting to share to both at the same time, you can't.
Are you selecting the second AppleTV in home sharing options on the MBP. Are all devices signed in for Home Sharing with the same AppleID?
You will also find some additional things to check here: Troubleshooting Home Sharing -
Dear Sirs,
I turn on the iTunes Match in my iphone3GS, but the itme of "show all musics" not show up and turn on, so when I open musics in my iPone3GS, the musics seems not be matched with iClouds.I means it doesn't work on.Hello there Jameskuo47,
In researching the issue you are experiencing I found an article that should help get your iTunes Match content to your iPhone. The name of the article is iTunes: How to add a computer or iOS device to iTunes Match and you can find it here: http://support.apple.com/kb/ht4913.
This section specifically:
To add an iOS device to iTunes Match
On your iOS device, go to Settings > Music.
Note:
iTunes Match requires iOS 5.0.1 or later; you can find the
latest iOS software here'
Tap the iTunes Match switch to On.To access your music in iCloud, open the Music Player app on your device.
Your music in iCloud will be integrated into your local music library. A download button will appear to the right of any content that you have in iCloud that doesn't already exist on your device.
Important:
When enabling iTunes Match on your iOS device, the music library on your iOS device will be deleted and then replaced with your music in iCloud.
Syncing music with iTunes will be disabled while iTunes Match is enabled on your iOS device.
By default, when adding an iOS device to iTunes Match, downloading over a cellular network is enabled1. To disable downloading over cellular for iTunes Match, choose Settings > Music > Use Cellular Data > Off.
All the best,
Sterling -
Code 5200 shows up on my pixmamx320. What is it and how can I fix it.
Code 5200 shows up on my pixmamx320. What is it and how can I fix it?
Hello pep303.
To try and resolve this issue, please unplug the power from the unit for about 25-30 minutes. Once this time frame has passed, plug the unit in directly to a wall outlet to see if the printer will power on.
If the error still remains, please contact a technical support representative at 1-800-652-2666 between the hours of 10 a.m. and 10 p.m., EST, Monday - Friday for additional assistance with this error.
Did this answer your question? Please click the Accept as Solution button so that others may find the answer as well. -
I bought a movie with the digital copy and it gives me option to redeem it with iTunes, but when I type in the redeem code it shows a message saying: " you must insert your digital copy dvd in this computer in order to redeem this code" . The dvd is in. WTH? This is especially with FOX movies, I never have trouble with Universal Picture movies.
Thanks for your reply, but you might have misunderstood it a bit. I'm NOT trying to buy a movie. ****, I'm not even in the actual Apple Store, when this happens I'm in the library not the Store part of iTunes.
To clarify - I have purchased a physical copy of a movie which came with another physical copy which contains the digital copy. The digital copy is on the DVD, all I need is just to transfer this file to my iPod Touch, for example, I'm not trying to download it from the store or repurchase it and it's not any gift code that I've received, the digital copy is on the disc. This is the first time ever that I've purchased something on a disc and I'm not allowed to access it because the disc hasn't been purchased within my country.
So again - I'm not attempting any purchase or download any purchased digital copy - it's on a DVD I own physically so... why is even the region of my Store relevant, the code I enter is (as I assume) just supposed to check if it's a legal genuine copy (which it is, as I've said - there are 6 discs in the pack: 3 movies on 3 Blu-rays and 3 DVD containing these digital copies of them). If I own it, I think that's proof enough that I have the right to use it. I just don't get it. I fully agree with you and understand your point if there was any purchase going on here, but it's not, it's just - I put a disc into my computer and I can't access it -
Last time i used FFsync it didnt ask me about any key! there was a phrse only which it didnt work now so i generate a new code as ur guide shows me and now i lost all my data! i need them alot, i adopted on your servies :( i need my data so badly plz help
Lord K. Thank you. Yes I am within the 90 time period, however I travel Intertionally and I can not receive not make a call to Apple. I was just at the Genius Bar in Chicago and they said, don't worry about it. It just floats out there, however, I can not recover my messages on a flash drive. I need to go back to my old computer which I don't have with me. My messages were in folders for a lawsuit. It is going to take an incredible amount of work for me to, you have no Idea. We are talking thousands of pages! I the defendent will have them during discovery so I am not so worried. However, I can not bring them to him on a Flashdrive when I meet with him without an extraordinary amount of presssure on my part. THis is not just some little email issue. This is suing EXPEDIA and Tripadviosr.com
-
I've lost my access code for my device and the type of device is the iPad Mini
I lost my access code from may device and the type of device is the ipad mini
iOS: Device disabled after entering wrong passcode
http://support.apple.com/kb/ht1212
How can I unlock my iPad if I forgot the passcode?
http://tinyurl.com/7ndy8tb
How to Reset a Forgotten Password for an iOS Device
http://www.wikihow.com/Reset-a-Forgotten-Password-for-an-iOS-Device
Using iPhone/iPad Recovery Mode
http://ipod.about.com/od/iphonetroubleshooting/a/Iphone-Recovery-Mode.htm
Saw this solution on another post about an iPad in a school enviroment. Might work on your iPad so you won't lose everything.
~~~~~~~~~~~~~
‘iPad is disabled’ fix without resetting using iTunes
Today I met my match with an iPad that had a passcode entered too many times, resulting in it displaying the message ‘iPad is disabled – Connect to iTunes’. This was a student iPad and since they use Notability for most of their work there was a chance that her files were not all backed up to the cloud. I really wanted to just re-activate the iPad instead of totally resetting it back to our default image.
I reached out to my PLN on Twitter and had some help from a few people through retweets and a couple of clarification tweets. I love that so many are willing to help out so quickly. Through this I also learned that I look like Lt. Riker from Star Trek (thanks @FillineMachine).
Through some trial and error (and a little sheer luck), I was able to reactivate the iPad without loosing any data. Note, this will only work on the computer it last synced with. Here’s how:
1. Configurator is useless in reactivating a locked iPad. You will only be able to completely reformat the iPad using Configurator. If that’s ok with you, go for it – otherwise don’t waste your time trying to figure it out.
2. Open iTunes with the iPad disconnected.
3. Connect the iPad to the computer and wait for it to show up in the devices section in iTunes.
4. Click on the iPad name when it appears and you will be given the option to restore a backup or setup as a new iPad (since it is locked).
5. Click ‘Setup as new iPad’ and then click restore.
6. The iPad will start backing up before it does the full restore and sync. CANCEL THE BACKUP IMMEDIATELY. You do this by clicking the small x in the status window in iTunes.
7. When the backup cancels, it immediately starts syncing – cancel this as well using the same small x in the iTunes status window.
8. The first stage in the restore process unlocks the iPad, you are basically just cancelling out the restore process as soon as it reactivates the iPad.
If done correctly, you will experience no data loss and the result will be a reactivated iPad. I have now tried this with about 5 iPads that were locked identically by students and each time it worked like a charm.
~~~~~~~~~~~~~
Try it and good luck. You have nothing more to lose if it doesn't work for you.
Cheers, Tom -
Retreive company code data from t001k and plants from t001w based on bwkey
here is my sample code pls.
pls look into the perform <b>PERFORM F_GET_COMPANY_CODE</b>.
and also the link between the tables (custom) like ysda_exp_prtlog,
Purpose: The Monthly export declaration summarizes all SAD *
export documents produced by the system. For each *
plant in France this declaration has to be handed to *
the Customs Authorities, together with copies of all *
invoices mentioned in the report. *
Preds/Successors : - *
External Datasets: - *
INCLUDE PROGRAM : YYSDFORM *
MODIFICATION LOG
Date | Change Number | Initials | Description
*01/10/03| G9DK943416 | AXJIRAP | INITIAL PROGRAM *
*03/10/03| G9DK943416 | TXHONGP | CREATE PRINT-PROGRAM FOR ACCELIO *
*26/10/03| G9DK943416 | KXSAWAS | Merge all Accelio forms into one *
*02/02/04| G9DK959869 | KXSAWAS | Bug fix for Intercompany invoice *
| | | and updating printing no. in *
| | | YSDA_DOC_NUMBER.
*09/02/04| G9DK960368 | KXSAWAS | TICKET AM6219029 various fix *
| G9DK960972 | KXUMNAUY | -Add yuei for download file *
| G9DK961073 | | -Calculate invoice in case *
| G9DK961190 | | invoce is not yet made *
| G9DK961211 | | -Fixed message type when there is*
| | | no data found *
*18/02/04| G9DK961418 | PXSOPHO | -Shift the position in download *
| | | file
*26/02/04| G9DK962077 | kxumnauy | TICKET AM6219029 various fix *
| G9DK962238 | | TICKET AM6289971 fix export file *
| G9DK962271 | |
*18/03/04| G9DK963806 | PXSOPHO | TICKET AM6442955,AM6384438
| G9DK964432 | | - print only 4 chars of the
| G9DK964590 | | export procedure *
| | KXUMNAUY | - Fix internal report
| | KXSAWAS | - Fix invoice currency to EUR.
| | | - Fix SUASUNIC probelm when
| | | download file
*09/06/04| G9DK968994 | KXUMNAUY |TICKET AM6789203
| G9DK969188 | |- Fix box 4 to print the department
| G9DK969246 | |code(first 2 char of the postal)
| G9DK969319 | |- Fix to print all invoice numbers
| G9DK969345 | |reported in the section 3
| G9DK969466 | |- Fix in case invoice currency is
| | |not EUR, use local currency from
| | |accounting document
| | |- Fix in case there are different
| | |codes are loaded on one truck
| | |- Fix the invoice amount in column
| | |27 has to be the amount relating to
| | |the line item
| | |- Fix the issue that Pro forma
| | |invoice for STO (ZF8)shouldn't be
| | |counted to be the final Interco
| | |invoice
*20/08/04| G9DK972875 | KXUMNAUY |AM7387219
| G9DK973032 | |-Exclude samples from the internal
| | |sections 1 and 2
| | |-Data pages: Column 11. When the
| | |invoice amount is less then 1.000
| | |EUR and the quantity is less then.
| | |1.000 then "******" (6 x *) has to
| | |be printed
*07/02/05| G9DK983160 | RXBOONG |AM8522207
| G9DK983168 | |Fix download to unix file
*17/08/06| G9DK9A02DZ | NKONGNG |AM1983727:
| G9DK9A02IK | |-do not show sample orders
| | | (order type FD or ZFD)
| | |AM2985407:
| | |-skip all T2L* documents
*15/12/06| G9DK9A05GB | ZZPWANA | AM10208238
| | The Monthly Export Declaration for plant FR95
| | is showing invoice amounts in SGD in column
| | 27, where amounts in EUR should be shown. As
| | the amounts are labeled as EUR in column 26
| | this is unacceptable.The second issue is that
| | there are no invoice numbers shown in column
| | REM.
| | >> ZZPWANA:AM10208238:G9DK9A05GB <<
| | >> ZZPWANA:AM10208238:G9DK9A05GJ <<
*05/02/07| G9BK900812 | PPATTAN |AM10687113
| G9DK9A0661 | |Correction to the Monthly Export
| | |Declaration alpha character to
| | |numeric field
| |
*09/07/07| G9DK9A09ND |VSRKODA Replace plant with companycode,add
new column plant ,add new logic to
verify that we had received * *
BAEcOMPLETE RESPONSE (fROM FC)
for all the export transactions
REPORT YSDF5092 LINE-SIZE 310
LINE-COUNT 65
NO STANDARD PAGE HEADING
MESSAGE-ID YSD_GENERAL.
INCLUDE PROGRAM FOR ACCELIO *
INCLUDE YYSDFORM. "Include for Accelio Print Process
INCLUDE YSDF006B_INCLUDE.
T A B L E S *
TABLES: NAST.
T Y P E S *
TYPES : BEGIN OF TY_RAW,
WERKS LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
BWKEY LIKE YSDA_EXP_PRTLOG-YY_PLANT,
VALUE_FROM LIKE YCACEDI-VALUE_FROM,
*<-- End of G9DK9A09ND
HEADER_SHT LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO, "G9DK962238
PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
PRINT_TIME LIKE YSDA_EXP_PRTLOG-YY_PRINT_TIME,
DOCUMENT_CODE LIKE YSDA_EXP_PRTLOG-YY_DOCUMENT_CODE,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
DELIVERY LIKE YSDA_EXP_PRTLOG-YY_DELIVERY,
INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO, "G9DK962238
EXTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_EXTERNAL_NO,
COMMODITY LIKE YSDA_EXP_PRTLOG-YY_COMMODITY,
REPORT_FLAG LIKE YSDA_EXP_PRTLOG-YY_REPORT_FLAG, "G9DK962077
END OF TY_RAW.
TYPES : BEGIN OF TY_DATA,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
ZOLLA LIKE EIKP-ZOLLA,
STGBE LIKE EIKP-STGBE,
EXPVZ LIKE EIKP-EXPVZ,
CONTA LIKE EIKP-CONTA,
IEVER LIKE EIKP-IEVER,
PDEST LIKE KNA1-LAND1,
1DEST LIKE KNA1-LAND1,
COMMODITY LIKE YSDA_EXP_PRTLOG-YY_COMMODITY,
STATISTIC TYPE I,
LFIMG LIKE LIPS-LFIMG,
L15 TYPE I,
REGFI(2),
CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
INVOICE_AMT TYPE I,
ZDELN LIKE VBRK-VBELN,
LIVRE(4),
EXPRF LIKE EIPO-EXPRF,
EXART LIKE EIPO-EXART,
NTGEW LIKE LIKP-NTGEW,
YY_SEQTAXNO LIKE VBRK-YY_SEQTAXNO, "G9DK959869
END OF TY_DATA.
TYPES : BEGIN OF TY_HEADER,
HEADER_SHT LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
PRINT_NO LIKE YSDA_DOC_NUMBER-YY_PRINT_NO,
WERKS LIKE T001W-WERKS,
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
BUKRS LIKE T001K-BUKRS,
BWKEY LIKE T001K-BWKEY,
VALUE_FROM LIKE YCACEDI-VALUE_FROM,
*<-- End of G9DK9A09ND
NAME1 LIKE T001W-NAME1,
COM_NAME LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
POST_LOC LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
CUST_OFFICE LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
POST_CODE LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
DATE(25),
ETAB LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
NO_SIREN LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
TEXT2 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
TEXT5 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
TEXT7A LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
TEXT7B LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
TEXT8 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
END OF TY_HEADER.
TYPES : BEGIN OF TY_DELIVERY,
VBELN LIKE LIKP-VBELN,
POSNR LIKE LIPS-POSNR, "G9DK961190
VBUND LIKE LIKP-VBUND,
LFIMG LIKE LIPS-LFIMG,
MEINS LIKE LIPS-MEINS,
EXNUM LIKE LIKP-EXNUM,
KUNNR LIKE LIKP-KUNNR,
KUNAG LIKE LIKP-KUNAG,
L15 LIKE LIPS-LFIMG,
WADAT_IST LIKE LIKP-WADAT_IST,
LDDAT LIKE LIKP-LDDAT,
NTGEW LIKE LIKP-NTGEW,
MATNR LIKE MARA-MATNR,
VRKME LIKE LIPS-VRKME, "G9DK960368
VGBEL LIKE LIPS-VGBEL, "G9DK961190
VGPOS LIKE LIPS-VGPOS, "G9DK961190
UECHA LIKE LIPS-UECHA, "G9DK961190
END OF TY_DELIVERY.
TYPES : BEGIN OF TY_INVOICE,
ZDELN LIKE VBRK-VBELN,
NETWR LIKE VBRK-NETWR,
WAERK LIKE VBRK-WAERK,
KURRF LIKE VBRK-KURRF,
FKIMG LIKE VBRP-FKIMG,
VRKME LIKE VBRP-VRKME,
END OF TY_INVOICE.
TYPES : BEGIN OF TY_INVOICE_TEMP,
ZDELN LIKE VBRK-VBELN,
FKART LIKE VBRK-FKART,
YY_SEQTAXNO LIKE VBRK-YY_SEQTAXNO,
END OF TY_INVOICE_TEMP.
TYPES : BEGIN OF TY_EXPORT,
EXNUM LIKE EIKP-EXNUM,
ZOLLA LIKE EIKP-ZOLLA,
STGBE LIKE EIKP-STGBE,
EXPVZ LIKE EIKP-EXPVZ,
CONTA LIKE EIKP-CONTA,
IEVER LIKE EIKP-IEVER,
EXPRF LIKE EIPO-EXPRF,
EXART LIKE EIPO-EXART,
EXPOS LIKE EIPO-EXPOS, "G9DK961190
STAWN LIKE EIPO-STAWN, "G9DK961190
END OF TY_EXPORT.
TYPES : BEGIN OF TY_HFILE,
POS1(8),
POS2(4),
POS3(2),
POS4,
POS5(8),
POS6(4),
POS7(14),
POS8(20),
POS9(20),
POS10(20),
POS11(8),
END OF TY_HFILE.
TYPES : BEGIN OF TY_DFILE,
pos1(18), "G9DK961418
POS1(19), "G9DK961418
POS1(18), "G9DK962238
POS2(4),
POS3(8),
POS4(6),
POS5(6),
POS5A(4),
POS6(9),
POS6A(5), "G9DK962238
POS7(5),
POS8(5),
POS8A(22),
POS9,
POS10,
POS11,
POS12,
POS13(5),
POS13A,
POS14(13),
POS14A(31),
POS15(2),
POS16(2),
POS16A(3),
POS17(4),
POS17A(3),
POS18(3),
POS18A(9), "G9DK962238
POS19,
POS20(11),
POS21(11),
POS22(10),
POS23(10),
POS23A(40),
POS24(4),
POS25(3),
POS26,
POS26A,
POS27,
POS28(3),
POS29,
END OF TY_DFILE,
BEGIN OF TY_TVKO, "G9DK959869
VKORG LIKE TVKO-VKORG, "G9DK959869
BUKRS LIKE TVKO-BUKRS, "G9DK959869
KUNNR LIKE TVKO-KUNNR, "G9DK959869
END OF TY_TVKO. "G9DK959869
D A T A *
DATA: GV_CUST_NUM LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
GV_SIREN LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
GV_REP_NO LIKE YSDA_DOC_NUMBER-YY_PRINT_NO,
GV_SEQ_NO TYPE I VALUE 0,
GV_PRNTER LIKE TSP01-RQDEST, "Printer Name
GV_DATE(8) TYPE C, "DATE
GV_MONTH(2) TYPE C, "MONTH
GV_DAY(2) TYPE C, "DAY
GV_YEAR(4) TYPE C, "YEAR
GV_ADD1(30) TYPE C, "TEXT-SIMBOL H01A
GV_ADD2(30) TYPE C, "TEXT-SIMBOL H01B
GV_COUNT TYPE I, "COUNT SEQUENCE
GV_SEQUENCE(5) TYPE C, "SEQUENCE
GV_COPYNO TYPE C, "NUMBER OF COPY
GV_DATETEMP(10) TYPE C, "DATE
GV_SECTIONPAGE(2) TYPE C, "NO. OF PAGE IN SECTION
GV_ITEM TYPE I, "NO. OF ITEM
GV_EUR LIKE VBRK-WAERK VALUE 'EUR',
GV_INVOICE_NO LIKE VBRK-VBELN, "G9DK959869
GV_INVOICE_INTERCOM LIKE VBRK-VBELN, "G9DK959869
GV_PRO_FORMA_STO LIKE VBRK-VBELN, "G9DK969466
GV_TEXT46 LIKE YSDA_DOC_FIXTEXT-YY_TEXT. "G9DK959869
C O N S T A N T S *
CONSTANTS: GC_M VALUE 'M',
GC_J VALUE 'J',
GC_C VALUE 'C',
GC_D VALUE 'D',
GC_E VALUE 'E',
GC_F VALUE 'F',
GC_U VALUE 'U',
GC_X VALUE 'X',
GC_0 VALUE '0',
GC_2 VALUE '2',
GC_3 VALUE '3',
GC_MEXP(4) VALUE 'MEXP',
GC_ZAAD(4) VALUE 'ZAAD',
GC_ZSAD(4) VALUE 'ZSAD',
GC_CY(2) VALUE 'CY',
GC_M1(2) VALUE 'M1',
GC_M2(2) VALUE 'M2',
GC_M4(2) VALUE 'M4',
GC_M5(2) VALUE 'M5',
GC_M6(2) VALUE 'M6',
GC_M7(2) VALUE 'M7',
GC_M8(2) VALUE 'M8',
GC_M9(2) VALUE 'M9',
GC_C3(2) VALUE 'C3',
GC_00(2) VALUE '00',
GC_C1(2) VALUE 'C1',
GC_C2(2) VALUE 'C2',
GC_SI(2) VALUE 'SI',
GC_N1(2) VALUE 'N1',
GC_N2(2) VALUE 'N2',
GC_FR(2) VALUE 'FR',
GC_EN(2) VALUE 'EN',
GC_TON LIKE T006-MSEHI VALUE 'TO',
GC_L15 LIKE T006-MSEHI VALUE 'L15',
GC_GRWR(4) VALUE 'GRWR',
GC_SAISUNIC(8) VALUE 'SAISUNIC',
GC_000000(6) VALUE '000000',
GC_1 VALUE '1', "G9BK900812
GC_1 LIKE PLFH-MGVGW VALUE '1', "G9BK900812
GC_DOT(1) VALUE '.',
GC_TYP_EU(3) TYPE C VALUE 'EU ',
GC_TYP_EX(3) TYPE C VALUE 'EX ',
GC_TYP_COM(3) TYPE C VALUE 'COM',
GC_BIS(3) TYPE C VALUE 'BIS',
GC_EUR(3) TYPE C VALUE 'EUR',
GC_IV(2) TYPE C VALUE 'IV',
GC_ZTDR(4) TYPE C VALUE 'ZTDR',
GC_ZF8(3) TYPE C VALUE 'ZF8',
GC_ZIV(3) TYPE C VALUE 'ZIV',
GC_FALSE(1) TYPE C VALUE ' ', "yuie
GC_STRUCT(31) TYPE C VALUE 'DATA', "yuie
GC_TOTAL TYPE VTXTM VALUE 'TOTAL NET UNIT PRICE',"G9DK960368
GC_INTER_PERCENT TYPE VTXTM VALUE 'Inter-company %'."G9DK960368
I N T E R N A L T A B L E S *
DATA: BEGIN OF IT_DOC OCCURS 0,
VBELN LIKE LIKP-VBELN,
FKART LIKE VBRK-FKART,
ERDAT LIKE VBFA-ERDAT,
ERZET LIKE VBFA-ERZET,
ZDELN LIKE VBRK-VBELN,
END OF IT_DOC,
BEGIN OF IT_VBRK OCCURS 0,
ZDELN LIKE VBRK-VBELN,
END OF IT_VBRK,
BEGIN OF IT_SALES OCCURS 0,
VBELN LIKE LIKP-VBELN,
VBELV LIKE VBAK-VBELN, "Order Number
AUART LIKE VBAK-AUART,
KNUMV LIKE VBAK-KNUMV,
KALSM LIKE VBAK-KALSM, "G9DK960368
WAERK LIKE VBAK-KALSM, "G9DK960368
KNUMA LIKE VBAK-KNUMA, "G9DK960368
END OF IT_SALES,
*--> begin of G9DK961190 kxumnauy 13 feb 2004
BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAK-VBELN, " Sale doc.
POSNR LIKE VBAP-POSNR, " Sales document item
KNUMV LIKE VBAK-KNUMV, " No. of the document cond.
KALSM LIKE VBAK-KALSM,
WAERK LIKE VBAK-KALSM,
KNUMA LIKE VBAK-KNUMA,
END OF IT_VBAP,
*<-- end of G9DK961190
BEGIN OF IT_KSCHL OCCURS 0,
KNUMV LIKE KONV-KNUMV,
KBETR LIKE KONV-KBETR,
WAERS LIKE KONV-WAERS, "G9DK960368
END OF IT_KSCHL,
BEGIN OF IT_VBKD OCCURS 0,
VBELV LIKE VBAK-VBELN,
INCO1 LIKE VBKD-INCO1,
END OF IT_VBKD,
BEGIN OF IT_COUNTRY OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
LAND1 LIKE KNA1-LAND1,
END OF IT_COUNTRY,
BEGIN OF IT_CNO OCCURS 0,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
END OF IT_CNO,
BEGIN OF IT_LNO OCCURS 0,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
END OF IT_LNO,
BEGIN OF IT_LINV OCCURS 0,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
LFIMG LIKE LIPS-LFIMG,
ZDELN LIKE VBRK-YY_SEQTAXNO,
END OF IT_LINV,
BEGIN OF IT_DIFF OCCURS 0,
HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
VBELV LIKE VBAK-VBELN,
INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
LFIMG LIKE LIPS-LFIMG,
NETWR LIKE VBRK-NETWR,
WAERK LIKE VBRK-WAERK,
KURRF LIKE VBRK-KURRF,
FKIMG LIKE VBRP-FKIMG,
ZDELN LIKE VBRK-YY_SEQTAXNO,
END OF IT_DIFF.
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
Data :Begin of it_t001k occurs 0,
bwkey like t001k-bwkey,
bukrs like t001k-bukrs,
werks like t001w-werks,
end of it_t001k.
TABLES: T001W.
Data :Begin of it_t001w occurS 0,
bwkey like t001w-bwkey,
werks like t001w-werks,
end of it_t001w.
*<-- End of G9DK9A09ND
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
DATA: BEGIN OF IT_SIREN OCCURS 0,
VALUE_FROM LIKE YCACEDI-VALUE_FROM,
MESTYP LIKE YCACEDI-MESTYP,
DIRECT LIKE YCACEDI-MESTYP,
ORG_LEVEL LIKE YCACEDI-ORG_LEVEL,
ORG_VALUE LIKE YCACEDI-ORG_VALUE,
FIELDNAME LIKE YCACEDI-FIELDNAME,
END OF IT_SIREN.
*<-- End of G9DK9A09ND
*--> Begin of G9DK959869 KXSAWAS 02/02/2004
DATA: BEGIN OF IT_ORDER OCCURS 0,
VBELN LIKE VBAK-VBELN, " Order no.
VKORG LIKE VBAK-VKORG, " Sale Org. of order
END OF IT_ORDER,
BEGIN OF WA_T001W,
WERKS LIKE T001W-WERKS, " Plant
BUKRS LIKE T001K-BUKRS,
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
BWKEY LIKE T001K-BWKEY,
*<-- End of G9DK9A09ND
VKORG LIKE T001W-VKORG, " Sale Org. of plant
COUNC LIKE T001W-COUNC, " Country code
LAND1 LIKE T001W-LAND1, "
ADRNR LIKE T001W-ADRNR,
ORT01 LIKE T001W-ORT01,
END OF WA_T001W,
BEGIN OF IT_LIKP OCCURS 0,
VBELN LIKE LIKP-VBELN, " Delivery
VKORG LIKE LIKP-VKORG, " Sale organization
KUNNR LIKE LIKP-KUNNR, " Ship-to party
INCO1 LIKE LIKP-INCO1, " Incoterm part1
INCO2 LIKE LIKP-INCO2, " Incoterm part2
END OF IT_LIKP.
*<-- End of G9DK959869
DATA: IT_RAW TYPE TABLE OF TY_RAW WITH HEADER LINE,
IT_DATA TYPE TABLE OF TY_DATA WITH HEADER LINE,
IT_EXPORT TYPE TABLE OF TY_EXPORT WITH HEADER LINE,
IT_DELIVERY TYPE TABLE OF TY_DELIVERY WITH HEADER LINE,
IT_INVOICE TYPE TABLE OF TY_INVOICE WITH HEADER LINE,
IT_FILE TYPE TABLE OF TY_DFILE WITH HEADER LINE,
IT_HEADER TYPE TABLE OF TY_HEADER WITH HEADER LINE,
IT_SELTAB TYPE TABLE OF RSPARAMS WITH HEADER LINE,
IT_INVOICE_TEMP TYPE TABLE OF TY_INVOICE_TEMP WITH HEADER LINE,
IT_TVKO_ORDER TYPE TABLE OF TY_TVKO WITH HEADER LINE,"G9DK959869
IT_DEL TYPE TABLE OF TY_DELIVERY WITH HEADER LINE. "G9DK960368
*--> Begin of G9DK960368 KXSAWAS 05/02/2004
DATA: BEGIN OF YUIE_ITAB OCCURS 0,
RECID(31),
DATA(1024).
DATA: END OF YUIE_ITAB.
TYPE-POOLS: YUIEX.
*DATA : it_komv2 LIKE komv OCCURS 0 WITH HEADER LINE. "G9DK961190
*<-- End of G9DK960368
*Begin of G9DK964590 kxumnauy 30 mar 2003
DATA: BEGIN OF KEY_ZBAT01,
MANDT TYPE ZBAT01-MANDT,
REPID TYPE ZBAT01-REPID,
FUNCT TYPE ZBAT01-FUNCT,
END OF KEY_ZBAT01.
*End of G9DK964590
*--> Begin of G9DK968994 kxumnauy
DATA: BEGIN OF IT_INVOICE_ITEM OCCURS 0,
VBELN LIKE VBRP-VBELN,
POSNR LIKE VBRP-POSNR,
NETWR LIKE VBRP-NETWR,
VGBEL LIKE VBRP-VGBEL,
VGPOS LIKE VBRP-VGPOS,
MATNR LIKE VBRP-MATNR,
fkimg LIKE VBRP-fkimg, "G9DK969188
vrkme LIKE VBRP-vrkme, "G9DK969188
ntgew LIKE VBRP-ntgew, "G9DK969188
gewei LIKE VBRP-gewei, "G9DK969188
END OF IT_INVOICE_ITEM.
*<-- End of G9DK968994
RANGES: S_LAST FOR SY-DATUM,
S_PERIOD FOR SY-DATUM.
W O R K A R E A S *
DATA: WA_RAW TYPE TY_RAW,
WA_DATA TYPE TY_DATA,
WA_EXPORT TYPE TY_EXPORT,
WA_DOC LIKE IT_DOC,
WA_SALES LIKE IT_SALES,
WA_SALES1 LIKE IT_SALES, "G9DK972875
WA_KSCHL LIKE IT_KSCHL,
WA_VBKD LIKE IT_VBKD,
WA_COUNTRY LIKE IT_COUNTRY,
WA_DELIVERY TYPE TY_DELIVERY,
WA_INVOICE TYPE TY_INVOICE,
WA_LINV LIKE IT_LINV,
WA_CNO LIKE IT_CNO,
WA_LNO LIKE IT_LNO,
WA_DIFF LIKE IT_DIFF,
WA_HEADER TYPE TY_HEADER,
WA_VBRK LIKE IT_VBRK,
WA_FILE TYPE TY_DFILE,
WA_HFILE TYPE TY_HFILE,
WA_SELTAB TYPE RSPARAMS,
WA_INVOICE_TEMP TYPE TY_INVOICE_TEMP,
WA_TVKO_PLANT TYPE TY_TVKO, "G9DK959869
WA_LIKP LIKE IT_LIKP, "G9DK959869
WA_DEL LIKE IT_DELIVERY, "G9DK960368
WA_KOMK LIKE KOMK, "G9DK960368
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
WA_T001K LIKE T001K.
*<-- End of G9DK9A09ND
S E L E C T - O P T I O N S / P A R A M E T E R S *
SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-001.
*Begin of change VSRKODA
PARAMETERS: P_BUKRS LIKE T001K-BUKRS,
S_WERKS LIKE T001W-WERKS,
*end of change VSRKODA
P_MNR LIKE T247-MNR,
P_YEAR LIKE VBRK-GJAHR.
SELECT-OPTIONS: S_WERKS FOR T001W-WERKS.
PARAMETERS: P_PRNTER LIKE TSP01-RQDEST. "Printer Name
p_file AS CHECKBOX. "yuie
SELECTION-SCREEN END OF BLOCK SCR1.
*--> Begin of G9DK960368 KXSAWAS 05/02/2004
*--- Comment out ---
*SELECTION-SCREEN BEGIN OF BLOCK b2
WITH FRAME TITLE text-t01.
*PARAMETERS: p_fname LIKE rlgrap-filename .
*SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T01.
PARAMETERS: P_FILE AS CHECKBOX.
PARAMETERS: P_FNAME TYPE EPSFILNAM LOWER CASE, "interface UNIX file
P_SPATH TYPE EPSDIRNAM DEFAULT
'/opt/mobil/batch/gem/other/common/data/' LOWER CASE.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-T03.
PARAMETERS: P_INTID TYPE YINT_IDS DEFAULT 'DCG_REPORT',
P_SUBID TYPE YINT_SUB_IDS DEFAULT 'MAIN'.
SELECTION-SCREEN END OF BLOCK B3.
*<-- End of G9DK960368
AT SELECTION SCREEN
AT SELECTION-SCREEN.
To validate the data that user entered in the selection screen
PERFORM F_VALIDATE_DATA.
PERFORM F_GET_COMPANY_CODE.
I N I T I A L I Z A T I O N *
INITIALIZATION.
P_MNR = SY-DATUM+4(2).
P_YEAR = SY-DATUM+0(4).
*--> Begin of G9DK960368 KXSAWAS 05/02/2004
*---Set default unix file name yuie
CONCATENATE 'DCG_SAISUNIC' SY-UNAME
INTO P_FNAME
SEPARATED BY '_'.
*<-- End of G9DK960368
B E G I N - O F - S E L E C T I O N *
START-OF-SELECTION.
GV_PRNTER = P_PRNTER.
PERFORM F_INIT_PERIOD.
PERFORM F_GET_CURRENT_REPORT_NUMBER.
PERFORM F_GET_COMPANY_CODE.
PERFORM F_EXTRACT_RAW_DATA.
PERFORM F_PROCESS_DATA.
IF SY-BATCH EQ GC_X.
PERFORM F_UPDATE_REPORT_NUMBER.
ENDIF.
END-OF-SELECTION.
IF NOT ( IT_HEADER[] IS INITIAL AND IT_DATA[] IS INITIAL AND
IT_CNO[] IS INITIAL AND IT_LNO[] IS INITIAL AND
IT_LINV[] IS INITIAL AND IT_DIFF[] IS INITIAL ).
PERFORM F_PRINT_ACCELIO.
ELSE.
MESSAGE ID 'YM' TYPE 'I' NUMBER '032' "G9DK961073
WITH 'No data found for entered criteria'(E01).
EXIT.
ENDIF.
*If run by batch job print invoice
IF SY-BATCH EQ GC_X.
PERFORM F_PRINT_INVOICE.
ENDIF.
B E G I N O F F O R M *
*& Form F_INIT_PERIOD
Period
FORM F_INIT_PERIOD.
DATA: LV_FIRST LIKE SY-DATUM,
LV_CURRENT LIKE SY-DATUM,
LV_LAST LIKE SY-DATUM,
LV_DTEMP_FIRST(12) TYPE C,
LV_DTEMP_LAST(12) TYPE C.
LV_FIRST+0(4) = P_YEAR.
LV_FIRST+4(2) = P_MNR.
LV_FIRST+6(2) = '01'.
LAST DAY OF CURRENT MONTH
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = LV_FIRST
IMPORTING
LAST_DAY_OF_MONTH = LV_CURRENT
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2.
IF SY-SUBRC = 0.
IF P_MNR < '2'.
LV_FIRST+0(4) = P_YEAR - 1.
LV_FIRST+4(2) = '12'.
LV_FIRST+6(2) = '01'.
ELSE.
LV_FIRST+0(4) = P_YEAR.
LV_FIRST+4(2) = P_MNR - 1.
LV_FIRST+6(2) = '01'.
ENDIF.
LAST DAY OF LAST MONTH
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = LV_FIRST
IMPORTING
LAST_DAY_OF_MONTH = LV_LAST
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2.
IF SY-SUBRC = 0.
LV_FIRST = '20040101'. "G9DK973032
LAST MONTH
S_LAST-SIGN = 'I'.
S_LAST-OPTION = 'BT'.
S_LAST-LOW = LV_FIRST.
S_LAST-HIGH = LV_LAST.
APPEND S_LAST.
LAST MONTH AND CURRENT MONTH
S_PERIOD-SIGN = 'I'.
S_PERIOD-OPTION = 'BT'.
S_PERIOD-LOW = LV_FIRST.
S_PERIOD-HIGH = LV_CURRENT.
APPEND S_PERIOD.
ENDIF.
ENDIF.
ENDFORM. " F_INIT_PERIOD
*& Form F_GET_CURRENT_REPORT_NUMBER
Get current Seq. no. from YSDA_DOC_NUMBER
FORM F_GET_CURRENT_REPORT_NUMBER.
DATA: LV_RC LIKE SY-SUBRC.
CHECK SY-BATCH = GC_X.
DO 3 TIMES.
PERFORM F_LOCK_OBJECT CHANGING LV_RC.
IF LV_RC <> 0.
PERFORM F_WAIT.
ELSE.
EXIT.
ENDIF.
ENDDO.
IF LV_RC <> 0.
PERFORM F_UNLOCK_OBJECT.
PERFORM F_LOCK_OBJECT CHANGING LV_RC.
ENDIF.
SELECT SINGLE YY_PRINT_NO
INTO GV_REP_NO
FROM YSDA_DOC_NUMBER
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
where yy_plant = P_WERKS
*<-- End of G9DK9A09ND
WHERE YY_PLANT IN S_WERKS
AND YY_YEAR = P_YEAR
AND YY_DOCUMENT_CODE = GC_MEXP.
*--> Begin of G9DK959869 KXSAWAS 02/02/2004
IF SY-BATCH = GC_X.
GV_REP_NO = GV_REP_NO + 1.
ELSE.
GV_REP_NO = 0.
ENDIF.
*<-- End of G9DK959869
ENDFORM. " F_GET_CURRENT_REPORT_NUMBER
*& Form F_GET_COMPANY_CODE
text
--> p1 text
<-- p2 text
FORM F_GET_COMPANY_CODE.
CLEAR: it_t001k-bwkey.
Validate input data against master table of SAP
Validate company code against T001k
IF NOT P_BUKRS IS INITIAL.
SELECT T001K~BUKRS
T001K~BWKEY
T001W~WERKS
INTO CORRESPONDING FIELDS OF TABLE IT_T001K
FROM T001K
INNER JOIN T001W ON T001W~BWKEY = T001K~BWKEY
WHERE BUKRS = P_BUKRS
AND WERKS IN S_WERKS.
APPEND IT_T001K.
select t001kbukrs t001kbwkey t001w~werks
into corresponding fields of table itab
from t001w
inner join t001k
on t001kbwkey = t001wbwkey.
LOOP AT IT_T001K.
it_t001k-bwkey = it_t001w-werks.
ENDLOOP.
ENDIF.
ENDFORM. " F_GET_COMPANY_CODE
*& Form F_EXTRACT_RAW_DATA
Extract entries from YSDA_EXP_PRTLOG
FORM F_EXTRACT_RAW_DATA.
SELECT YY_PLANT
YY_HEADER_TYP
YY_INTERNAL_NO
YY_PRINT_DATE
YY_PRINT_TIME
YY_DOCUMENT_CODE
YY_HEADER_TYP
YY_DELIVERY
YY_INVOICE_AMT
YY_EX_RATE
YY_CURRENCY
YY_INTERNAL_NO "G9DK962238
YY_EXTERNAL_NO
YY_COMMODITY
YY_REPORT_FLAG "G9DK962077
INTO corresponding fields of TABLE IT_RAW
FROM YSDA_EXP_PRTLOG
WHERE YY_PLANT IN S_WERKS
**-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
where yy_plant = s_werks
**<-- End of G9DK9A09ND
and YY_PRINT_DATE IN S_PERIOD+
AND YY_REPORT_FLAG <> 'X' "G9DK973032
AND YY_HEADER_TYP <> 'T2L' "G9DK9A02DZ
AND YY_ANNULATION <> 'X'.
*If run by batch job
*--> Begin of G9DK959869 KXSAWAS 02/02/2004
*--- Comment out ---
IF sy-batch EQ gc_x.
IF NOT it_raw[] IS INITIAL.
LOOP AT it_raw.
**Update YY_REPORT_FLAG EQ 'X'
UPDATE ysda_exp_prtlog SET yy_report_flag = gc_x
WHERE yy_plant = p_werks
AND yy_print_date = it_raw-print_date
AND yy_print_time = it_raw-print_time
AND yy_document_code = it_raw-document_code.
ENDLOOP.
ENDIF.
ENDIF.
*<-- End of G9DK959869
LOOP AT IT_RAW.
IT_RAW-HEADER_SHT = IT_RAW-HEADER_SHT+0(3).
MODIFY IT_RAW.
ENDLOOP.
SORT IT_RAW BY WERKS HEADER_SHT INTERNAL_NO "G9DK962271
PRINT_DATE. "G9DK962238
ENDFORM. " F_EXTRACT_RAW_DATA
*& Form F_PROCESS_DATA
Extract all required data
FORM F_PROCESS_DATA.
PERFORM F_EXTRACT_DOC_FLOW.
PERFORM F_EXTRACT_INCO_TERM.
PERFORM F_EXTRACT_DELIVERY_DATA.
PERFORM F_EXTRACT_INVOICE_DATA.
PERFORM F_EXTRACT_EXPORT_DATA.
PERFORM F_EXTRACT_HEADER_DATA.
PERFORM F_EXTRACT_COMPANY. "G9DK959869
PERFORM F_CLASSIFY_DATA.
ENDFORM. " F_PROCESS_DATA
*& Form F_EXTRACT_DOC_FLOW
Extract Sale data
FORM F_EXTRACT_DOC_FLOW.
IF NOT IT_RAW[] IS INITIAL.
SELECT VBELV
VBTYP_N
ERDAT
ERZET
VBELN
INTO TABLE IT_DOC
FROM VBFA
FOR ALL ENTRIES IN IT_RAW
WHERE VBELV = IT_RAW-DELIVERY
AND ( VBTYP_N = 'M'
OR VBTYP_N = '5' ).
SELECT A~VBELN
A~VBELV
B~AUART
B~KNUMV
B~KALSM "G9DK960368
B~WAERK "G9DK960368
B~KNUMA "G9DK960368
INTO TABLE IT_SALES
FROM VBFA AS A INNER JOIN VBAK AS B
ON AVBELV = BVBELN
FOR ALL ENTRIES IN IT_RAW
WHERE A~VBELN = IT_RAW-DELIVERY
AND A~VBTYP_N = GC_J.
ENDIF.
SORT IT_SALES BY VBELN VBELV.
DELETE ADJACENT DUPLICATES FROM IT_SALES COMPARING ALL FIELDS.
SORT IT_DOC BY VBELN ASCENDING
FKART ASCENDING
ERDAT DESCENDING
ERZET DESCENDING.
DELETE ADJACENT DUPLICATES FROM IT_DOC COMPARING ALL FIELDS.
IF NOT IT_SALES[] IS INITIAL.
SELECT KNUMV
KBETR
WAERS "G9DK960368
INTO TABLE IT_KSCHL
FROM KONV
FOR ALL ENTRIES IN IT_SALES
WHERE KNUMV = IT_SALES-KNUMV
AND KSCHL = GC_GRWR.
ENDIF.
SORT IT_KSCHL BY KNUMV.
ENDFORM. " F_EXTRACT_DOC_FLOW
*& Form F_EXTRACT_INCO_TERM
Extract inco term
FORM F_EXTRACT_INCO_TERM.
IF NOT IT_SALES[] IS INITIAL.
SELECT VBELN
What's wrong with F_GET_COMPANY_CODE ? Below is similar code - try running this and seeing what you get:
report zlocal_jc_t001w.
tables:
t001k, "Valuation area
t001w. "Plants/Branches
parameters:
p_bukrs like t001k-bukrs default '1000'.
select-options:
s_werks for t001w-werks.
start-of-selection.
perform get_data.
*& Form get_data
form get_data.
data:
begin of gt_t001k occurs 10,
bukrs like t001k-bukrs,
bwkey like t001k-bwkey,
werks like t001w-werks,
end of gt_t001k.
select
t001k~bukrs
t001k~bwkey
t001w~werks
into corresponding fields of table gt_t001k
from t001k as t001k
inner join t001w as t001w on t001w~bwkey = t001k~bwkey
where t001k~bukrs = p_bukrs
and t001w~werks in s_werks.
loop at gt_t001k.
write: /
gt_t001k-bukrs,
gt_t001k-bwkey,
gt_t001k-werks.
endloop.
endform. "get_data
As for links to locally defined database tables, that will depend on what the keys defined in SE11 are e.g. there will be a primary key plus relationships to other tables (for example "WERKS LIKE YSDA_EXP_PRTLOG-YY_PLANT" indicates YY_PLANT relates to T001W).
Jonathan -
Cannot see BOTH synched library AND iTunes Match library at the same time
I ran iTunes Match on my library of MP3 files and hit the maximum allowed 25,000 song limit in my paid iTunes Match account. Then I created a new version of my local/PC iTunes library with those 25,000 MP3 songs removed, and synchronized it with my iPhone 4s running IOS7 and iTunes Match turned OFF. So far so good.
So now I theoretically have no duplication between my 25,000 song iTunes Match library and my local iTunes library that resides on my PC.
But even though I have the "Show All Music" setting on the phone turned on, the iTunes Match songs don't appear on my iPhone until I also turn the iTunes Match setting on. But as soon as I do that, all of the songs I synched from my local iTunes library on my PC completely disappear- having been completely replaced by my iTunes Match library. If I then turn the iTunes Match setting off again (while still leaving "Show All Music on"), the iTunes Match songs also disappear, leaving my iPhone music library completely empty. Have I misunderstood the meaning of the "Show All Music" setting, or is something malfunctioning?
My question is: How can I make ALL of my songs (both the ones I have previously captured in ITunes Match AND the ones I synched with my PC via iTunes) appear on my iPhone at the same time? This scenario seemed to be working just fine under IOS6 on the same iPhone.I had a somewhat similar experience. When I enabled paid iTunes Match on my iPhone 5, iOS7, all of my locally-stored songs on the iPhone disappeared and remained gone even after I disabled iTunes Match on the iPhone.
A chat session with Apple support revealed that iTunes Match will in fact supersede any synched content on the iPhone. The suggestion from Apple support was to download on the phone all the previously-synched content via iTunes Match wireless connection. Of course, that would take hours if not days. And that crazy workaround won't help you because you want songs other than what you have in the Cloud.
It appears that various members of this forum have not had this same experience. I'm not sure what's going on here. Usually with Apple's tight control of hardware and software these anomalies are avoided.
And I didn't really need iTunes Match except I wanted commercial-free iTunes Radio (which I think is great, by the way). At least for now, commercial-free radio (with a paid subscription) can be achieved only by enabling all of the iTunes Match features. I'm not sure why Apple requires this bundling unless its part of a general push to a streaming model for everything (more revenue opportunities) as opposed to supporting local storage.
Maybe you are looking for
-
Re: How to display an image in a grid cell and drag and drop
hi all, i have the code to create cells in the rectangular box and it will display the positions of each cell on mouse click. can we place an image in one cell and drag that image to other cells. can we do this,, can any one know about this, reply's
-
Does the new Macbook Pro 13" support TOSLink cable (audio out)
I just bought new Macbook Pro 13" (April, 2010) and I want to connect my Macbook to AV receiver or home theater to decode DTS digital sound. Can I use the TOSLink cable (mini 3.5mm jack to Optical) with Macbook Pro 2010 audio out ? (My AV receiver do
-
B540p double problem: loud noise and not working touch! Help please!
Hello! I've bought an IdeaCentre B540pa (57314172) just 5 days ago. And suddenly two problems appeared. 1) My touch has ghost touching or self-touching. It's impossible to do anything. Sometimes for 5-10 minutes touch works ok, I can do things with f
-
Problem with Help Link in search result screen of PCUI
Hi, I am trying to access the pcui applications that came out of box with crm using BAB,everthing is working fine but got a problem with "Help" link in top right (beside personalize link) the search result area of all the PCUI screens. when i click
-
I've seen talk on here about setting levels for audio in order for it to stay within a healthy range for DVD and TV playback. How do I do that and when do I apply the compressor/limiter? Do I do it to ever clip or can I do it to the entire project at