WBS elements hierarchy

Hi,
I need to know the WBS elements hierachy in table PRHI.
Say for eg. in PRHI my WBS elements is E.00011. (just imagine it is tree structure ). I have 4 fields of UP,DOWN,RIGHT and LEFT. So for a perticular node,I need to process all the left ,right and down node and for each node i need to do some calculation.
So from parent I need to process from left to right ,up to down.
Kindly clariify,
Points will be awarded
Thanks in advance.

declare table
      I_HIERARCHY STRUCTURE IFHIERIM
DATA: BEGIN OF ITAB_EXT_INT OCCURS 0,
          POSID LIKE PRPS-POSID,
          PSPNR LIKE PRPS-PSPNR,
        END OF ITAB_EXT_INT
CALL FUNCTION 'CJDW_PRHI_CHECK_EXT'
       TABLES
            I_HIERARCHY        = I_HIERARCHY
       EXCEPTIONS
            INCONSISTENT_HIER = 1
            INCOMPLETE_HIER    = 2
            DIFFERENT_PROJECTS = 3
            OTHERS             = 4.
LOOP AT I_HIERARCHY.
    MOVE I_HIERARCHY-POSID TO ITAB_EXT_INT-POSID.
    COLLECT ITAB_EXT_INT.
    MOVE I_HIERARCHY-UP TO ITAB_EXT_INT-POSID.
    COLLECT ITAB_EXT_INT.
    MOVE I_HIERARCHY-DOWN TO ITAB_EXT_INT-POSID.
    COLLECT ITAB_EXT_INT.
    MOVE I_HIERARCHY-LEFT TO ITAB_EXT_INT-POSID.
    COLLECT ITAB_EXT_INT.
    MOVE I_HIERARCHY-RIGHT TO ITAB_EXT_INT-POSID.
    COLLECT ITAB_EXT_INT.
ENDLOOP.
the above type of code may halp u

Similar Messages

Creation of WBS Element Hierarchy

Hi Friends,
I have input file like the below(1 Project definition and n WBS elements)
Project Definition     WBS Element
HE-000200
                     HE-000200.01
                     HE-000200.01.00001
                     HE-000200.01.00002
                     HE-000200.02
                     HE-000200.02.00001
                     HE-000200.02.00002
                     HE-000200.03
                     HE-000200.03.00001
                     HE-000200.03.00002
                     HE-000200.04
                     HE-000200.04.00001
                     HE-000200.04.00002
I created Project Definition HE-000200 by using BAPI_BUS2001_create.
Now I want to create above WBS elements hierarchy for the above project.
I am using the BAPI_BUS2054_create_multi.
is it possitble to create wbs elemnents like the baove hierarchy by using BAPI_BUS2054_create_multi? if yes send me the code , it will help to me.
!!!!! IT is very urgent.
Waiting for your inputs
Regards,

