Updating User Status and Status Profile for a Project

[Former Member]

Hi,

I am creating a Project using BAPI_BUS2001_CREATE.

which uses a structure BAPI_BUS2001_NEW for storing details of a New Project.

It <b>does not have fields for User Status and Status Profile</b> , if any one of you worked on Project Systems, please tell me is there any way to update these 2 fields.

I have tried lot of FuncModules and BAPIs which deal with PROJECT CHANGE and PROJECT MODIFY but none of them has these 2 fields.

Please provide me some solution for this.

Thanks in Advance.

[Former Member]

Hello,

U need to do like this:

  PERFORM CHANGE_STATUS_CLSD.

FORM CHANGE_STATUS_CLSD.
  DATA: LR_PROJ LIKE PROJ,
        WA_JEST LIKE JEST,
        LT_PRPS LIKE PRPS OCCURS 0 WITH HEADER LINE,
        LT_JEST LIKE JEST OCCURS 0 WITH HEADER LINE,
        RA_PRPS TYPE RANGE OF POSID WITH HEADER LINE.
  CLEAR: LR_PROJ.
  SELECT SINGLE * FROM PROJ INTO LR_PROJ WHERE PSPID = SP_PSPID.
  IF SY-SUBRC = 0.
    SELECT * FROM JEST INTO TABLE LT_JEST WHERE OBJNR = LR_PROJ-OBJNR.
    LOOP AT LT_JEST INTO JEST.
      IF JEST-STAT = 'I0001' OR JEST-STAT = 'I0002'.
        JEST-INACT = 'X'.
        UPDATE JEST.
      ELSE.
        JEST-INACT = SPACE.
        UPDATE JEST.
      ENDIF.
    ENDLOOP.
    CLEAR: LT_JEST.
    REFRESH: LT_JEST.
    SELECT * FROM PRPS INTO TABLE LT_PRPS WHERE PSPHI = LR_PROJ-PSPNR.
    IF SY-SUBRC = 0.
      SELECT * FROM JEST INTO TABLE LT_JEST FOR ALL ENTRIES IN LT_PRPS
                                            WHERE OBJNR = LT_PRPS-OBJNR.
      LOOP AT LT_JEST INTO JEST.
        IF JEST-STAT = 'I0001' OR JEST-STAT = 'I0002'.
          JEST-INACT = 'X'.
          UPDATE JEST.
        ELSE.
          JEST-INACT = SPACE.
          UPDATE JEST.
        ENDIF.
      ENDLOOP.
    ENDIF.
    LOOP AT LT_PRPS.
      CLEAR WA_JEST.
      SELECT SINGLE * FROM JEST WHERE OBJNR = LT_PRPS-OBJNR
                                  AND  STAT = 'I0046'.
      IF SY-SUBRC NE 0.
        WA_JEST-MANDT = SY-MANDT.
        WA_JEST-OBJNR = LT_PRPS-OBJNR.
        WA_JEST-STAT = 'I0046'.
        WA_JEST-INACT = ' '.
        WA_JEST-CHGNR = '001'.
        INSERT INTO JEST VALUES WA_JEST.
      ENDIF.
    ENDLOOP.
    COMMIT WORK AND WAIT.
  ENDIF.
ENDFORM.                    " CHANGE_STATUS_CLSD

REagrds,

Vasanth

[Former Member]

hi vasanth,

thanks for your reply.

i have seen same set of functionalilty in Func Module STATUS_UPDATE.