Open Commitment

Hi PS Gurus,
In CJI5 I can see an open amount of A inches tied to purchase requisition .That requisition was converted to PO. The purchase order line and purchase req both show complete at B inches.
I ran RKACOR04 Program in SE38 also. Still itu2019s same.
Please help.
MM

Hi,
To add, even after running the program, commitments may not be shown correctly some times.
If you are running on EHP4, then you have notes available for incorrect service pr / po commitments.
check the closed indicator in the pr item manually & cross check.
regards

Similar Messages

PS/IM year end closing (open commitment 2004-2006)

Hi SAP Guru,
What should i do to bring those open commitment (PR/PO with Partial GR) to 2007? i would like to close all PR/PO to bring back the value to available budget in 2005. Please advice the step in detail. I use R/3 ver 4.7
Thanks in advance.

Hi
There are two types of Budget, one is Commitment budget and payment budget,
The PO/PR are pertaining to Commitment Budget. When you transfer the same to the next year. The balance budget would be taken to the next year, the departments gets additional budget to operate, hence means more money to spend.
Hence it is not the normal procedure, you need to check the company policies before carrying forward.
Regards,
Suraj

Open commitments though Delivery complition ticked for PO.

Dear Experts,
I am facing a very strange issue.
We have a PO with 10 line items all items are alike except line item 9/10 where unit of measure is EA (each) and for others it is D (days). (account assignment catagory as Project, in the account assignment WBS element, Commitment item, Funds center, Fund are maintained, and it is same for all line items),
All the items are ticked for del.complition. So apperantly these items should not appear as open commitments in Funds consumption report,
First Eights lines (which have unit of measure as D) are not appearing in Fund consumption report but the last two line items 9/10 (with unit as EA) are appearing as open commitment in Funds consumption report.
I just changed the unit of measure of line item 8/9 to D from EA and saved the PO. After this i run the Funds consumption report and to my surprise the line items 8/9 are not appearing as open commitments.
I am not getting how come Unit of measure is playing role in Funds consumption.
Can somebody help me understand.
Best Regards
abhijit

Hi,
This reply is more of a guess work than otherwise:
Commitment seems to be created with unit of measure as D, possibly because that is the base unit of measure. EA could be alternate unit of measure which is entered in the PO. When you set delivery completion indicator, commitment is removed to the extend of EA rates (reason note known - possibly due to corrections in PO subsequently from D to EA. You can check the PO change history in this regard)
To further understand the issue, you can verify the value of commitment with D & EA from table COOI by passing the object number with and without delivery completion indicator. Alternatively, you can use transaction RKACSHOW to see the changes in commitment with differing units of measure and with / without delivery completion indicator.
Please post the results after trying out.
Muraleedharan.R

Project commitment shows even after closing PO

Hi,
I have developed a program to short close PO (in mass). This program marks Delivery indicator and sets Latest GR Date.
After running this program POs are short closed and To be delivered qty/value shows zero in MM reports such as ME2N.
The problem is that this does not close commitments in Project. When I run PS report (say CJI5), I get those POs as open and the remaining values are still shown as open commitment in PS.
Please help me understand how to close this project commitment.
Regards,
UT

I think this will work. I ran RKANBU01 program after closing PO through my program and it successfully closed open commitments.
I will confirm once I'm done with my testings...
Thanks a lot!
Regards,
UT

Open PO Commitments carryforward

Hi Experts
We are implementing FM-BCS. As per our Business requirement at the year end, we need to carryforward open PO commitments to next year.
I have tried the same by using T.Code FMJ2 and Open PO commitments are successfully carry forwarded to next fiscal year.
When I checked the same in Budget availability Report the opem commitment amount got reduced from consumable and consumed amount in sender year (2011) and the same open commitment amount got increased in consumable and consumed amount in receiver fiscal year (2012). And also the amount got reduced in sender fiscal year with period 16 (we are using fiscal variant V3). But it should be updated with period 12 (fiscal year 2011)instead of 16th period.
Please suggest Why it is updated with 16th period? And also why open commitment amount got reduced in sender fiscal year (2011)?
Please suggest the process.
Thanks in advance.
Rao

Hello,
The commitment carried forward debits the budget in the new year. This is documented in the online help and also in the technical documentation of FMJ2.
Regarding to the posting period in the sender year, the system uses the fiscal year variant associated to your FM Area. To calculate the period, the system adds the number special periods to the last 'normal' period defined in the fiscal year variant.
Technically, the system reads table T009 and adds values of fields ANZBP and ANZSP together.
hope this answers your questions
cheers,
Mar

Funds Consumption Open commitments

Dear Experts,
I am facing a very strange issue.
We have a PO with 10 line items all items are alike except line item 9/10 where unit of measure is EA (each) and for others it is D (days). (account assignment catagory as Project, in the account assignment WBS element, Commitment item, Funds center, Fund are maintained, and it is same for all line items),
All the items are ticked for del.complition. So apperantly these items should not appear as open commitments in Funds consumption report,
First Eights lines (which have unit of measure as D) are not appearing in Fund consumption report but the last two line items 9/10 (with unit as EA) are appearing as open commitment in Funds consumption report.
I just changed the unit of measure of line item 8/9 to D from EA and saved the PO. After this i run the Funds consumption report and to my surprise the line items 8/9 are not appearing as open commitments.
I am not getting how come Unit of measure is playing role in Funds consumption.
Can somebody help me understand.
Best Regards
abhijit

Hi,
This reply is more of a guess work than otherwise:
Commitment seems to be created with unit of measure as D, possibly because that is the base unit of measure. EA could be alternate unit of measure which is entered in the PO. When you set delivery completion indicator, commitment is removed to the extend of EA rates (reason note known - possibly due to corrections in PO subsequently from D to EA. You can check the PO change history in this regard)
To further understand the issue, you can verify the value of commitment with D & EA from table COOI by passing the object number with and without delivery completion indicator. Alternatively, you can use transaction RKACSHOW to see the changes in commitment with differing units of measure and with / without delivery completion indicator.
Please post the results after trying out.
Muraleedharan.R

Deletion of parked invoices after carry forward of open items in FM