Hi Raju,
See this .,.,this might help u.,.,
*& Include ZBAPIWBS
*& Report Z_BAPI_CJ20N
REPORT Z_BAPI_CJ20N.
INCLUDE ZBAPICJ20NTOP.
INCLUDE ZBAPICJ20NFILEUP.
INCLUDE ZBAPICJ20NLOGIC.
*& Include ZBAPICJ20NTOP
DATA: BEGIN OF ITMAIN OCCURS 0,
PROJECT_DEFINITION TYPE PS_PSPID,
DESCRIPTION TYPE PS_POST1,
PROJECT_PROFILE TYPE PROFIDPROJ,
BUS_AREA TYPE GSBER,
WBS_ELEMENT TYPE PS_POSID,
WBS_DESCRIPTION TYPE PS_POST1,
END OF ITMAIN,WA_MAIN LIKE LINE OF ITMAIN,ITWBS LIKE STANDARD
TABLE OF ITMAIN WITH HEADER LINE, ITMAIN2 LIKE STANDARD TABLE OF
ITMAIN.
DATA: ITPRJDEF TYPE STANDARD TABLE OF BAPI_PROJECT_DEFINITION WITH
HEADER LINE,WA_PRJDEF LIKE LINE OF ITPRJDEF.
DATA: ITPRJDEFUP TYPE STANDARD TABLE OF BAPI_PROJECT_DEFINITION_UP WITH
HEADER LINE, WA_PRJDEFUP LIKE LINE OF ITPRJDEFUP.
DATA: ITMETPRJ TYPE STANDARD TABLE OF BAPI_METHOD_PROJECT,
WA_METPRJ LIKE LINE OF ITMETPRJ.
DATA: RETURN TYPE BAPIRETURN1,MSG TYPE STANDARD TABLE OF
BAPI_METH_MESSAGE WITH HEADER LINE.
DATA: LINES TYPE I,REFNO TYPE I VALUE 0.
DESCRIBE TABLE ITMAIN LINES LINES.
DATA: METTYPE TYPE STRING VALUE 'Create'.
DATA: WA_DUPLI LIKE LINE OF ITMAIN.
WA_DUPLI-PROJECT_DEFINITION = 'JB'.
DATA: SPLIT1(50) TYPE C.
DATA: PREVWBS TYPE PS_POSID VALUE ' ',
LEFTWBS TYPE PS_POSID VALUE ' '.
DATA: POS TYPE I VALUE 1.
DATA: OFF TYPE I VALUE 0,MODE TYPE I,INDEX1 TYPE I VALUE 0,
INDEX2 TYPE I VALUE 0,INDEX3 TYPE I VALUE 0,
INDEX4 TYPE I VALUE 0,INDEX5 TYPE I VALUE 0,
POS2 TYPE I VALUE 0,FLAG TYPE I VALUE 0.
DATA: ITBUS TYPE STANDARD TABLE OF BAPI_BUS2054_NEW,
WA_BUS LIKE LINE OF ITBUS, RET TYPE STANDARD TABLE OF BAPIRET2,
WA_RET LIKE LINE OF RET, ITBUS2 LIKE STANDARD TABLE OF BAPI_BUS2054_NEW,
WA_BUS2 LIKE LINE OF ITBUS, WA_BUS3 LIKE LINE OF ITBUS.
DATA: BAPIRET TYPE BAPIRETURN1,
PROJEX TYPE BAPI_PROJECT_DEFINITION_EX.
*& Include ZBAPICJ20NFILEUP
CALL FUNCTION 'UPLOAD'
EXPORTING
FILENAME = ' '
FILETYPE = 'DAT'
TABLES
DATA_TAB = ITMAIN .
*& Include ZBAPICJ20NLOGIC
SORT ITMAIN BY PROJECT_DEFINITION WBS_ELEMENT.
LOOP AT ITMAIN INTO WA_MAIN.
IF WA_DUPLI-PROJECT_DEFINITION <> WA_MAIN-PROJECT_DEFINITION.
WA_PRJDEF-PROJECT_DEFINITION = WA_MAIN-PROJECT_DEFINITION.
WA_PRJDEF-DESCRIPTION = WA_MAIN-DESCRIPTION.
WA_PRJDEF-PROJECT_PROFILE = WA_MAIN-PROJECT_PROFILE.
WA_PRJDEF-BUS_AREA = WA_MAIN-BUS_AREA.
WA_PRJDEFUP-PROJECT_DEFINITION = 'X'.
WA_PRJDEFUP-DESCRIPTION = 'X'.
WA_PRJDEFUP-PROJECT_PROFILE = 'X'.
WA_PRJDEFUP-BUS_AREA = 'X'.
WA_METPRJ-REFNUMBER = REFNO + 1 .
WA_METPRJ-OBJECTTYPE = 'ProjectDefinition'.
WA_METPRJ-METHOD = METTYPE.
WA_METPRJ-OBJECTKEY = WA_MAIN-PROJECT_DEFINITION.
APPEND WA_METPRJ TO ITMETPRJ.
WA_METPRJ-REFNUMBER = ''.
WA_METPRJ-OBJECTTYPE = ''.
WA_METPRJ-METHOD = 'Save'.
WA_METPRJ-OBJECTKEY = ''.
APPEND WA_METPRJ TO ITMETPRJ.
CALL FUNCTION 'BAPI_PROJECT_MAINTAIN'
EXPORTING
I_PROJECT_DEFINITION = WA_PRJDEF
I_PROJECT_DEFINITION_UPD = WA_PRJDEFUP
IMPORTING
RETURN = RETURN
TABLES
I_METHOD_PROJECT = ITMETPRJ
E_MESSAGE_TABLE = MSG.
IF SY-SUBRC = 0.
FLAG = 1.
ENDIF.
WA_DUPLI-PROJECT_DEFINITION = WA_MAIN-PROJECT_DEFINITION.
COMMIT WORK.
DELETE ITMETPRJ FROM 1 TO 2.
INCLUDE ZBAPIWBS_ALL.
ENDIF.
ENDLOOP.
*& Include ZBAPIWBS_ALL
LOOP AT ITMAIN INTO WA_MAIN WHERE PROJECT_DEFINITION = WA_DUPLI-PROJECT_DEFINITION.
APPEND WA_MAIN TO ITWBS.
ENDLOOP.
*Sort the table
LOOP AT ITWBS INTO WA_MAIN.
SPLIT1 = WA_MAIN-WBS_ELEMENT.
POS = 0.
LOOP AT ITWBS WHERE WBS_ELEMENT <> SPLIT1.
IF STRLEN( ITWBS-WBS_ELEMENT ) = STRLEN( SPLIT1 ).
IF POS = 0.
APPEND WA_MAIN TO ITMAIN2.
ENDIF.
APPEND ITWBS TO ITMAIN2.
DELETE ITWBS WHERE WBS_ELEMENT EQ ITWBS-WBS_ELEMENT.
POS = 1.
ELSE.
IF POS = 0.
APPEND WA_MAIN TO ITMAIN2.
DELETE ITWBS WHERE WBS_ELEMENT EQ WA_MAIN.
ENDIF.
POS = 1.
ENDIF.
ENDLOOP.
INDEX1 = INDEX1 + 1.
ENDLOOP.
*Define UP element
LOOP AT ITMAIN2 INTO WA_MAIN.
WA_BUS-WBS_ELEMENT = WA_MAIN-WBS_ELEMENT.
WA_BUS-DESCRIPTION = WA_MAIN-WBS_DESCRIPTION.
WA_BUS-WBS_UP = ''.
WA_BUS-WBS_LEFT = ''.
SPLIT1 = WA_MAIN-WBS_ELEMENT.
LOOP AT ITMAIN2 INTO WA_MAIN WHERE WBS_ELEMENT <> SPLIT1.
IF STRLEN( WA_MAIN-WBS_ELEMENT ) < STRLEN( SPLIT1 ) .
FIND WA_MAIN-WBS_ELEMENT IN SPLIT1.
IF SY-SUBRC = 0.
WA_BUS-WBS_UP = WA_MAIN-WBS_ELEMENT.
PREVWBS = WA_MAIN-WBS_ELEMENT.
ENDIF.
ENDIF.
ENDLOOP.
APPEND WA_BUS TO ITBUS.
INDEX2 = INDEX2 + 1.
ENDLOOP.
PREVWBS = ''.
LEFTWBS = ''.
Define LEFT ELEMENT.
LOOP AT ITMAIN2 INTO WA_MAIN.
POS = 0.
SPLIT1 = WA_MAIN-WBS_ELEMENT.
READ TABLE ITBUS INTO WA_BUS2 WITH KEY WBS_ELEMENT = WA_MAIN-WBS_ELEMENT.
WA_BUS-WBS_ELEMENT = SPLIT1.
WA_BUS-DESCRIPTION = WA_MAIN-WBS_DESCRIPTION.
WA_BUS-WBS_UP = WA_BUS2-WBS_UP.
OFF = SY-TABIX.
LOOP AT ITMAIN2 INTO WA_MAIN WHERE WBS_ELEMENT <> SPLIT1.
READ TABLE ITBUS INTO WA_BUS3 WITH KEY WBS_ELEMENT = WA_MAIN-WBS_ELEMENT.
IF STRLEN( WA_BUS2-WBS_ELEMENT ) = STRLEN( WA_BUS3-WBS_ELEMENT ) AND
WA_BUS2-WBS_UP = WA_BUS3-WBS_UP AND POS = 0.
IF STRLEN( LEFTWBS ) <> STRLEN( SPLIT1 ).
LEFTWBS = ''.
ENDIF.
IF STRLEN( LEFTWBS ) = STRLEN( SPLIT1 ).
FIND WA_BUS2-WBS_UP IN LEFTWBS.
IF SY-SUBRC <> 0.
LEFTWBS = ''.
ENDIF.
ENDIF.
WA_BUS-WBS_LEFT = LEFTWBS.
LEFTWBS = SPLIT1.
POS = 1.
MODIFY ITBUS INDEX OFF FROM WA_BUS.
ENDIF.
ENDLOOP.
ENDLOOP.
WA_BUS-WBS_ELEMENT = ''.
APPEND WA_BUS TO ITBUS.
Store WBS ELEMENTS.
LOOP AT ITBUS INTO WA_BUS.
SPLIT1 = WA_BUS-WBS_ELEMENT.
APPEND WA_BUS TO ITBUS2.
INDEX3 = 1.
POS = 0.
LOOP AT ITBUS INTO WA_BUS WHERE WBS_ELEMENT <> SPLIT1.
IF STRLEN( WA_BUS-WBS_ELEMENT ) <> STRLEN( SPLIT1 ) AND POS = 0.
POS = 1.
INDEX4 = INDEX3.
CALL FUNCTION 'BAPI_PS_INITIALIZATION' .
CALL FUNCTION 'BAPI_BUS2054_CREATE_MULTI'
EXPORTING
I_PROJECT_DEFINITION = WA_DUPLI-PROJECT_DEFINITION
TABLES
IT_WBS_ELEMENT = ITBUS2
ET_RETURN = RET .
CALL FUNCTION 'BAPI_PS_PRECOMMIT'
TABLES
ET_RETURN = RET.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = WA_RET.
ENDIF.
APPEND WA_BUS TO ITBUS2.
INDEX3 = INDEX3 + 1.
ENDLOOP.
DELETE ITBUS2 FROM 1 TO INDEX3.
DELETE ITBUS FROM 1 TO INDEX4.
ENDLOOP.
DELETE ITWBS FROM 1 TO INDEX1.
CLEAR ITWBS.
DELETE ITMAIN2 FROM 1 TO INDEX2.
*At the end of all projects' processing
IF FLAG = 1.
CALL FUNCTION 'POPUP_FOR_INTERACTION'
EXPORTING
HEADLINE = 'PS Project & WBS Creation'
TEXT1 = 'All the Projects have been created.Please check......'
TICON = 'I'
BUTTON_1 = 'OK'.
ELSE.
CALL FUNCTION 'POPUP_FOR_INTERACTION'
EXPORTING
HEADLINE = 'Deb Program'
TEXT1 = 'No Projects were created...'
TICON = 'I'
BUTTON_1 = 'CANCEL'
ENDIF.
Regards
Deb

