on 01-11-2011 11:37 AM
Hi SCM experts,
I want to create reporting on forecasting.Could some one suggest the best approach to extract forecast result in SPP (similar to available standard DRP matrix snapshot)?
Warm regards.
Shailendra
Hi,
Use BAPI_PIRSRVAPS_GETLIST BAPI to read Forecast values with ATP category FA,FC as per your need, from livecache for selection criteria as per your choice.
Create a program to read all the forecast values from livecache and store it in some Z table...On that Z table you can create datasource and upload this data into infoprovider/Cube.
Regards,
Saurabh
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Plz find ..
REPORT ZSPP_FCST.
DATA : CHARSEL TYPE TABLE OF BAPISCMB0002CHARSEL WITH HEADER LINE,
KEYFIGURESEL TYPE TABLE OF BAPISCMB0002KEYFIGSEMKEY WITH HEADER LINE,
KEYFIGURE TYPE TABLE OF BAPISCMB0002KEYFIGO WITH HEADER LINE,
KEYFIGUREVALUE TYPE TABLE OF BAPISCMB0002KEYFIGVALO WITH HEADER LINE,
CHARCOMB TYPE TABLE OF BAPISCMB0002CHARCOMBO WITH HEADER LINE,
RETURN TYPE TABLE OF BAPIRET2 WITH HEADER LINE.
DATA: PERIOD TYPE BAPISCMB0002PERIODSEL,
TIME TYPE T VALUE '000000',
TIME2 TYPE T VALUE '000000'.
DATA: TSTAMPS TYPE P,
TSTAMPS1 TYPE P.
DATA: BEGIN OF IT_PRODUCT OCCURS 0,
CHAR_COMB_ID TYPE I,
MATNR TYPE /BI0/OIAPO_PROD,
PLANT TYPE /BI0/OIAPO_LOCNO,
NO_VCP_NO_TPOP(1) TYPE C,
VCP_STOCKING(1) TYPE C,
END OF IT_PRODUCT.
DATA W_PRODUCT LIKE LINE OF IT_PRODUCT.
DATA: BEGIN OF IT_FINAL_KF OCCURS 0,
CHAR_COMB_ID TYPE I,
KEY_FIGURE_ID TYPE BAPISCMB0002KEYFIGUREID,
KEY_FIGURE_SEMANTICS TYPE BAPISCMB0002KEYFIGSEM,
MATNR TYPE /BI0/OIAPO_PROD,
PLANT TYPE /BI0/OIAPO_LOCNO,
NO_VCP_NO_TPOP(1) TYPE C,
VCP_STOCKING(1) TYPE C,
END OF IT_FINAL_KF.
DATA: W_FINAL_KF LIKE LINE OF IT_FINAL_KF.
DATA IT_FINAL TYPE STANDARD TABLE OF ZSPP_FCST.
DATA W_FINAL LIKE LINE OF IT_FINAL.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS : DATE FOR SY-DATUM OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
EXPORTING
I_DATLO = DATE-LOW
I_TIMLO = TIME
I_TZONE = 'UTC'
IMPORTING
E_TIMESTAMP = TSTAMPS.
CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
EXPORTING
I_DATLO = DATE-HIGH
I_TIMLO = TIME2
I_TZONE = 'UTC'
IMPORTING
E_TIMESTAMP = TSTAMPS1.
PERIOD-PERIOD_START = TSTAMPS.
PERIOD-PERIOD_END = TSTAMPS1.
CALL FUNCTION 'BAPI_TSSRVSCMB_GETKFIGVAL'
EXPORTING
TIMESERIESID = 'TSID_FCST'
PLANNING_VERSION = '000'
PERIOD_SELECTION = PERIOD
READ_OPTIONS =
TABLES
CHAR_SELECTION = CHARSEL
KEY_FIGURE_SELECTION = KEYFIGURESEL
KEY_FIGURE = KEYFIGURE
KEY_FIGURE_VALUE = KEYFIGUREVALUE
CHAR_COMBINATION = CHARCOMB
RETURN = RETURN.
LOOP AT CHARCOMB.
READ TABLE CHARCOMB WITH KEY CHAR_COMB_ID = CHARCOMB-CHAR_COMB_ID CHAR_SEMANTICS = 'NO_VCP_NO_TPOP'.
IF SY-SUBRC = 0.
MOVE CHARCOMB-CHAR_VALUE TO W_PRODUCT-NO_VCP_NO_TPOP.
ENDIF.
READ TABLE CHARCOMB WITH KEY CHAR_COMB_ID = CHARCOMB-CHAR_COMB_ID CHAR_SEMANTICS = 'PRODUCT'.
IF SY-SUBRC = 0.
MOVE CHARCOMB-CHAR_VALUE TO W_PRODUCT-MATNR.
ENDIF.
READ TABLE CHARCOMB WITH KEY CHAR_COMB_ID = CHARCOMB-CHAR_COMB_ID CHAR_SEMANTICS = 'STOCKING'.
IF SY-SUBRC = 0.
MOVE CHARCOMB-CHAR_VALUE TO W_PRODUCT-PLANT.
ENDIF.
READ TABLE CHARCOMB WITH KEY CHAR_COMB_ID = CHARCOMB-CHAR_COMB_ID CHAR_SEMANTICS = 'VCP_STOCKING'.
IF SY-SUBRC = 0.
MOVE CHARCOMB-CHAR_VALUE TO W_PRODUCT-VCP_STOCKING.
ENDIF.
MOVE CHARCOMB-CHAR_COMB_ID TO W_PRODUCT-CHAR_COMB_ID.
APPEND W_PRODUCT TO IT_PRODUCT.
DELETE CHARCOMB WHERE CHAR_COMB_ID = CHARCOMB-CHAR_COMB_ID.
CLEAR W_PRODUCT.
ENDLOOP.
LOOP AT IT_PRODUCT INTO W_PRODUCT.
LOOP AT KEYFIGURE WHERE CHAR_COMB_ID = W_PRODUCT-CHAR_COMB_ID.
W_FINAL_KF-CHAR_COMB_ID = KEYFIGURE-CHAR_COMB_ID.
W_FINAL_KF-KEY_FIGURE_ID = KEYFIGURE-KEY_FIGURE_ID.
W_FINAL_KF-KEY_FIGURE_SEMANTICS = KEYFIGURE-KEY_FIGURE_SEMANTICS.
W_FINAL_KF-MATNR = W_PRODUCT-MATNR.
W_FINAL_KF-PLANT = W_PRODUCT-PLANT.
W_FINAL_KF-NO_VCP_NO_TPOP = W_PRODUCT-NO_VCP_NO_TPOP.
W_FINAL_KF-VCP_STOCKING = W_PRODUCT-VCP_STOCKING.
APPEND W_FINAL_KF TO IT_FINAL_KF.
DELETE KEYFIGURE WHERE KEY_FIGURE_ID = W_FINAL_KF-KEY_FIGURE_ID.
CLEAR: W_FINAL_KF, KEYFIGURE.
ENDLOOP.
CLEAR: W_PRODUCT.
ENDLOOP.
LOOP AT IT_FINAL_KF INTO W_FINAL_KF.
LOOP AT KEYFIGUREVALUE WHERE KEY_FIGURE_ID = W_FINAL_KF-KEY_FIGURE_ID.
W_FINAL-MATNR = W_FINAL_KF-MATNR.
W_FINAL-PLANT = W_FINAL_KF-PLANT.
W_FINAL-NO_VCP_NO_TPOP = W_FINAL_KF-NO_VCP_NO_TPOP.
W_FINAL-VCP_STOCKING = W_FINAL_KF-VCP_STOCKING.
W_FINAL-PERIOD_START = KEYFIGUREVALUE-PERIOD_START.
W_FINAL-PERIOD_END = KEYFIGUREVALUE-PERIOD_END.
W_FINAL-KEY_FIG_SMNTICS = W_FINAL_KF-KEY_FIGURE_SEMANTICS.
W_FINAL-KEY_FIG_VALUE = KEYFIGUREVALUE-KEY_FIGURE_VALUE.
APPEND W_FINAL TO IT_FINAL.
CLEAR: W_FINAL, KEYFIGUREVALUE.
ENDLOOP.
CLEAR: W_FINAL_KF.
ENDLOOP.
IF IT_FINAL[] IS NOT INITIAL.
MODIFY ZSPP_FCST FROM TABLE IT_FINAL.
WRITE: / 'Data Successfully Uploaded in Table ZSPP_FCST'.
ENDIF.
Regards.
Shailendra
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
hI,
We could extract forecast using BAPI_TSSRVSCMB_GETKFIGVAL with timeseries ID as TSID_FCST.
Thanks all for input.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi
You can extract time series keyfigures using /SAPAPO/MSDP_DATA_READ or BAPI_PBSRVAPS_GETDETAIL2
Please let us know if it helps you.
Thanks
Amol
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
9 | |
4 | |
3 | |
2 | |
2 | |
1 | |
1 | |
1 | |
1 | |
1 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.