PS - Project Version Reporting

Hi Dear,
For project verson wise reporting i need to get Amount (Plan and actual cost , revenue) and Quantity (Plan work and actual work --durations).
I have done the development by pulling amont from RPSCO and Quantity from RPSQT by giving the OBJNR which iam getting from MASTER TABLES.
I got the right amount values i need for defining COST and REVENUES.

But the problem is with the RPSQT. all the quantity values have got the units as ' % '. So, i feal that this is not the right table to define Plan and Actual WORK (Duration) and the units hould be like Hours or Each....etc.
Can some one pls suggest me as which R/3 table will provide me the Quantity values by Project version wise for defining DURATION/WORK (plan and actuals)
Your valuable inputs will be appreciated.
Thanks Dear...

Hi Leo,
On BCT I found data sources for "cProject" that can handle versions but none for PS. Have you solved your request and if so how you managed it? I've got the same request concerning 0PS_C02 and 0PS_C04.
Best Regards,
Volker

Similar Messages

Report project version comparison plan

Hi!,
Iu2019m testing a Report project version comparison plan t/code S_ALR_87013539, if I choose a simulation version and choose u201CStructure-relatedu201D then this can be compared but if I use u201CObject-relatedu201D then there is any data to compare. I choose in origin of date both u201CCurrent datau201D and u201CVersion datau201D.
If I chose to compare a snapshot version then I can compare it in both u201CStructure-relatedu201D and u201CObject-relatedu201D.
So my question is if this is as it should be or is this an error?
I mean if you can compare u201CStructure-relatedu201D and u201CObject-relatedu201D for snapshots I should be able to do the same for simulation versions.
Best regards
Jose Marin

Hi,
I hope this report is for Project Version related data comparison with other project version/Plan/ current. I hope this is not right report for simulation version. When you are using this report with reference to structure it should show structure related information with reference to other version as well, but when you are selecting Object related it will have reference of Project version itself.
Regards
Avisek

Profit & Loss / Balance Sheet and Project performance Report

Hello,
I am in mining service industry and looking for two basic reports as under, can you please guide me through and provide transactions.
1)Profit & Loss/ Balance Sheet
2)Project Performance report
Your prompt response will be much more appreciated.
Thanks,
San

Hi,
use this as shown below
menu path-
Accounting ® Financial Accounting ® Special Purpose Ledger ® Tools ® Report Painter ® Report Writer ® Report Group ® Display
tcode- GR53, GR55
Enter report group SL01.
Choose Execute.
Enter report group SL01 again, and then choose .
Enter the following data: current year, period 01-12, company code,ledger and plan version
kind regards
Arman
SAP FICO

Project Status Reports for cProjects 4.0

Hi Experts,
Does anyone have a document in which functionalities of Project Status Reports are detailed?
I would want to know which kind of data can be extracted from projects and if operations like sum, substraction, aggregation, grouping can be made in these reports...
In addition, if you had some documents about how a Project Status Report looks like it would be also good to have.
Please send the documents to: [email protected]
Of course, reward points will be given for all useful answer...
Thank you all in advance.
Kind Regards,
Isabel