Error in WBS Element Hierarchy load after ECC 6.0 Upgrade

Hi All,
After ECC 6.0 Upgrade in R/3, we are doing test load in a Test server. While doing, we have encountered an issue with 0WBS_ELEMENT Hierarchy load. The message in the monitor is like below.
"Node ID 00014240 has not been included in the hierarchy
Message no. RH207"
When I run the same hierarchy in another system which is not upgraded , it works fine.
Anybody has faced similar kind of issues and can throw some light on this issue?
Thanks,
Mohan

Try activating the Heirarchy in R/3 and re-trigger the load, error is very specific to structure of the hierarchy. there is a possibility that this Hierarcy could have got inconsistent after the upgrade.
Thanks,
Amit

How do we get complete hierarchy for a WBS element??

Hi All,
Is there any FM to get complete hierarchy for a WBS element??
Or any other method that would achieve this requirement ??
Eg:
C.00103.1
C.00103.1.1
C.00103.1.2.3
C.00103.2
C.00103.2.1 etc
If i give C.00103.1, all the WBS elements in the hierarchy should be displayed.
Any pointers are of great help.
Regards
Prathima

Hi,
Available Methods
Getinfo : Read detailed information about WBS [ BAPI_PROJECT_GETINFO ]
Maintain : BAPI: Project maintenance [ BAPI_PROJECT_MAINTAIN ]
SaveReplica : Replicate work breakdown structure (ALE) [ BAPI_PROJECT_SAVEREPLICA ]
The WBS hierarchy object type defines the hierarchy of the WBSelements. A project definition always has exactly one hierarchy. If theposition of a WBS element changes, the whole hierarchy has to berebuilt. Therefore, the WBS hierarchy object type has only one command:
Create. Every WBS element receives exactly one entry in the table parameter IWbsHierarchieTable with which it defines its position.
Command: Create
Use this command to create or change a WBS element hierarchy for aproject definition. Enter the WBS hierarchy object type and the Create
command in the table of the IMethodProject parameter. The commandrefers to all entries in the table of the IWbsHierarchieTable parameterthat contains the data for the data for the hierarchy. Each entry inthe IWbsHierarchieTable refers to a WBS element that describes its position relative to the other WBS elements.
Example
- Positioning WBS elements TRAINING , TRAINING.1 and TRAINING.2 . (WBS elements TRAINING.1 and TRAINING.2 are subordinate toWBS element TRAINING. WBS element TRAINING1 is positioned on the left of TRAINING.2.)
IMethodProject
OBJECTTYPE = WBS-Hierarchy
METHOD = Create
OBJECTKEY =
REFNUMBER =
OBJECTTYPE =
METHOD = Save
OBJECTKEY =
REFNUMBER = I
ProjectDefinition
PROJECT_DEFINITION = PD-TRAINING
IWbsHierarchieTable
WBS_ELEMENT = TRAINING
PROJECT_DEFINITION = PD-TRAINING
UP =
DOWN = TRAINING.1
LEFT =
RIGHT =
WBS_ELEMENT = TRAINING.1
PROJECT_DEFINITION = PD-TRAINING
UP = TRAINING
DOWN =
LEFT =
RIGHT = TRAINING.2
WBS_ELEMENT = TRAINING.2
PROJECT_DEFINITION = PD-TRAINING
UP = TRAINING
DOWN =
LEFT = TRAINING.1
RIGHT =
Notes
Further Information
For more information, see the R/3 Library under PS Project System -> Structures -> EPS Interface
Regards,
Vijetha.

What is superior WBS Element

Dear All,
What is superior wbs element? Is is the 1st level wbs element?
Regards,
Smile

Hi,
by using SE16 transaction,
check PRPS table, field PSPHI - gives superior WBS Element
or
table PRHI (WBS element Hierarchy pointer), field PSPHI - gives superior WBS Element
Regards,
Sandeep
Edited by: Sandeep Theurkar on May 28, 2009 3:20 PM

Get hierarchy of internal order / WBS element

dear all ABAP guru,
i have a problem to view hierarchy of internal table or WBS element,
anyone know function module or table to view hierarchy of internal order / WBS
many thx,

You can also use BAPI_PROJECT_MAINTAIN for Project/WBS for internal order following function module can help BAPI_INTERNALORDER_GETDETAIL
BAPI_INTERNALORDER_GETLIST.
Nabheet

Updating Prod Hierarchy field for all 2 & 3 level WBS Elements

Dear All,
My requirment is to update Prod. Hierarchy field for WBS element. Here in input i give 2 level WBS Element with respective Prod. Hierarchy then my program should update the Prod. Hierarchy for 2 level and 3 level WBS element under it automatically.
I hope we need to use bapi BAPI_PROJECT_MAINTAIN.
If any one had a sample code please reply with the attachment.
Thanks & Regards
NSK

Hi Afzal,
In which table the Left Right Up Down WBS elements are maintained.
Regards
Shashikanth Naram

Hierarchy Graphics Copy Copy WBS Element

Hi All,
We are haiving one issue as user is trying to use Copy function in Hierarchy Graphics to create new WBS Element but unfortunaltely user is not able to save WBS Element. After clicking save function - Validation Message pop-ups cpme then directly Exit Project pop-up appears. So frankly speaking dont know why this is happening. I have checked with user and user is following proper procedure to do this thing.
Do you have any clue in this matter?
Thanks and regards.
Swapnil Kharul.

Hi,
Thanks for your reply in this regard,
Actually Validation message I can ignore as these are just warning messages but after that Exit Project Message pop-up appears with message text as :
The data you have entered will be lost-
Do you want to save the data?
if user clicks on Yes then also nothing happens and user unable to save the WBS Element.
Please suggest.

Sort WBS element in project hierarchy

Hi
Our WBS element does by sequential numbering
Eg: Level 1         2A.08
      Level 2         2A.08.01
      Level 3         2A.08.01.01
      Level 2         2A.08.02
      Level 3         2A.08.02.01
In transaction CJ02 is there any way we could sort the WBS element field so that it is in ascending or descending order? We are trying to explore a faster way to tidy up the hierarchy other than moving the line items manually.
Hope someone has some solution to this.
Thank you.

