Skip to Content
0
Former Member
Oct 30, 2008 at 04:32 AM

Creating a WBS hierarchy using BAPI_PROJECT_MAINTAIN

210 Views

Hi,

I am trying to create WBS hierarchy, but i am facing some problem in creating it. The code that i have written is :

DATA : I_PROJECT_DEFINITION LIKE BAPI_PROJECT_DEFINITION OCCURS 0 WITH HEADER LINE,

I_PROJECT_DEFINITION_UPD LIKE BAPI_PROJECT_DEFINITION_UP OCCURS 0 WITH HEADER LINE,

RETURN LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE,

I_METHOD_PROJECT LIKE BAPI_METHOD_PROJECT OCCURS 0 WITH HEADER LINE,

I_WBS_ELEMENT_TABLE LIKE BAPI_WBS_ELEMENT OCCURS 0 WITH HEADER LINE,

I_WBS_HIERARCHIE_TABLE LIKE BAPI_WBS_HIERARCHIE OCCURS 0 WITH HEADER LINE.

CLEAR I_PROJECT_DEFINITION.

I_PROJECT_DEFINITION-PROJECT_DEFINITION = 'TEST_2'.

APPEND I_PROJECT_DEFINITION.

CLEAR I_METHOD_PROJECT.

MOVE 'WBS-Element' TO I_METHOD_PROJECT-OBJECTTYPE.

MOVE 'Create' TO I_METHOD_PROJECT-METHOD.

MOVE 'T1' TO I_METHOD_PROJECT-OBJECTKEY.

MOVE '000001' TO I_METHOD_PROJECT-REFNUMBER.

APPEND I_METHOD_PROJECT.

CLEAR I_METHOD_PROJECT.

MOVE 'WBS-Element' TO I_METHOD_PROJECT-OBJECTTYPE.

MOVE 'Create' TO I_METHOD_PROJECT-METHOD.

MOVE 'T2' TO I_METHOD_PROJECT-OBJECTKEY.

MOVE '000002' TO I_METHOD_PROJECT-REFNUMBER.

APPEND I_METHOD_PROJECT.

CLEAR I_METHOD_PROJECT.

MOVE 'WBS-Element' TO I_METHOD_PROJECT-OBJECTTYPE.

MOVE 'Create' TO I_METHOD_PROJECT-METHOD.

MOVE 'T3' TO I_METHOD_PROJECT-OBJECTKEY.

MOVE '000003' TO I_METHOD_PROJECT-REFNUMBER.

APPEND I_METHOD_PROJECT.

CLEAR I_METHOD_PROJECT.

MOVE 'Save' TO I_METHOD_PROJECT-METHOD.

APPEND I_METHOD_PROJECT.

CLEAR I_WBS_ELEMENT_TABLE.

I_WBS_ELEMENT_TABLE-WBS_ELEMENT = 'T1'.

I_WBS_ELEMENT_TABLE-PROJECT_DEFINITION = I_PROJECT_DEFINITION-PROJECT_DEFINITION.

I_WBS_ELEMENT_TABLE-DESCRIPTION = 'T1'.

APPEND I_WBS_ELEMENT_TABLE.

CLEAR I_WBS_ELEMENT_TABLE.

I_WBS_ELEMENT_TABLE-WBS_ELEMENT = 'T2'.

I_WBS_ELEMENT_TABLE-PROJECT_DEFINITION = I_PROJECT_DEFINITION-PROJECT_DEFINITION.

I_WBS_ELEMENT_TABLE-DESCRIPTION = 'T2'.

APPEND I_WBS_ELEMENT_TABLE.

CLEAR I_WBS_ELEMENT_TABLE.

I_WBS_ELEMENT_TABLE-WBS_ELEMENT = 'T3'.

I_WBS_ELEMENT_TABLE-PROJECT_DEFINITION = I_PROJECT_DEFINITION-PROJECT_DEFINITION.

I_WBS_ELEMENT_TABLE-DESCRIPTION = 'T3'.

APPEND I_WBS_ELEMENT_TABLE.

CLEAR I_METHOD_PROJECT.

MOVE 'WBS-Hierarchy' TO I_METHOD_PROJECT-OBJECTTYPE.

MOVE 'Create' TO I_METHOD_PROJECT-METHOD.

APPEND I_METHOD_PROJECT.

CLEAR I_METHOD_PROJECT.

MOVE 'Save' TO I_METHOD_PROJECT-METHOD.

APPEND I_METHOD_PROJECT.

CLEAR I_WBS_HIERARCHIE_TABLE.

MOVE 'T1' TO I_WBS_HIERARCHIE_TABLE-WBS_ELEMENT.

MOVE I_PROJECT_DEFINITION-PROJECT_DEFINITION TO I_WBS_HIERARCHIE_TABLE-PROJECT_DEFINITION.

MOVE 'T2' TO I_WBS_HIERARCHIE_TABLE-DOWN.

APPEND I_WBS_HIERARCHIE_TABLE.

CLEAR I_WBS_HIERARCHIE_TABLE.

MOVE 'T2' TO I_WBS_HIERARCHIE_TABLE-WBS_ELEMENT.

MOVE I_PROJECT_DEFINITION-PROJECT_DEFINITION TO I_WBS_HIERARCHIE_TABLE-PROJECT_DEFINITION.

MOVE 'T1' TO I_WBS_HIERARCHIE_TABLE-UP.

MOVE 'T3' TO I_WBS_HIERARCHIE_TABLE-RIGHT.

APPEND I_WBS_HIERARCHIE_TABLE.

CLEAR I_WBS_HIERARCHIE_TABLE.

MOVE 'T3' TO I_WBS_HIERARCHIE_TABLE-WBS_ELEMENT.

MOVE I_PROJECT_DEFINITION-PROJECT_DEFINITION TO I_WBS_HIERARCHIE_TABLE-PROJECT_DEFINITION.

MOVE 'T1' TO I_WBS_HIERARCHIE_TABLE-UP.

MOVE 'T2' TO I_WBS_HIERARCHIE_TABLE-LEFT.

APPEND I_WBS_HIERARCHIE_TABLE.

CALL FUNCTION 'BAPI_PROJECT_MAINTAIN'

EXPORTING

i_project_definition = I_PROJECT_DEFINITION

i_project_definition_upd = I_PROJECT_DEFINITION_UPD

IMPORTING

RETURN = RETURN

tables

i_method_project = I_METHOD_PROJECT

  • I_WBS_ELEMENT_TABLE_UPDATE =

I_WBS_ELEMENT_TABLE = I_WBS_ELEMENT_TABLE

  • I_WBS_MILESTONE_TABLE =

  • I_WBS_MILESTONE_TABLE_UPDATE =

I_WBS_HIERARCHIE_TABLE = I_WBS_HIERARCHIE_TABLE

  • I_NETWORK =

  • I_NETWORK_UPDATE =

  • I_ACTIVITY =

  • I_ACTIVITY_UPDATE =

  • I_RELATION =

  • I_RELATION_UPDATE =

  • E_MESSAGE_TABLE =

  • I_ACTIVITY_ELEMENT =

  • I_ACTIVITY_ELEMENT_UPDATE =

  • I_ACTIVITY_MILESTONE =

  • I_ACTIVITY_MILESTONE_UPDATE =

.

Please can anyone check and tell me what exactly is the problem?

Thank you.