Hi,
We have Funds management activated in our client.The MIRO invoices are parked for the year 2008.We follow calendar year.Open item are carried forward to 2009 without posting/deleting the parked invoices.We are now unable to delete the parked invoices. We get the following error message while trying to delete the invoice:
Posting in fis. yr 2008 is not possible; in FM open doc. 5000005928 in fis. yr 2009
Message no. FMCF102
Diagnosis
It is not possible to change document 5000005928 in fiscal year 2008 because the document was updated as open commitment in fiscal year 2009 in Funds Management.
System Response
The posting is not carried out.
Procedure
To change the document
If the fiscal year 2008 is later than 2009:
Carry document 5000005928 forward to fiscal year 2008 using program Closing Operations: Carryforward of Open Items (RFFMCCF1).
If fiscal year 2008 is earlier than 2009 and document 5000005928 was carried forward already:
Reset the commitment carryforward using program Closing Operations: Reset Carryforward of Open Items (RFFMCCFR)
Then you can make the change to document 5000005928.
I tried to undo Carry forward using FMJ3,but I get a message "There are no items to be reversed"
Please guide me,
Thanks in advance
Latha

Hi,
Please, check note 1285456. The CF of parked invoices was apparently performed with discrepancies in the tables.
Regards,
Eli

Commitment item - budget

Hi,
I have a purchase order for 100 euro. THis purchase order generates commitment item for 100. My original budget is 200.
After purchase order, my budget became 100
IF I post GR and IR for 80 euro, is there any way for change the budget from 100 to 120?
Thanks
Regards

Hi,
You mean you available budget? If it's GR/Invoice which closes completely the PO, then - yes - your available budget will become 120. If, however, it's not, then you will still have open commitment of 20 + 80 of actuals, so your available budget will remain 100.
Regards,
Eli

How can i correct PO becomes Commitment

Hi,
PR / PO Created 2yrs back and posted to CO as commitment now we dont have any commitment in PR only PO has commitemnt. Now we closed and completed the PO and invoice, while closing my project its showing still there is open commitment.
When i debug and check there is entry COSP table in 2yrs back now i cant see any offset value hence its not allowing to close my project any oss note or any suggestions.
Jack

ok jack , what you have to do is go to ME22N and open that Purchase order and scroll down to the item detail in the delivery tab you will see Delivery completion indicator go and check this and Save the Purchase order document
Now this will close the PO.

Link multiple vendors to a single vendor no.

Hi All,
I have a requirement where in a vendor has 5 to 6 vendor no.s in SAP representing each line of business . Business has to enter all the relevant vendor no.s in the system to get any report .Unlike to this, now business wishes to see what is the overall liability against that vendor or different reports like the AP aging report or th AP open commitment report on one vendor account no. that should pull up transactions on the the vendor no.s that are linked to this vendor.
Do you have any suggestions on how should I proceed on this ? Two options have been ruled out :
1. To create variant for a vendor and have all the vendor no.s added to the variant
2. Utilize corporate group field and enter free text per vendor. To utilize goup key field in report where available and modify others.
Unfortunately, both suggestions were ruled out. Let me know if there are better options.
Thanks and Regards,
Hemanth Reganti

Hi DB,
I have a question on maintaining Vendor hierarchies is : Would I be able to view the total exposure on a high level node when I view my reports. What I mean is :
for e.g. V1 is level 1 . V2 and V3 is level 2 . If I run the report(e.g. Fbl1n) on V1 i.e. level 1 would I still see the exposure at V2 and V3 i.e. level 2.
Thanks and Regards,
Hemanth

How to Display in Hierarcheal Order.

Hi,
I have a program that extracts the project related data Excel.
The program fetches the correct data but i want to displsy it in hierarchial order based on WBS element.
How can i display it.
There is a function module CALL FUNCTION 'AIPR_GET_HIERARCHY_TO_WBSELEM' used for this How can i use it in my program.
pls Help.
The Abap Code is as follows.
TABLES: COSP,                   " Primary   CO data by Cost Element
        COSS,                   " Secondary CO data by Cost Element
        COSB,                   " Total Variances/Results Analyses
        PROJ,                          " Project Definition
        PRPS,                          " WBS element
        PRHI,
        AFVC,                          " Network operations
        AFVU,                          " Network user fields
        COBK,                          " CO header
        CEPC,                          " Costcenter Names
        BPGE,                          " CO Awards
        AUFK,                          " Networks
        COOI,                   " Commitments management: Line items
        AFKO,                          " Network Header
        crco,
        crhd,
        JEST.                          " Project Status
Internal table for projects
DATA:BEGIN OF ITAB_TEST OCCURS 0,
    PSPID LIKE PROJ-PSPID,
    UP    LIKE PROJ-PSPID,
    STUFE LIKE PRPS-STUFE,
    POSID LIKE PRPS-POSID,
    POST1 LIKE PRPS-POST1,
    OBJNR LIKE PRPS-OBJNR,
    PSPHI LIKE PRPS-PSPHI,
    PRCTR LIKE PRPS-PRCTR,
    FAKKZ LIKE PRPS-FAKKZ,
    PSPNR LIKE PRPS-PSPNR,
    PRART LIKE PRPS-PRART,
    VERNA LIKE PROJ-VERNA,
    END OF ITAB_TEST.
Internal table for final extract records
TYPES: BEGIN OF EXTRACTREC,
       COL_01(40) TYPE C,
       COL_02(40) TYPE C,
       COL_03(40) TYPE C,
       COL_04(40) TYPE C,
       COL_05(40) TYPE C,
       COL_06(40) TYPE C,
       COL_07(40) TYPE C,
       COL_08(40) TYPE C,
       COL_09(40) TYPE C,
       COL_10(40) TYPE C,
       COL_11(40) TYPE C,
       COL_12(40) TYPE C,
       COL_13(40) TYPE C,
       COL_14(40) TYPE C,
       COL_15(40) TYPE C,
       COL_16(40) TYPE C,
       COL_17(40) TYPE C,
       COL_18(40) TYPE C,
       COL_19(40) TYPE C,
       COL_20(40) TYPE C,
       COL_21(40) TYPE C,
       COL_22(40) TYPE C,
       COL_23(40) TYPE C,
       COL_24(40) TYPE C,
       COL_25(40) TYPE C,
       COL_26(40) TYPE C,
       COL_27(40) TYPE C,
       X_P20C(14) TYPE C,   "Auth Cost    (Plan 20 @ Cost)
       X_ITDC(14) TYPE C,   "ITD Costs
       END   OF EXTRACTREC.