Hi
Go to CJ02 and allow the "Billing / Revenue" Check box in the WBS MAster...
br, Ajay M

Issue in BAPI_PS_PRECOMMIT in mass creation of WBS Elements

Hi,
I am facing a issue with BAPI_PS_PRECOMMIT.
we have the following WBS Hierarchy:
S - Proj, (level1)
S-XXX WBS Element (level2)
S-XXX-001 WBS Element (level3)
I have created a program for mass creation of WBS elements creation
which uses the following BAPI's
BAPI_PS_INITIALIZATION
BAPI_BUS2054_CREATE_MULTI
BAPI_PS_PRECOMMIT
BAPI_TRANSACTION_COMMIT
The proj: 'S' and the level2 WBS element: 'S-XXX' already exist in the system.
When I run the program for delta load, so as to create the following level3 WBS elements:
S-XXX-001
S-XXX-002
S-XXX-003
The system is throwing the following errors at the BAPI_PS_PRECOMMIT:
1. Final Check of the project definition and WBS elements: Error
2. Validation unsuccessful
Pls help me on this.
Thanks,
Deepak

Check the WBS elements doesn't exist already in your system.
Here is what I coded some days back for deletion of Network Activities, most of the things are same.
You are doing for WBS element.
* Call to initialization BAPI Before Delete
      CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
* Call to Network Activity Deletion BAPI
      CALL FUNCTION 'BAPI_BUS2002_ACT_DELETE_MULTI'
        EXPORTING
          i_number           = t_bapi_activity-network
        TABLES
          it_delete_activity = l_t_del_vornr
          et_return = l_t_bapiret2.
      DELETE l_t_bapiret2 WHERE type <> 'E'.
      READ TABLE l_t_bapiret2 INDEX 1.
      IF sy-subrc EQ 0.                                      "If error in Deletion
        MOVE: f_idoc_contrl-docnum TO t_idoc_status-docnum,
              l_t_bapiret2-type TO t_idoc_status-msgty,
              'CNIF_PI' TO t_idoc_status-msgid,
              l_t_bapiret2-number TO t_idoc_status-msgno,
              l_t_bapiret2-message TO t_idoc_status-msgv1.
              MOVE c_idoc_status_error TO t_idoc_status-status.
              APPEND t_idoc_status.
              ROLLBACK WORK.
              EXIT.
      ELSE.                                                  "If Delete is successful COMMIT
* Call to PreCOMMIT BAPI
        CALL FUNCTION 'BAPI_PS_PRECOMMIT'
         TABLES
           ET_RETURN       = l_t_bapiret3.
* Call COMMIT BAPI
*        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      ENDIF.
The other solution is use BAPI_PROJECT_MAINTAIN.

How to activate WBS Element in Sales Order

Dear All,
How to activate WBS element in sales order?
Thanks & Regards,
PM

Basically in case of Repair and overhaul material is taking inside for repair purpose..for that we create service order in which we r creating component, operation(time. labor, machine) besides we create notification to allow overhead activity for this special activity..
once this service order r created and notification is set.. we r estimating cost for this process and updating sales price(DP82) which further send to customer for approval.. once v receive approval v issue a goods along with parental serviceable material to Plant for Plant maintenance estimation..
so all this procedure obey just like project , in this case we have to assign WBS element into sales order level..
WBS elemet is nothing simply its hierarchy which shows what r the steps followed in project(CJ20N)..
Correct me if i m wrong..
thanks
Mk

Issue with order or sequence of wbs elements appearance in planning layout

Hi Experts
we have an issue with order or sequence of wbs elements appearance in BPS planning layout.
In BW - 0wbs element - hierarchy order is as below
1
2
3
4
5
6
7
8
but when we check the same wbs element in BPS planning layout, it appears as below
1
2
3
4
6
7
5
8
Request you to advice how to correct the order.
Best Regards
krishna

Hi,
I came across a similar situation once. I dont remember exactly.
We have two different DataSources on wbs hierarchy. The hiearchy was loaded using the two datasources.
By mistake we were trying to use the hierarchy created by Datasource2, instead of hier created by datasource1.
Can you check that.

TX CNS41 - settled cost from internal order to WBS element not displayed

Hi PS Expets,
I have a question regarding transaction CNS41 "Structure Overview" where cost settled from an internal order is not displayed in in the report for a selected project. This is in a ECC version 5.0
Settled costs from internal orders are posted with transaction type KOAO on WBS elements and when you check report RCNSTFCO you can see that the following transaction types are deselected when executing transaction CNS41:
delete t_rpsco_m where vorga = 'KOAO' "<   insert
                      or vorga = 'KOAL' "<   insert
                      or vorga = 'KOAP' "<   insert
                      or vorga = 'KOAQ' "<   insert
                      or vorga = 'KOAR'."<   insert
CALL FUNCTION 'HFPM_RPSCO_TO_RPSCO_LIS_CONV'
This is implemented according to OSS note 51971 in order to eliminate internal business volume in the project structure when executing a PS hierarchy report.
But this also eliminate the display of the cost from the internal order.
Any ideas or a work around in order to display settled cost from an internal order on a WBS element in transaction CNS41
Kind regards,
Anne

Hello Tison.
I guess you have the Project created with a BAPI in your system in background. As far as I have seen I'd try the following in ABAP to create Partners in the Project Definition: BAPI_BUS2001_PARTNER_CREATE_M or the corresponding method ProjectDefinitionPI.PartnerCreateMultiple. This should happen in background when the Project is created also.
Best regards.
Jens Schmid

Very urgent- find parent-child relationship for wbs element

Hi,
There is a certain parent child heirachy in WBS elements.My requiremnet is to delete WBS element depending on certain field , say depending on some ""status"".If the status is active in some or any of the child then I am not suppose to delete its respective parent too. This parent-child relation can have say 5 levels.
For this I require a logic /program which shall maintain the parent reference for that particular child whih I want/ dont want to delete.
I am maintaining bottom- to -top approach.
That is I shall be checking for the status of the lowest level of WBS and then going to the highest.
Please Help!
Kshitija

hi you can use following code....
REPORT zpmgmt_rpt_projinfo NO STANDARD PAGE HEADING LINE-SIZE 160.
*& Includes
INCLUDE <icon>.
INCLUDE zdata_declare_n. " include for data declaration
INCLUDE zsubr_n.          " include for both subroutines
DATA: gv_index LIKE sy-tabix,
      lv_index LIKE sy-tabix,
      date_index TYPE sy-tabix.
*& Start of Selection ( Get Data )
START-OF-SELECTION.
For initial display cnt is set to X
IF cnt EQ 'X'.
    PERFORM getdata.
    CLEAR it_final.
    PERFORM hierarchy.
    cnt = ''.
ENDIF.
*&      Form GETDATA
Fetches the data and logic for T1 and T2
--> p1        text
<-- p2        text
FORM getdata.
Getting project header data
SELECT * FROM proj
    INTO CORRESPONDING FIELDS OF TABLE it_proj
    WHERE pspid IN so_posid
    AND werks IN so_plant
    AND stort IN so_loc
    AND erdat IN so_date.
