Batch transaction report is not reporting correctly.
Inventory reports > Batch Number Transactions Report
For one item, I check one particular batch. A sales order with Qty 5 was copied to delivery note(fully delivered qty 5). On the Batch Number Transactions Report the delivery has Allocated -5 and Direction u2018Allocatedu2019.
Why is the Delivery Note showing 5 units with a direction of allocated, rather than out?
Hi Maeve,
Post a Message to SAP Support Center and also check the
following thread
Allocated quantity's batch showing Null basetype
Re: How to release batch number that's allocated in a "closed' sales order
*Close the thread if issue solved.
Regards
Jambulingam.P
Similar Messages
-
Alter nate color applied in SSRS report is not updating correctly when you export to excel
alternate color applied in SSRS report is not updating correctly when you export to excel. Please let me know how can I resolve this issue
Smash126Expression I am using report is
=IIf(RowNumber(
Nothing)
Mod2 = 0,
"Silver",
Nothing)
Smash126 -
Report does not display correctly when exported to adobe
Post Author: mgisonda
CA Forum: Crystal Reports
Hopefully someone can help me. I am currently running Crystal Reports profession version 10. I have applied service pack 1 and recently service pack 6. I am having a problem with the display of a report within adobe. My report is a bit complex. It is a 8.5x11 one page landscape report. It is set up in a grid format with multiple lines and boxes drawn on it. Here is the report information: Report Definition----
Number of Database Fields: 144 Number of On-Demand Formulas: 40 UFLs in use: None Page N of M Used: No File Format Schema: 10.2.0 I created the report using CR developer. I use the report within a web project. The user requests the report and it returns to the user, an adobe file of the report. However, this is where I am having trouble. On my local development machine, the report displays fine. In CR developer, the report displays fine. When I export the report to Adobe from the CR Developer, it exports fine. BUT when I run the report from my web site, the adobe file that is returned is broken up over 42 pages. What seems to be actually happening is the return adobe file seems to think that the page size is 2in X 4in.. Where it got that, I don't know.The server running IIS is a windows server 2003. It has adobe 8.0 reader on it. I also have Crystal 10 Server Distribution loaded on it. And I have loaded CR10 Service pack 6 on that as well. Below is the web code that is used to display the report:Imports CrystalDecisions.Shared'Imports CrystalDecisions.CrystalReportsImports CrystalDecisions.CrystalReports.EngineImports CrystalDecisions.CrystalReports.Engine.ReportClassPublic Class PrintInspectionLayout Inherits System.Web.UI.Page Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mNotInSpringDesign As String Dim mPartType As String mNotInSpringDesign = Request.QueryString("NotInSpringDesign") If mNotInSpringDesign = "TRUE" Then mStockCode = Request.QueryString("StockCode") lblNotInSpringDesign.Text = "Stock Code #: " & mStockCode & " does not exist in Spring Design." lblNotInSpringDesign.Visible = True Response.Write("<br><br><br><br><br><font color='blue'><center><a href='SpringDesignWildCardSearch.aspx'>Go To Search Page</a></center></font>") Else mStockCode = Request.QueryString("StockCode") Dim pList As ParameterValues = New ParameterValues Dim paramName, paramValue As String Dim pV As ParameterDiscreteValue = New ParameterDiscreteValue Dim Report As ReportDocument= New ReportDocument Dim expOpts As ExportOptions = New ExportOptions Dim pdfRtfWordFormatOpts As PdfRtfWordFormatOptions = expOpts.CreatePdfRtfWordFormatOptions Dim expFormatOpts As ExportFormatOptions = expOpts.ExportFormatOptions expOpts.ExportFormatType = ExportFormatType.PortableDocFormat mPartType = Request.QueryString("PartType") 'SELECT THE INSPECTION LAYOUT TYPE TO PRINT Select Case mPartType Case Is = "C" Report.Load(MapPath("./Reports/CompressionLayout.rpt")) 'Report.Load(MapPath("./Reports/PCAR.rpt")) Case Is = "E" Report.Load(MapPath("./Reports/ExtensionLayout.rpt")) Case Is = "T" Report.Load(MapPath("./Reports/TorsionLayout.rpt")) Case Is = "W" Report.Load(MapPath("./Reports/WasherLayout.rpt")) Case Is = "F" Report.Load(MapPath("./Reports/FreeFormLayout.rpt")) Case Else End Select pV.Value = mStockCode pList.Add(pV) Report.DataDefinition.ParameterFields("StockCode").ApplyCurrentValues(pList) Response.ClearContent() Response.ClearHeaders() Response.ContentType = "Application/pdf" Report.ExportToHttpResponse(expOpts, Response, False, "") Report.Close() End If End Sub Any ideas as to the solution? Why is it not displaying correctly? I have spent two days researching every FAQ to try to find an answer, but to no avail. Please any help would be greatly appreciated. ThanksMikeHi Paul
You're more likely to get an answer to this if you post in the UNIX forum.
By the looks of it, you may have a problem with your fonts. -
REPORT DOES NOT RUN CORRECTLY , URGENT PLEASE HELP
Hi,
I am trying to run a report from visul basic screen, but it does not run correctly. Here is how I am running the report. There is a screen developed in VB This screen prompts the user for user id and password. Once it gets that, it connects to the oracle database and pulls out a column from a table. And passes that value as a parameter to the report. Now I am calling the the report for each individual value . There are 21 value being pulled out of the database and it invokes the report 21 times. So there are 21 report engines gets started. Is there a better way to do that ? Secondly when I pass the parameter , some parameters does not pass correctly I guess , because its not generating any out put . Like out of 21 may be 10 or 11 reports gets generated correctly but rest of the reports are blank. I debug the screen i saw that the parameter value is correct, everything seems good. But still the reports are comming blank. Any Idea why it is so ? The command line that i am using in VB screen is
Shell "C:\progra~1\ora95_2\bin\rwrun60.exe P:\Business_Analysis_&_Reporting_Tool\Test_REPORT_Templates\STORE_TYPES\Baby_Distribution_Report.Rdf USERID=" & UID & "/" & PWD & "@cposp201 DESFORMAT=PDF DESTYPE=FILE DESNAME=" & txtPath.Text & Replace(strName, " ", "_") & ".PDF BRND='" & adoRecBrand!Brand & "' PRINTJOB=NO PARAMFORM=NO"
In the above command " adoRecBrand!Brand " is the parameter thats being passed. This is actually a recordset and brand is the column in it. When I debug the screen , I see the value also there. But the report comes out blank. Please help. This is urgent.
Thanks
FerozThe way you call reports is not scalable. If you have 100 records come back from database, you would end up launch 100 engines at the same times, which probably will blow up your machine. You should use oracle reports server to do that. You can either use rwcli60 to submit the job to reports server, or invoke rwcgi60 from URL.
I am afraid some of reports engine failed to start and you get nothing back in your case.
After switch to use reports server achitecture, if you still see some report is blank in your application, then you can run that report with that special set of parameters manually and see if any problem with the report itself.
Hope this helps.
Thanks,
-Shaun -
ARIAL FONT IN REPORTS(WINDOWS), NOT SHOWN CORRECTLY UNDER LINUX
Our Reports are developed under Windows (Report Builder 9.0.4.0.33 and Windows 2000/Windows XP) and generated under Linux (IAS 10.1.2.0.2 with Red Hat Advanced Server). The Report Output is a PDF, that will be downloaded by the user with WEB.SHOW_DOCUMENT. This works fine, but fonts are not shown correctly in the PDF, especially ARIAL, which is the font we use.
I have run the Fontsolution Configuration Script from Metalink, but we still have a problem.
When you look at the font.pdf, wich is the testreport from fontsolutions, some sizes and styles of Arial are printed correctly others not.
Arial 8 is ok, but Arial 10 and Arial 12 are something like Times New Roman.
Arial 12 Bolded is correct, but Arial 12 italic and Arial 12 bold italic are also not
the Arial Font.
How can we correct this problem?
Regards
Udo
These are the files changed by Fontsolution Configuration Script:
uifont.ali
# uifont.ali provided in fontsolutions.tar for developer 9.0.2
# $Header: uifont.ali@@/main/22 \
# Checked in on Tue Jan 8 15:32:42 PST 2002 by idc \
# Copyright (c) 1999, 2002 by Oracle Corporation. All Rights Reserved. \
# $
# $Revision: /main/22 $
# Copyright (c) Oracle Corporation 1994, 2002.
# All Rights Reserved.
# DESCRIPTION:
# Each line is of the form:
# <Face>.<Size>.<Style>.<Weight>.<Width>.<CharSet> = \
# <Face>.<Size>.<Style>.<Weight>.<Width>.<CharSet>
# The <Face> must be the name (string/identifier) of a font face. The
# <Style>, <Weight>, <Width>, and <CharSet> may either be a numeric
# value or a predefined identifier/string. For example, both US7ASCII
# and 1 are valid <CharSet> values, and refer to the same character set.
# The <Size> dimension must be an explicit size, in points.
# The following is a list of recognized names and their numeric
# equivalents:
# Styles Numeric value
# Plain 0
# Italic 1
# Oblique 2
# Underline 4
# Outline 8
# Shadow 16
# Inverted 32
# Overstrike 64
# Blink 128
# Weights Numeric value
# Ultralight 1
# Extralight 2
# Light 3
# Demilight 4
# Medium 5
# Demibold 6
# Bold 7
# Extrabold 8
# Ultrabold 9
# Widths Numeric value
# Ultradense 1
# Extradense 2
# Dense 3
# Semidense 4
# Normal 5
# Semiexpand 6
# Expand 7
# Extraexpand 8
# Ultraexpand 9
# Styles may be combined; you can use plus ("+") to delimit parts of a
# style. For example,
# Arial..Italic+Overstrike = Helvetica.12.Italic.Bold
# are equivalent, and either one will map any Arial that has both Italic
# and Overstrike styles to a 12-point, bold, italic Helvetica font.
# All strings are case-insensitive in mapping. Font faces are likely to
# be case-sensitive on lookup, depending on the platform and surface, so
# care should be taken with names used on the right-hand side; but they
# will be mapped case-insensitively.
# See your platform documentation for a list of all supported character
# sets, and available fonts.
# BUGS:
# o Should accept a RHS ratio (e.g., "Helv = Arial.2/3").
#===============================================================
[ Global ] # Put mappings for all surfaces here.
# Mapping from MS Windows
#Arial = helvetica
#"Courier New" = courier
#"Times New Roman" = times
#Modern = helvetica
#"MS Sans Serif" = helvetica
#"MS Serif" = times
#"Small Fonts" = helvetica
"Sadvocra" = helvetica..Oblique.Medium
"sAdC128d" = helvetica..Plain.Medium
"CarolinaBar-B39-25F2" = helvetica...Bold
#"IDAutomationSMICR" = helvetica
# Mapping from Macintosh
#"New Century Schlbk" = "new century schoolbook"
#"New York" = times
#geneva = helvetica
#===============================================================
[ Printer ] # Put mappings for all printers here.
#===============================================================
[ Printer:PostScript1 ] # Put mappings for PostScript level 1 printers here.
# Sample Kanji font mappings
...UltraLight..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...UltraLight..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
...ExtraLight..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...ExtraLight..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
...Light..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...Light..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
...DemiLight..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...DemiLight..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
.....JEUC = "GothicBBB-Medium-83pv-RKSJ-H"...Medium..JEUC
.....SJIS = "GothicBBB-Medium-83pv-RKSJ-H"...Medium..SJIS
# Mapping from MS Windows
#Roman = palatino
#Script = "itc zapf chancery"
#FixedSys = courier
#System = helvetica
# Mapping from Macintosh
#"Avant Garde" = "itc avant garde gothic"
# Mapping from Motif display
#fixed = courier
#clean = times
#lucidatypewriter = courier
#lucidabright = times
#Arial = helvetica
#"Courier New" = courier
#"Times New Roman" = times
# MICR font
#helvetica=IDAutomationSMICR
#===============================================================
[ Printer:PostScript2 ] # Put mappings for PostScript level 2 printers here.
# Sample Kanji font mappings
...UltraLight..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...UltraLight..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
...ExtraLight..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...ExtraLight..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
...Light..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...Light..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
...DemiLight..JEUC = "Ryumin-Light-83pv-RKSJ-H"...Light..JEUC
...DemiLight..SJIS = "Ryumin-Light-83pv-RKSJ-H"...Light..SJIS
.....JEUC = "GothicBBB-Medium-83pv-RKSJ-H"...Medium..JEUC
.....SJIS = "GothicBBB-Medium-83pv-RKSJ-H"...Medium..SJIS
# Mapping from MS Windows
#Roman = palatino
#Script = "itc zapf chancery"
#FixedSys = courier
#System = helvetica
# Mapping from Macintosh
#"Avant Garde" = "itc avant garde gothic"
# Mapping from Motif display
#fixed = courier
#clean = times
#lucidatypewriter = courier
#lucidabright = times
#===============================================================
[ Printer:PCL5 ] # Put mappings for PCL 5 printers here.
helvetica = univers
times = "cg times"
clean = "antique olv"
fixed = courier
lucida = univers
lucidabright = "cg times"
lucidatypewriter = courier
"new century schoolbook" = univers
terminal = "line printer"
#===============================================================
[ Display ] # Put mappings for all display surfaces here.
#===============================================================
[ Display:Motif ] # Put mappings for Motif displays here
# Fix for bug no 778937 DO NOT MOVE!
Roman.....sjis = lucida.....jeuc
Script.....sjis = lucidabright.....jeuc
FixedSys.....sjis = fixed.....jeuc
System.....sjis = lucida.....jeuc
.....sjis = .....jeuc
# Mapping from MS Windows
Roman = lucida
Script = lucidabright
FixedSys = fixed
System = lucida
# Mapping from Macintosh
"Avant Garde" = helvetica
"Bookman" = times
#===============================================================
[ Display:CM ] # Put mappings for all CM displays here.
# These are DEC-specific, and may need localization
*..Blink = Blinking
*..Inverted+Underline.Bold = ReverseBoldUnderline
*..Inverted+Underline. = UnderlineReverse
*..Underline.Bold = UnderlineBold
*..Inverted.Bold = ReverseBold
*...Bold = Bold
*..Underline = Underline
*..Inverted = Reverse
* = Plain # The font of last resort
# Oracle Report PDF sections
# Three new sections have been added:
# [ PDF ] - Used for font aliasing and Multibyte language support
# [ PDF:Embed ] - Used for Type 1 font embedding
# [ PDF:Subset ] - Used for True Type Font subsetting
[ PDF ]
# This example shows how to rename helvetica font to Courier font
# helvetica = Courier
# You can Alias specific styles of font as below
# helvetica.12..Bold.. = Courier.14....
# "Lucida Bright".12..Bold = "New Century Schoolbook"
# Support for Far Eastern Languages:
# PDF section can be additionally used to enable Multibyte language support
# built into Reports. To use this feature with Adobe (r) Acrobat (c), you
# need to install the Asian font pack available online at the Adobe web site.
# .....SJIS = "HeiseiKakuGo-W5-Acro"
# A Japanese report run with Shift-JIS character set is replaced to
# HeiseiKakuGo-W5-Acro CID font.
arial = Arial
"arial" =Arial
"arial narrow" = "Arial Narrow"
"courier new" = "Courier New"
tahoma = Tahoma
"microsoft sans serif" = "Microsoft Sans Serif"
"ms sans serif" = "MS Sans Serif"
"times new roman" = "Times New Roman"
[ PDF:Embed ]
# This example shows how to embed Type 1 helvetica font into the PDF file:
# helvetica = "helvetica.afm helvetica.pfa"
# You need to specify the .afm file before the .pfa file.
# The font files must exist in one of the folders specified in REPORTS_PATH.
[ PDF:Subset ]
# This example shows how to subset Arial True Type font into the PDF file:
# helvetica = "Arial.ttf"
# The True Type font files must exist in any one of the folders specified in
# REPORTS_PATH.
helvetica..Oblique.Medium = "Sadvocra.ttf"
helvetica..Plain.Medium = "Sadc128d.ttf"
helvetica...Bold = "CarolinaBar-B39-25F2-Normal.ttf"
# NOTES ON PRECEDENCE OF PDF SECTIONS:
# If you have entries for a same font in many PDF sections, then Font
# Aliasing entry will take precedence over Font Embedding entry. Entries
# in Font Embedding will take precedence over the entries in Font Subsetting
# section.
# Generic entries for a font must follow more specific entries for the same
# font. For instance, if you want to subset helvetica Plain, helvetica Bold,
# helvetica Italic and helvetica Bold-Italic fonts, your entries must be:
# [ PDF:Subset ]
# helvetica..Italic.Bold.. = "Arialbi.ttf"
# helvetica...Bold.. = "Arialb.ttf"
# helvetica..Italic... = "Ariali.ttf"
# helvetica..... = "Arial.ttf"
# If helvetica..... entry appears in the top of the list, all the styles of
# helvetica font in the layout will be subset as helvetica Plain font.
uiprint.txt
# This is the printer configuration file.
# The format for entries in this file is:
# <OSName>:<Type>:<Version>:<Long Name>:<Description File>:
# The first field is the name of the printer. It is the name you give
# to lpq.
# The second field is the type of driver to be used for the printer.
# Currently, "PostScript" and "ASCII" are the only types of driver for
# printers supported for now. But in future we may be supporting
# drivers for other printer types.
# The third field is the version of the type of printer driver. It's 1
# or 2 for all PostScript printers; or 1 for ASCII printers.
# The fourth field is a long description of the printer. This will be
# presented to the user in the "Choose Printer" dialog window.
# The fifth field is the printer description file to be used. For
# PostScript printers it is the PPD file of the printer. (This field is
# currently unused for ASCII printers.)
# You can use default.ppd for the description file if you don't have a
# PPD file for the printer, but it's best to use the correct PPD file
# for the printer.
# You must fill in at least the first two fields (printer name and
# type). If the version is empty, it defaults to "1"; if the long name
# or description are empty, they will default to empty strings. A
# version of 1 or an empty long name is fine, but, for PostScript
# printers, you must fill in the description file name.
# You don't have to update this file to use any printer. The printer
# chooser interface let's you select a printer and driver at run time,
# as well as associate a printer description file to the printer. You
# should list all printers accessible to users here, however, to
# simplify selecting a printer.
# The first entry in this file will be used as the default printer, if
# no printer was selected in the operating system. (For Unix, the
# following environment variables will be used in turn to get the
# default printer's name:
# TK2_PRINTER
# ORACLE_PRINTER
# PRINTER
# For other platforms, see the Installation and User's Guide for your OS
# for information on setting the default printer.)
# WARNING: Do not define multiple entries for the same printer by the
# same name. Selecting a printer with multiple entries will always result
# in the first entry being selected. Instead, see if your OS allows you
# to create an alias for the printer, and use an alias for the second type.
# The following are examples; replace them with printers accessible from
# this machine.
# hqunx15:PostScript:1:The really slow printer on 12th floor:dcln03r1.ppd:
# hqdev2_pos:PostScript:1:The fast ScriptPrinter in 1281:dclps321.ppd:
# hqunx106:ASCII:1:LNO printer in the 11th floor printer room:none:
# hqdev9:PostScript:1:Bogus printer for Reports ASCII QA:default.ppd:
# hqunx121:PostScript:1:APO printer in 500OP for NLS QA:ok800lt1.ppd:
# --- Note that the following two printers are aliases for the same
# --- physical printer, with different names for different types:
# tk2hp4m:PCL:5:HP printer in 771 for testing PCL:ui4.hpd:
# tk2bw1ps:PostScript:1:HP printer in 771 for testing PS:hp4mp6_1.ppd:
# Not A Printer:ASCII:1:Configure your uiprint.txt file:none:
fontprinter:PostScript:1:printer for fonting fixes:default.ppd:
datap462.ppd
*PPD-Adobe: "4.0"
*% Adobe Systems PostScript(R) Printer Description File
*% Copyright 1987-1992 Adobe Systems Incorporated.
*% All Rights Reserved.
*% Permission is granted for redistribution of this file as
*% long as this copyright notice is intact and the contents
*% of the file is not altered in any way from its original form.
*% End of Copyright statement
*FormatVersion: "4.0"
*FileVersion: "3.1"
*PCFileName: "DATAP462.PPD"
*LanguageVersion: English
*Product: "(Dataproducts LZR 2665)"
*PSVersion: "(46.2) 1"
*ModelName: "Dataproducts LZR-2665"
*NickName: "Dataproducts LZR-2665 v46.2"
*% ==== Options and Constraints =====
*OpenGroup: InstallableOptions/Options Installed
OpenUI Option1/Optional Lower Tray: Boolean
*DefaultOption1: False
*Option1 True/Installed: ""
*Option1 False/Not Installed: ""
CloseUI: Option1
*CloseGroup: InstallableOptions
UIConstraints: Option1 False *InputSlot Lower
*% General Information and Defaults ===============
*ColorDevice: False
*DefaultColorSpace: Gray
*FreeVM: "178744"
*LanguageLevel: "1"
*VariablePaperSize: False
*FileSystem: False
*Throughput: "26"
*Password: "0"
*ExitServer: "
count 0 eq { % is the password on the stack?
true
dup % potential password
statusdict /checkpassword get exec not
} ifelse
{ % if no password or not valid
(WARNING : Cannot perform the exitserver command.) =
(Password supplied is not valid.) =
(Please contact the author of this software.) = flush
quit
} if
serverdict /exitserver get exec
*End
*Reset: "
count 0 eq { % is the password on the stack?
true
dup % potential password
statusdict /checkpassword get exec not
} ifelse
{ % if no password or not valid
(WARNING : Cannot reset printer.) =
(Password supplied is not valid.) =
(Please contact the author of this software.) = flush
quit
} if
serverdict /exitserver get exec
systemdict /quit get exec
(WARNING : Printer Reset Failed.) = flush
*End
*DefaultResolution: 300dpi
*?Resolution: "
save
initgraphics
0 0 moveto currentpoint matrix defaultmatrix transform
0 72 lineto currentpoint matrix defaultmatrix transform
3 -1 roll sub dup mul
3 1 roll exch sub dup mul
add sqrt round cvi
( ) cvs print (dpi) = flush
restore
*End
*% Halftone Information ===============
*ScreenFreq: "50.0"
*ScreenAngle: "54.0"
*DefaultScreenProc: Dot
*ScreenProc Dot: " {dup mul exch dup mul add sqrt 1 exch sub } "
*ScreenProc Line: "{ pop }"
*ScreenProc Ellipse: "
{ dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }"
*End
*DefaultTransfer: Null
*Transfer Null: "{ }"
*Transfer Null.Inverse: "{ 1 exch sub }"
*% Paper Handling ===================
*% Use these entries to set paper size most of the time, unless there is
*% specific reason to use PageRegion.
*OpenUI *PageSize: PickOne
*OrderDependency: 30 AnySetup *PageSize
*DefaultPageSize: Letter
*PageSize Letter: "statusdict /lettertray get exec letterR"
*PageSize Letter.Transverse: "statusdict /lettertray get exec letter"
*PageSize Legal: "statusdict /legaltray get exec"
*PageSize Ledger: "statusdict /ledgertray get exec"
*PageSize Statement: "statusdict /statementtray get exec"
*PageSize Tabloid: "statusdict /11x17tray get exec"
*PageSize A3: "statusdict /a3tray get exec"
*PageSize A4: "statusdict /a4tray get exec a4R"
*PageSize A4.Transverse: "statusdict /a4tray get exec a4"
*PageSize A5: "statusdict /a5tray get exec"
*PageSize B4: "statusdict /b4tray get exec"
*PageSize B5: "statusdict /b5tray get exec b5R"
*PageSize B5.Transverse: "statusdict /b5tray get exec b5"
*CloseUI: *PageSize
*% These entries will set up the frame buffer. Usually used with manual feed.
*OpenUI *PageRegion: PickOne
*OrderDependency: 40 AnySetup *PageRegion
*DefaultPageRegion: Letter
*PageRegion Letter: "letterR"
*PageRegion Letter.Transverse: "letter"
*PageRegion Legal: "legal"
*PageRegion Ledger: "ledger"
*PageRegion Tabloid: "11x17"
*PageRegion A3: "a3"
*PageRegion A4: "a4R"
*PageRegion A4.Transverse: "a4"
*PageRegion A5: "a5"
*PageRegion B4: "b4"
*PageRegion B5: "b5R"
*PageRegion B5.Transverse: "b5"
*PageRegion Statement: "statement"
*CloseUI: *PageRegion
*% The following entries provide information about specific paper keywords.
*DefaultImageableArea: Letter
*ImageableArea Letter: "20 16 591 775 "
*ImageableArea Letter.Transverse: "18 19 593 773 "
*ImageableArea Legal: "18 19 593 990 "
*ImageableArea Ledger: "18 16 1205 775 "
*ImageableArea Tabloid: "16 19 775 1206 "
*ImageableArea A3: "18 21 823 1170 "
*ImageableArea A4: "18 18 576 823 "
*ImageableArea A4.Transverse: "18 19 577 823 "
*ImageableArea A5: "18 19 401 577 "
*ImageableArea B4: "19 15 709 1017 "
*ImageableArea B5: "20 19 495 709 "
*ImageableArea B5.Transverse: "20 19 495 709 "
*ImageableArea Statement: "22 19 374 594 "
*?ImageableArea: "
save
/cvp {( ) cvs print ( ) print } bind def
/upperright {10000 mul floor 10000 div} bind def
/lowerleft {10000 mul ceiling 10000 div} bind def
newpath clippath pathbbox
4 -2 roll exch 2 {lowerleft cvp} repeat
exch 2 {upperright cvp} repeat flush
restore
*End
*% These provide the physical dimensions of the paper (by keyword)
*DefaultPaperDimension: Letter
*PaperDimension Letter: "612 792"
*PaperDimension Letter.Transverse: "612 792"
*PaperDimension Legal: "612 1008"
*PaperDimension Ledger: "1224 792"
*PaperDimension Tabloid: "792 1224"
*PaperDimension A3: "842 1191"
*PaperDimension A4: "595 842"
*PaperDimension A4.Transverse: "595 842"
*PaperDimension A5: "420 595"
*PaperDimension B4: "729 1032"
*PaperDimension B5: "516 729"
*PaperDimension B5.Transverse: "516 729"
*PaperDimension Statement: "396 612"
*RequiresPageRegion All: True
*OpenUI *InputSlot: PickOne
*OrderDependency: 20 AnySetup *InputSlot
*DefaultInputSlot: Upper
*InputSlot Upper: "0 statusdict /setpapertray get exec"
*InputSlot Lower: "1 statusdict /setpapertray get exec"
*?InputSlot: "
save
[ (Upper) (Lower) ] statusdict /papertray get exec
(get exec) stopped ( pop pop (Unknown)} if = flush
restore
*End
*CloseUI: *InputSlot
*OpenUI *ManualFeed: Boolean
*OrderDependency: 20 AnySetup *ManualFeed
*DefaultManualFeed: False
*ManualFeed True: "statusdict /manualfeed true put"
*ManualFeed False: "statusdict /manualfeed false put"
*?ManualFeed: "
save
statusdict /manualfeed get {(True)}{(False)}ifelse = flush
restore
*End
*CloseUI: *ManualFeed
*DefaultOutputOrder: Reverse
*% Font Information =====================
*% This datap462.ppd is provided by fontsolutions.tar
*DefaultFont: Courier
*Font ArialMT: Standard "(001.004)" Standard ROM
*Font Arial-ItalicMT: Standard "(001.004)" Standard ROM
*Font Arial-BoldMT: Standard "(001.004)" Standard ROM
*Font Arial-BoldItalicMT: Standard "(001.004)" Standard ROM
*Font ArialNarrow: Standard "(001.004)" Standard ROM
*Font ArialNarrow-Italic: Standard "(001.004)" Standard ROM
*Font ArialNarrow-Bold: Standard "(001.004)" Standard ROM
*Font ArialNarrow-BoldItalic: Standard "(001.004)" Standard ROM
*Font CourierNewMT: Standard "(001.004)" Standard ROM
*Font CourierNew-ItalicMT: Standard "(001.004)" Standard ROM
*Font CourierNew-BoldMT: Standard "(001.004)" Standard ROM
*Font CourierNew-BoldItalicMT: Standard "(001.004)" Standard ROM
*Font Courier: Standard "(001.004)" Standard ROM
*Font Courier-Bold: Standard "(001.001)" Standard ROM
*Font Courier-BoldOblique: Standard "(001.001)" Standard ROM
*Font Courier-Oblique: Standard "(001.001)" Standard ROM
*Font Helvetica: Standard "(001.001)" Standard ROM
*Font Helvetica-Bold: Standard "(001.001)" Standard ROM
*Font Helvetica-BoldOblique: Standard "(001.001)" Standard ROM
*Font Helvetica-Oblique: Standard "(001.001)" Standard ROM
*Font IDAutomationSMICR: Standard "(001.001)" Standard ROM
*Font Symbol: Special "(001.001)" Special ROM
*Font Tahoma: Standard "(001.001)" Standard ROM
*Font Tahoma-Bold: Standard "(001.001)" Standard ROM
*Font Times-Bold: Standard "(001.001)" Standard ROM
*Font Times-BoldItalic: Standard "(001.001)" Standard ROM
*Font Times-Italic: Standard "(001.001)" Standard ROM
*Font Times-Roman: Standard "(001.001)" Standard ROM
*Font TimesNewRomanMT: Standard "(001.001)" Standard ROM
*Font TimesNewRoman-BoldMT: Standard "(001.001)" Standard ROM
*Font TimesNewRoman-BoldItalicMT: Standard "(001.001)" Standard ROM
*Font TimesNewRoman-ItalicMT: Standard "(001.001)" Standard ROM
*?FontQuery: "
save
/str 100 string dup 0 (fonts/) putinterval def
count 1 gt
exch dup str 6 94 getinterval cvs
(/) print print (:) print
FontDirectory exch known
{(Yes)}{(No)} ifelse =
{exit} ifelse
}bind loop
(*) = flush
restore
*End
*?FontList: "
FontDirectory { pop == } bind forall flush
(*) = flush
*End
*% Printer Messages (verbatim from printer):
*Message: "%%[ exitserver: permanent state may be changed ]%%"
*Message: "%%[ Flushing: rest of job (to end-of-file) will be ignored ]%%"
*Message: "\FontName\ not found, using Courier"
*% Status (format: %%[ status: <one of these> ]%% )
*Status: "idle"
*Status: "busy"
*Status: "waiting"
*Status: "printing"
*Status: "warming up"
*Status: "PrinterError: BD check"
*Status: "PrinterError: Paper jam"
*Status: "PrinterError: Replace toner bag"
*Status: "PrinterError: Warming up"
*Status: "PrinterError: Timing error"
*Status: "PrinterError: Fuser check"
*Status: "PrinterError: Cover opened"
*Status: "PrinterError: Toner empty"
*Status: "PrinterError: Empty & reset output bin(s)"
*Status: "PrinterError: Sorter or jogger error"
*Status: "PrinterError: Scanner check"
*% Input Sources (format: %%[ status: <stat>; source: <one of these> ]%% )
*Source: "serial9"
*Source: "serial25"
*Source: "AppleTalk"
*Source: "Centronics"
*% Printer Error (format: %%[ PrinterError: <one of these> ]%%)
*PrinterError: "BD check"
*PrinterError: "Paper jam"
*PrinterError: "Replace toner bag"
*PrinterError: "Warming up"
*PrinterError: "Timing error"
*PrinterError: "Fuser check"
*PrinterError: "Cover opened"
*PrinterError: "Toner empty"
*PrinterError: "Empty & reset output bin(s)"
*PrinterError: "Sorter or jogger error"
*PrinterError: "Scanner check"
*%DeviceAdjustMatrix: "[1 0 0 1 0 0]"
*% Color Separation Information =====================
*DefaultColorSep: ProcessBlack.60lpi.300dpi/60 lpi / 300 dpi
*InkName: ProcessBlack/Process Black
*InkName: CustomColor/Custom Color
*InkName: ProcessCyan/Process Cyan
*InkName: ProcessMagenta/Process Magenta
*InkName: ProcessYellow/Process Yellow
*% For 60 lpi / 300 dpi =====================================================
*ColorSepScreenAngle ProcessBlack.60lpi.300dpi/60 lpi / 300 dpi: "45"
*ColorSepScreenAngle CustomColor.60lpi.300dpi/60 lpi / 300 dpi: "45"
*ColorSepScreenAngle ProcessCyan.60lpi.300dpi/60 lpi / 300 dpi: "15"
*ColorSepScreenAngle ProcessMagenta.60lpi.300dpi/60 lpi / 300 dpi: "75"
*ColorSepScreenAngle ProcessYellow.60lpi.300dpi/60 lpi / 300 dpi: "0"
*ColorSepScreenFreq ProcessBlack.60lpi.300dpi/60 lpi / 300 dpi: "60"
*ColorSepScreenFreq CustomColor.60lpi.300dpi/60 lpi / 300 dpi: "60"
*ColorSepScreenFreq ProcessCyan.60lpi.300dpi/60 lpi / 300 dpi: "60"
*ColorSepScreenFreq ProcessMagenta.60lpi.300dpi/60 lpi / 300 dpi: "60"
*ColorSepScreenFreq ProcessYellow.60lpi.300dpi/60 lpi / 300 dpi: "60"
*% For 53 lpi / 300 dpi =====================================================
*ColorSepScreenAngle ProcessBlack.53lpi.300dpi/53 lpi / 300 dpi: "45.0"
*ColorSepScreenAngle CustomColor.53lpi.300dpi/53 lpi / 300 dpi: "45.0"
*ColorSepScreenAngle ProcessCyan.53lpi.300dpi/53 lpi / 300 dpi: "71.5651"
*ColorSepScreenAngle ProcessMagenta.53lpi.300dpi/53 lpi / 300 dpi: "18.4349"
*ColorSepScreenAngle ProcessYellow.53lpi.300dpi/53 lpi / 300 dpi: "0.0"
*ColorSepScreenFreq ProcessBlack.53lpi.300dpi/53 lpi / 300 dpi: "53.033"
*ColorSepScreenFreq CustomColor.53lpi.300dpi/53 lpi / 300 dpi: "53.033"
*ColorSepScreenFreq ProcessCyan.53lpi.300dpi/53 lpi / 300 dpi: "47.4342"
*ColorSepScreenFreq ProcessMagenta.53lpi.300dpi/53 lpi / 300 dpi: "47.4342"
*ColorSepScreenFreq ProcessYellow.53lpi.300dpi/53 lpi / 300 dpi: "50.0"
*% For "Dataproducts LZR 2665" version 46.2
*% Produced by "GETapd.ps" version 2.0 edit 47
*% Converted to meet 4.0 specification
*% Last Edit Date: Sep 15 1992
*% The byte count of this file should be exactly 011228 or 011572
*% depending on the filesystem it resides in.
*% end of PPD file for Dataproducts LZR 2665If you want to make platform independent use of fonts, you have to use the family, such as sans serif.
Arial is owned by monotype (http://monotype.com/). You have to contact them if you wish to redistribute it with your application. They also might have a suitable version that renders nicely under linux.
Pete -
Portal GUI and reports are not opening correctly once opened from any client explorer
HI,
If I try to open portal admin page and discoverer to view reports using browser installed on same unix server (Using Xwindow) , everything is opening perfect. while If I open from any client machine the browser doesn't show things correctly , not able to click links ,not able to open drop down list...Ok so I saw this issue recently and it was effecting one user for specific documents.
The fix was not very technical but try and see if this fixes it:
Click View -- Arrange ll -- Select Cascade
This should bring up the document correctly
Maximize the working Sheet
Minimize the same Sheet
Then maximize the Sheet again
Then close the Sheet
Close excel
Open up the file -
Report output not coming correctly
Hi All,
my query is like
select 'gggohpoopiokoljmkjjg@@@@@' record from dual;
where record string's length is more than 2000 characters.
I am using oracle report for this purpose as i have some other validations associated with it.
i am printing the report output in a flat file.i want ALL THE OUTPUT SHOULD COME IN ONE LINE.
but this is not happenning so...for the string lengths more than 1000 it's coming in diff line.
How can i make sure that my output file WILL BE IN SINGLE LINE.
i tried in unix vi editor i can give 3000 charecters but it doesn't go to the second line.
any help on this issue will be helpful
thanks in advanceIf there's no easy way to do it, you may use a "special character", like chr(xx), as your long line delimiter to chop a line into a couple of lines. Then you write a very simple C program to post-process the report output file to remove these "special character".
If all characters are possible in your report file, you may use a string as the delimiter. -
Reports are not showing correctly
hi all,
need a solution for this issue
thanksHi,
Have you read this blog? It may be helful for you, please check it.
http://blogs.technet.com/b/isablog/archive/2010/11/24/when-accessing-tmg-report-hosted-on-iis-images-are-not-displayed.aspx
http://technet.microsoft.com/en-us/library/bb418935.aspx
Best Regards
Quan Gu -
In production order the cost analysis report is not displaying correct
Hi,
when i create production order and do some posting activities i could not see the GR cost row details in the cost trend report in the production order.
i could see the goods issue, confirmations and overhead rows segments in it. but i could not see the goods receipt tab in the <b>cost trend report .</b> where the implication lies can u suggest.
regards
madanHi,
In t.code oplr (order type dependent parameters) check in the controlling tab if you have given the costing variant as PPP2 for the Actual cost calculation & PPP1 for the planned cost for your order type.
Regards,
SDs -
Crystal Report XI not updating correctly within CR Server
Greetings. I have a report that I have created using Crystal Reports XI. I then have published it and set it up within Crystal Reports SERVER to automatically run on a daily basis. The report automatically runs with no errors, however, when you look at the data, it does not reflect the current database - instead shows the data from whever it was published. Thus, the reports look like they are updated daily, however the information inside shows that they are not.
Any help/tips/advice on what to look for to fix this problem would greatly help! I'm new to Crystal Reports Server.
Thanks,
PamI have them set up on the Crystal Reports side, then when I publish them, the database information is "grayed out", so the reports initially don't run once published. So, I then log into the CMS using the ADMIN password and set the database parameters. The reports run fine and the data is saved with the report (only if I publish the report with the data saved). However, the next day (assuming you have daily reoccurence setup), the report is the initially published contents, not the "refresh".
I am probably missing some "simple" step...but being a newbie to this, I'm obviously missing it! Any advice is greatly appreciated!
Pam -
Hi All,
I have a requirement to use some components called List Box and Tabs in my WebI report for presenting the information by dynamic dimension and measure selection using list box and segregate information by using Tabs as in below image.
Image was prepared in MSPaint not executable webi report.
Is it possible to integrate the list box and tabs into Report Zone in BO Webi? as show in below image?
Thanks in Advance
Muralidhar Reddy NHello Muralidhar Reddy,
The exact tool for your requirement is SAP BO Dashboard or SAP BO Design studio. WebI is a tool for ad-hoc reporting tool and we have limited functionalities to make dashboards using webI. You can have all those chart options in WebI and you can use Input controls or drill filters for restricting data. But you cannot have these selection components in reporting area. Tabs as shown in above post, you can have in bottom of the report.
find below a good example of dashboard using WebI
http://blog.davidg.com.au/2011/04/webi-as-dashboard.html
hope it helps
Regards,
Nikhil Joy -
Transaction Register Report not printing Correctly
Hi,
In Accounts Receivables Transaction Register Report is not printing correctly..
Once I issue print job for Transaction Register Report...Blank page is coming..
what is the cause..please suggestDoes the print work properly with other reports? If so, I suggest you run the report in debug mode. Please check (Note: 226013.1 - How to run AR RXi reports in debug mode) for more details.
https://metalink.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=226013.1 -
Report not rendering correctly
Post Author: Fahvray
CA Forum: General
I am creating a Crystal Report for a VB.Net application. It seems after adding text items in the page header, the text in the report does not render correctly. The actual data appears ok, just text items appear to be shifted up, so that only the bottom of the text is visible.
If I remove the page header items, it works fine.
I have other reports in this application that work fine. And this report seems to work ok on other developer's machines.
I have removed and reinstalled Visual Studio, including the Crystal Reports section.
Any ideas?Post Author: sharonmtowler
CA Forum: General
does it appear that can grow is set on the text objects? -
Report needs to be corrected it is urgent
Ageing Analysis of Inventory Material. This is a report for Inventory Ageing. The report is not giving correct result for the field Value of total valuated stock(MBEWH-SALK3). After displaying the report when we add up the field SALK3 it not the correct result which I got in transaction code MB5L. Can anyone kindly help me in correcting out this report. I am keeping the source code also.
*& Application : Materials Management (MM)
*& Description : Ageing Analysis of Inventory Material
*& Transaction Code :
*& Area Menu Code : ZMM
Report ZMM0001.
MAPPING OF MONTH AND PERIOD AS FINACIAL YEAR STARTS FROM APR - MAR. *
just for reference.
MONTH PERIOD
01.2003 - 10.2003
02.2003 - 11.2003
03.2003 - 12.2003
04.2003 - 01.2003
05.2003 - 02.2003
06.2003 - 03.2003
07.2003 - 04.2003
08.2003 - 05.2003
09.2003 - 06.2003
10.2003 - 07.2003
11.2003 - 08.2003
12.2003 - 09.2003
01.2004 - 10.2004
02.2004 - 11.2004
03.2004 - 12.2004
04.2004 - 01.2004
REPORT ZMMR0001 MESSAGE-ID GW NO STANDARD PAGE HEADING
LINE-COUNT 1000
LINE-SIZE 170.
*FLOWLOGIC
*This Program displays the Ageing Analysis details of Material inventory
*pick up the opening balance consider the previous month of the period
*entered in selection screen.
*Get the qty and value for all material types from mbew table but
*excludeentries where no valuation type is defined
*calculate the receipt qty pick all entries from z_mkpf_mseg where
*date( is less that or equal to the last day of the month and movement
*type equals '101', '561', '501', '951', '953', '955', '957', '301' *
*into i_mseg table.
*To calculate the reversal for receipt qty.
*To get the issue qty upto the date of receipt, delete the issue qty
*fromstock to get the exact stock value on the date the receipt of
*materials happen.
*Calculate the difference in days and mark values based on the below
*condition.
*Display the output as per the user given format.
*FLOWLOGIC
Tables
TABLES : S031, " Statistics: Movements for current stocks
S032, " Statistics: Current Stock and Grouping Terms
MBEW, " Material Valuation
MBEWH, " Material Valuation: History
MARC, " Plant Data for Material
MARA, "material master
T001W, " Plant Details
MKPF,
V_T179.
TYPE-POOLS
TYPE-POOLS: SLIS.
DATA: IT_HEADING TYPE SLIS_T_LISTHEADER WITH HEADER LINE.
DATA: IT_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA: LAY TYPE SLIS_LAYOUT_ALV.
DATA: IT_SORT_SUBTOTAL TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.
DATA: IT_EVENT TYPE SLIS_T_EVENT WITH HEADER LINE.
DATA: V_REPID LIKE SY-REPID.
DATA: PRDHA1(5),
PRDHA2(10),
LVL1(40),
LVL2(40),
LVL3(40).
RANGES: S_BWTAR FOR BWTAR.
INTERNAL Tables
*******For Mat. Desc.************
DATA : BEGIN OF I_MAKT OCCURS 0,
MATNR TYPE MAKT-MATNR, " Material Code
MAKTX TYPE MAKT-MAKTX, " Material Description
END OF I_MAKT.
DATA : BEGIN OF TEMP OCCURS 0,
VTEXT(40),
END OF TEMP.
*******For Mat. No. & Type & Grp*
DATA : BEGIN OF I_MARA OCCURS 0,
MATNR TYPE MARA-MATNR, " Material Code
MATKL TYPE MARA-MATKL,
MTART TYPE MARA-MTART,
MFRNR TYPE MARA-MFRNR,
END OF I_MARA.
******For Stock******************
DATA : BEGIN OF I_MBEWH OCCURS 0,
MATNR TYPE MBEWH-MATNR,
BWTAR TYPE MBEWH-BWTAR,
LBKUM TYPE MBEWH-LBKUM,
SALK3 TYPE MBEWH-SALK3,
BWKEY TYPE MBEWH-BWKEY,
VBELN TYPE EBEW-VBELN,
POSNR TYPE EBEW-POSNR,
SOBKZ TYPE QBEW-SOBKZ,
PSPNR TYPE QBEW-PSPNR,
LFGJA TYPE MBEW-LFGJA,
LFMON TYPE MBEW-LFMON,
END OF I_MBEWH.
DATA: I_MBEWH1 LIKE I_MBEWH OCCURS 0 WITH HEADER LINE.
*******For Moving Price***********
DATA : BEGIN OF I_MBEW OCCURS 0,
MATNR TYPE MBEWH-MATNR,
BWTAR TYPE MBEWH-BWTAR,
LBKUM TYPE MBEWH-LBKUM,
VERPR TYPE MBEWH-VERPR,
VPRSV TYPE MBEWH-VPRSV,
STPRS TYPE MBEWH-STPRS,
END OF I_MBEW.
DATA : BEGIN OF I_RECIPT1 OCCURS 0,
MATNR TYPE Z_MKPF_MSEG-MATNR,
NAME1 TYPE LFA1-NAME1,
MAKTX TYPE MAKT-MAKTX,
BWTAR TYPE Z_MKPF_MSEG-BWTAR,
VERPR TYPE MBEWH-VERPR,
PRDHA LIKE MARA-PRDHA,
VTEXT(40) ,
LBKUM TYPE MBEWH-LBKUM,
SALK3 TYPE MBEWH-SALK3,
QTY1 TYPE MBEWH-LBKUM,
VAL1 TYPE P DECIMALS 2,
QTY2 TYPE MBEWH-LBKUM,
VAL2 TYPE P DECIMALS 2,
QTY3 TYPE MBEWH-LBKUM,
VAL3 TYPE P DECIMALS 2,
QTY4 TYPE MBEWH-LBKUM,
VAL4 TYPE P DECIMALS 2,
QTY5 TYPE MBEWH-LBKUM,
VAL5 TYPE P DECIMALS 2,
QTY6 TYPE MBEWH-LBKUM,
VAL6 TYPE P DECIMALS 2,
QTY7 TYPE MBEWH-LBKUM,
VAL7 TYPE P DECIMALS 2,
END OF I_RECIPT1.
DATA : BEGIN OF I_MKPF_MSEG OCCURS 0,
MATNR LIKE MARA-MATNR,
MBLNR LIKE MSEG-MBLNR,
ZEILE LIKE MSEG-ZEILE,
MENGE LIKE MSEG-MENGE,
BWART LIKE MSEG-BWART,
BUDAT LIKE MKPF-BUDAT,
NET_VAL LIKE MSEG-MENGE,
EBELN LIKE MSEG-EBELN,
EBELP LIKE MSEG-EBELP,
LFBNR LIKE MSEG-LFBNR,
LFPOS LIKE MSEG-LFPOS,
SHKZG LIKE MSEG-SHKZG,
MEINS LIKE MARA-MEINS,
SMBLN LIKE MSEG-SMBLN,
SMBLP LIKE MSEG-SMBLP,
END OF I_MKPF_MSEG,
WA_MSEG LIKE I_MKPF_MSEG.
********For Material Movement***
DATA: BEGIN OF I_MSEG OCCURS 0,
MBLNR TYPE Z_MKPF_MSEG-MBLNR,
MATNR TYPE Z_MKPF_MSEG-MATNR,
WERKS TYPE Z_MKPF_MSEG-WERKS,
BWART TYPE Z_MKPF_MSEG-BWART,
BUDAT TYPE Z_MKPF_MSEG-BUDAT,
MENGE TYPE Z_MKPF_MSEG-MENGE,
MEINS TYPE Z_MKPF_MSEG-MEINS,
BWTAR TYPE Z_MKPF_MSEG-BWTAR,
NET_VAL LIKE MSEG-MENGE,
ZEILE TYPE MSEG-ZEILE,
END OF I_MSEG.
********For Material Monvment(Reverse)***
DATA: BEGIN OF I_MSEG1 OCCURS 0,
MBLNR TYPE Z_MKPF_MSEG-MBLNR,
MATNR TYPE Z_MKPF_MSEG-MATNR,
WERKS TYPE Z_MKPF_MSEG-WERKS,
BWART TYPE Z_MKPF_MSEG-BWART,
BUDAT TYPE Z_MKPF_MSEG-BUDAT,
MENGE TYPE Z_MKPF_MSEG-MENGE,
MEINS TYPE Z_MKPF_MSEG-MEINS,
BWTAR TYPE Z_MKPF_MSEG-BWTAR,
SMBLN TYPE Z_MKPF_MSEG-SMBLN,
SMBLP TYPE Z_MKPF_MSEG-SMBLP,
END OF I_MSEG1.
DATA: I_MSEG2 LIKE I_MSEG1 OCCURS 0 WITH HEADER LINE.
********For Recipt Details*******
DATA: BEGIN OF I_RECIPT OCCURS 0,
MATNR TYPE Z_MKPF_MSEG-MATNR,
BWTAR TYPE Z_MKPF_MSEG-BWTAR,
BUDAT TYPE Z_MKPF_MSEG-BUDAT,
DAYS TYPE P,
QTY TYPE Z_MKPF_MSEG-MENGE,
MONTH(3),
YEAR(4),
VERPR TYPE MBEWH-VERPR,
COST TYPE P DECIMALS 2,
MARK(1),
END OF I_RECIPT.
DATA: BEGIN OF I_PLANT OCCURS 0,
WERKS LIKE T024W-WERKS,
EKORG LIKE T024W-EKORG,
BUKRS LIKE T024E-BUKRS,
CHK(1) TYPE C,
END OF I_PLANT.
DATA: BEGIN OF I_USERGRP OCCURS 0.
INCLUDE STRUCTURE USGRP_USER.
DATA: VKORG LIKE VBAK-VKORG,
END OF I_USERGRP.
DATA: MUGRP LIKE USGRP_USER-USERGROUP.
DATA: MUNAME LIKE SY-UNAME,
MMSGTX1(50) TYPE C.
*********For Temp.Values*****
*data: begin of i_temp occurs 0,
matnr type z_mkpf_mseg-matnr,
bwtar type z_mkpf_mseg-bwtar,
budat type z_mkpf_mseg-budat,
menge type z_mkpf_mseg-menge,
end of i_temp.
DATA: DAYS(2).
DATA: NET_VAL LIKE MSEG-MENGE.
DATA: DATE1 TYPE D.
DATA: DATE2 TYPE D.
DATA: MBLNR TYPE MSEG-MBLNR.
DATA: MATNR TYPE MSEG-MATNR.
DATA: BWTAR TYPE MSEG-BWTAR.
DATA : V_DATE TYPE SY-DATUM.
DATA : X(2) TYPE C VALUE '01'.
DATA : P TYPE T009B-POPER. " MONTH
DATA : Q TYPE T009B-BDATJ. " YEAR
DATA : A TYPE T009B-POPER. " FOR MONTH WHERE MONTH STARTS AT APRIL
DATA : B(4) TYPE C. " FOR YEAR
DATA : DATE TYPE SY-DATUM.
DATA: NUMBER_OF_DAYS TYPE P.
DATA: DAT TYPE D.
DATA : X1(2) .
DATA: VPRSV TYPE MBEWH-VPRSV,
STPRS TYPE MBEWH-STPRS.
DATA: C TYPE C VALUE 0,
S(10).
Parameter / Selection - screens
SELECTION-SCREEN BEGIN OF BLOCK IND1 WITH FRAME TITLE TEXT_001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) TEXT_002 FOR FIELD P_WERKS.
PARAMETERS : P_WERKS LIKE S031-WERKS OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) TEXT_003 FOR FIELD P_SPMON.
PARAMETERS : P_SPMON LIKE S031-SPMON MODIF ID ABC .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_004 FOR FIELD S_MATNR.
SELECT-OPTIONS : S_MATNR FOR S031-MATNR.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK IND1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT_005.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_006 FOR FIELD SO_MATTP.
SELECT-OPTIONS : SO_MATTP FOR MARA-MTART.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_007 FOR FIELD SO_MATGP.
SELECT-OPTIONS : SO_MATGP FOR MARA-MATKL.
SELECTION-SCREEN END OF LINE.
begin of changes by cvns01
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_008 FOR FIELD SO_MFRNR.
SELECT-OPTIONS : SO_MFRNR FOR MARA-MFRNR.
SELECTION-SCREEN END OF LINE.
end of changes by cvns01
*changes
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(25) TEXT_009 FOR FIELD SO_MFRNR.
SELECT-OPTIONS : SO_PRDHA FOR MARA-PRDHA NO INTERVALS."NO-EXTENSION.
SELECTION-SCREEN END OF LINE.
*end
SELECTION-SCREEN END OF BLOCK B2.
Initialization
INITIALIZATION.
TEXT_001 = 'Required Data'.
TEXT_002 = 'Plant'.
TEXT_003 = 'Period to analyze - month'.
TEXT_004 = 'Material Number'.
TEXT_005 = 'Optional Data'.
TEXT_006 = 'Material Type'.
TEXT_007 = 'Material Group'.
start of changes by cvns01
TEXT_008 = 'Manufacturer No.'.
TEXT_009 = 'Product Hierarchy'.
end of changes by cvns01
CLEAR:P,Q.
CLEAR A.
P = SY-DATUM+4(2).
SHIFT P LEFT DELETING LEADING C.
Q = SY-DATUM(4).
IF P <= 9.
CONCATENATE Q '0' P INTO S. "p_spmon.
ELSE.
CONCATENATE Q P INTO S. "p_spmon.
ENDIF.
*concatenate q p into s. "p_spmon.
CONDENSE S.
P_SPMON = S.
AT SELECTION-SCREEN ON WERKS
AT SELECTION-SCREEN ON P_WERKS.
CHECK SY-UCOMM = 'ONLI'.
SELECT SINGLE * FROM T001W WHERE WERKS EQ P_WERKS.
IF SY-SUBRC NE 0.
MESSAGE E999 WITH 'Invalid Plant'.
ENDIF.
SELECT T024W~WERKS T024E~EKORG T024E~BUKRS
INTO CORRESPONDING FIELDS OF TABLE I_PLANT
FROM T024W
JOIN T024E ON T024E~EKORG = T024W~EKORG
WHERE T024W~WERKS EQ P_WERKS.
SORT I_PLANT BY WERKS.
DELETE ADJACENT DUPLICATES FROM I_PLANT COMPARING WERKS.
SELECT * INTO CORRESPONDING FIELDS OF TABLE I_USERGRP
FROM USGRP_USER
WHERE BNAME = SY-UNAME.
IF I_USERGRP[] IS INITIAL.
MESSAGE E208(00) WITH 'You are not authorised to view this report'.
ENDIF.
LOOP AT I_USERGRP.
CONCATENATE I_USERGRP-USERGROUP(2) '00' INTO I_USERGRP-VKORG.
MODIFY I_USERGRP.
ENDLOOP.
LOOP AT I_USERGRP.
LOOP AT I_PLANT WHERE BUKRS = I_USERGRP-VKORG.
I_PLANT-CHK = 'X'.
MODIFY I_PLANT.
ENDLOOP.
ENDLOOP.
*delete i_plant where chk = ''.
IF NOT I_PLANT[] IS INITIAL.
LOOP AT I_PLANT.
IF I_PLANT-CHK = ''.
CLEAR P_WERKS.
CONCATENATE 'You are not authorised for plant ' I_PLANT-WERKS INTO MMSGTX1 SEPARATED BY SPACE.
MESSAGE E208(00) WITH MMSGTX1.
ENDIF.
ENDLOOP.
ENDIF.
IF P_WERKS = ''.
MESSAGE E208(00) WITH 'Select/Enter Plant'.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'ABC'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN
*AT SELECTION-SCREEN .
SELECT SINGLE * FROM s031 WHERE werks EQ p_werks
AND spmon EQ p_spmon
AND matnr IN s_matnr.
IF sy-subrc NE 0.
MESSAGE e999 WITH 'NO VALUES EXIST FOR SELECTION CRITERIA'.
ENDIF.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM PRDHA_INITIALIZATION.
PERFORM FETCH_DATA.
PERFORM DISPLAY_DATA.
END-OF-SELECTION.
*& Form FETCH_DATA
text
--> p1 text
<-- p2 text
FORM FETCH_DATA .
CLEAR:P,Q.
CLEAR A.
P = P_SPMON+4(2).
Q = P_SPMON+0(4).
******Materials**********************************
changes made by akshatha
SELECT MARA~MATNR
FROM MARA
JOIN MARC
ON MARCMATNR = MARAMATNR
INTO CORRESPONDING FIELDS OF TABLE I_MARA
WHERE MARA~MATNR IN S_MATNR
AND MARC~WERKS = P_WERKS
AND MARA~MTART IN SO_MATTP
AND MARA~MATKL IN SO_MATGP
AND MARA~MFRNR IN SO_MFRNR
AND MARA~PRDHA IN SO_PRDHA.
end of changes
To get material description for the material
IF NOT I_MARA[] IS INITIAL.
SELECT MATNR
MAKTX
FROM MAKT
INTO CORRESPONDING FIELDS OF TABLE I_MAKT
FOR ALL ENTRIES IN I_MARA
WHERE MATNR = I_MARA-MATNR
AND SPRAS = SY-LANGU.
TO GET OPEN BALANCE QTY WE NEED TO CONSIDER PREVIOUS MONTH OF THE
CORRESPONDING PERIOD
WE WILL GET PROBLEM ONLY PROBLEM WHEN PERIOD IS '01'. THEN WE MUST
CONSIDER FOR 12 TH MONTH OF PREVIOUS YEAR.
****Closing Stock as on Selection-Screen Month....
*By Default last date of month is taken
changed by akshatha
CONCATENATE P_SPMON X INTO V_DATE.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
I_DATE = V_DATE
I_MONMIT = 00
I_PERIV = 'V3'
IMPORTING
E_BUPER = A
E_GJAHR = Q
EXCEPTIONS
INPUT_FALSE = 1
T009_NOTFOUND = 2
T009B_NOTFOUND = 3
OTHERS = 4 .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
to get stock quantity
SELECT MATNR LBKUM SALK3 BWKEY LFGJA LFMON
FROM MBEWH
INTO CORRESPONDING FIELDS OF TABLE I_MBEWH
FOR ALL ENTRIES IN I_MARA
WHERE MATNR = I_MARA-MATNR
AND BWKEY = P_WERKS AND BWTAR IN S_BWTAR
AND LFGJA = Q
AND LFMON = A
AND LBKUM > '0.0'.
SELECT MATNR LBKUM SALK3 BWKEY VBELN POSNR LFGJA LFMON
FROM EBEWH
APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH
WHERE MATNR = I_MARA-MATNR
AND BWKEY = P_WERKS
AND BWTAR IN S_BWTAR
AND LFGJA = Q
AND LFMON = A
AND LBKUM > '0.0'.
and VPRSV = 'S'.
SELECT MATNR LBKUM SALK3 BWKEY SOBKZ PSPNR LFGJA LFMON
FROM QBEWH
APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH
WHERE MATNR = I_MARA-MATNR
AND BWKEY = P_WERKS
AND BWTAR IN S_BWTAR
AND LFGJA = Q
AND LFMON = A
AND LBKUM > '0.0'.
SELECT MATNR LBKUM SALK3 BWKEY BWTAR
FROM MBEW
INTO CORRESPONDING FIELDS OF TABLE I_MBEWH1
FOR ALL ENTRIES IN I_MARA
WHERE MATNR = I_MARA-MATNR
AND BWKEY = P_WERKS
AND LBKUM > '0.0'.
SELECT MATNR LBKUM SALK3 BWKEY VBELN POSNR SOBKZ BWTAR
FROM EBEW
APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH1
FOR ALL ENTRIES IN I_MARA
WHERE MATNR = I_MARA-MATNR
AND BWKEY = P_WERKS
AND LBKUM > '0.0'.
SELECT MATNR LBKUM SALK3 BWKEY BWTAR SOBKZ PSPNR
FROM QBEW
APPENDING CORRESPONDING FIELDS OF TABLE I_MBEWH1
FOR ALL ENTRIES IN I_MARA
WHERE MATNR = I_MARA-MATNR
AND BWKEY = P_WERKS
AND LBKUM > '0.0'.
SORT I_MBEWH BY MATNR BWKEY.
SORT I_MBEWH1 BY MATNR BWKEY.
LOOP AT I_MBEWH.
LOOP AT I_MBEWH1 WHERE MATNR = I_MBEWH-MATNR
AND BWKEY = I_MBEWH-BWKEY.
DELETE I_MBEWH1.
ENDLOOP.
ENDLOOP.
APPEND LINES OF I_MBEWH1 TO I_MBEWH.
CLEAR : I_MBEWH1.
REFRESH I_MBEWH1.
SORT I_MBEWH BY MATNR.
LOOP AT I_MBEWH .
I_MBEWH1 = I_MBEWH.
AT END OF MATNR.
SUM.
I_MBEWH1-LBKUM = I_MBEWH-LBKUM.
I_MBEWH1-SALK3 = I_MBEWH-SALK3.
APPEND I_MBEWH1.
ENDAT.
ENDLOOP.
DELETE I_MBEWH1 WHERE LBKUM <= 0.
I_MBEWH[] = I_MBEWH1[].
end of changes
loop at i_mara.
concatenate p_spmon x into v_date.
call function 'DATE_TO_PERIOD_CONVERT'
exporting
i_date = v_date
I_MONMIT = 00
i_periv = 'V3'
importing
e_buper = a
e_gjahr = q
exceptions
input_false = 1
t009_notfound = 2
t009b_notfound = 3
others = 4 .
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
To get STOCK QUANTITY and STOCK VALUE for All Valuation Type
select matnr
bwtar
lbkum
salk3
from mbewh
into corresponding fields of i_mbewh
where matnr = i_mara-matnr
and bwkey = p_werks
and lfmon = a " 'A' IS PERIOD FOR FISCAL YR
and lfgja = q.
collect i_mbewh.
clear i_mbewh.
endselect.
if sy-subrc ne 0.
select matnr
bwtar
lbkum
salk3
from mbew
into corresponding fields of i_mbewh
where matnr = i_mara-matnr
and bwkey = p_werks.
collect i_mbewh.
clear i_mbewh.
endselect.
endif.
endloop.
end of changes
Logic: If the Val. Type is defined then for that material dont take
the line item where Val. Type is blank......
sort i_mbewh by matnr bwtar.
i_mbewh1[] = i_mbewh[].
delete i_mbewh where bwtar = ' '.
loop at i_mbewh1.
read table i_mbewh with key matnr = i_mbewh1-matnr.
if sy-subrc <> 0.
move-corresponding i_mbewh1 to i_mbewh.
append i_mbewh.
endif.
endloop.
sort i_mbewh by matnr bwtar.
i_mbewh1[] = i_mbewh[].
end of changes
*****************Last Date of the month is Calculated to find Qty
DAT = V_DATE.
CALL FUNCTION 'HR_E_NUM_OF_DAYS_OF_MONTH'
EXPORTING
P_FECHA = DAT
IMPORTING
NUMBER_OF_DAYS = NUMBER_OF_DAYS.
X1 = NUMBER_OF_DAYS.
CONCATENATE P_SPMON X1 INTO DATE.
********RECIPT QTY FETCHING*************************
select mblnr
matnr
bwart
budat
menge
meins
bwtar
zeile
from z_mkpf_mseg
into (i_mseg-mblnr,
i_mseg-matnr,
i_mseg-bwart,
i_mseg-budat,
i_mseg-menge,
i_mseg-meins,
i_mseg-bwtar,
i_mseg-zeile)
for all entries in i_mbewh
where matnr = i_mbewh-matnr and werks = p_werks
and ( budat le date or budat eq date )
and bwart in ('101','561','501','951','953','955',
**'957','301','105')
and bwtar = i_mbewh-bwtar.
append i_mseg.
clear i_mseg.
endselect.
select mblnr
matnr
bwart
budat
menge
meins
bwtar
zeile
from mseg "z_mkpf_mseg
into corresponding fields of table i_mseg
(i_mseg-mblnr,
i_mseg-matnr,
i_mseg-bwart,
i_mseg-budat,
i_mseg-menge,
i_mseg-meins,
i_mseg-bwtar,
i_mseg-zeile)
for all entries in i_mbewh
where matnr = i_mbewh-matnr and werks = p_werks
and ( budat le date or budat eq date )
and bwart in ('101','561','501','951','953','955',
***'957','301','105')
and bwart in ('101','561','501','951','953','955',
*'957','301','309','105')
and bwtar = i_mbewh-bwtar.
loop at i_mseg.
select single * from mkpf
where mblnr = i_mseg-mblnr.
if ( mkpf-budat ge date ).
delete i_mseg where mblnr = i_mseg-mblnr.
else.
i_mseg-budat = mkpf-budat.
modify i_mseg.
endif.
endloop.
sort i_mseg descending by matnr bwtar budat.
**********For Reversal FOR RECIPT(CHECK FOR REFERENCE)
**********(102,562,502,952,954,956,958)
select mblnr
matnr
bwart
menge
meins
bwtar
smbln
smblp
from mseg
into corresponding fields of table i_mseg1
for all entries in i_mbewh
where matnr = i_mbewh-matnr and werks = p_werks
and bwart in ('102','562','502','952','954','956','958','302')
and bwtar = i_mbewh-bwtar.
loop at i_mseg1.
select single * from mkpf
where mblnr = i_mseg1-mblnr.
if ( mkpf-budat ge date ).
delete i_mseg1 where mblnr = i_mseg1-mblnr.
else.
i_mseg1-budat = mkpf-budat.
modify i_mseg1.
endif.
endloop.
loop at i_mseg1.
read table i_mseg with key mblnr = i_mseg1-smbln
zeile = i_mseg1-smblp.
if sy-subrc = 0.
i_mseg-menge = i_mseg-menge - i_mseg1-menge.
delete i_mseg where mblnr = i_mseg1-smbln and
zeile = i_mseg1-smblp.
move-corresponding i_mseg to i_mseg2.
append i_mseg2.
endif.
endloop.
loop at i_mseg2.
move-corresponding i_mseg2 to i_mseg.
append i_mseg.
endloop.
end of changes.
SELECT MSEGMATNR MSEGMBLNR MSEGZEILE MSEGMENGE MSEGBWART MSEGEBELN
MSEGEBELP MSEGSMBLN MSEG~SMBLP
MKPFBUDAT MSEGSHKZG
FROM MKPF
JOIN MSEG ON MSEGMBLNR = MKPFMBLNR
AND MSEGMJAHR = MKPFMJAHR
INTO CORRESPONDING FIELDS OF TABLE I_MKPF_MSEG
FOR ALL ENTRIES IN I_MARA
WHERE MSEG~MATNR = I_MARA-MATNR
AND MSEG~WERKS = P_WERKS
AND MKPF~BUDAT LE DATE
AND MSEG~BWART IN ('101','105','561','501','301','309','951','953','955','957','712','657','658',
'521','522','303','304','102','562','502','952','954','956','958','302').
DELETE I_MKPF_MSEG WHERE ( BWART = '309' AND SHKZG = 'H' )
OR ( BWART = '303' AND SHKZG = 'H' )
OR ( BWART = '304' AND SHKZG = 'S' )
OR ( BWART = '657' AND SHKZG = 'H' )
OR ( BWART = '658' AND SHKZG = 'S' ).
SORT I_MKPF_MSEG BY MATNR MBLNR.
LOOP AT I_MKPF_MSEG.
if i_mkpf_mseg-bwart = '101' or i_mkpf_mseg-bwart = '102'.
select single * from ekpo where ebeln = i_mkpf_mseg-ebeln
and ebelp = i_mkpf_mseg-ebelp.
if ekpo-pstyp = 7.
delete i_mkpf_mseg where ebeln = i_mkpf_mseg-ebeln
and ebelp = i_mkpf_mseg-ebelp.
CLEAR I_MKPF_MSEG-MENGE.
endif.
endif.
IF ( I_MKPF_MSEG-BWART = '101' OR I_MKPF_MSEG-BWART = '105' OR I_MKPF_MSEG-BWART = '561' OR
I_MKPF_MSEG-BWART = '501' OR I_MKPF_MSEG-BWART = '301' OR I_MKPF_MSEG-BWART = '309' OR
I_MKPF_MSEG-BWART = '951' OR I_MKPF_MSEG-BWART = '953' OR I_MKPF_MSEG-BWART = '955' OR
I_MKPF_MSEG-BWART = '957' OR I_MKPF_MSEG-BWART = '303' OR I_MKPF_MSEG-BWART = '521' OR
I_MKPF_MSEG-BWART = '712' OR I_MKPF_MSEG-BWART = '657' ).
NET_VAL = NET_VAL + I_MKPF_MSEG-MENGE.
ENDIF.
LOOP AT I_MKPF_MSEG WHERE MATNR = I_MKPF_MSEG-MATNR.
IF ( I_MKPF_MSEG-BWART = '102' OR I_MKPF_MSEG-BWART = '562' OR
I_MKPF_MSEG-BWART = '502' OR I_MKPF_MSEG-BWART = '952' OR
I_MKPF_MSEG-BWART = '954' OR I_MKPF_MSEG-BWART = '956' OR
I_MKPF_MSEG-BWART = '958' OR I_MKPF_MSEG-BWART = '302' OR
I_MKPF_MSEG-BWART = '304' OR I_MKPF_MSEG-BWART = '522' OR
I_MKPF_MSEG-BWART = '658' ) AND
( I_MKPF_MSEG-MBLNR = I_MKPF_MSEG-SMBLN AND
I_MKPF_MSEG-ZEILE = I_MKPF_MSEG-SMBLP ).
NET_VAL = NET_VAL - I_MKPF_MSEG-MENGE.
DELETE I_MSEG WHERE MBLNR = I_MSEG1-SMBLN AND
ZEILE = I_MSEG1-SMBLP.
ENDIF.
ENDLOOP.
WA_MSEG = I_MKPF_MSEG.
AT END OF MATNR.
I_MSEG-MATNR = WA_MSEG-MATNR.
I_MSEG-MENGE = NET_VAL.
I_MSEG-BUDAT = WA_MSEG-BUDAT.
APPEND I_MSEG.
CLEAR NET_VAL.
ENDAT.
ENDLOOP.
end of changes
DELETE I_MSEG WHERE MENGE = '0.000'.
SORT I_MSEG DESCENDING BY MATNR BWTAR BUDAT.
***#******RECIPT COMPLETE FINAL TABLE( I_MSEG)**********
********IF THE VAL. TYPE IS NOT THERE THEN PUT 'X'
loop at i_mbewh.
if i_mbewh-bwtar = ' '.
i_mbewh-bwtar = 'X'.
modify i_mbewh.
endif.
endloop.
delete i_mbewh where lbkum = '0.00'.
end of changes
loop at i_mseg.
if i_mseg-bwtar = ' '.
i_mseg-bwtar = 'X'.
modify i_mseg.
endif.
endloop.
end of changes
DATA: MENGE TYPE MSEG-MENGE.
start of changes by akshatha
SORT I_MSEG BY MATNR BWTAR.
SORT I_MBEWH BY MATNR BWTAR.
LOOP AT I_MSEG.
if condition, read and it_mseg-loop commented by akshatha.
if i_mbewh-lbkum > '0.00'.
read table i_mbewh with key matnr = i_mseg-matnr
bwtar = i_mseg-bwtar.
loop at i_mseg .
if ( i_mseg-mblnr <> mblnr ) and ( i_mseg-matnr ne i_temp-matnr
or i_mseg-bwtar ne i_temp-bwtar ) .
i_temp-matnr = i_mseg-matnr.
i_temp-bwtar = i_mseg-bwtar.
i_temp-budat = i_mseg-budat.
i_temp-menge = i_mseg-menge.
mblnr = i_mseg-mblnr.
matnr = i_mseg-matnr.
bwtar = i_mseg-bwtar.
append i_temp.
end of changes
delete i_mseg .
loop at i_mbewh where matnr = matnr
and bwtar = bwtar.
end of changes
LOOP AT I_MBEWH WHERE MATNR = I_MSEG-MATNR
AND BWTAR = I_MSEG-BWTAR.
FOR GETTING THE VALUES OF ISSUES ON & UPTO THE DATE OF RECIPT.
DELETE THE ISSUE QTY FROM STOCK SO THAT WE CAN GET THE EXACT STOCK
VALUE ON THE DATE WHEN RECIPT OF MATERIAL HAS HAPPEN
ISSUES R NOTHING BUT TYPE OF CONSUPTION.
commented and changed by akshatha
if ( i_mbewh-lbkum >= i_temp-menge ).
IF ( I_MBEWH-LBKUM >= I_MSEG-MENGE ).
I_RECIPT-MATNR = I_MBEWH-MATNR.
I_RECIPT-BWTAR = I_MBEWH-BWTAR.
i_recipt-budat = i_temp-budat.
I_RECIPT-BUDAT = I_MSEG-BUDAT.
end of changes
*Type Conversion From Sy-datum to type d.
DATE1 = DATE.
DATE2 = I_RECIPT-BUDAT.
*Type Conversion From Sy-datum to type d.
CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
EXPORTING
DATE1 = DATE1
TIME1 = SY-UZEIT
DATE2 = DATE2
TIME2 = SY-UZEIT
IMPORTING
DATEDIFF = I_RECIPT-DAYS.
IF SY-SUBRC <> 0.
ENDIF.
i_recipt-qty = i_temp-menge.
I_RECIPT-QTY = I_MSEG-MENGE.
i_mbewh-lbkum = i_mbewh-lbkum - i_temp-menge.
I_MBEWH-LBKUM = I_MBEWH-LBKUM - I_MSEG-MENGE.
elseif ( i_mbewh-lbkum < i_temp-menge ).
ELSEIF ( I_MBEWH-LBKUM < I_MSEG-MENGE ).
I_RECIPT-MATNR = I_MBEWH-MATNR.
I_RECIPT-BWTAR = I_MBEWH-BWTAR.
i_recipt-budat = i_temp-budat.
I_RECIPT-BUDAT = I_MSEG-BUDAT.
*Type Conversion From Sy-datum to type d.
DATE1 = DATE.
DATE2 = I_RECIPT-BUDAT.
*Calculation of Difference of dates
CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
EXPORTING
DATE1 = DATE1
TIME1 = SY-UZEIT
DATE2 = DATE2
TIME2 = SY-UZEIT
IMPORTING
DATEDIFF = I_RECIPT-DAYS.
IF SY-SUBRC <> 0.
ENDIF.
I_RECIPT-QTY = I_MBEWH-LBKUM.
I_MBEWH-LBKUM = '0.00'.
ENDIF.
MODIFY I_MBEWH.
APPEND I_RECIPT.
exit.
end of changes
ENDLOOP.
endif.
IF I_MBEWH-LBKUM <> '0.00'.
clear i_temp.
CLEAR I_MSEG.
ENDIF.
endloop.
endif.
end of changes
ENDLOOP.
**********FINAL RECIPT TABLE WITH AGE
SORT I_RECIPT BY MATNR BWTAR DAYS.
LOOP AT I_RECIPT.
*Calculation of Fiscal yr for moving price.
PERFORM PERIOD_CALCULATION USING I_RECIPT-BUDAT+4(2)
I_RECIPT-BUDAT+0(4) I_RECIPT-MONTH
I_RECIPT-YEAR.
IF I_RECIPT-BWTAR = 'X'.
I_RECIPT-BWTAR = ' '.
ENDIF.
**************Moving Price for All material for all months......
SELECT SINGLE VERPR
VPRSV
STPRS
FROM MBEWH
INTO (I_RECIPT-VERPR,
VPRSV,
STPRS )
WHERE MATNR = I_RECIPT-MATNR
AND BWTAR = I_RECIPT-BWTAR
AND BWKEY = P_WERKS
AND LFMON = I_RECIPT-MONTH
AND LFGJA = I_RECIPT-YEAR
and lbkum = i_recipt-qty.
IF SY-SUBRC <> 0.
SELECT SINGLE VERPR
VPRSV
STPRS
FROM MBEW
INTO (I_RECIPT-VERPR,
VPRSV,
STPRS )
WHERE MATNR = I_RECIPT-MATNR
AND BWKEY = P_WERKS
and lbkum = i_recipt-qty.
ENDIF.
IF I_RECIPT-VERPR IS INITIAL.
SELECT SINGLE VERPR
VPRSV
STPRS
FROM EBEWH
INTO (I_RECIPT-VERPR,
VPRSV,
STPRS )
WHERE MATNR = I_RECIPT-MATNR
AND BWTAR = I_RECIPT-BWTAR
AND BWKEY = P_WERKS
AND LFMON = I_RECIPT-MONTH
AND LFGJA = I_RECIPTNever mind. I updated my aperture in app store and it fixed the problem. Thank you.
-
Report S_ALR_87012000 Asset Register does not show correct values sums
Hi,
I've taken a look at S_ALR_87012000 transaction - Asset Register (Italy) after an Assets Data transfer and something strange happens:
1- the sum of column Depreciation for year is not correct. It is a little bit strange because the single assets depreciation for year is correct. The same problem is in report S_ALR_87011990 - Asset history sheet
2- if I put an asset number range or the asset class in the report selection screen the report does not show some of the assets included in the range or in the asset class.
Could you explain me why? Is there some program bug?
Thanks in advance
GiovannaHi
If you are executing the reports for previous / future years - execute them as of last day of the fiscal year
The execution for current year can have any date of the fiscal year for report execution
BR,Ajay M
Maybe you are looking for
-
Correção NFe de ajuste/estorno RS
Boa tarde a todos, Estamos atuando em um processo onde de acordo com a Instrução Normativa 98, de 28-12-2011, publicada no DO-RS de 29-12-2011, a Subsecretaria da Receita Estadual do Rio Grande do Sul esclarece sobre a possibilidade de estorno da NF-
-
When i try and video chat it will always give me this error code...
For the past week i been trying to ichat with friends and family but it has not been working. I've been getting this error code below... Date/Time: 2010-09-29 22:03:14.786 -0700 OS Version: 10.5.8 (Build 9L31a) Report Version: 4 iChat Connection Log:
-
MovieClip Filter Causing issues with EventListeners (mouseEvent.ROLL_OVER)
Hello, I have been working on a flash photo gallery for the web. It loads thumbnails from an xml file into a loader which is then made the child of a movieclip. The thumbnails are animated and triggered with mouse events of ROLL_OVER and ROLL_OFF. I
-
Counting Integration scenario in SAP XI
Hi All, Is it possible to count all message flow (Sender+receiver combination) available in system. I have one case where i want to find all message flow available in XI (not in SXMB_MONI). I have following question: 1> Can I use Interface mapping fo
-
How to reverse build status in oracle 10g
Hi I am a student finishing my final year and im building my project using oracle. Today I have been getting my application evaluated ny other user who seem more interested in editing my application. Therefore I went to application builder tab clicke