P6 v8 WBS titles

Does anyone know of a way to ensure that the whole of the WBS title is shown on P6 web version, other than by expanding the first column width to fit it in. Is there a button on the layout set up I have missed?
Regards
Roger

Hello Roger,
I'm not sure what you mean with "WBS title". Is that the WBS/Activity column or something else? In the first case you can simply expand the column to the required size and save the layout. Or to you look for an option like "autosize" (eg in Excel)? I don't know such a feature in P6 Web and I mention it's not implemented.
Regards
Daniel

Similar Messages

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

Table for Long Texts of MICs in Tasklist

Dear All
Can any body tell me from which SAP table i can get the LONG TEXT maintained for MICs in any tasklist.
Table PLMK only shows wether long text maintained or not, but i want the value in LONG TEXT.
thanks
Zeeshan

This may be helpful.
SAP stores comments (text fields) in a separate table. STXH is the text
"header" table (STXD SAPscript text file header). STXH-TDOBJECT =
'KNA1' will bring back all the customer comment headers. STXH-
TDNAME='0000010744' is the header record for the comment for customer
10744.
It is not always so simple to figure out what the TDOBJECT (object needed by function below - sometimes it is a table name, other times...), TDNAME (name needed by function below - sometimes it is a document number & line item or customer number, other times... ) & TDID (id needed by function below - it is always the long text id). There are several methods that can be used. You can create the long text that you are researching and using, SE16 for table STXH search TDLUSER = to your kerberos principal and TDLDATE = to today's date. This is modify date & user. Alternatively, you can find an existing item with the long text and figure out the date and user who last modified it and use this information in your search. Once you have STXH row for text of interest, use ZCAFTXT to test your research. Project Titles and WBS Titles are a bit more complex.
Changes to sales contract long text between 3.0F and 4.5B.
The following code is a function that will return a customer comment.
form get_comment using cur_kunnr.
call function 'READ_TEXT'
       exporting
            id                      = '0002'
            language                = sy-langu
            object                  = 'KNA1'
            name                    = cur_kunnr
       importing
            header                  = thead
       tables
            lines                   = tlinetab
       exceptions
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            others                  = 8.
if sy-subrc = 0.
    loop at tlinetab.
      write / tlinetab-tdline.
      add 1 to line_cnt.
    endloop.
endif.
endform.
The above subroutine is called with the following code:
if p_cmnt = 'X'.
   tdname = cur_cust-kunnr.
   perform get_comment using tdname.
endif.
These data elements are defined as:
data: begin of tlinetab occurs 100.    "table to process comments
        include structure tline.
data: end of tlinetab.
data: tdname           like thead-tdname.
Vishal Jonnalwar

WBS Field Missing in Sales Order

Hi,
I am using ECC 6. I created a Sales order with a line item. I click on the line item and go to Account Assignment Tab. But the WBS field is missing.
But in the Sales order overview screen i can see the column for WBS element which is in uneditable mode.
So i am not able to assign the WBS element to the sales order.
Please suggest.
Thanks & Regards,
Kabir

Similar to this question:
I need to configure the following scenario in SD:PS:
Example 1
Material Code = 123
Title = Training 1
Delivery Type = Classroom Learning
Language = English
Currency = USD
Price = 1000
LU = 24
Example 2
Material Code = 123
Title = Training 2
Delivery Type = On Demand
Language = French
Currency = EUR
Price = 800
LU = 16
I used variant configuration:
I did the following:
1. Created a configurable material 123 with material type KMAT
2. Created a class1 with variant class 300
3. Created characteristics title, delivery type, language and pricing
4. Assigned values to each characteristic like titleu2026training 1 & 2, delivery typeu2026Classroom & on-demand and languageu2026.. English & French
5. Pricing I attachedu2026.Table SDCOM, Field Name VKOND
6. Dependency is:
$self.LMSPRICING='CLASSROOM LEARNING ENGLISH',
$self.LMSPRICING='ON DEMAND ENGLISH',
$self.LMSPRICING='CLASSROOM LEARNING FRENCH',
$self.LMSPRICING='ON DEMAND FRENCH'.
7. Created configuration profile and CU50
8. Attached characteristics in condition type VK00
I am in a dilemma. If I activate strategy 25 (MRP 3) in my KMAT material..I get my BOM in the sales order but account assignment field WBS vanishes.
If I remove stragey 25 I get my WBS in the sales order but my BOM vanishes!
Any way out

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....

WBS Wise - G / l Account Number Informations

Hi All,
If any BAPI is available for getting G / L Acc Information in WBS wise .Plz give me that names.
Thankx advances,,,

Hi,
check this link
http://sap4.com/wiki/index.php?title=BAPI_ACC_DOCUMENT_POST
Re: G/L Acc Opening Balances.............
Complete list of Bapi
http://www.sapbapi.com/bapi-list/
Reward if uesful
jgds