IF sy-subrc <> 0.
    MESSAGE 'Enter the valid entry' TYPE 'I'.
    STOP.
ENDIF.
LOOP AT it_proj.
    PROJECT = it_proj-pspid.
Get project & WBS element details
BAPI used gives the output in some specific format
which is used for roll-up logic.
    CALL FUNCTION 'BAPI_PROJECT_GETINFO'
     EXPORTING
        project_definition           = project
        with_activities              = 'X'
     IMPORTING
        e_project_definition         = e_project_definition
     TABLES
        e_wbs_hierarchie_table       = e_wbs_hierarchie_table.
Appending all the projects in the e_wbs.
        LOOP AT e_wbs_hierarchie_table.
          MOVE-CORRESPONDING e_wbs_hierarchie_table TO e_wbs.
          APPEND e_wbs.
          CLEAR e_wbs.
        ENDLOOP.
    CLEAR PROJECT.
ENDLOOP.
SET COUNTRY 'US'.
i_repid = sy-repid.
Getting data into internal tables
Getting project WBS element
SELECT * FROM prps
    INTO CORRESPONDING FIELDS OF TABLE it_prps
    FOR ALL ENTRIES IN it_proj
    WHERE psphi = it_proj-pspnr.
Getting project activities
SELECT * FROM afvc
    INTO CORRESPONDING FIELDS OF TABLE it_afvc
    FOR ALL ENTRIES IN it_prps
    WHERE projn = it_prps-pspnr.
SORT it_afvc BY vornr.
Getting activities start & end dates from AFVV
SELECT * FROM afvv
   INTO CORRESPONDING FIELDS OF TABLE it_afvv
   FOR ALL ENTRIES IN it_afvc
   WHERE aufpl = it_afvc-aufpl
   AND aplzl = it_afvc-aplzl.
Getting plant name
SELECT * FROM t001w
    INTO CORRESPONDING FIELDS OF TABLE it_t001w
    FOR ALL ENTRIES IN it_proj
    WHERE werks = it_proj-werks.
Logic for passing data to final internal table
Passing Project master data
READ TABLE it_proj INDEX 1.
IF sy-subrc EQ 0.
    CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
      EXPORTING
        input = it_proj-pspid
      IMPORTING
        output = it_proj-pspid.
    it_final-posid = it_proj-pspid.
    it_final-post1 = it_proj-post1.
    APPEND it_final.
    CLEAR it_final.
ENDIF.
Passing WBS element to the final internal table IT_FINAL
LOOP AT it_prps.
    CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
      EXPORTING
        input = it_prps-posid
      IMPORTING
        output = it_prps-posid.
     CLEAR color.
Get WBS element status ans color(T2)from OBJNR
    CALL FUNCTION 'ZGET_STATUS_N'
      EXPORTING
        objnr    = it_prps-objnr
      IMPORTING
        color    = color
      TABLES
        t_status = it_tj30t.
    IF     color = 'RED'.
      it_final-t2 = '@0A@'.
    ELSEIF color = 'YELLOW'.
      it_final-t2 = '@09@'.
    ELSEIF color = 'GREEN'.
      it_final-t2 = '@08@'.
    ENDIF.
    SORT it_tj30t DESCENDING.
Getting User statuses of WBS element at component level.
    READ TABLE it_tj30t INDEX 1.
    IF sy-subrc EQ 0.
      CONCATENATE it_tj30t-txt04 '' INTO it_final-txt04 SEPARATED BY space.
    ENDIF.
    READ TABLE it_tj30t INDEX 2.
    IF sy-subrc EQ 0.
      CONCATENATE it_tj30t-txt04 it_final-txt04 INTO it_final-txt04 SEPARATED BY space.
    ENDIF.
    MOVE-CORRESPONDING it_prps TO it_final.
    READ TABLE it_proj WITH KEY pspid = it_prps-posid.
    IF sy-subrc EQ 0.
      it_final-werks = it_proj-werks.
    ENDIF.
    APPEND it_final.
    CLEAR it_final-txt04.
Passing activity to the final internal table IT_FINAL
    LOOP AT it_afvc WHERE projn EQ it_prps-pspnr.
      CLEAR color.
Getting user status and color(T2) for Activity from OBJNR
      CALL FUNCTION 'ZGET_STATUS_N'
        EXPORTING
          objnr    = it_afvc-objnr
        IMPORTING
          color    = color
        TABLES
          t_status = it_tj30t.
      IF     color = 'RED'.
        it_final-t2 = '@0A@'.
      ELSEIF color = 'YELLOW'.
        it_final-t2 = '@09@'.
      ELSEIF color = 'GREEN'.
        it_final-t2 = '@08@'.
      ENDIF.
      CLEAR: it_final-fsavd,
             it_final-fssad.
      MOVE-CORRESPONDING it_afvc TO it_final.
Getting User statuses of WBS element at activity level.
      SORT it_tj30t DESCENDING.
      READ TABLE it_tj30t INDEX 1.
      IF sy-subrc EQ 0.
        CONCATENATE it_tj30t-txt04 '' INTO it_final-txt04 SEPARATED BY space.
      ENDIF.
      READ TABLE it_tj30t INDEX 2.
      IF sy-subrc EQ 0.
        CONCATENATE it_tj30t-txt04 it_final-txt04 INTO it_final-txt04 SEPARATED BY space.
      ENDIF.
      APPEND it_final.
      lv_index = sy-tabix.
      CLEAR it_final-txt04.
      CLEAR it_final-ltxa1.
      CLEAR it_tj30t.
      REFRESH it_tj30t.
Start Date and End Date fetched from AFVV.
      LOOP AT it_afvv WHERE   aufpl EQ it_afvc-aufpl
                          AND   aplzl EQ it_afvc-aplzl.
        MOVE-CORRESPONDING it_afvv TO it_final.
        MODIFY it_final INDEX lv_index TRANSPORTING fsavd fssad.
      ENDLOOP.
      CLEAR it_afvc.
      CLEAR lv_index.
    ENDLOOP.
ENDLOOP.
Logic for T1.
T1 is based on T2 and start date and end date of activities.
LOOP AT it_final WHERE stufe = 3
                   AND ltxa1 IS NOT INITIAL.
    gv_index = sy-tabix.
    PERFORM date_difference.
    CASE it_final-t2.
      WHEN '@0A@'.     " If Red
        IF sy-datum GT it_final-fssad.
          it_final-t1 = '@0A@'.
        ELSEIF sy-datum LE it_final-fssad AND
               sy-datum GE it_final-fsavd.
          IF gv_diff > 1.
            PERFORM date_monitor.
          ENDIF.
          it_final-t1 = '@09@'.
        ELSEIF
          sy-datum LT it_final-fsavd.
          it_final-t1 = '@08@'.
        ENDIF.
      WHEN '@09@'.     " If Yellow
        IF sy-datum GT it_final-fssad.
          it_final-t1 = '@0A@'.
        ELSEIF sy-datum LE it_final-fssad AND
               sy-datum GE it_final-fsavd.
          IF gv_diff > 1.
            PERFORM date_monitor.
          ENDIF.
          it_final-t1 = '@09@'.
        ELSEIF
          sy-datum LT it_final-fsavd.
          it_final-t1 = '@08@'.
        ENDIF.
      WHEN '@08@'.     " If Green
        it_final-t1 = '@08@'.
    ENDCASE.
    MODIFY it_final INDEX gv_index TRANSPORTING t1.
    CLEAR gv_index.
