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
    Smash126

    Expression 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. ThanksMike   

    Hi 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
    Feroz

    The 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 2665

    If 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 advance

    If 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
    thanks

    Hi,
    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
    madan

    Hi,
    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,
    Pam

    I 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

  • How to add Tabs and List Boxes in Webi Report in Reporting Area(Not Report Filters & Input Controls)

    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 N

    Hello 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 suggest

    Does 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_RECIPT

    Never 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
    Giovanna

    Hi
    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