New Tab in WBS Elements & need to pull fields from Std SAP Tab to the New

Hi All,
I would like to create a new TAB in WBS Element & I need to pull fields from Basic data tab,Origanization Tab,Control Tab & user Fields Tab to the New Tab.
Basically my clients wants to see all the fields (based on the requirement) in one TAB.So user will directly go to the Custom Tab & enter the input data & save.
So Kindly guide me how to proced.I tried WBS Layouts ,but am confused.
Any ABAP work is required?or can we do it in PS Configuration itself?
Thanks
Suresh

Configuration:
Project System>Structures>Operative Structures>Work Breakdown Structure (WBS)>User Interface Settings>Layout of WBS Element Detail Screens>Define Layout of WBS Element
Detail Screens
Do do something as below:
Project Profile:000CAP1
Act Cat:*
Tab Page ID: TAB01
Tab page Title:Basic Data
ICON_HEADER
Details Screen 1: 2 (WBS Element Basic Data)
Details Screen 1: 5 (WBS elements, organization)
Details Screen 1: 8 (WBS Element: User Fields)
Regards
Sreenivas

How to hide a tab in WBS?

Dear Gurus,
In my project Cproject is activated.
So, If i click WBS element, it is showing last Tab as cProjects. I want to hide the tab?
How to do it?
Regards
Suresh

however path I have provided you that was for the custmised details screen.
The contents of the detail screens delivered by SAP are defined in the system and cannot be changed. However you can develop your own detail screens and include them in Project System Customizing for later use.
You can make the following settings:
Enter your own title for tab pages and put an icon on these pages.
Hide tab pages that you do not need
Determine which detail screens appear on which tab page and where
Change the layout according to the transaction (create, change, display)
If you do not want to redefine all the tab pages, copy the SAP standard layout or the Customizing settings and change these settings to suit your needs.
For the details please refer the following link.
http://help.sap.com/erp2005_ehp_04/helpdata/EN/d1/ebb146e35f11d1a5d20000e82de7c3/frameset.htm
Regards
Nitin

Sales Order and WBS

Dear Experts,
Any way to validate the WBS element at Account Assignment( profit Segment) for each line item in an SO?
Please comment on the above question. Please tell if it is programatically or functionally possible to solve the above problem.
I want to validate that if WBS for each line item is not maintained at account assignment ( profit segment level), I want to throw a warning message saying something like 'WBS not maintained'.
Moderator edited subject title of the discussion.
Don't your question in subject line.
Please use effective & precise subject line to represent your discussion.
Message was edited by: Jyoti Prakash

Hi Suman,
Thats what !! the WBS element that we are maintaining at the line item does not get replicated in the Profit Segment with the current customizing settings that Iam having. I am an ABAPer so I dnt know much about customization. One strange thing is that even if we maintain the WBS element in Profit Centre , I am not able to get it in any of the enhancements
Really donno what to do

WBS in Engineering/Construction

Hoping that someone else may have experience in this matter - in trying to set up a WBS for our business, we're getting stuck on the level required to take the WBS to. We need to track hours per drawing, hence a drawing must be made a 'bottom' task in the WBS (but are located under different 'top' tasks), but with anywhere up to 1000 drawings in some projects, this causes the WBS to be huge and problematic, especially when drawing numbers/titles change during the project. Anyone else run Projects in an Engineering/Design company?
Cheers, DR

I am currently in a similar situation at a client, client in on 11.5.10 FPM rollup patch 3, so latest technology. There are several options we have been looking at e.g
1. You can now use a different WBS for financial plans and cost bookings (called FBS), as oppose to a WBS for planning / scheduling work. You can either share, map, or not share the WBS and FBS. Never the less you still have to book your Project, Exp Org, Task, Expenditure Type to all transactions, so you will get users to book costs in detail against these parameters.
2. Another alternative that we are looking at is the new Resource Breakdown Structures RBS, which I think are excellent. These enable you to use numerous different resource types, (orgs, exp types, roles, jobs, etc, etc.). For my client, this appears to be the answer, as their primary requirement is to report by a cost breakdown structure (RBS) which cuts across there WBS dimension.
Sound like your best option is 1, if you have the FPM
Hope this helps
Barry

Some russian titles do not show up in the artists' lists