ENDLOOP.
ENDFORM.                    " GETDATA
*&      Form hierarchy
Displays the data in ALV hierarchical manner.
In coding 3 tables are used for roll-up functionality.
FORM hierarchy .
DATA: it_final1 LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA: it_final2 LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA: it_final3 LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA: count TYPE i VALUE 1.
DATA: posid LIKE prps-posid.
DATA: change,
        date_mask TYPE c LENGTH 10,
        lv_index2 LIKE sy-tabix.
DATA: index TYPE sy-tabix.
DATA: up LIKE prps-posid.
Deleting duplicate entries from the it_final.*****************
DELETE ADJACENT DUPLICATES FROM it_final.
LOOP AT it_final WHERE stufe EQ 2.
    IF posid NE it_final-posid.
      posid = it_final-posid.
    ELSE.
      DELETE it_final INDEX sy-tabix.
    ENDIF.
ENDLOOP.
CLEAR posid.
LOOP AT it_final WHERE stufe EQ 3
                    AND ltxa1 EQ space.
    IF posid NE it_final-posid.
      posid = it_final-posid.
    ELSE.
      DELETE it_final INDEX sy-tabix.
    ENDIF.
ENDLOOP.
Updating a new intrnal table for roll up functionality. ********
it_final1[] = it_final[].
CLEAR: lv_index2.
LOOP AT it_final1 WHERE stufe = 3
                    AND ltxa1 IS NOT INITIAL.
    READ TABLE it_final WITH KEY stufe = 3
                                  posid = it_final1-posid
                                  post1 = it_final1-post1.
   clear change.
    IF sy-subrc = 0.
      lv_index = sy-tabix.
      IF lv_index2 <> lv_index.
        CLEAR: change.
        lv_index2 = lv_index.
      ENDIF.
      IF it_final1-t1 = '@0A@'.
        it_final-t1 = '@0A@' .
        MODIFY it_final INDEX lv_index TRANSPORTING t1.
        DELETE it_final1 WHERE posid = it_final-posid.
        CONTINUE.
      ENDIF.
      IF it_final1-t1 = '@09@'.
        it_final-t1 = '@09@'.
        change = 'Y'.
        MODIFY it_final INDEX lv_index TRANSPORTING t1.
        CONTINUE.
      ENDIF.
      IF it_final1-t1 = '@08@'.
        it_final-t1 = '@08@' .
        IF change IS INITIAL.
          MODIFY it_final INDEX lv_index TRANSPORTING t1.
        ENDIF.
        CONTINUE.
      ENDIF.
    ENDIF.
ENDLOOP.
it_final2[] = it_final[].
CLEAR: lv_index2.
LOOP AT it_final2 WHERE stufe = 3
                    AND ltxa1 IS INITIAL.
    READ TABLE e_wbs WITH KEY wbs_element = it_final2-posid.
    IF sy-subrc = 0.
      READ TABLE it_final WITH KEY stufe = 2
                                   posid = e_wbs-up.
      IF sy-subrc = 0.
        CHECK it_final-t1 <> '@0A@'.
        lv_index = sy-tabix.
        IF lv_index2 <> lv_index.
          CLEAR: change.
          lv_index2 = lv_index.
        ENDIF.
        IF   it_final2-t1 = '@0A@'.
          it_final-t1 = '@0A@' .
          MODIFY it_final INDEX lv_index TRANSPORTING t1.
          CONTINUE.
        ENDIF.
        IF it_final2-t1 = '@09@'.
          it_final-t1 = '@09@'.
          MODIFY it_final INDEX lv_index TRANSPORTING t1.
          change = 'Y'.
          CONTINUE.
        ENDIF.
        IF it_final2-t1 = '@08@'.
          it_final-t1 = '@08@' .
          IF change IS INITIAL.
            MODIFY it_final INDEX lv_index TRANSPORTING t1.
          ENDIF.
          CONTINUE.
        ENDIF.
      ENDIF.
    ENDIF.
ENDLOOP.
it_final3[] = it_final[].
CLEAR: lv_index2.
CLEAR change.
LOOP AT it_final3 WHERE stufe = 2.
    READ TABLE e_wbs WITH KEY wbs_element = it_final3-posid.
    CHECK sy-subrc = 0.
    READ TABLE it_final WITH KEY stufe = 1
                                 posid = e_wbs-up.
    IF sy-subrc = 0.
      CHECK it_final-t1 <> '@0A@'.
      lv_index = sy-tabix.
      IF lv_index2 <> lv_index.
        CLEAR: change.
        lv_index2 = lv_index.
      ENDIF.
      IF   it_final3-t1 = '@0A@'.
        it_final-t1 = '@0A@' .
        MODIFY it_final INDEX lv_index TRANSPORTING t1.
        DELETE it_final3.   " WHERE stufe = 2.
        CONTINUE.
      ENDIF.
      IF it_final3-t1 = '@09@'.
        it_final-t1 = '@09@'.
        MODIFY it_final INDEX lv_index TRANSPORTING t1.
        change = 'Y'.
        CONTINUE.
      ENDIF.
      IF it_final3-t1 = '@08@'.
        it_final-t1 = '@08@' .
        IF change IS INITIAL.
          MODIFY it_final INDEX lv_index TRANSPORTING t1.
        ENDIF.
        CONTINUE.
      ENDIF.
    ENDIF.
ENDLOOP.
Building hierarchy table ***************
LOOP AT it_final.
    IF it_final-stufe = '0'.
      node_tab-type = 'T'.
      node_tab-name = 'Project'.
      node_tab-tlevel = '01'.
      node_tab-nlength = '8'.
      node_tab-color = '4'.
      node_tab-text = it_final-post1.
      node_tab-tlength ='20'.
      node_tab-tcolor = 5.
      APPEND node_tab.
      it_final_hsk-node = node_tab.
      APPEND it_final_hsk. CLEAR it_final_hsk.
      CLEAR node_tab.
    ELSEIF it_final-stufe = '1'.
      node_tab-type = 'P'.
      node_tab-name = 'Project'.
      node_tab-tlevel = '02'.
      node_tab-nlength = '10'.
      node_tab-color = '1'.
      node_tab-kind2 = 'I'.
      node_tab-text3+0(4) = it_final-t1.
      node_tab-tlength3 = '5'.
      node_tab-tcolor3 = 1.
      node_tab-kind3 = ' '.
      node_tab-text4 = it_final-posid.
      node_tab-tlength4 ='20'.
      node_tab-tcolor4 = 3.