Accumulators
DATA : JAN_TOT(14) TYPE C.
DATA : FEB_TOT(14) TYPE C.
DATA : MAR_TOT(14) TYPE C.
DATA : APR_TOT(14) TYPE C.
DATA : MAY_TOT(14) TYPE C.
DATA : JUN_TOT(14) TYPE C.
DATA : JUL_TOT(14) TYPE C.
DATA : AUG_TOT(14) TYPE C.
DATA : SEP_TOT(14) TYPE C.
DATA : OCT_TOT(14) TYPE C.
DATA : NOV_TOT(14) TYPE C.
DATA : DEC_TOT(14) TYPE C.
Miscellaneous
DATA: X1_PROJ-PRCTR(40) TYPE C.
DATA: COM_TOT(14) TYPE C.
DATA: EXTRACTDATA TYPE EXTRACTREC.
DATA: H_PROJMGR         LIKE PRPS-VERNA,     "project manager
      H_PROJMGRCC       LIKE CRCO-KOSTL.     "PM costcenter
DATA: ITAB_EXT TYPE EXTRACTREC OCCURS 10 WITH HEADER LINE.
FIELD-SYMBOLS <MNT> .
Internal table of wbs line items for summarization
TYPES: BEGIN OF ZREC_WBS,
       PERIOD        LIKE RFSDO-BILABMON,
       YEAR          LIKE COSS-GJAHR,
       PROJECT       LIKE PRPS-POSID,
       SALES         LIKE BPGE-WTGES,
       PLNDOLLARS    LIKE BPGE-WTGES,
       ACTDOLLARS    LIKE BPGE-WTGES,
       COMMIT        LIKE BPGE-WTGES,
       PLNHOURS      LIKE BPGE-WTGES,
       ACTHOURS      LIKE BPGE-WTGES,
END OF ZREC_WBS.
DATA ITAB_WBS TYPE ZREC_WBS OCCURS 10 WITH HEADER LINE.
Accumulators
DATA HOLD_AWARD        LIKE BPGE-WTGES.
DATA HOLD_PLAN13_SALES LIKE BPGE-WTGES.
DATA HOLD_PLAN13_COST LIKE BPGE-WTGES.
DATA HOLD_PLAN12_SALES LIKE BPGE-WTGES.
DATA HOLD_PLAN12_COST LIKE BPGE-WTGES.
DATA HOLD_COMM         LIKE COOI-WTGBTR.
DATA ITAB_OBJLIST     LIKE OBJLIST_PS OCCURS 10 WITH HEADER LINE.
Miscellaneous
DATA COUNT_RECORDS TYPE I.
DATA PROJ_STATUS(10) TYPE C.
DATA NET_STATUS(10) TYPE C.
DATA NETFLAG VALUE 'N'.
DATA HOLDDATE(10).
DATA HOLDDATE1(10).
DATA HOLDPERIOD(10).
DATA HOLDAMOUNT(15) TYPE C.
DATA JAMIS_END_DATE LIKE SY-DATUM.
DATA: BEGIN OF PLANDESC1,
      FILLER1(5)                TYPE C VALUE 'Plan ',
      PLANVERSN(3),
      FILLER2(6)                TYPE C VALUE ' Hours',
      END OF PLANDESC1.
DATA: BEGIN OF PLANDESC2,
      FILLER1(5)                TYPE C VALUE 'Plan ',
      PLANVERSN(3),
      FILLER2(2)                TYPE C VALUE ' $',
      END OF PLANDESC2.
DATA: MNT_INDX(20)     TYPE C,
       HLD_INDX(3)      TYPE N,
       YYYY_MM(10)      TYPE C.
Selection screen
SELECTION-SCREEN SKIP 3.
SELECTION-SCREEN BEGIN OF BLOCK XEXTRPRJ WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 2.
*PARAMETERS: SELPROJ LIKE PROJ-PSPID MATCHCODE OBJECT PRSM ."OBLIGATORY.
SELECT-OPTIONS: SELPROJ FOR PROJ-PSPID MATCHCODE OBJECT PRSM .
SELECTION-SCREEN SKIP 1.
PARAMETERS MONTH(2) TYPE N   OBLIGATORY.
PARAMETERS YEAR(4)   TYPE N   OBLIGATORY.
*PARAMETER: SELVERSN LIKE COSS-VERSN DEFAULT '000'.
SELECT-OPTIONS: PRJTYP FOR PRPS-PRART.     "Project Types (CO,GV,etc.)
SELECT-OPTIONS: PRFCTR for PROJ-PRCTR.     "Range of Profit centers
SELECTION-SCREEN END OF BLOCK XEXTRPRJ.
Start of selection
START-OF-SELECTION.
Get Project Definition
SELECT * FROM PROJ WHERE PSPID IN SELPROJ
                         AND PRCTR IN PRFCTR.
Get WBS element
    SELECT * FROM PRPS WHERE PRART IN PRJTYP
             AND PSPHI EQ PROJ-PSPNR
             AND STUFE GT '1'. .
      MOVE-CORRESPONDING PRPS TO ITAB_TEST.
      MOVE PROJ-PSPID TO ITAB_TEST-PSPID.
      SELECT SINGLE * FROM PRHI WHERE POSNR EQ PRPS-PSPNR.
        IF SY-SUBRC EQ '0'.
          MOVE PRHI-UP TO ITAB_TEST-UP.
        ENDIF.
        APPEND ITAB_TEST.
        CLEAR ITAB_TEST.
      ENDSELECT.
    ENDSELECT.