Hi, I encountered a strange issue with some songs with a russian title with my Nano 2G. The issue appears with some songs, which I downloaded from the bands' websites, e.g. http://www.pelagea.ru. I copied the title from the website and enter it in iTunes. This works fine. Also on my iPod, the titles show up when played, in the playlists and in the list of all songs. However they are missing in the list of the artist (Music -> Artists -> <Band>).
I tried to convert the ID3 tags in iTunes, which was proposed in some Apple document, and I also deleted the title and typed it manually using the russian keyboard - without success. So I also tried to download the MP3 files again and to enter the title directly with the keyboard - no success.
Now I wonder whether this is a bug in the iPod software (version 1.1.1), since the titles are shown everywhere except in the artists' lists, or whether the MP3 files are broken, since other songs with a russian title (downloaded or imported from CD) work as supposed. Any idea how to make the songs from the webiste above working? I guess the same cure would also fix the others, with which I am having trouble.
iBook G4 Mac OS X (10.3.9) iPod Nano 4GB

Make sure it has Album, Artist and Title fields filled in.

CD song titles do not show up on a different Mac

Why...? After laboriously typing title info into my Playlist of original, non-commercial, not posted-on-the-net tunes...does this info always show up on a different computer as 'Track 01, Track 02, etc.' on the CD I burned from this Playlist?! This wreaks havoc on demo disc process. I want to send to these out to people, and it takes an unnecessary amount of time to re-type in the info. Does anyone know of a fix for this iTunes problem? Or a better software program?

Does anyone know of an audio CD burner that will consistently label the original information?
Audio CDs do NOT have info except for CD-TEXT, no matter which program you use.
The Redbook audio CD standard does not allow for anything except CD-TEXT.
iTunes will write CD-TEXT but it will not read CD-TEXT.
You can burn data CDs and all the info will be retained and can be played in iTunes.

Report for Req Material and Issue Material for Project/WBS

Dear All,
My client need a report for a WBS element-wise material required and material issue with value.
Let me know if any standard report avialble for same??
Or Incase of devlopment which are the tables we can use to Get req qty and issue qty of materials?
Thanks and Regards,
Atul R. Rajmane

Dear Shirkant,
Thanks for your input. I am using CN52N report.
I this I have selected Req Qty, Qty Received, Qty Withdrawn, Shortfall Qty. I am getting figures in Req Qty, Qty Withdrawn, Shortfall Qty but I am not able to get Qty Received figure. Let me know how I can get it i.e. for this any Note is required or any other configuration??
If I can get this figure than I can use this report for requirement.
Thanks and Regards,
Atul R. Rajmane

Sale order - Wbs element Report

Hi
Is there any report for sale order wise wbs element report.
In my sale order i will give wbs element and now i want to check "for one sale order , what are the wbs elements"

You can check the WBS for a sales order from the table view of VBAP.
The WBS field is PS_PSP_PNR.
Goto SE16 and give VBAP.
Enter your sales order number and execute. Look for your WBS elements in foeld PS_PSP_PNR for the different line items.
You can also create a quick SAP query on this.

How do I change the way the title/author appear and is there any way to remove pages on EPUBs?

Hi all--
I am having a really hard time--I am trying to transfer EPUBs from my Win 7 comp to my Nook Tablet. I bought a lot of books from several non-BN sites because they were lots cheaper and were also sold in bundles--but the site was messed up and sent the books in PDF form rather than EPUB. PDF files won't read like a regular book on my Nook Tablet, so my friend offered to convert them to EPUB for me.
Most of the books turned out fine, but some of them now have a few extra pages at the beginning before the cover image and the correct title and author are not displaying--it seems to instead show the filepath where the file was saved on m friend's computer (C:\My Computer/Documents and Settings...etc.)
So, what I would like to do is be able to edit the EPUB files so I can delete the extra pages at the beginning so the correct cover image will be displayed and to be able to change the file's data sp it will show (and be searchable by) the correct title and author.
I am new to all this, so I appreciate any help you can offer. Thank you SO much for your help!!
--Jamie
P.S. Having the title and author show up correctly so they are searchable and appear in the correct place on my Nook Tablet is the top priority--correct cover pages would be nice aesthitically, but it is not that important.
****ALSO--does anyone know of an app or anything for the Nook Tablet that would allow PDF files to be read just like an EPUB/B&N=purchased book? Currently when I open a PDF, it shows the page in TINY print--you can use pinching to zoom in, but then the file enlarges so it is bigger than the screen, making it very hard to read. I can't figure out any way to enlarge the text but still fits the page like an EPUB does, so I'm wondering if there's an app that would do that--it's hard because you can't try apps before you buy them and I can't teel if they will work from the descriptions.

For sideloaded content the nook pulls the metadata from ePub file itself. I would suggest looking at a program like Sigil or Calibre that will let you edit the metadata in the book to make it appear like you want.
For the PDF vs ePub - No, that's the way PDFs work (think of them as graphics, not text), wheres ePubs are Web Pages - so no you can't them to behave exactly alike without converting the files.

P6 v8 WBS titles

Similar Messages

Maybe you are looking for