Code added for plant name
      CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
        EXPORTING
          input = it_final-posid
        IMPORTING
          output = it_final-posid.
      READ TABLE it_proj WITH KEY pspid = it_final-posid.
      CHECK sy-subrc = 0.
      READ TABLE it_t001w WITH KEY werks = it_proj-werks.
      CHECK sy-subrc = 0.
Code End.
      node_tab-kind4 = ' '.
      node_tab-text5 = it_t001w-name1.   " Plant Name
      node_tab-tlength5 ='25'.
      node_tab-tcolor5 = 4.
      node_tab-kind5 = ' '.
      node_tab-text6 = it_proj-stort.
      node_tab-tlength6 ='15'.
      node_tab-tcolor6 = 4.
      node_tab-kind6 = ' '.
      node_tab-text7 = it_final-post1.
      node_tab-tlength7 ='25'.
      node_tab-tcolor7 = 4.
      APPEND node_tab.
      it_final_hsk-node = node_tab.
      APPEND it_final_hsk. CLEAR it_final.
      CLEAR node_tab.
    ELSEIF it_final-stufe = '2'.
      node_tab-type = 'P'.
      node_tab-name = 'Gate Id'.
      node_tab-tlevel = '03'.
      node_tab-nlength = '10'.
      node_tab-color = '1'.
      node_tab-kind2 = 'I'.
      node_tab-text3+0(4) = it_final-t1.
      node_tab-tlength3 = '5'.
      node_tab-tcolor3 = 1.
      node_tab-kind3 = ' '.
      node_tab-text4 = it_final-posid.
      node_tab-tlength4 ='20'.
      node_tab-tcolor4 = 3.
      node_tab-kind4 = ' '.
      node_tab-text5 = it_final-post1.
      node_tab-tlength5 ='25'.
      node_tab-tcolor5 = 4.
      APPEND node_tab.
      it_final_hsk-node = node_tab.
      APPEND it_final_hsk.
      CLEAR it_final.
      CLEAR node_tab.
    ELSEIF it_final-stufe = '3' AND it_final-ltxa1 EQ space.
      node_tab-type = 'P'.
      node_tab-name = 'Component'.
      node_tab-tlevel = '04'.
      node_tab-nlength = '11'.
      node_tab-color = '1'.
      node_tab-kind2 = 'I'.
      node_tab-text3+0(4) = it_final-t1.
      node_tab-tlength3 = '5'.
      node_tab-tcolor3 = 1.
      node_tab-kind3 = ' '.
      node_tab-text4 = it_final-posid.
      node_tab-tlength4 ='25'.
      node_tab-tcolor4 = 3.
      node_tab-kind4 = ' '.
      node_tab-text5 = it_final-post1.
      node_tab-tlength5 ='25'.
      node_tab-tcolor5 = 4.
Code added for start date and end date for component level.
      SELECT SINGLE pstrm petrf INTO (v_pstrm, v_petrf)
           FROM prte WHERE posnr = it_final-pspnr.
      it_final-fsavd = v_pstrm.
      it_final-fssad = v_petrf.
      MODIFY it_final INDEX sy-tabix.
      WRITE it_final-fsavd TO date_mask MM/DD/YYYY.
      node_tab-tpos1 = '0'.
      node_tab-kind5 = ' '.
      node_tab-text6 = date_mask.
      node_tab-tlength6 ='10'.
      node_tab-tcolor6 = 3.
      CLEAR date_mask.
      WRITE it_final-fssad TO date_mask MM/DD/YYYY.
      node_tab-tpos1 = '0'.
      node_tab-kind6 = ' '.
      node_tab-text7 = date_mask.
      node_tab-tlength7 ='10'.
      node_tab-tcolor7 = 3.
      CLEAR date_mask.
      APPEND node_tab.
      it_final_hsk-node = node_tab.
      APPEND it_final_hsk.
      CLEAR it_final_hsk.
      CLEAR node_tab.
    ELSEIF it_final-ltxa1 IS NOT INITIAL.
      node_tab-type = 'P'.
      node_tab-name = 'Element'.
      node_tab-tlevel = '05'.
      node_tab-nlength = '11'.
      node_tab-color = '1'.
      node_tab-kind = 'I'.
      node_tab-text1+0(4) = it_final-t1.
      node_tab-tlength1 = '5'.
      node_tab-tcolor1 = 1.
      node_tab-kind2 = 'I'.
      node_tab-text3+0(4) = it_final-t2.
      node_tab-tlength3 = '5'.
      node_tab-tcolor3 = 1.
      node_tab-kind3 = ' '.
      node_tab-text4 = it_final-ltxa1.
      node_tab-tlength4 ='45'.
      node_tab-tcolor4 = 3.
      node_tab-kind4 = ' '.
      node_tab-text5 = it_final-txt04.
      node_tab-tlength5 ='10'.
      node_tab-tcolor5 = 3.
      WRITE it_final-fsavd TO date_mask .
      node_tab-kind5 = ' '.
      node_tab-text6 = date_mask.
      node_tab-tlength6 ='10'.
      node_tab-tcolor6 = 3.
      CLEAR date_mask.
      WRITE it_final-fssad TO date_mask.
      node_tab-tpos1 = '0'.
      node_tab-kind6 = ' '.
      node_tab-text7 = date_mask.
      node_tab-tlength7 ='10'.
      node_tab-tcolor7 = 3.
      CLEAR date_mask.
      APPEND node_tab.
      it_final_hsk-node = node_tab.
      APPEND it_final_hsk.
      CLEAR it_final_hsk.
      CLEAR node_tab.
    ENDIF.
ENDLOOP.
CALL FUNCTION 'RS_TREE_CONSTRUCT'
    TABLES
      nodetab = it_final_hsk.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
    EXPORTING
      callback_program      = i_repid
      callback_user_command = 'USER_COMMAND'
      callback_gui_status   = 'ZLD_TREE_N'
      screen_start_column   = 0
      use_control           = 'L'.
ENDFORM.                    " hierarchy
*&      Form MYGUI
      text
     -->EX_TAB     text
FORM zld_tree_n.
SET PF-STATUS 'ZLD_TREE_N'.
ENDFORM.                    "zld_tree.
**&      Form user_command
    Code for REFRESH button
FORM user_command TABLES   node STRUCTURE seucomm
                           USING ucomm CHANGING exit
                                    list_refresh.
CASE ucomm.
    WHEN 'REFR' .
      CLEAR it_final.
      REFRESH it_final_hsk.
      REFRESH it_final.
      PERFORM getdata.
      CLEAR it_final.
      PERFORM hierarchy.
    WHEN 'BACK1'.
      LEAVE TO TRANSACTION 'ZCN41_N'.
ENDCASE.
ENDFORM.                    "user_command
include.....
*& Include           ZDATA_DECLARE
*& Tables used for the report
TABLES: proj, prps, aufk, afvc, jest, tj30t, afvv, prte.
*& Type Pools used
TYPE-POOLS: slis, icon, fibs, stree.
*& Class & Data defination
CLASS DEFINATION
CLASS cl_gui_resources DEFINITION LOAD.
DATA DECLARATION
DATA: g_lights_name TYPE lvc_cifnm VALUE 'LIGHT',
      pspid LIKE proj-pspid,
      l_pos TYPE i VALUE 1,
      gs_layout TYPE slis_layout_alv,
      color TYPE zcn41_color_n-color.