fetch higher wbs levels
LOOP AT ITAB_TEST.
    SELECT SINGLE * FROM PRPS WHERE PSPNR EQ ITAB_TEST-UP.
    IF PRPS-STUFE NE '2'.
      SELECT SINGLE * FROM PRHI WHERE POSNR EQ PRPS-PSPNR.
      IF SY-SUBRC EQ '0'.
        MOVE PRHI-UP TO ITAB_TEST-UP.
      ENDIF.
      MODIFY ITAB_TEST.
    ENDIF.
ENDLOOP.
LOOP AT ITAB_TEST.
    SELECT SINGLE * FROM PRPS WHERE PSPNR EQ ITAB_TEST-UP.
    MOVE PRPS-POSID TO ITAB_TEST-UP.
    MODIFY ITAB_TEST.
ENDLOOP.
SORT ITAB_TEST BY PSPID.
Get Top level WBS element to determine hierarchy
SELECT * UP TO 1 ROWS FROM PRPS CLIENT SPECIFIED
     WHERE MANDT       = SY-MANDT
     AND    PSPHI       = PROJ-PSPNR
     AND    STUFE       = '1'.
ENDSELECT.
Get all object numbers of related elements in the hierarchy
CALL FUNCTION 'AIPR_GET_HIERARCHY_TO_WBSELEM'
       EXPORTING
            I_PR_TOP_OBJECT = PRPS-OBJNR
            I_WITH_HIERARCHY = 'X'
            I_WITH_NETWORK   = 'X'
            I_WITH_ORDERS    = 'X'
       TABLES
            ET_OBJLIST_PS    = ITAB_OBJLIST
       EXCEPTIONS
            OTHERS           = 1.
Section 1. Project Data.
Get Group Head name from Profit Center from level 1
SELECT * FROM CEPC
    WHERE KOKRS = 'DSRC'
    AND   DATBI GE SY-DATUM
    AND   PRCTR = PRPS-PRCTR.
    CHECK CEPC-DATAB LE SY-DATUM.
ENDSELECT.
Load Project Data to internal table with headings
MOVE 'ProjectDef'      TO ITAB_EXT-COL_01.
MOVE 'WBS Title'       TO ITAB_EXT-COL_02.
MOVE 'WBS Element'     TO ITAB_EXT-COL_03.
MOVE 'TY'              TO ITAB_EXT-COL_04.
MOVE 'Prft Cntr'       TO ITAB_EXT-COL_05.
MOVE 'Project open'    TO ITAB_EXT-COL_06.
MOVE 'Project close'   TO ITAB_EXT-COL_07.
MOVE 'Network open'    TO ITAB_EXT-COL_08.
MOVE 'Network close'   TO ITAB_EXT-COL_09.
MOVE 'Status'          TO ITAB_EXT-COL_10.
MOVE 'ProjectMgr'      TO ITAB_EXT-COL_11.
MOVE 'ProjectMgr_CC'   TO ITAB_EXT-COL_12.
MOVE 'Auth20costs'     TO ITAB_EXT-COL_13.
MOVE 'ITD Costs '      TO ITAB_EXT-COL_14.
MOVE 'Jan_costs'       TO ITAB_EXT-COL_15.
MOVE 'Feb_costs'       TO ITAB_EXT-COL_16.
MOVE 'Mar_costs'       TO ITAB_EXT-COL_17.
MOVE 'Apr_costs'       TO ITAB_EXT-COL_18.
MOVE 'May_costs'       TO ITAB_EXT-COL_19.
MOVE 'Jun_costs'       TO ITAB_EXT-COL_20.
MOVE 'Jul_costs'       TO ITAB_EXT-COL_21.
MOVE 'Aug_costs'       TO ITAB_EXT-COL_22.
MOVE 'Sep_costs'       TO ITAB_EXT-COL_23.
MOVE 'Oct_costs'       TO ITAB_EXT-COL_24.
MOVE 'Nov_costs'       TO ITAB_EXT-COL_25.
MOVE 'Dec_costs'       TO ITAB_EXT-COL_26.
MOVE 'Open_commits'    TO ITAB_EXT-COL_27.
APPEND ITAB_EXT.
CLEAR ITAB_EXT.
Fetching values
LOOP AT ITAB_TEST.
Getting records for every new project
    AT NEW PSPID.
      select single * from proj where pspid eq itab_test-pspid.
      MOVE PROJ-PSPID TO ITAB_EXT-COL_01.
      MOVE PROJ-POST1         TO ITAB_EXT-COL_02.
      MOVE PROJ-PSPID TO ITAB_EXT-COL_03.
      SELECT SINGLE * FROM PRPS WHERE PSPHI EQ PROJ-PSPNR.
      CLEAR EXTRACTDATA-COL_04.
      EXTRACTDATA-COL_04 = PRPS-PRART.
      MOVE EXTRACTDATA-COL_04    TO ITAB_EXT-COL_04.
*PROFIT CENTRE CORRECTION
      IF PROJ-PRCTR(2) = '01'.
        X1_PROJ-PRCTR = PROJ-PRCTR.
        CONCATENATE SPACE PROJ-PRCTR INTO X1_PROJ-PRCTR
          SEPARATED BY SPACE.
        MOVE X1_PROJ-PRCTR TO ITAB_EXT-COL_05. "Employee's Cost Center
      ELSE.
        MOVE PROJ-PRCTR TO ITAB_EXT-COL_05.     "Employee's Cost Center
      ENDIF.
      PERFORM CONVERT-DATE USING PROJ-PLFAZ.
      MOVE HOLDDATE1          TO ITAB_EXT-COL_06.
      PERFORM CONVERT-DATE USING PROJ-PLSEZ.
      MOVE HOLDDATE1          TO ITAB_EXT-COL_07.
      MOVE '00/00/0000'   TO   ITAB_EXT-COL_08.
      MOVE '00/00/0000'   TO   ITAB_EXT-COL_09.
      perform CHECK-PROJSTATUS.
      move PROJ_STATUS       to ITAB_EXT-COL_10.
      CLEAR EXTRACTDATA-COL_11.
      EXTRACTDATA-COL_11 = PROJ-VERNA .
      MOVE EXTRACTDATA-COL_11 TO ITAB_EXT-COL_11.