Hi Yasar,
Thank you very much for your document, although that is not really what I was looking for.
I need to design a Project Status Report, so I want to know how does it work, which data does it use (which is the data that can be reported and which data can't), if you can select the data to appear or group it by some attributes, if the manual comments can be inserted attached to each of the data reported (comments related to all phases reported).
So I still need some further details on this (version 4.0 with AIF documents).
Thank you very much!
Kind regards,
Isabel

CProjects Project status report not generated

Hi
I am facing problem of getting Project status report for a project in cProjects 4.0
I am at client side and accessing the IDES ECC6.Her I am trying for getting Project status report for the project created.
The error I am getting is :
"WebDynpro Exception: ADS: Request start time: Thu Aug 21 16:53:27 GMT+03:00 2008(200,101). "
In customizing for cProjects I have used the std. form available for the same, activated the same for the project type and when tried to get the report I got the above mentioned error.
Then in se38 I executed the programme FP_TEST_IA_01 the result was :
ADS: Request start time: Thu Aug 21 17:23:42 GMT+03:00 2008(200,101)
Also I have activated the following services
SICF->Services->default_host->sap->bc->fp and fpads, both are active.
But still I am not getting project status report from cProjects.
Please guide me what else should I do to get the project status report?
Thanks and Regards,
Niraj Sikligar

Hi Reema,
Its great to hear from you.
I have run the report : FP_PDF_TEST_00
Out put is :
Version Information: 705.20060620101936.310918
What does that mean ?
Secondly,
I have checked RFC destination for ADS the results were as shown below:
On Technical Settings tab page :
target host: ides
Path prefix: /AdobeDocumentServices/Config?style=rpc
Is this OK?
Is there anything else to be done?
Regards,
Niraj Sikligar

Project Version Tables for Dates

Hi,
I have to develop a report to compare the Planned vs actual dates of WBs and Activity, for which i am using the Project Version.
But not able to get the Table and fields where Project Version Data is stored,
pls hepl to find that.

B P Singh wrote:
Hi,
> Use the link Project version table which stores the plan and actual cost/Revenue
Given Link is for Plan Vs Actual cost from the Costing Version,
I am looking the Plan Vs Actual Basci Dates , Earliest Dates and forecast Dates..

CN41, CNS41 don't work on planning version 001 and project version

Iu2019ve an issue:
Iu2019m working on release ECC 6.0.
I did the overall planning, costs and revenues (structure planning on Project), then I saved data on project version and on planning version 001.
When I run the CN41 or CNS41 with plan data in plan version 001 (costs and revenues) and plan data (costs and revenues) in project version, the report doesnu2019t let me see the plan data in the Project version column neither in the planned cost/rev. 001 column.
The hot patches on my system is on SAPKH60013.
Any one could help me?
Pierluigi.

FYI for others searching on this issue, there are a few OSS Notes that explain this:
Note 148971 - Planned values in Project Information System
"4. The Planned costs column in the structure overview and the planning board corresponds to the Overall planned costs column in the hierarchy reports if you implemented Note 106823..
If you implemented Note 106823 (included in the standard system as of Release 4.0B), only the annual values of the WBS elements, networks and orders are displayed. Column 'Planned costs' in the structure overview and planning board corresponds to the 'Total of year'. If this effect is not desired, Note 106823 has to be removed or should not have been implemented beforehand. In addition, if you implement Note 127521, you must remove the changes in object REPS LHFPLU08 of Note 127521 (this applies to Release 30D - 31I). Any other changes can remain."

Compare different project versions for material components?

hi all,
is it possible to display and compare different project versions for material components in different COLUMNS? i want to be able to view the data for each version in a different column.. currently i can view the different data per version but it is arranged by ROW but i want to know if its possible to have different layout/report showing the different versions in separate columns
Thanks in advance..
Edited by: Ramesh on Sep 15, 2008 5:58 AM

hi,
thanks but this is not the report im looking for.. i wonder if its possible to show a report similar to CNMM or CN53N wherein the different project version data can be displayed side by side as columns?
again, thanks in advance and regards..

Transparent table for project version data

hi,
i created project versions..
now i want to create customized report showing material components for different versions..
however i dont know the table names/fields required..
can someone tell where i can find it? thanks in advance..
also it is possible to create report of material components using report writer?
thanks a lot..

Thanks Venkat,
however, is it not possible to create report for material components in report writer?
when i tried to create a library for report writer for table VSRESB_CN it has error saying "Table VSRESB_CN is not installed in report writer"..
thanks in advance

Project Version - cProjects

Hi All,
Can anyone tell me where have we to create the project version to record the Snapshot.
Thanks & Regards,
Stephen

Hi Stephen,
You can create versions manually in cProjects application itself. You'll find a 'Versions' tab at the header level where you would need to create a version master first.
Once the version master is created, you can create Project Versions. Alternatively, use report DPR_SNAPSHOTS_CREATE to create versions automatically by schduling a background job.
Hope this helps.
Regards,
Vivek Pandey

Project Version in cProjects

Hello Guys,
Can someone explain what is project version and its functionality. Can this be controlled with status flow of Projects. For example, In status flow, when PM changes to Update status an new version of project shoud be created.
Can this be possible in cProjects as standard functionality.
Thanks in advance...
Regards,
VJ

There are two types of versions in project management
1. Project versions: Typically used for reporting the state of a project at a given time. Yes it is possible to automatically generate a version based trigger on a project.
2. Simulation version : this is typically used to simulate a project. At times the cost planning, effort estimates needs to be determined which can be done using simulation versions

How to delete the project version RELEASED.

System is below:
" Project 1522DJ110001 version RELEASED already exists
Message no. CJ016
Diagnosis
A Version RELEASED already exists for project 1522DJ110001.
System Response
Processing stopped. "
but in the system , there are no "Project 1522DJ110001". so the user can't create the project "1522DJ110001".
how to delete the Project 1522DJ110001 version RELEASED ?
Please explain me all the steps to be required.
Thanks in advance!

Hi Harish,
When I select Delete Project Version from Extras menu in CN41, its asking session number and version.
In session number no serch help is avialble. I am keeping it blank and seleting RELEASED in version.
After pressing enter I am getting an error Project Version RELEASED cannot be deleted??
Let me the exact steps to deleted the Project Version.
Thanks and Regards,
Atul R. Rajmane

We couldn't refresh the connection 'OData Assignements Data' Error : While access the project overveiw report in brower and in Excel 2013.

Hello All,
Facing this issue while opening the ProjectOverview report in Browers or in Excel 2013.
Snapshot is attached for furthur reference.
Error in Excel when clicking on Refresh All, it shows the information to retieving the data but after few moments it prompt this error.
Second snapshot occurs while opening the report in browser.
Kindly help.
REGARDS DANISH DANIE

Dear Paul,
1st Query,
Ans: As I'm using Project Server Permission mode and im logged with the user who is the member of admin group and in administrator group 'Access
Project Server Reporting Service' is ticked on. So, the concern regarding permission is resolved.
2nd Query,
Ans: Im unable to find Project Web App Permission for Excel Web App Refresh' feature in site setting
of PWA.
Snapshot is attached when trying to open report in browser.
to resolve this followed below mentioned URL but unsuccessfull result
http://support.microsoft.com/kb/2769345/en-us
Still facing same issue, issue is not resolved kindly help/suggest.
Note: Im using Project Server 2013 not Project Online 2013.

Run time Error while executing project infosystem reports (CN41/41N)

Hi,
I would like to inform while running project infosystems reports (CN41/41N / cns41 etc), it is taking long time & most of the time run time errors are coming. I observed due to more objects in projects, run time error is coming. Request you to suggest to fix the issue.
Thank you for your cooperation.
Regards,
Rakesh Pradhan

Hi Rakesh,
The memory which can be managed by the logical database is approx.
100 MB. You can use the following rule of thumb to calculate the
allocated memory of your selection:
[( sum of projectdefinitions + sum of WBS elements + sum of networks and orders ) * 1 KB + ( sum of activities     ) * 4 KB ] *2,5 = memory consumption
Further objects - as relationships, capacities, ... will increase
the memory consumption. (see note 107605)
You can find out the number of objects bein used using the "Test selection scope" (CTRL+F12) button in CN41
Other recommendations are:
1) Check the profile (parameter "rdisp/PG_MAXFS") with your Basis
   colleague and adjust upwards (Note 133909)
2) Select a smaller range of objects by using status schema
   or more dynamic selections. Please review SAP Note 206264.
3) Please review also 107605, which gives you further information
   concerning the selection in Project Information System.
Hope this helps!
Regards
Martina
Message was edited by:
        Martina Modolell

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

PS - Project Version Reporting

Similar Messages

Maybe you are looking for