DATA : cnt VALUE 'X'.
DATA : i_repid TYPE sy-repid.
DATA : t_node TYPE snodetext.
DATA : node_tab LIKE t_node OCCURS 0 WITH HEADER LINE.
DATA : gv_diff TYPE p, stort LIKE proj-stort.
CONSTANTS: st_formname_top_of_page TYPE slis_formname
                              VALUE 'TOP_OF_PAGE-ALV'.
*& Internal Table Declarations
DATA it_proj   TYPE STANDARD TABLE OF proj WITH HEADER LINE.
DATA it_prps   TYPE STANDARD TABLE OF prps WITH HEADER LINE.
DATA it_afvc   TYPE STANDARD TABLE OF afvc WITH HEADER LINE.
DATA it_tj30t TYPE STANDARD TABLE OF tj30t WITH HEADER LINE.
DATA it_afvv   TYPE STANDARD TABLE OF afvv WITH HEADER LINE.
DATA it_jcds   TYPE STANDARD TABLE OF jcds WITH HEADER LINE.
DATA it_t001w TYPE STANDARD TABLE OF t001w WITH HEADER LINE.
DATA: BEGIN OF it_final OCCURS 0,
          stufe LIKE prps-stufe,
          pspnr LIKE prps-pspnr,
          t1      TYPE icon-id,
          t2      TYPE icon-id,
          node    LIKE node_tab,
          posid LIKE prps-posid,
          post1 LIKE prps-post1,
          ltxa1 LIKE afvc-ltxa1,
          txt04(20),
          objnr LIKE afvc-objnr,
          vornr LIKE afvc-vornr,
          aufpl LIKE afvc-aufpl,
          aplzl LIKE afvc-aplzl,
          fsavd LIKE afvv-fsavd, "Ear. Start date
          fssad LIKE afvv-fssad, "Ear. finish date
          werks LIKE t001w-name1,     " added after update
          stort LIKE proj-stort,     " added after update
     END OF it_final.
DATA: BEGIN OF it_hsk OCCURS 0,
        t2      TYPE icon-id,
        t1      TYPE icon-id,
        posid LIKE prps-posid,
        post1 LIKE prps-post1,
        objnr LIKE afvc-objnr,
        stufe LIKE prps-stufe,
      END OF it_hsk.
DATA: BEGIN OF it_new OCCURS 0,
        objnr LIKE afvc-objnr,
        fsavd LIKE afvv-fsavd,
        fssad LIKE afvv-fssad,
        udate LIKE jcds-udate,
        t2(10),
      END OF it_new.
CLEAR : node_tab, node_tab[].
DATA : entval TYPE prps-posid.
DATA : ct_fieldcat TYPE slis_t_fieldcat_alv.
DATA : BEGIN OF it_final_hsk OCCURS 0,
          node LIKE node_tab,
        END OF it_final_hsk.
DATA : project LIKE bapipr-project_definition,
        e_project_definition LIKE bapi_project_definition_ex.
DATA : e_wbs_hierarchie_table TYPE STANDARD TABLE OF bapi_wbs_hierarchie
        WITH HEADER LINE.
DATA : e_wbs LIKE e_wbs_hierarchie_table OCCURS 0 WITH HEADER LINE.
DATA: v_pstrm LIKE prte-pstrm, v_petrf LIKE prte-petrf,
       v_posnr LIKE prps-pspnr.
*& Selection Screen of the report
SELECTION-SCREEN BEGIN OF BLOCK pms WITH FRAME TITLE text-001.
SELECT-OPTIONS so_posid FOR proj-pspid OBLIGATORY.
SELECT-OPTIONS so_plant FOR proj-werks.
SELECT-OPTIONS so_loc FOR proj-stort.
SELECT-OPTIONS so_date FOR sy-datum.
SELECTION-SCREEN END OF BLOCK pms.
*AT SELECTION-SCREEN .
READ TABLE it_proj WITH KEY pspid = so_posid.
IF sy-subrc <> 0.
   MESSAGE 'Project Name dose not exist' TYPE 'E.
ENDIF.
include..
*& Include           ZSUBR
*&      Form date_difference
      text
--> p1        text
<-- p2        text
FORM date_difference .
CALL FUNCTION 'ZDATETIME_DIFFERENCE_N'
    EXPORTING
      date1                  = it_final-fsavd
      time1                  = '000000'
      date2                  = it_final-fssad
      time2                  = '000000'
   IMPORTING
     datediff               = gv_diff
   EXCEPTIONS
     INVALID_DATETIME       = 1
     OTHERS                 = 2
IF sy-subrc <> 0.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " date_difference
*&      Form date_monitor
      text
--> p1        text
<-- p2        text
T1 for more than 1 days activities
Subroutines result out the T1 on basis of 80% of activity ( Green )
or if 20 % reamined. ( Yellow )
FORM date_monitor .
DATA: date TYPE string,
        temp_date TYPE string,
        lv_date LIKE afvv-fsavd,
        lv_date_final LIKE afvv-fsavd,
        lv_days LIKE bseg-dtws1 VALUE 0.
CONSTANTS: con TYPE f VALUE '0.8'.
*lv_date = it_new-fsavd.
IF gv_diff EQ 2.
    lv_days = 1.
    CALL FUNCTION 'ZCALC_DATE_N'
      EXPORTING
        date      = it_final-fsavd
        days      = lv_days
        months    = '00'
        sign      = '+'
        years     = '00'
      IMPORTING
        calc_date = lv_date_final.
    IF sy-datum LE lv_date_final.
      it_final-t1 = '@08@'.
    ELSEIF sy-datum GT lv_date_final AND
           sy-datum EQ it_final-fssad.
      it_final-t1 = '@09@'.
    ENDIF.
ELSEIF gv_diff > 2.
    lv_days = con * gv_diff.
    CALL FUNCTION 'ZCALC_DATE_N'
      EXPORTING
        date      = lv_date
        days      = lv_days
        months    = '00'
        sign      = '+'
        years     = '00'
      IMPORTING
        calc_date = lv_date_final.
    IF sy-datum LE lv_date_final.
      it_final-t1 = '@08@'.
    ELSEIF sy-datum GT lv_date_final AND
           sy-datum EQ it_final-fssad.
      it_final-t1 = '@09@'.
    ENDIF.
ENDIF.
ENDFORM.                    " date_monitor
this code will give you exact out put as you required from bootom to top functinality....with status....

How to Get project definition and description by WBS element

Hi All,
Is there any way to get project definition and description by providing WBS element.
Please help .
Salman Zahir

Hi,
These r the tables
PRHI Work Breakdown Structure, Edges (Hierarchy Pointer)
PROJ Project definition
PRPS WBS (Work Breakdown Structure) Element Master Data
RPSCO Project info database: Costs, revenues, finances
MSPR Project stock
Thanks,
Anitha

WBS elements hierarchy

Similar Messages

Maybe you are looking for