manager CC
      MOVE PROJ-VERNR+3(5) TO H_PROJMGR.
      SELECT SINGLE * FROM CRHD
      WHERE ARBPL = H_PROJMGR.      "employee number
Assignment of Work Center to Cost Center
      SELECT * FROM CRCO
        WHERE OBJTY = CRHD-OBJTY
        AND OBJID = CRHD-OBJID
        AND LASET = 1
        AND LANUM = '0001'.
        IF CRCO-ENDDA > SY-DATUM.
          EXIT.
        ENDIF.
      ENDSELECT.
insert space if cost center starts with 01
      IF CRCO-KOSTL(2) = '01'.
        H_PROJMGRCC = CRCO-KOSTL.
        CONCATENATE SPACE H_PROJMGRCC
          INTO H_PROJMGRCC SEPARATED BY SPACE.
      ELSE.
        H_PROJMGRCC = CRCO-KOSTL.
      ENDIF.
      MOVE H_PROJMGRCC     TO ITAB_EXT-COL_12.
Award and Authorization (Revenue & Cost)
      SELECT SINGLE * FROM PRPS
         WHERE PSPHI EQ PROJ-PSPNR
         AND STUFE EQ 1.
      SELECT * FROM BPGE
         WHERE OBJNR   = PRPS-OBJNR
           AND LEDNR   = '0001'        "Budget / Planning Ledger
           AND TRGKZ   = 'N'           "Object indicator
           AND WRTTP   = '01'          "Value Type
           AND VERSN = '020' .        "020 = Award
      IF BPGE-VERSN = '020'.         "Plan 20 = RA Authorization
          CASE BPGE-VORGA.
            WHEN 'KSTP'.               "KSTP = Cost level
              EXTRACTDATA-X_P20C = BPGE-WTGES.
              move EXTRACTDATA-X_P20C to ITAB_EXT-COL_13.
          ENDCASE.
      ENDIF.
      ENDSELECT.                     "BPGE
      APPEND ITAB_EXT.
      CLEAR ITAB_EXT.
    ENDAT.
    PERFORM GET-WBS-DATA.
ENDLOOP.
Dump Out to Excel.
Call a function for data download to an EXCEL file.
CALL FUNCTION 'Z_RH_START_EXCEL_DATA_OLE'
       EXPORTING
            DATA_NAME          = 'ZCOSTS.XLS'
            DATA_PATH_FLAG     = 'W'
            DATA_TYPE          = 'DAT'
            DATA_BIN_FILE_SIZE = 'ZCOSTS'
            CHART_TITLE        = 'ZCOSTS'
            CHART_TYPE         = 2
            CATEGORY_TITLE     = 'ZCOSTS'
            VALUE_TITLE        = 'ZCOSTS'
            DATA_XTOP_COR      = 0
            DATA_YTOP_COR      = 0
            DATA_XBOT_COR      = 0
            DATA_YBOT_COR      = 0
            CATEGORY_XTOP_COR = 0
            CATEGORY_YTOP_COR = 0
            CATEGORY_XBOT_COR = 0
            CATEGORY_YBOT_COR = 0
       TABLES
            DATA_TAB           = ITAB_EXT
       EXCEPTIONS
            NO_BATCH           = 1
            DOWNLOAD_ERROR     = 2
            INVALID_TYPE       = 3
            INTERNAL_ERROR     = 4
            NO_OLE_SUPPORT     = 5
            OLE_FILE_ERROR     = 6
            OLE_ERROR          = 7
            NO_DATA            = 8
            COORDINATE_ERROR   = 9
            OTHERS             = 10.
Function modules used for the program
*&      Form CHECK-PROJSTATUS
FORM CHECK-PROJSTATUS.
CLEAR PROJ_STATUS.
Fetch status
SELECT * FROM JEST                   "use JEST to determine Status
     WHERE OBJNR = PRPS-OBJNR
       AND INACT EQ SPACE.             "space denotes an active status
Last one found will be reported
    CASE JEST-STAT.                    "find the system status (Ixxx)
      WHEN 'I0001'.
        PROJ_STATUS = 'CRTD'.          "Created
      WHEN 'I0002'.
        PROJ_STATUS = 'REL'.           "Released
      WHEN 'I0045'.
        PROJ_STATUS = 'TECO'.          "Technically Complete
      WHEN 'I0046'.
        PROJ_STATUS = 'CLSD'.          "Closed
      WHEN 'I0076'.
        PROJ_STATUS = 'DLFL'.          "Deleted Flag Activated
    ENDCASE.
ENDSELECT.
ENDFORM.                               " CHECK-PROJSTATUS
*&      Form CONVERT-DATE
FORM CONVERT-DATE USING HOLDDATE.
MOVE HOLDDATE4(2)    TO HOLDDATE10.
MOVE '/'              TO HOLDDATE1+2.
MOVE HOLDDATE6(2)    TO HOLDDATE13.
MOVE '/'              TO HOLDDATE1+5.
MOVE HOLDDATE0(4)    TO HOLDDATE16.
ENDFORM.                               " CONVERT-DATE
*&      Form GET-WBS-DATA
FORM GET-WBS-DATA.
Fetch Operation within Order for status checking
SELECT SINGLE * FROM AFVC
     WHERE OBJNR = ITAB_OBJLIST-OBJNR.
MOVE PROJ-PSPID         TO ITAB_EXT-COL_01.
MOVE PRPS-POST1         TO ITAB_EXT-COL_02.
MOVE PRPS-POSID         TO ITAB_EXT-COL_03.
Fetch WBS elements by hierarchy
SELECT SINGLE * FROM PRPS
    WHERE OBJNR = ITAB_OBJLIST-OBJNR.
Check status of WBS element
PERFORM CHECK-PROJSTATUS.
If item has been deleted, skip
IF PROJ_STATUS = 'DLFL'.
     EXIT.
