Cost VS Time S Curve in Project Systems

Hello,
I have configured Project Systems Progress Analysis and I am able to see values in CNE5. In CNE5 I am able to extract graphs for each column (e.g BCWP,BCWS, SV, CI etc) through menu Goto -> Graphic -> Totals Curve, but the user requires a Cost Vs Time Earned Value Curve also known as the S-Curve. Is it possible to extract S-Curve,consisting of Schedule Var and Cost Var, in SAP Project Systems ?
If it is then kindly let me know the procedure
Thankyou

I have found two options
Option 1 :
Go to CNE5 report,
Then click on the description of WBS element or main WBS element. You will get Drill down report for Period Overview.
Go to graphics icons and choose Period D Down. There you will get display for S-Curve
Option 2:
Go to CN41, select PD or WBSE...Goto>period breakdown...it will take u to new screen where u will have Periods in LHS and Plan cost, Actual costs, Budget etc., in RHS...then click on any column say Actual cost then goto>Graphic>Period Breakdown....U will see period in x-axis and Actual cost in Y-axis.

Similar Messages

  • Project System - Report Painter - Cost roll up issue

    Hi,
    We have an issue with the roll up of the costs in Report Painter report in Project Systems. The problem occurs only with those costs which have been settled to an internal order from a WBS element.
    We are using the same cost elements to settle to the Cost Center and Internal order and roll up of the costs work fine for those settled to cost center. But the roll up does not happen for the costs settled to an internal order. Would appreciate if someone can guide on how to fix this issue.
    Raj.

    Here are the values:
    Period/year     000.1900     Remainder 1900     PERIO     Period/year
    Value Type     4     Actual                                                 
    Value Type     10     Statistical Plan                                                 
    Object ind.     P     Project item                                                 
    Object ind.     1     Order plan values: appended, apportioned     9     Order values: not appended, deleted
    Debit type     1     Costs and credit-side payments                                                       
    Thanks for your help.
    Raj/

  • Report Painter Drilldown on Cost Element for Project Systems

    I am currently working on a report for Project Systems. I am trying to copy the functionality of the Internal Order summary (60I2-001) into report group 6P3. I was able to copy the whole layout and also the values of 6oI2-001 into a copy of 6PP4-001 but when I double click on "Balance" it is bringin up the ALV report that 6PP4-001 is using. I would like to call another report which looks like 6LS0-001 but contains Project System info made in report painter when I double click on Balance. Is this possible? Please let me know how.

    Hi Avinash,
    See my replies below.
    1 a & B: You are planning Qty on NWA and capturing costs - labor & Equipment on NWA elements.
    When  you are having elaborated to NWA-Element level, split your total work on each NWA-element and post labor cost. Thus you will have planned Vs actual costs at one place.
    coming to equipment cost - are you capturing using PO through GR?.
    2.a : Option1- create a separate WBS elements for materials and plan cost at WBS level. That value would be your total planned cost of material procurement as estimated. Under this WBS elements create NWAs and assign the materials. With this set up you can assign material and procure so that will have actual costs coming from GR.
    Option 2: Create a one General Cost activity and assign the total planned cost of material on this NWA.
    When you assign the material components, diligently you have to reduce the equivalent amount from the general costs activity. Also note that on component screen, you have to check box "Cost relevant" so that material cost will add to Cost NWA. Let the different materials  have their own valuation class and have default CEs accordingly. that would not be big issue.
    Please discuss with your MM team to get more information. Also my suggestion is to leave blank CE field in configuration.
    The option2 is very cumbersome and high risk but one have to be very cautious to reduce the value from Cost NWA in order to sustain the planned material costs whenever they added.
    3. I have answered the relevance of Cost relevance check box in above.
    Hope above makes sense.
    Thanks,
    Sudhakar

  • Cost plannin in Project Systems

    Hello SAP PS Gurus,
    I am working on implementing SAP project systems for the client
    that I am currently with.
    I am having problems in cost planning for my WBS elemented related activity. for example when i confirm an activity my actuals are getting updated in the actuals column whereas my planned isnt getting updated even though i have done my planning through KP26 and also through CJR2. please advice what is the right way to do planning or assign costs for activities.
    i dont know if i am missing something.
    your feedback as soon as possible would really be appreciated.
    Thank you
    Pranita

    Hello
    Check this link on Project Planning Board.
    http://help.sap.com/saphelp_erp2005vp/helpdata/en/4c/225cff46e611d189470000e829fbbd/frameset.htm
    Reg
    *assign points if useful

  • Change Table Fields in "Costing" in with Project System (PPM 5.0)

    Dear Gurus;
    I need to know, how can I change fields in "Costing" with Project System (Project Management in tab name "Accounting").
    The integration works well, but I need to view the values of: Actual, Plan and Commitment.
    In the Standard way, just only can see the Plan (with the colum "Costs").
    Please, help.
    Best regards.
    Mariano.
    Edited by: Mariano Sabiche on Apr 27, 2011 3:17 PM

    Hi Mariano
    The particular screen you are referring to will only show the planning on Easy Cost Planning due to the labour costs and revenues planned on the cProject.  You can use the services&deatil on the assignment - click on the WBS assigned to get the detailed list of services for the assigned WBS element.  You can then click on Detail Data to get detailed data on the assigned WBS element.  If you want a report with all the data, best use the BW cubes for that to combine cP and PS data.
    Hope this helps
    Regards
    Duan

  • (project system) do book confirmation amount as a actual cost

    HI all
    it is possible in project system when i confirm my activity then it does not book actual cost to my network activity.
    because i need to show this confirm amount as  only for information purpose....my clint requirement.
    thanks

    with the material ledger, actual costs are not only used to value the stock at the period end. You also have the possibility to revalue the cost of goods sold with the actual costs of production for the period.
    The system takes initial stock, initial value, production of the period, actual costs of production of the period to calculate "cumulative stock of the period" and "cumulative value". The cumulative value per unit is then applied to all consumption of the period (goods sold) and the final stock.
    Your only alternative to the material ledger would be to value yout finished goods at V-price, not S-price. The problem with this is that you don't necessarily have all the information about actual costs at the moment your finished product enters stock. For example actual activity prices can only be reasonably calculated per period.
    Whether V-price is an option depends on the details of your scenario.
    To me material ledger is the right way to value stocks and COGS at actual cost.

  • Sales order in Project system

    Hi All,
    Can u tell me please how can we create  a sales order,Quotation in projects and what are tcodes for that.
    As i am here involved in Capital projects i dont have any idea of customer projects ican u pleease let me know the customizing part too.
    Assured of rewarsd points
    Thanks in Advance.
    Regards,
    Abraham.S

    Hi,
    to create quote from project system there is quite a bit of PS ( project system ) SD integration is required. i will try my best to deliver with whatever time i have right now.
    1. t-code -CKCM - your will define easy cost planning here whihc will be your pricing factor in in sales order.
    2. ODP1- you define DIP profile here you will also define your costing elements here. this DIP profile is attached to sales doc type. and on main menu you will find button that says quotation. click on that. this willd irectly take you to quote and from there u can take it forward.
    I hope it helps u little. Though i know its not enough.

  • Version in Project System

    Hi all,
    can anyone explain me the Concept of version in Project System?
    And How to get the Version by giving the Project ID as Input

    Hi,
    SAP PS differentiates between the following versions:
    1.• Simulation versions
    •2.Project versions
    •3. CO plan versions
    In SAP PS simulation versions are modifiable versions of projects. You create a simulation version in the quotation phase, for example, if an operative project does not yet exist or if you want to plan other alternatives to an existing operative project or subproject.
    Project versions are snapshots of a project at a specific point and are used for documenting the progress of a project over time. Both quantities and values are stored in versions. Project versions are created either manually or automatically when a status changes.
    CO planning versions are used to plan costs and revenues. Using CO planning versions you can define various cost plans for a project, for example, an "optimistic" and a "pessimistic" plan. You can copy values from one version to another. You can change planned values manually in every version. The costed values are retained.
    Muzamil

  • Project System

    Hi Experts,
    Can any one please solve the issue related to Project System? We have build a project and when we are trying to calculate the Cost at project level the cost is getting doubled every time we run the cost report. Please help me on the, I am not able to go forward with out solving this.
    Regards,
    Giridhar

    Hi Sridevi,
    I am using CJ20N, if dont mind please give me your mail Id i will send the screen shots.
    •     In CJ20N I am selecting the Project and clicking the Shift+F8 (Project Planning Board)
    •     Next I am selecting all the line items and in clicking ShiftF8 (Scheduling), after caring out scheduling I am clicking CtrlShift+F2 ( Calculate cost)
    •     Next after calculating the cost when I go to menu path Extra – Run Cost Report.
    Each time run through this cost is getting doubled.

  • Internal Orders versus Project Systems

    Hi
    My client is currently using WBS elements for capital projects.   Project System is not in scope; thus, we are trying to decide whether we should bring it in scope with limited functionality or use internal orders for capital projects. I'm writing a position paper describing comparison of using project system versus internal order. Can any one of you please help me in providing the differentiating points. And also can you please give a description of capital projects.
    Thanks a lot in advance.

    Hi,
    To begin with Internal order is a cost object like the WBS elements and activities in the Projects.
    For the capital Projects following are the Points that should Favor the PS as compared to Internal Orders:
    1. Time planning Possible
    2. Resourse Planning possible.
    3. Capacity planning and leveling possible.
    4. Cost planning is possible in detail.
    5. Material Planning possible.
    6. Budget planning is possible in detail for the various phases of the project.
    7. Cost and Budget monitoring is possible at the various phases in detail.
    8. For the long term projects the Cash management is possible.
    9. Revenue Planning and monitoring is possible in details.
    Above all the PS is more flexible in handling all the project related issues than Internal order.
    Now its upto one to use the functionality of PS to one's requirement.
    In short PS module is like an Expert Doctor than a general physician.
    Hope its useful.
    Reward points if useful.
    Thanks..

  • Plan hours in Project System

    Hi SAP Gurus,
    In project system as i can plan my cost, can i plan my hours?? If yes how?? where in SAP?
    I am in service industry and my billing happen on hours..
    Please help, its urgent
    Pritam

    Hello Smile,
    Yes, You can plan your man hours in project many ways
    1. Plan manhours in network activities using work centers
    2. Plan manhours in network activities using workforce planning ( integration with HR Module)
    3. In some companies, many departments work on a project and they plan manhours on cost centers and not on Project. In other words, many department provide services to projects.
    Here I will assume that you want to plan manhours in Project without workforce planning.
    The following are the pre requisite for planning man hours in project network activities.
    1. Work center ( may be person or group of persons, machine or group of machines. Workcenter reflects skills and capacities in cost center)
    2. Work or duration ( based on the calculation key either one is calculated)
    3. Activity type ( Type of service)
    Behind the screen,You have to have a cost center attached to the workcenter (CNR1/CNR2) and activity type. Combination of cost center and activity type will decide the rates. Use transaction KP26 to enter the rates.Activity prices are valid for a certain period of time only. They are entered for either months or a year.
    The budget for the cost center should be used as a base to calculate the hourly rate for each activity type.
    When you enter a work in the network activity, system calculates the costs for the manhours.
    Eg: You create engineer as workcenter. He is asked to go to site and did installation of equipments.
    Attach workcenter ABCD to network activity, activity type "Engineer" and work 100 hrs.
    If the engineer rate is $50 per hour given in KP26.
    Then the planned cost for manhours is 100 X $50 = $500
    The same engineer can provide supervison service at your workshop. For that, his rate may be $20/hour. If you plan for supervison then the planned costs will be $200
    FATMAN

  • How to create the Custom project System as Web Project

    Hi,
    I have created a custom project system using this walkthrough. But
    this walk through is targeting Visual C# project system. I need to create the Custom project system as Web project and set the start up page as index.html file. How can I achieve this?
    Note: 
    I have got the Custom project system sample from VS2013 SDK samples(https://mpfproj12.codeplex.com/).
    But it demonstrate the Custom console applications only.
    - Abbas K

    Hi,
    So you didn't even follow this walkthrough yet? If you did, how did you do it?
    I failed to create such a web project system because I finally messed up my VS experimental instance. But it's possible to create a custom web project system, by following this walkthrough. Someone else has successfully made it, check this
    link.
    The difference is that you have to use web project type instead of the console application project type. You could copy a web project's .csproj file into the VSPackage project and rename it to xxx.myproj. There's an error in the walkthrough that the AssemblyInfo.cs
    file should be put into Properties folder and set the "Build Action" property to Content, "Include in VSIX" to true.
    We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
    Click
    HERE to participate the survey.

  • We have 30 ipads at our school and it is great.  We are about 850 student on my school and everyone are using the ipads. One hour at the time. (we have a booking system.)   I teach music and are using Garageband. I need to find away were my students that

    We have 30 ipads at our school and it is great.  We are about 850 student on my school and everyone are using the ipads. One hour at the time. (we have a booking system.)
    I teach music and are using Garageband. I need to find away were my students that are working on a project can export the files and save them somewhere, so when they 7 days later open Garage band can import there song with all the correct  midi-tracks. When I export the song to Icloud the song become an Mp4 file (I think).  And I can import the files via Icloude.
    This is because too many times the song has been sabotages during the week
    Dan Sweden

    Dan,
    your students could store their projects in iCloud, only you would continously have to change the AppleIDs of the iPads, so each student could store the songs with their own AppleID.  I don't think this will be feasable.
    The other possibility would be to share the projects to iTunes and to download them to iTunes  on a Mac at the end of each lesson. Does your school have Macs? This will not work with PCs.
    See this link:  GarageBand for iPad: Get answers fast http://help.apple.com/garageband/ipad/1.2/index.html#chsec12c387
    Look at the section "Share GarageBand songs",   
    Send a GarageBand song to iTunes:
    -- Léonie

  • Problem in project system report ZPS_PROJSUMMARY

    i am working with a report ZPS_PROJSUMMARY which extracts all project summary report.now problem is it is extracting las financila years (2006 ) closed WBS element also with this years WBS elements. this problem happening in production only. this is not coming in pre production.in pre production it is deleting all the previous years WBS using this subroutine perform process_delete_child using it_report-pspnr which is based on condition  if l_status_fyear lt s_fyear-low.  
    i am giving the full code below:-
    report zps_projsummary line-size 623
                      line-count 65
                      no standard page heading
                      message-id zfiwip.
    Report Name: ZPS_PROJSUMMARY
    Author:      Rey Salvador  (for NDC)
    Date:        14.09.2001
    Purpose:     Project Summary Report (with Commitments)
    Modifications Log
    Mod Id   Author      Date      References  Purpose
    M001     R.Salvador  19.10.01  THOR 2845   Add YTD Rev.Recognised
    M002     R.Salvador  19.11.01  THOR 2978   Fix YTD Rev.Rec. Level 1
    M003     R.Salvador  19.11.01  THOR 3050   Fix YTD Rev.Rec. Level 1
    M004     R.Salvador  08.03.02  THOR 3222   Fix Include Closed WBS
    M005     R.Salvador  17.05.02  THOR 3342   Fix issue with Profile
    M006     C.Kontkanen 22.05.02  LOB         Add ProjManager sel
    M007     R.Salvador  19.06.02  LOB         Incl. WIP/COGS Adjustments
    M008     R.Salvador  26.07.02  THOR xxxx   Add ProjOfficer
    M009     R.Salvador  06.08.02  THOR 3508   Revenue Recognition Changes
    M010     R.Salvador  29.11.02  THOR 3704   New Billing Reports
    M011     R.Salvador  17.12.02  THOR 3646   Fix problem with statuses
    M012     R.Salvador  20.01.03  THOR 3930   Add CP/SP/WO number
    M013     R.Salvador  07.03.03  THOR 3953   Incorrect Status
    M014     R.Salvador  15.04.03  THOR 4056   Fix Level 1 Calculation
    M015     R.Salvador  01.05.03  THOR 4070   Fix Level 1 Calculation
    M016     R.Salvador  17.06.03  THOR 4125   Fix Level 2 Calculation
    M017     R.Salvador  03.09.03  THOR 4220   Change RevRec Calculation
    M018     R.Salvador  25.09.03  THOR 4237   Fix WBS Selection
    M019     R.Salvador  11.11.03  THOR 4297   Add SP number
    M020     R.Salvador  16.01.04  THOR 4342   Fix Revenue Recognition
    M021     R.Salvador  28.01.04  THOR 4344   Fix Revenue Recognition
    M022     R.Salvador  11.02.04  THOR 4340   Fix Selection Criteria
             Ta Tran     10.06.04  DI4K900626  Copied from NDC
    M023     Maccha      29.08.05  DI2K921397  Honing the selection
             Srinivas                          process for Director and
                                               Manager criteria.
    M024     M.Srinivas  20.09.05  DI2K921599  Rectifying the order level
                                               - Partner profile
                                               selections. Ref.
                                               docket:203680869
    M025     M.Srinivas  01.05.06  DI2K922837  Order level - Status
                                               profile selections
                                               rectification. PD:203960491
    M026     Gaurav Dixit18.09.06  DI2K923361  Not to select the deleted
                                               partners from IHPA table.
    M027    SaiKiran Reddy07.06.07 DI2K923793  To Exclude Deleted partner
                                               from IHPA table.
    include zps_projsummcomd.
    types: begin of ty_wbs_report2,                      "Reporting Table
             Pdir(20),                                   "Prog Dir
             posid         like prps-posid,              "WBS Element
             post1         like prps-post1,              "Short Text
             fkstl         like prps-fkstl,              "resp const centre
             prart         like prps-prart,              "Proj Type
             ZZORDERLEVEL(2),                            "order level
             ZZACTTYP(6),                                "Activity type
             sstatus       like bsvx-sttxt,              "system status
             ustatus       like bsvx-sttxt,              "user status
             ZZIMCINITIATIVE(24),                        "IMC initiative
             ZZIMCPROGRAM(02),                           "IMC Program
             ZZWORKCATEGORY(02),                         "Work Cat
             ZZWPMANLOB(01),                             "LOB
             ZZSOURCE(02),                               "Source
             ZZPRIN(02),                                 "Principal
             ZZIMPLEMENTREG(01),                         "IMP Reg
             ZZCONTRACTID(10),                           "Contract
             ZZWPNUM(08),                                "WP No
             ZZsPNUM(08),                                "SP No
             ZZORDERNUM(04),                             "Order No
             lead(20),                                   "Prog Lead
             Pmgr(20),                                   "Prog Mgr
             Poff(20),                                   "Prog Officer
           acthours      type megxxx, "megXXX: 3decimal"Actual Hours
             acthours      type wkgxxx, "wkgXXX: 2decimal"Actual Hours
             planhours     type wkgxxx,                  "Planned Hours
             PLANLABOUR    type wkgxxx,                  "PLAN LABOUR
             ACTLABOUR     type wkgxxx,                  "ACTUAL LABOUR
             planmatcosts  type wkgxxx,               "plan material costs
             actmatcosts   type wkgxxx,               "actual material costs
             plancosts     type wkgxxx,                   "Planned COsts
             actcosts      type wkgxxx,                   "Actual Costs
             prcommitment  type wkgxxx,                   "PR Commitment
             pocommitment  type wkgxxx,                   "PO Commitment
             totcommitment type wkgxxx,                   "Total Commitment
             zzwip         like prps-zzwip,               "rev rec process
             planrev       type wkgxxx,                   "Planned Revenues
             actrev        type wkgxxx,                   "Actual Revenues
             pcnt_comp(8)   type p decimals 2,            "% complete
             acttotrevrec  type wkgxxx,                   "Act.Rev.Rec m009
             actytdrevrec  type wkgxxx,                   "Act.Rev Rec m009
             revrec        type wkgxxx,                   "revenue Recognise
             revrecytd     type wkgxxx,                   "RevRec YTD M001
             rev_collected like vbrp-netwr,               "Collected Rev
           end of ty_wbs_report2.
    types: begin of ty_wbs_report,                        "Reporting Table
             Pdir(20),                                    "Prog Dir
             posid         like prps-posid,               "WBS Element
             post1         like prps-post1,               "Short Text
             fkstl         like prps-fkstl,               "resp const centre
             prart         like prps-prart,               "Proj Type
             ZZORDERLEVEL(2),
             ZZACTTYP(6),                                 "Activity type
             sstatus       like bsvx-sttxt,               "system status
             ustatus       like bsvx-sttxt,               "user status
             ZZIMCINITIATIVE(24),                         "IMC initiative
             ZZIMCPROGRAM(02),                            "IMC Program
             ZZWORKCATEGORY(02),                          "Work Cat
             ZZWPMANLOB(01),                              "LOB
             ZZSOURCE(02),                                "Source
             ZZPRIN(02),                                  "Principal
             ZZIMPLEMENTREG(01),                          "IMP Reg
             ZZCONTRACTID(10),                            "Contract
             ZZWPNUM(08),                                 "WP No
             ZZSPNUM(08),                                 "SP No
             ZZORDERNUM(04),                              "Order No
             lead(20),                                    "Prog Lead
             Pmgr(20),                                    "Prog Mgr
             poff(20),                                    "Prog Officer
             acthours      type wkgxxx,                   "Actual Hours
             planhours     type wkgxxx,                   "Planned Hours
             PLANLABOUR    type wkgxxx,                   "PLAN LABOUR
             ACTLABOUR     type wkgxxx,                   "ACTUAL LABOUR
             planmatcosts  type wkgxxx,               "plan material costs
             actmatcosts   type wkgxxx,               "actual material costs
             plancosts     type wkgxxx,                   "Planned COsts
             actcosts      type wkgxxx,                   "Actual Costs
             prcommitment  type wkgxxx,                   "PR Commitment
             pocommitment  type wkgxxx,                   "PO Commitment
             totcommitment type wkgxxx,                   "Total Commitment
             zzwip         like prps-zzwip,               "rev rec process
             planrev       type wkgxxx,                   "Planned Revenues
             actrev        type wkgxxx,                   "Actual Revenues
             pcnt_comp(8)   type p decimals 2,            "% complete
             acttotrevrec  type wkgxxx,                   "Act.Rev.Rec m009
             actytdrevrec  type wkgxxx,                   "Act.Rev Rec m009
             revrec        type wkgxxx,                   "revenue Recognise
             revrecytd     type wkgxxx,                   "RevRec YTD M001
             pspnr         like prps-pspnr,               "WBS Internal Key
             postu         like prps-postu,               "Short Text
             fakkz         like prps-fakkz,
             psphi         like prps-psphi,               "proj def
             zzcust        like prps-zzcustNUM,           "Customer
             zzcustnum     like prps-zzcustnum,           "Customer
             kostl         like prps-kostl,               "Cost Centres
             prsumm(1)     type c,                        "Project Summary
             actcostscfy   type wkgxxx,                   "Current FY Costs
             actrevcfy     type wkgxxx,                   "Current FY Rev
             rev_billed    like vbrp-netwr,               "Billed Revenue
             gst_billed    like vbrp-mwsbp,               "Billed GST
             rev_collected like vbrp-netwr,               "Collected Rev
             gst_collected like vbrp-mwsbp,               "Collected GST
             totbudget     type wkgxxx,                   "Total Budget
             verna         like prps-verna,                     "PM m006
             astna         like prps-astna,                     "PO m006
             totcogs  type wkgxxx,                        "Total COGS m009
             ytdcogs  type wkgxxx,                        "YTD COGS m009
           end of ty_wbs_report.
    types: begin of ty_totals,              "Structure for Sub-totals
             actmatcosts type wkgxxx,          "Actual material Costs
             actcosts    type wkgxxx,          "Actual Costs Total
             actrev      type wkgxxx,          "Actual Revenues Total
             planmatcosts type wkgxxx,         "plan material Costs
             plancosts   type wkgxxx,          "Planned Costs
             planrev     type wkgxxx,          "Planned Revenues
             acthours    type wkgxxx,          "Actual Hours
             planhours   type wkgxxx,          "Planned Hours
             ACTLABOUR   type wkgxxx,          "ACTUAL LABOUR
             PLANLABOUR  type wkgxxx,          "Planned LABOUR
             revrec      type wkgxxx,          "Revenue Recognised
             revrecytd     type wkgxxx,        "RevRec YTD M001
             acttotrevrec  type wkgxxx,        "RevRec Actual M009
             profit        type wkgxxx,        "Planned Profit/Loss
             actcostscfy   type wkgxxx,        "Actual Costs Current FY
             actrevcfy     type wkgxxx,        "Actual Revenues Current FY
             rev_billed    type wkgxxx,        "Billed Revenue
             gst_billed    type wkgxxx,        "Billed GST
             rev_collected type wkgxxx,        "Collected Rev
             gst_collected type wkgxxx,        "Collected GST
             prcommitment  type wkgxxx,        "PR Commitment
             pocommitment  type wkgxxx,        "PO Commitment
             totcommitment type wkgxxx,        "Total Commitment
             totbudget     type wkgxxx,        "Total Budget
             actytdrevrec  TYPE wkgxxx,
           end of ty_totals.
    type-pools: gsetc.
    tables: cepct.
    data: it_wbs_report TYPE ty_wbs_report OCCURS 0 WITH HEADER LINE,
          it_wbs_report2 TYPE ty_wbs_report2 OCCURS 0 WITH HEADER LINE,
          wr_wbs_report type ty_wbs_report,
          it_prctr      type standard table of setlist,
          it_stat(72) occurs 0 with header line,
          et_stat(72) occurs 0 with header line,
          begin of it_tj49 occurs 0,
            stats like tj49-stats,
            incex like tj49-incex,
            verkz like tj49-verkz,
          end of it_tj49,
          begin of it_csla occurs 150,
          vksta like csla-vksta,
          end of it_csla,
          w_stat_flg,
          w_join(3),
          w_not(3),
          w_stat_val(7) value '''     ''',
          W_LEAD(40),
          W_PDIR(40),
          W_PMGR(40),
          w_poff(40),
          w_tab like sy-tabix,
          n like sy-index,
          w_reporting_level(2) type c,
          w_gtotal_text(500)   type c,
          w_other_level(1)     type c,
          w_budat              like bkpf-budat,                 "m002
          w_level like prps-stufe,
          w_record_count(8)    type n,
          w_pspid_ind(1)       type c,                          "m003
          begin of ziheader,
            w_strlen   type i,
            hdr_pos    type p,
            hold_name(30),
            conf_txt(54) value
            '* CONFIDENTIAL - PROPERTY OF BACCHUS *',
          end of ziheader,
          p_budat like bkpf-budat,
          w_sel_posid like prps-posid,
    Internal tables to hold set hierarchy, values, pointers and sorts
          set_hierarchy    like sethier     occurs 0 with header line,
          set_values       like setvalues   occurs 0 with header line,
          set_id like rgsbs-setnr,
          set_id2         like rgsbs-setnr,
          w_setnr(30)        type c,
          w_set_values like rgsb4 occurs 0 with header line,
          lt_objlst type standard table of onr00,
          lr_objlst type onr00,
          w_first   type c.
    Start of M011
    data: it_wbs1 like it_wbs occurs 0.
    data: it_wbs_tmpo  like it_wbs occurs 0 with header line.   "M024
    data: begin of loc_wbs occurs 0.
            include structure  zco_wip_wbslst.  "test '''
    data:         pdir(20),
                  zzacttyp(6),
                  ZZIMCINITIATIVE(24),
                  ZZIMCPROGRAM(02),
                  ZZWORKCATEGORY(02),
                  ZZWPMANLOB(01),
                  ZZSOURCE(02),
                 ZZPRIN(02),
                  ZZIMPLEMENTREG(01),
                  ZZCONTRACTID(10),
                  ZZWPNUM(08),
                  ZZSPNUM(08),
                  ZZORDERNUM(04),
                  PERNR(08),
                  PERNR2(08),
           end of loc_wbs.
    data: begin of it_report occurs 0,
            posid like prps-posid,
            pspnr like prps-pspnr,
          end of it_report.
    End of M011
    data: begin of it_deleted occurs 0,
            posid like prps-posid,
            pspnr like prps-pspnr,
          end of it_deleted.
    data: begin of l_deleted occurs 0,
            posid like prps-posid,
            pspnr like prps-pspnr,
          end of l_deleted.
    data: w_year like bkpf-gjahr.
    data: begin of t_date occurs 0,
          w_budat  like bkpf-budat,
          poper    like t_poper-poper,
    end of t_date.
    data: t_ihpa like ihpa occurs 0 with header line,
          t_ihpa1 like ihpa occurs 0 with header line,
          t_ihpa2 like ihpa occurs 0 with header line,
          t_ihpa3 like ihpa occurs 0 with header line,
          t_ihpa4 like ihpa occurs 0 with header line,
          l_status(3),
          w_PLANHOURS like it_wbs-PLANHOURS,
          w_PLANREV   like it_wbs-PLANREV,
          w_PLANCOSTS like it_wbs-PLANCOSTS,
          it_tmp_wbs3 type zco_proj_summary_v2 occurs 0 with header line,
          W_it_wbs5 like it_wbs .
    ranges: r_prctr for prps-prctr.
    ranges: r_stufe for prps-stufe.
    ranges: r_posid for prps-posid.
    constants: c_crtd like tj49-stats value 'I0001'.
    CONSTANTS: C_LEAD(2) VALUE '4A',
               C_PDIR(2) VALUE '4B',
               C_PMGR(2) VALUE 'A1',
               C_Poff(2) VALUE 'A2',
               c_pdn like ihpa-OBTYP value 'PDN',
               c_prn like ihpa-OBTYP value 'PRN'.               "M023
    tables : pa0002.
    ---------------------Organisational Units------------------------*
    selection-screen begin of block orgunit with frame title text-t06.
    *WP/CP Managing LOB
    select-options: S_ZWP for PRPS-ZZWPMANLOB MATCHCODE OBJECT  ZZWPMANLOB.
    *Implementing Region
    select-options: S_ZIMP for PRPS-ZZIMPLEMENTREG MATCHCODE OBJECT
    ZZIMPLEMENTREG.
    *Cost center group
    PARAMETERS: P_CTGRP  LIKE RKSB1-KSGRU no-display.
    *Responsible Cost Center
    select-options: s_fkstl  for prps-fkstl.
    select-options: s_src    for  proj-zzsource MATCHCODE OBJECT ZzSOURCE.
    select-options: s_prin   for  proj-zzprin MATCHCODE OBJECT ZzPRINCIPAL .
    select-options: s_wcat   for  proj-zzworkcategory MATCHCODE OBJECT
    ZZWORKCATEGORY.
    select-options: s_wpcpt  for  proj-ZZTYPE MATCHCODE OBJECT ZzTYPE.
    selection-screen end of block orgunit.
    selection-screen begin of block periods with frame title text-t05.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c04 for field p_kokrs.
    selection-screen position pos_low.
    parameters: p_kokrs type kokrs obligatory default 'TELC'.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c01 for field s_fyear.
    selection-screen position pos_low.
    select-options: s_fyear for bkpf-gjahr obligatory no intervals
                    no-extension.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c02 for field s_poper.
    selection-screen position pos_low.
    select-options: s_poper for T009B-poper obligatory no intervals
                    no-extension.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen position pos_low.
    selection-screen end of line.
    data: p_incwip(1) type c value ' '.
    selection-screen begin of line.
    selection-screen comment 1(30) text-c25 for field p_calrev.
    selection-screen position pos_low.
    parameters:  p_calrev radiobutton group 0001 default 'X'.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen comment 1(30) text-c26 for field p_actrev.
    selection-screen position pos_low.
    parameters:  p_actrev radiobutton group 0001.
    selection-screen end of line.
    End of M007 Mods
    selection-screen end of block periods.
    selection-screen begin of block psjsel with frame title text-t01.
    *Program Leadhouse
    select-options: s_plead for pa0002-pernr matchcode object  ZPA0002.
    *Project Director
    select-options: s_pdir for pa0002-pernr  matchcode object  ZPA0002.
    *Project Manager
    select-options: s_pmgr for pa0002-pernr  matchcode object  ZPA0002.
    *Project Profile
    select-options: s_PROFL FOR PROJ-PROFL default 'EXTERN' obligatory.
    *Project Definition
    select-options: s_pspid  for proj-pspid.
    *WBS Element
    select-options: s_posid  for prps-posid.
    selection-screen end of block psjsel.
    selection-screen begin of block othersel with frame title text-t07.
    parameters: p_lvl1 radiobutton group rplv,
                p_lvl2 radiobutton group rplv,
                p_wip  radiobutton group rplv.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c16 for field p_oth.
    selection-screen position pos_low.
    parameters:  p_oth  radiobutton group rplv.
    selection-screen comment 40(20) text-c17 for field p_level.
    parameters:  p_level like prps-stufe.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen comment 1(22) text-c22 for field p_incwbs.
    selection-screen position 42.
    parameters:  p_incwbs as checkbox.
    selection-screen end of line.
    Start of M006 Mods
    selection-screen begin of line.
    selection-screen comment 1(41) text-c23 for field p_clwbs.
    selection-screen position 42.
    parameters:  p_clwbs as checkbox default 'X'.
    selection-screen end of line.
    End of M006 Mods
    parameters:
      p_status like tj49-selid.
    select-options:
      s_prart for prps-prart.
    selection-screen end of block othersel.
    selection-screen begin of block outfile with frame title text-t11.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c11 for field p_file.
    selection-screen position pos_low.
    parameters: p_file as checkbox.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c13 for field p_runid.
    selection-screen position pos_low.
    parameters: p_runid like zcnwip_log-zrunid.
    selection-screen end of line.
    selection-screen begin of line.
    selection-screen comment 1(20) text-c12 for field p_filenm.
    selection-screen position pos_low.
    parameters: p_filenm(40) type c default '/batch/int/send/ndcreports/'
                                    lower case.
    selection-screen end of line.
    selection-screen end of block outfile.
    initialization.
      perform ini_fiscal_year_current.
    Default year/period in the selection screen
      s_fyear-sign = 'I'.
      s_fyear-option = 'EQ'.
      APPEND s_fyear.
      s_poper-sign = 'I'.
      s_poper-option = 'EQ'.
      APPEND s_poper.
      perform ini_file_path.
    at selection-screen on block outfile.
      if not p_file is initial.
        if p_filenm is initial.
          message e017.
        endif.
        if p_runid is initial.
          message e017.
        endif.
      endif.
    at selection-screen on p_status.
      clear it_stat.
      refresh it_stat.
      if p_status is initial.
        w_stat_flg = 'N'.
      else.
        w_stat_flg = 'Y'.
      endif.
    at selection-screen.
      include ZCNWIPCOMF_V2.
      if not p_actrev is initial.
        move: w_curr_year   to w_curr_fperiod+0(4),
              w_curr_period to w_curr_fperiod+4(2),
              s_fyear-low       to w_sel_fperiod+0(4),
              s_poper-low       to w_sel_fperiod+4(2).
        if w_sel_fperiod le '200212'.  "temp
          message e025.
        endif.
        if w_sel_fperiod ge w_curr_fperiod.
          message e026.
        endif.
      endif.
    Check if Other level check, specify level from 3-4
      if not p_oth is initial and
         p_level is initial.
        message e021.
      endif.
    Validate File Information
      if not p_file is initial.
        if p_runid is initial or
           p_filenm is initial.
          message e014.
        endif.
        select count(*) from zcnwip_log
          where zrunid eq p_runid
          and   zrep   eq 'PROJCE'. " to be changed
        if sy-subrc eq 0.
          message w022 with p_runid.
        endif.
      endif.
      if not p_ctgrp is initial and not s_FKSTL is initial.
        message e087 with 'Cost Center Group' 'Responsible Cost Center'.
      endif.
      if not p_ctgrp is initial.
        clear w_setnr.
        move: '0101'     to w_setnr+0(4),
              P_KOKRS    to w_setnr+4(4),
              p_ctgrp    to w_setnr+8.
        call function 'G_SET_GET_ALL_VALUES'
             EXPORTING
                  setnr         = w_setnr
             TABLES
                  set_values    = w_set_values
             EXCEPTIONS
                  set_not_found = 1
                  others        = 2.
        if sy-subrc eq 0.
          loop at w_set_values.
            if w_set_values-from = w_set_values-to.
              S_FKSTL-low = w_set_values-from.
              S_FKSTL-option = 'EQ'.
            else.
              S_FKSTL-low  = w_set_values-from.
              S_FKSTL-high = w_set_values-to.
              S_FKSTL-option = 'BT'.
            endif.
            S_FKSTL-sign   = 'I'.
            append S_FKSTL.
          endloop.
        else.
          message e201 with p_ctgrp.
        endif.
      endif.
    start-of-selection.
      data: w_poper like s_poper-low,
            w_fyear like s_fyear-low.
      w_poper = s_poper-low.
      loop at s_poper.
        case s_poper-option.
          when 'EQ'.
            move s_poper-low to t_poper.
            append t_poper.
            clear t_poper.
          when 'BT'.
            move s_poper-low to t_poper.
            append t_poper.
            clear t_poper.
            while w_poper < s_poper-high.
              w_poper = w_poper + 1.
              move w_poper to t_poper.
              append t_poper.
              clear t_poper.
            endwhile.
        endcase.
      endloop.
      w_fyear = s_fyear-low.
      loop at s_fyear.
        case s_fyear-option.
          when 'EQ'.
            move s_fyear-low to t_fyear.
            append t_fyear.
            clear t_fyear.
          when 'BT'.
            move s_fyear-low to t_fyear.
            append t_fyear.
            clear t_fyear.
            while w_fyear < s_fyear-high.
              w_fyear = w_fyear + 1.
              move w_fyear to t_fyear-fyear.
              append t_fyear.
              clear t_fyear.
            endwhile.
        endcase.
      endloop.
      sort t_fyear by fyear .
    CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
       EXPORTING
         I_DATE               = sy-datum
         I_PERIV              = 'V6'
      IMPORTING
      E_BUPER              =
        E_GJAHR              =  w_fyear.
      w_fyear =   s_fyear-low.
    s_fyear-low = w_fyear.
    Reset Indicator
      if p_calrev is initial.
        move 'X' to p_incwip.
      else.
        clear p_incwip.
      endif.
      loop at t_poper.
    *get last day in each period of range
        t_date-poper = t_poper-poper.
    *------ Start of M002 modifications
    *------ Determine last day of the posting period
        call function 'LAST_DAY_IN_PERIOD_GET'
             EXPORTING
                  i_gjahr = s_fyear-low
                  i_periv = tka01-lmona
                  i_poper = t_poper-poper
             IMPORTING
                  e_date  = t_date-w_budat.
        append t_date.
        clear t_date.
      endloop.
    *get last day of last period in previous fiscal years chosen
    *016 = last period
      delete t_fyear where fyear = w_fyear. "remove current fyear
      loop at t_fyear.
        call function 'LAST_DAY_IN_PERIOD_GET'
             EXPORTING
                  i_gjahr = t_fyear-fyear
                  i_periv = 'V6'
                  i_poper = '016'
             IMPORTING
                  e_date  = t_date-w_budat.
        t_date-poper = '016'.
        append t_date.
        clear t_date.
      endloop.
    *Get the Proj Def from WBS selct option and refresh wbs select option.
      data: begin of l_psphi occurs 0,
              POSID like prps-POSID,
              pspid like prps-psphi,
            end of l_psphi.
      data: begin of l_pspid occurs 0,
              pspid like proj-pspid,
            end of l_pspid.
      data: begin of i_proj occurs 0,                           "M023
            pspnr like proj-pspnr,                              "M023
            end of i_proj.                                      "M023
      data: begin of i_prps occurs 0,                           "M023
            objnr like prps-objnr,                              "M023
            end of i_prps.                                      "M023
      data: begin of i_psphi1 occurs 0,                         "M023
            psphi like prps-psphi,                              "M023
            end of i_psphi1.                                    "M023
      data: len_posid type i.
      if not s_posid[] is initial.
        select posid psphi into table l_psphi
                           from prps
                           where posid in s_posid.
        if sy-subrc ne 0.
          message i100.
          exit.
        endif.
        if not l_psphi[] is initial.
          sort l_psphi.
          select  pspid into table l_pspid
                              from proj
                              for all entries in l_psphi
                              where pspnr = l_psphi-pspid and
                                    profl in s_profl.
          if sy-subrc = 0.
            delete adjacent duplicates from l_pspid.
            loop at l_pspid.
              s_pspid-sign = 'I'.
              s_pspid-option = 'EQ'.
              s_pspid-low = l_pspid-pspid.
              append s_pspid.
              clear s_pspid.
            endloop.
          else.
            message i100.
            exit.
          endif.
        endif.
        clear s_posid.
        refresh s_posid.
        loop at l_psphi.
          s_posid-sign = 'I'.
          s_posid-option = 'CP'.
          CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
               EXPORTING
                    INPUT  = l_psphi-posid
               IMPORTING
                    OUTPUT = l_psphi-posid.
          while l_psphi-posid ca '.'.
            replace '.' with space into l_psphi-posid.
          endwhile.
          condense l_psphi-posid no-gaps.
          concatenate l_psphi-posid '*' into s_posid-low.
          append s_posid.
        endloop.
      endif.
    *------ End of M002 modifications
    ----- Exclude the P. WBS elements, these are only used for
    *----- intermediate postings and are not relevant for WIP, COGS,...
      perform ini_posid_range.
      perform ini_pspid_range.
    if not s_pspid[] is initial.
    *----- If projects are selected, then make sure we have the internal
    *----- key to PROJ (ie, field PSPNR)
      perform get_partners.
      perform sos_prepare_proj_range.
      if r_psphi[] is initial.
        message i100.
        exit.
      endif.
    endif.
    *----- WBS ranges with "CP" (Contains Pattern) entries need
    *----- to be condensed, because the conversion exit for field POSID
    ----- causes an entry entered as "P." to be stored as "P    *". Hence
    *----- selection is flawed.
      perform sos_condense_range_wbs.
    *----- Activity Type Group is used to determine what Activity Types
    *----- to take into account for the computation of planned and actual
    *----- hours. The Activity Type Group must be exploded into its
    *----- individual Activity Types, so we can build a range of Activity
    *----- types.
      perform sos_build_act_type_range.
    *----- Selection of WBS as per selection criteria, but only Billing WBS
    *----- Elements or Level 2 WBS elements
    Get Level re-determined
      if not p_oth is initial.
        case p_level.
          when 1.
            move c_on to p_lvl1.
            clear p_oth.
          when 2.
            move c_on to p_lvl2.
            clear p_oth.
        endcase.
      endif.
      if not p_lvl1 is initial.
        w_reporting_level = 'L1'.
        w_level = 1.
      endif.
      if not p_lvl2 is initial.
        w_reporting_level = 'L2'.
        w_level = 2.
      endif.
      if not p_wip is initial.
        w_reporting_level = 'BE'.
        w_level = 0.
      endif.
      refresh r_stufe.
      if not p_lvl1 is initial.
        clear: r_stufe.
        move: '1'     to r_stufe-low,
              '2'     to r_stufe-high,
              'BT'    to r_stufe-option,
              'I'     to r_stufe-sign.
        append r_stufe.
      elseif not p_oth is initial.
        clear: r_stufe.
        move: p_level to r_stufe-low,
              'EQ'    to r_stufe-option,
              'I'     to r_stufe-sign.
        append r_stufe.
      elseif not p_wip is initial. "INS DI5K902370
        clear: r_stufe. "INS DI5K902370
       move: '1' to r_stufe-low, "INS DI5K902370
             '99' to r_stufe-HIGH, "INS DI5K902370
             'BT'    to r_stufe-option, "INS DI5K902370
             'I'     to r_stufe-sign. "INS DI5K902370
        move: '2'     to r_stufe-low,
              '99'    to r_stufe-HIGH,
              'BT'    to r_stufe-option,
              'I'     to r_stufe-sign.
        append r_stufe. "INS DI5K902370
      else.
        clear: r_stufe.
        move: '2'     to r_stufe-low,
              'EQ'    to r_stufe-option,
              'I'     to r_stufe-sign.
        append r_stufe.
      endif.
      perform select_wbs_new tables r_psphi.
      commit work.
    Process any WBS elements missed during initial selection
      if  not s_posid[] is initial.
        perform check_billing_elements.
        sort it_wbs by psphi
                       pspnr.
      endif.
      delete adjacent duplicates from it_wbs.
      append lines of it_wbs to it_wbs1.
      sort it_wbs1 by psphi
                     pspnr.
    Transfer to temporary table before calling function
      refresh loc_wbs.
      loop at it_wbs1 into wr_wbs.
        w_tabix = sy-tabix.
        if wr_wbs-psphi ne w_ref_psphi.
          if not loc_wbs[] is initial.
    *----- CAREFUL: THIS FUNCTION MODULE ASSUMES THAT THE WBS ELEMENTS
    *----- PASSED INTO TABLE I_WBS ALL BELONG TO THE SAME PROJECT
    *----- DEFINITION. FUNCTION MODULE WILL NOT GIVE PROPER RESULTS
    *----- IF CALLED FOR A TABLE I_WBS WITH WBS ELEMENTS BELONGING
    *----- TO VARIOUS PROJECT DEFINITIONS. BE WARNED!!!
            call function 'Z_CN_DETERMINE_REPORTS'
                 EXPORTING
                      i_fyear        = s_fyear-low
                      i_prsumm_level = w_level
                      i_closed       = 'X'
                 TABLES
                      i_wbs          = loc_wbs
                      i_deleted      = l_deleted.
            if not p_lvl2 is initial.
              loop at loc_wbs where stufe gt 2 and lvl2_posid is initial.
                do.
                  select single up into prhi-up
                                   from prhi
                                   where posnr = loc_wbs-pspnr.
                  select single * from prps
                  where pspnr = prhi-up.
                  if prps-stufe = 2.
                    loc_wbs-lvl2_pspnr = prps-pspnr.
                    loc_wbs-lvl2_posid = prps-posid.
                    exit.
                  else.
                    loc_wbs-pspnr = prhi-up.
                  endif.
                enddo.
                modify loc_wbs.
              endloop.
            endif.
            perform sos_append_wbs.
            refresh l_deleted.
          endif.
          w_ref_psphi = wr_wbs-psphi.
          refresh loc_wbs.
        endif.
        clear loc_wbs.
        move-corresponding wr_wbs to loc_wbs.
        append loc_wbs.
      endloop.
      if not loc_wbs[] is initial.
    *----- CAREFUL: THIS FUNCTION MODULE ASSUMES THAT THE WBS ELEMENTS
    *----- PASSED INTO TABLE I_WBS ALL BELONG TO THE SAME PROJECT
    *----- DEFINITION. FUNCTION MODULE WILL NOT GIVE PROPER RESULTS
    *----- IF CALLED FOR A TABLE I_WBS WITH WBS ELEMENTS BELONGING
    *----- TO VARIOUS PROJECT DEFINITIONS. BE WARNED!!!
        call function 'Z_CN_DETERMINE_REPORTS'
             EXPORTING
                  i_fyear        = s_fyear-low
                  i_prsumm_level = w_level
                  i_closed       = 'X'
             TABLES
                  i_wbs          = loc_wbs
                  i_deleted      = l_deleted.
        if not p_lvl2 is initial.
          loop at loc_wbs where stufe gt 2 and lvl2_posid is initial.
            do.
              select single up into prhi-up
                               from prhi
                               where posnr = loc_wbs-pspnr.
              select single * from prps
              where pspnr = prhi-up.
              if prps-stufe = 2.
                loc_wbs-lvl2_pspnr = prps-pspnr.
                loc_wbs-lvl2_posid = prps-posid.
                exit.
              else.
                loc_wbs-pspnr = prhi-up.
              endif.
            enddo.
            modify loc_wbs.
          endloop.
        endif.
        perform sos_append_wbs.
        refresh loc_wbs.
        refresh l_deleted.
      endif.
      perform process_report_table.
    End of M011
    Check Status Profile
      if not p_status is initial.
        perform process_check_status_profile.
        sort it_wbs by psphi
                     pspnr.
      endif.
    Start of M006 mods
      if p_clwbs is initial.
    Ignore projects/WBS closed based on the year
        perform process_closed_projects.
      endif.
    End of M006 mods
      describe table it_wbs lines w_lines.
      if w_lines eq 0.
        message i100.
        exit.
      endif.
      sort it_wbs by psphi
                     pspnr.
      loop at it_wbs
           into wr_wbs.
        w_tabix = sy-tabix.
    *----- We will extract costs and determine to which reports a WBS
    *----- by Project Hierarchy, ie, we will look at all the WBS Elements
    *----- in a given hierarchy in one hit. This simplifies the
    *----- process of determining the highest billing element or the
    *----- Level 2 WBS element for a selected WBS
    *----- It also had the advantage of allowing parallel processing
    *----- using CALL FUNCTION STARTING NEW TASK if required in
    *----- the future
        if wr_wbs-psphi ne w_ref_psphi.
          if not it_tmp_wbs[] is initial.
            loop at t_date.
              it_tmp_wbs2[] =  it_tmp_wbs[].
              call function 'Z_PS_WIP_GET_COSTS_COMMITMENT'
                   EXPORTING
                        i_fyear          = s_fyear-low
                        i_poper          = t_date-poper
                        i_billing        = 'X'
                        i_prsumm_level   = w_level
                        i_other_level    = w_other_level
                        i_budat          = t_date-w_budat
                        i_commitment     = 'X'
                        i_include_wipadj = p_incwip             "M007
                   TABLES
                        i_rsparams       = it_rsparams
                        i_wbs            = it_tmp_wbs2.
              loop at it_tmp_wbs2 into it_tmp_wbs3.
                collect it_tmp_wbs3.
              endloop.
              w_tab = sy-tabix.
              n = 1.
              while n <= w_tab .
                read table it_tmp_wbs2 index n.
                it_tmp_wbs3 = it_tmp_wbs2.
                modify table it_tmp_wbs3
             index n
                transporting
                PLANLABOUR PLANHOURS PLANREV PLANCOSTS stufe.
                n = n + 1.
              endwhile.
            endloop.
            it_tmp_wbs[] =  it_tmp_wbs2[].
            perform sos_process_tmp_table.
          endif.
          w_ref_psphi = wr_wbs-psphi.
          refresh it_tmp_wbs.
        endif.
        wr_wbs-tabix = w_tabix.
        append wr_wbs to it_tmp_wbs.
        if w_tabix eq w_lines.
    *----- Don't forget to process the last hierarchy!!
          if not it_tmp_wbs[] is initial.
            loop at t_date.
              it_tmp_wbs2[] =  it_tmp_wbs[].
              call function 'Z_PS_WIP_GET_COSTS_COMMITMENT'
                   EXPORTING
                        i_fyear          = s_fyear-low
                        i_poper          = t_date-poper
                        i_billing        = 'X'
                        i_prsumm_level   = w_level
                        i_other_level    = w_other_level
                        i_budat          = t_date-w_budat
                        i_commitment     = 'X'
                        i_include_wipadj = p_incwip             "M007
                   TABLES
                        i_rsparams       = it_rsparams
                        i_wbs            = it_tmp_wbs2.
                  exceptions
                       not_found        = 1.
              loop at it_tmp_wbs2 into it_tmp_wbs3.
                collect it_tmp_wbs3.
              endloop.
              w_tab = sy-tabix.
              n = 1.
              while n <= w_tab .
                read table it_tmp_wbs2 index n.
                it_tmp_wbs3 = it_tmp_wbs2.
                modify it_tmp_wbs3 index n transporting stufe
                PLANLABOUR PLANHOURS PLANREV PLANCOSTS .
                n = n + 1.
              endwhile.
            endloop.
            it_tmp_wbs[] =  it_tmp_wbs2[].
            perform sos_process_tmp_table.
          endif.
        endif.
      endloop.
    end-of-selection.
    Delete WBS with no financial information
      loop at it_wbs_report into wr_wbs_report.
        if wr_wbs_report-actcosts      eq 0 and
           wr_wbs_report-plancosts     eq 0 and
           wr_wbs_report-planrev       eq 0 and
           wr_wbs_report-acthours      eq 0 and
           wr_wbs_report-actrev        eq 0 and
           wr_wbs_report-revrec        eq 0 and
           wr_wbs_report-revrecytd     eq 0 and
           wr_wbs_report-acttotrevrec  eq 0 and
           wr_wbs_report-actytdrevrec  eq 0 and
           wr_wbs_report-pocommitment  eq 0 and
           wr_wbs_report-prcommitment  eq 0 and
           p_incwbs is initial.
          delete it_wbs_report index sy-tabix.
        endif.
      endloop.
      loop at it_wbs_report.
        select  single
                   objnr
                   psphi
                   zzacttyp
                   ZZIMCINITIATIVE
                   ZZIMCPROGRAM
                   ZZWPMANLOB
                   ZZIMPLEMENTREG
                   ZZCONTRACTID
                   ZZWPNUM
                   ZZSPNUM
                   ZZORDERNUM
                   ZZORDERLEVEL
                   ZZWIP
              from prps
              into corresponding fields of w_it_wbs5
              where posid eq it_wbs_report-posid.
        CLEAR: W_LEAD, W_PDIR, W_PMGR, w_poff.
        select single zztype ZZWORKCATEGORY ZZPRIN ZZSOURCE from proj into
        (w_it_wbs5-zztype, w_it_wbs5-ZZWORKCATEGORY, w_it_wbs5-ZZPRIN,
        w_it_wbs5-ZZSOURCE) where pspnr = w_it_wbs5-psphi.
        CLEAR w_it_wbs5-lead.
        select single parnr from ihpa into w_it_wbs5-lead
        where objnr = w_it_wbs5-objnr and
        parvw = C_LEAD and
        KZLOESCH NE 'X'.                                        " M026
        PERFORM READ_PA0002 USING w_it_wbs5-lead CHANGING W_LEAD.
        CLEAR w_it_wbs5-pdir.
        select single parnr from ihpa into w_it_wbs5-pdir
        where objnr = w_it_wbs5-objnr and
        parvw = C_PDIR and
        KZLOESCH NE 'X'.                                        " M026
        PERFORM READ_PA0002 USING w_it_wbs5-PDIR CHANGING W_PDIR.
        CLEAR w_it_wbs5-pmgr.
        select single parnr from ihpa into w_it_wbs5-pmgr
        where objnr = w_it_wbs5-objnr and
        parvw = C_PMGR and
        KZL

    hi,
    1.Capacity check takes place at plant level itself..
    2.Pooled capacity:- This is created separately in [u wil find in PP] and this capacity can be used by different work centers.
    regards
    pushpa

  • Project System Cash Management in combination with statistical WBS element

    Hi,
    within  a customer project, we have to solve the following issue:
    Customer runs projects and statistical projects in combination with internal orders.
    We want to use the PS Cash Management for planned and actual payments.
    With statistical projects we have the following problem:
    Invoice and actual payments will be processed with the transaction CJFN.
    Actual payments are shown only on the internal order (transaction CJIA), but not on the statistical WBS element.
    We want the information about the actual payments with in the project system reporting (S_ALR_87013574).
    Projects, not flagged as statistical will deliver the expected results.
    Many thanks for your ideas, to solve this problem.
    Steffen

    are u posting to some other cost object also. normally they wud have to be posted to a COPA also with the cost element being 11 category.
    the wbs will receive the statistical posting, so there needs to be a real object also.
    see whether the real object is getting derived.
    the system is nt finding the real object and trying to post with the WBS in real, but since its statistical, the error.
    any other calrifications. plz post.
    regards
    anantha

Maybe you are looking for

  • Configuration file in ssis

    Can I have one configuration file for all the packages I have created, So that changing server name will change all packages server names? If yes, help me out in doing it. Thanks, Sri sree

  • Why do spaces appear in Japanese sentences in received messages which do not appear in writing them? Could anyone tell me how to prevent this occurrence?

    Here is an example. Can you see spaces inserted which I have not put in writing? あああああああああああああああああああああああああああああああああああああああああああああああ ああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああああ ああああああああああああああああああああああああああああああああああああああああああああああああああああああ

  • Battery charging: When do you do it?

    Hey guys, I've done searches on the forums and can't find the answer i desire. I know that the lithium batteries have charge cycles, and at least once a month you should fully drain, and fully charge the phone. And that there is no memory in the batt

  • Why does my clip have a higher quality in the viewer than the canvas?

    When I am editing, I have noticed that sometimes my images and clips have a drastically higher quality in the viewer than the canvas/timeline, what is causing this, and how do I edit and export my films with the highest quality possible?

  • How to get back hosts file

    help me pls.. my iphone can't be update bcos file hosts deleted. i use mac OSX 10.6.8.. how to get back the file hosts?...thank...