ENDIF.
Fetch Authorization
PERFORM GET-AUTHORIZATION.
Load extract record.
MOVE PRPS-STUFE         TO ITAB_EXT-COL_01.
MOVE PRPS-POSID         TO ITAB_EXT-COL_02.
MOVE PRPS-POST1         TO ITAB_EXT-COL_03.
MOVE HOLD_PLAN13_COST   TO ITAB_EXT-COL_04.
MOVE HOLD_PLAN13_SALES TO ITAB_EXT-COL_05.
MOVE HOLD_PLAN12_COST   TO ITAB_EXT-COL_06.
MOVE HOLD_PLAN12_SALES TO ITAB_EXT-COL_07.
MOVE PROJ_STATUS        TO ITAB_EXT-COL_10.
APPEND ITAB_EXT.
CLEAR ITAB_EXT.
CLEAR EXTRACTDATA-COL_04.
EXTRACTDATA-COL_04 = PRPS-PRART.
MOVE EXTRACTDATA-COL_04    TO ITAB_EXT-COL_04.
*PROFIT CENTRE
IF PROJ-PRCTR(2) = '01'.
    ETAB-X_CNTR = PROJ-PRCTR.         "Profit Center
    X1_PROJ-PRCTR = PROJ-PRCTR.
    CONCATENATE SPACE PROJ-PRCTR INTO X1_PROJ-PRCTR SEPARATED BY SPACE
    MOVE X1_PROJ-PRCTR TO ITAB_EXT-COL_05.     "Employee's Cost Center
ELSE.
    MOVE PROJ-PRCTR TO ITAB_EXT-COL_05.     "Employee's Cost Center
ENDIF.
PERFORM CONVERT-DATE USING PROJ-PLFAZ.
MOVE '00/00/0000'       TO ITAB_EXT-COL_06.
PERFORM CONVERT-DATE USING PROJ-PLSEZ.
MOVE '00/00/0000'       TO ITAB_EXT-COL_07.
Fetch order operations
SELECT SINGLE * FROM AFVC
      WHERE PROJN = ITAB_TEST-PSPNR.
Fetch Order Master Data
SELECT SINGLE * FROM AUFK
    WHERE PSPEL = AFVC-PROJN.        " WBS element(external)
Fetch Order Header Data for start and end dates
SELECT SINGLE * FROM AFKO
   WHERE AUFNR = AUFK-AUFNR.         " Network # (external)
Fetch network user fields for Jamis end date
CLEAR JAMIS_END_DATE.
SELECT SINGLE * FROM AFVU WHERE
    AUFPL = AFVC-AUFPL AND
    APLZL = AFVC-APLZL.
SELECT SINGLE * FROM AFVC
     WHERE OBJNR = ITAB_OBJLIST-OBJNR.
IF SY-SUBRC = 0.
    JAMIS_END_DATE = AFVU-USR08.
ENDIF.
CLEAR EXTRACTDATA-COL_11.
EXTRACTDATA-COL_11 = PRPS-VERNA .
MOVE EXTRACTDATA-COL_11 TO ITAB_EXT-COL_11.
manager CC
MOVE PRPS-VERNR+3(5) TO H_PROJMGR.
SELECT SINGLE * FROM CRHD
WHERE ARBPL = H_PROJMGR.      "employee number
Assignment of Work Center to Cost Center
SELECT * FROM CRCO
    WHERE OBJTY = CRHD-OBJTY
    AND OBJID = CRHD-OBJID
    AND LASET = 1
    AND LANUM = '0001'.
    IF CRCO-ENDDA > SY-DATUM.
      EXIT.
    ENDIF.
ENDSELECT.
Insert space if cost center starts with 01
IF CRCO-KOSTL(2) = '01'.
    H_PROJMGRCC = CRCO-KOSTL.
    CONCATENATE SPACE H_PROJMGRCC
      INTO H_PROJMGRCC SEPARATED BY SPACE.
ELSE.
    H_PROJMGRCC = CRCO-KOSTL.
ENDIF.
MOVE H_PROJMGRCC     TO ITAB_EXT-COL_12.
Auth 20 costs   for WBS elements
clear EXTRACTDATA-X_P20C.
SELECT * FROM BPGE
       WHERE OBJNR   = PRPS-OBJNR
         AND LEDNR   = '0001'        "Budget / Planning Ledger
         AND TRGKZ   = 'N'           "Object indicator
         AND WRTTP   = '01'          "Value Type
         AND VERSN = '020' .        "020 = Award
    IF BPGE-VERSN = '020'.         "Plan 20 = RA Authorization
      CASE BPGE-VORGA.
        WHEN 'KSTP'.               "KSTP = Cost level
          EXTRACTDATA-X_P20C = BPGE-WTGES.
      ENDCASE.
    ENDIF.
ENDSELECT.
move EXTRACTDATA-X_P20C to ITAB_EXT-COL_13.
PERFORM CONVERT-DATE USING AFKO-GSTRP.
MOVE HOLDDATE1          TO ITAB_EXT-COL_08.
IF JAMIS_END_DATE IS INITIAL.
    PERFORM CONVERT-DATE USING AFKO-GLTRP.
ELSE.
    PERFORM CONVERT-DATE USING JAMIS_END_DATE.
ENDIF.
MOVE HOLDDATE1          TO ITAB_EXT-COL_09.
perform CHECK-PROJSTATUS.
MOVE PROJ_STATUS        TO ITAB_EXT-COL_10.
SELECT SINGLE * FROM PRPS
    WHERE OBJNR = ITAB_TEST-OBJNR.
PERFORM GET-ACTUALDOLLARS.
ITD COST MOVED
IF EXTRACTDATA-X_ITDC CA '-'.
    SHIFT EXTRACTDATA-X_ITDC RIGHT CIRCULAR.
ENDIF.
move EXTRACTDATA-X_ITDC   to ITAB_EXT-COL_14.
MONTH BREAK-UP FOR CURRENT YEAR   COST MOVED
IF JAN_TOT CA '-'.
    SHIFT JAN_TOT RIGHT CIRCULAR.
ENDIF.
move JAN_TOT to ITAB_EXT-COL_15.
IF FEB_TOT CA '-'.
    SHIFT FEB_TOT RIGHT CIRCULAR.
ENDIF.
move FEB_TOT to ITAB_EXT-COL_16.
IF MAR_TOT CA '-'.
    SHIFT MAR_TOT RIGHT CIRCULAR.
ENDIF.
move MAR_TOT to ITAB_EXT-COL_17.
IF APR_TOT CA '-'.
    SHIFT APR_TOT RIGHT CIRCULAR.
ENDIF.
move APR_TOT to ITAB_EXT-COL_18.
IF MAY_TOT CA '-'.
    SHIFT MAY_TOT RIGHT CIRCULAR.
ENDIF.
move MAY_TOT to ITAB_EXT-COL_19.
IF JUN_TOT CA '-'.
    SHIFT JUN_TOT RIGHT CIRCULAR.
ENDIF.
move JUN_TOT to ITAB_EXT-COL_20.
IF JUL_TOT CA '-'.
    SHIFT JUL_TOT RIGHT CIRCULAR.
ENDIF.
move JUL_TOT to ITAB_EXT-COL_21.
IF AUG_TOT CA '-'.
    SHIFT AUG_TOT RIGHT CIRCULAR.
ENDIF.
move AUG_TOT to ITAB_EXT-COL_22.
IF SEP_TOT CA '-'.
    SHIFT SEP_TOT RIGHT CIRCULAR.
ENDIF.
move SEP_TOT to ITAB_EXT-COL_23.
IF OCT_TOT CA '-'.
    SHIFT OCT_TOT RIGHT CIRCULAR.
ENDIF.
move OCT_TOT to ITAB_EXT-COL_24.
IF NOV_TOT CA '-'.
    SHIFT NOV_TOT RIGHT CIRCULAR.
ENDIF.
move NOV_TOT to ITAB_EXT-COL_25.
IF DEC_TOT CA '-'.
    SHIFT DEC_TOT RIGHT CIRCULAR.
ENDIF.
move DEC_TOT to ITAB_EXT-COL_26.
open commits
COM_TOT = 0.
SELECT * FROM COOI
          WHERE OBJNR = PRPS-OBJNR
          AND WRTTP = '22'
          AND WTGBTR <> 0.
    COM_TOT = COM_TOT + COOI-WTGBTR .
ENDSELECT.
move COM_TOT to ITAB_EXT-COL_27.
CLEAR : EXTRACTDATA-X_ITDC,
          JAN_TOT,
          FEB_TOT,
          MAR_TOT,
          APR_TOT,
          MAY_TOT,
          JUN_TOT,
          JUL_TOT,
          AUG_TOT,
          SEP_TOT,
          OCT_TOT,
          NOV_TOT,
          DEC_TOT.
APPEND ITAB_EXT.
CLEAR ITAB_EXT.
ENDFORM.                               " GET-WBS-DATA
*&      Form GET-ACTUALDOLLARS
FORM GET-ACTUALDOLLARS.
*BREAK-POINT.
Costs - DPC and legacy load
SELECT * FROM COSP CLIENT SPECIFIED
               WHERE MANDT = SY-MANDT
                  AND OBJNR = PRPS-OBJNR
                  AND WRTTP = '04'
                  AND ( BEKNZ = 'S' OR BEKNZ = 'H' )
              AND ( KSTAR GE '0000600001' AND KSTAR LE '0000601999' ).
    IF YEAR = COSP-GJAHR.
      DO.
        IF SY-INDEX LE MONTH.
          MOVE SY-INDEX TO HLD_INDX.
          MNT_INDX = 'COSP-WKGXXX'.
          REPLACE 'XXX' WITH HLD_INDX INTO MNT_INDX.
          ASSIGN (MNT_INDX) TO <MNT>.
          EXTRACTDATA-X_ITDC = EXTRACTDATA-X_ITDC + <MNT>.
          if sy-index = 01.
            JAN_TOT = JAN_TOT + <MNT>.
          endif.
          if sy-index = 02.
            FEB_TOT = FEB_TOT + <MNT>.
          endif.
          if sy-index = 03.
            MAR_TOT = MAR_TOT + <MNT>.
          endif.
          if sy-index = 04.
            APR_TOT = APR_TOT + <MNT>.
          endif.
          if sy-index = 05.
            MAY_TOT = MAY_TOT + <MNT>.
          endif.
          if sy-index = 06.
            JUN_TOT = JUN_TOT + <MNT>.
          endif.
          if sy-index = 07.
            JUL_TOT = JUL_TOT + <MNT>.
          endif.
          if sy-index = 08.
            AUG_TOT = AUG_TOT + <MNT>.
          endif.
          if sy-index = 09.
            SEP_TOT = SEP_TOT + <MNT>.
          endif.
          if sy-index = 10.
            OCT_TOT = OCT_TOT + <MNT>.
          endif.
          if sy-index = 11.
            NOV_TOT = NOV_TOT + <MNT>.
          endif.
          if sy-index = 12.
            DEC_TOT = DEC_TOT + <MNT>.
          endif.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
    ELSEIF YEAR > COSP-GJAHR.
      EXTRACTDATA-X_ITDC = EXTRACTDATA-X_ITDC +
                    COSP-WKG001 + COSP-WKG002 +
                    COSP-WKG003 + COSP-WKG004 +
                    COSP-WKG005 + COSP-WKG006 +
                    COSP-WKG007 + COSP-WKG008 +
                    COSP-WKG009 + COSP-WKG010 +
                    COSP-WKG011 + COSP-WKG012 +
                    COSP-WKG013 + COSP-WKG014 +
                    COSP-WKG015 + COSP-WKG016.
    ELSE.
      EXIT.
    ENDIF.
ENDSELECT.
Costs - Shared DPC's
SELECT * FROM COSS CLIENT SPECIFIED
               WHERE MANDT = SY-MANDT
                  AND OBJNR = PRPS-OBJNR
                  AND WRTTP = '04' AND
                  BEKNZ = 'S'.
    IF YEAR = COSS-GJAHR.
      DO.
        IF SY-INDEX LE MONTH.
          MOVE SY-INDEX TO HLD_INDX.
          MNT_INDX = 'COSS-WKGXXX'.
          REPLACE 'XXX' WITH HLD_INDX INTO MNT_INDX.
          ASSIGN (MNT_INDX) TO <MNT>.
          EXTRACTDATA-X_ITDC = EXTRACTDATA-X_ITDC + <MNT>.
          if sy-index = 01.
            JAN_TOT = JAN_TOT + <MNT>.
          endif.
          if sy-index = 02.
            FEB_TOT = FEB_TOT + <MNT>.
          endif.
          if sy-index = 03.
            MAR_TOT = MAR_TOT + <MNT>.
          endif.
          if sy-index = 04.
            APR_TOT = APR_TOT + <MNT>.
          endif.
          if sy-index = 05.
            MAY_TOT = MAY_TOT + <MNT>.
          endif.
          if sy-index = 06.
            JUN_TOT = JUN_TOT + <MNT>.
          endif.
          if sy-index = 07.
            JUL_TOT = JUL_TOT + <MNT>.
          endif.
          if sy-index = 08.
            AUG_TOT = AUG_TOT + <MNT>.
          endif.
          if sy-index = 09.
            SEP_TOT = SEP_TOT + <MNT>.
          endif.
          if sy-index = 10.
            OCT_TOT = OCT_TOT + <MNT>.
          endif.
          if sy-index = 11.
            NOV_TOT = NOV_TOT + <MNT>.
          endif.
          if sy-index = 12.
            DEC_TOT = DEC_TOT + <MNT>.
          endif.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
    ELSEIF YEAR > COSS-GJAHR.
      EXTRACTDATA-X_ITDC = EXTRACTDATA-X_ITDC +
                    COSS-WKG001 + COSS-WKG002 +
                    COSS-WKG003 + COSS-WKG004 +
                    COSS-WKG005 + COSS-WKG006 +
                    COSS-WKG007 + COSS-WKG008 +
                    COSS-WKG009 + COSS-WKG010 +
                    COSS-WKG011 + COSS-WKG012 +
                    COSS-WKG013 + COSS-WKG014 +
                    COSS-WKG015 + COSS-WKG016.
    ELSE.
      EXIT.
    ENDIF.
ENDSELECT.
ENDFORM.

>
S. Rajesh Paul wrote:
> Hi Experts,
>
> I have a requirement to display the sales order in the line item of t-code FBO3, could anybody suggest an userexit or BADI for the same.
>
> Thanks in advance.
>
> RP.
I assume, you want to display sales order number in accounting document..... .
This is not something you can do it through the BADI..
You will have to change the G/L account field group (if it is already not there). you can then assign sales order number when posting to FI. In the field group, better choose sales order number and item number as optional fields.
If you can see the sales order field (may be empty) - you have to enter the sales order number when you post it.
Good luck

In-correct commitments for WBS elements

Hi
The Service order has got account assignement as either projects or aux accts assignment. Theis split into two accounts assignments with two WBS elements with a percentage distribution. (say 60and 40%) with the same G/L account. Now GR, IR and service entry sheet has been done for the both. I can see all the actual costs in CJI3 report. Now, the commitments have been reduced only for the first WBS element/accts assgnt. The value remains appearing in the report as open commitment for the second one although I have exhausted all the amount from PO. Can anybody explore the reasons for this behaviour.
Thanks in advance.
Basavaraj T.

Hi
Thanks for your feedback. I did run program RKANBU01. But it did not correct the commitment.
Giving you some more details:
The Total service order value: 107030.00
1st acct assignment: 0.6 (60%)
2nd acct assignment: 0.4 (40%)
Both assigned to to two different WBS elements in service order.
GR/IR/Service entry done: 57796.00 and 38530.00 This comes total of: 96326.00
Balance as per above statistics: 10704.00
But in CJI5 report, it is showing up: 42812.00
This is exactly 40% of the order value. It seems while reducing the commitments, it has taken into consideration of first account assignment only. The second one remain as it is.
Any hint is most welcome.
Regards,
Basav

Impossible to delete an item number of a PO of the previous year

Hello,
I have a question.
Closing Operations (Carryforward of Open Items) were not made yet.
We want to delete in 2011 an item number of a purchase order (created in 2010 with doc date of the year 2010).
The System informs us that It is not possible to change document in fiscal year 2011 because the document was updated as open commitment in fiscal year 2010 in Funds Management.
System : SAP ERP 6.0 /7.0 - EHP 4 - FM BCS
In our old system SAP 4.7 enterprise (FM) , It was possible to delete an item number of a purchase order of a previous year (when Closing Operations (Carryforward of Open Items) were not made yet).
Isn't it possible any more to delete in 2011 an item number of a purchase order created in 2010 before Closing Operations ?
Thanks for your answer.
Fabian

Hi,
I believe, you have PBET activated. In this case, modification of the commitment should be indeed made in the same year.
Regards,
Eli

Bubble chart in OBIEE 10g

Is there any way to increase the bubble size of bubble chart in obiee 10g? Like whether we can use javascript or HTML Code to achieve it?

Hi,
Thanks for reply.
But I cannot understand your point. My requirement is something different. In the X axis I have project_number and y axis I have measures like budget,commitment & incurred_cost. Now the vertical chart gives me the summarize view. Now for a particualr project say AA, I can see three vertical bars showing budget,commitment & incurred_cost. Now the requirement is if I click on budget bar it will popup a new window showing related details of budget which is a different report, if click on commitment bar it will open commitment report in another window and so on.
I am not able to implement this like multiple navigation from a bar chart.
Can you please help on how to do this in OBIEE 10g.
Thanks
Titas

Budget not checked in collective release of service entry sheets.

Hi,
A service purchase order created on FY2013 with real fund center and commitment item, budget was consumed but open commitment item does not carry forward to FY 2014.Now user created service entry sheet and collective release it with t.code ML85. where budget was zero for FY2014 but system does not check budget make negative entry. How it is possible ??
Regards,
Rabin.

Hi Eli,
My basic issue is no payment budget value should be exceed than commitment value, like MIGO,SES,MB01,ML85 and ML81N value should be check available budget before post document.so that budget should not be negative. This is the critical requirement of my client.
system: EA-PS, release 600,SP level 24. Budget with BCS
Please recommend, Is above note applicable?
Regards,
Rabin.

Open Commitment

Similar Messages

Maybe you are looking for