Budget IO - Function Module

Dear All,
Is there any Standard SAP Function Module using RFC call to check IO budgets and give the error message once the Budget is exceeded. I got the table names and filed names and KO22 details.
Just I am looking is there any Particular Function Module will help on this.
Thanks in Advance
Aravind

Hi,
I believe, you can use KBPR_READ_CO_DATA function.
Regards,
Eli

Similar Messages

Function modules to get wbs level budgets and activity level cost

hai gurus can any one tell me the function modules or any other bapis to get the wbs level budgets and activity level costs
thanx in advance
afzal

ok

Function module (FM) to read budget to be used in n-step approval badi

We have SRM 5.0 with ECC 6.0 (extended classic). For capital expenses we are going to have budget check in SRM based of account assignment internal orders in R/3. In shopping cart line item approval workflow, it is required to read the budget available for that internal order and compare with shopping cart value...what is the function module to read budget assigned to that internal order, that will used in n-step approval badi at every step??
Thanks,
Kim r.

Hi
<b>Please try the related SRM function modules, which will definitely help -></b>
B470_BUDGET_READ
BBP_PD_USER_BUDGET_AMOUNTSPENT
BBP_PD_USER_BUDGET_CHECK
BBP_PD_USER_BUDGET_DEFINED_GET
BBP_PD_USER_BUDGET_SAVE
BBP_PD_USER_BUDGET_SCVALUE_GET
BBP_REQREQ_CHECK_BUDGET
META_BUDGET_READ
META_BUDGET_READ Function module in turn calls RFC-enabled 'BBP_BUDGET_READ' Function module in the R/3 or the ECC System.
Hope this will definitely help.
Do let me know.
Regards
- Atul

Function Modules for Actual, Plan, Budget Cost over internal orders

Dear All,
I need a function module for getting the Actual, Plan, Budget Costs for the internal orders assigned.
I want to fetch the cost related to internal order which is assigned to project C projects in PLM.

hai tehre are no such funcion moduels
u have to select from bpge and bpja tables
and sum up them
afzal

Function module to calculate available budget

Hi everyone
Is anybody aware if there is any function module which calculates the available budget from the report alr_87013558?
thanks and kind regards

thanks Paolo
yea, i tried to debug that report but in vain
is there any other way?
I could get the value assigned, the budget value but not the actual
So was wondering if anybody can help me
thanks for your help

Function Module to obtain Initial Budget and Available Budget of WBS

Hi,
I need to calculate the value for Initial and Available budget for WBS which comes in the report S_ALR_87013558 or S_ALR_87013648.
Is there any FM to calculate for the particular WBS.
Thanks

Hi,
Try using KBPR_READ_DATA function module.
Regards,
Eli

Function module for Budget check?

Hi,
I'm wondering if there is a BAPI/function module to check if budget is available on the WBS for a PO item whose price/quantity is changed through a custom transaction.
I've tried BAPI_ACC_PURCHASE_ORDER_CHECK, but it doesnt seem to work.
Thanks,
Sudha

Hi Aveek,
Method check of BUS6008 is BAPI_ACC_PURCHASE_ORDER_CHECK, the one I mention above. It seems to check all components of the PO, except for the WBS.
Thanks for your help.
Sudha

Function Module to post budgeting entry

Hi All,
Is anybody aware of a function module which can help me to post a budgeting entry ? I would appreciate if anyone can give me an idea to post a preposted budgeting entry created via transaction "FMBB". The process has to be a background one since I will be integrating this in the background processing of the workflow. Till now I have been exploring the method "PREPOSTED_POST" of the class "CL_FMKU_ENTRYDOC_HANDLER" but it has lots of dependencies and I am not being able to use this method. The transaction "FMBB" does not support BDC as well as it includes a splitter control from where we have to select the document and none of the fields have a parameter ID associated.
Best Regards,
Sudhi

Try
FMAVC_READ_INDEX_ACO_DOWN
FMBCFF_ENTRY_DOC_POST
FMBCFF_POST_REVERSAL_DOC
FMBCFF_REVERSAL_DOC_POST
FMCCF_BUDGET_POST
FMBD_POST
FMCU_GET_BULEDGERS
KBPV_POST_DATA
Thanks

Budget consumption figures BAPI or Function Module

Hi FM experts,
I'm looking for a BAPI or a Function Module that will return the available and consumed budget if I provide it with a fund center and a commitment item.
Any one knows of such a BAPI?
Thanks.
Ed.

Hi,
You can use this FM: FMAVC_CALC_ANNUAL_CONTRIB_BO
Regards,
Eli

WBS budget function module

Hi all. Is there a function module that can be used to retrieve the budget for a given WBS element? Thanks in advance and I'll be sure to award points for a helpful answer!

Sorry to bump this, but does anyone know the answer, or do I need to supply more information?

Function module to pricing procedure calculation

hi,
I want to know whether any function modules available to get as I see in Invoice ->
select item level conditions.
Where i can see the basic price ,discount, etc as defined in the corresponding pricing procedure.
i have tried with
RV_INVOICE_PRICE_PBO
PRICING_SUBSCREEN_SET_DATA
here i get only the records which have condition type,
similarly for P.O. we have
ME_SWP_SIC_GET_PRICING_INFO
regards,
Prabhu
Points assured.

REPORT zmm_pvr.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                 TYPE-POOLS                                          *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TYPE-POOLS slis.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                   TABLES                                            *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TABLES: mara,                         " General Material Data
        marc,                         " Plant Data for Material
        ekko,                         " Purchasing Document Header
        ekpo,                         " Purchasing Document Item
        lfa1,                         " Vendor Master (General Section)
        konv,                         " Conditions (Transaction Data)
        mbew,                         " Material Valuation
        makt.                         " Material Descriptions
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                DATA DECLARATION                                     *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DATA: BEGIN OF i_mat OCCURS 1,
        matnr LIKE mara-matnr,
        mtart LIKE mara-mtart,
        werks LIKE marc-werks,
        abcin LIKE marc-abcin,
      END OF i_mat.
DATA: BEGIN OF itab OCCURS 1,
        ebeln LIKE ekko-ebeln,
        bedat LIKE ekko-bedat,
        lifnr LIKE ekko-lifnr,
        waers LIKE ekko-waers,
        bukrs LIKE ekko-bukrs,
        ekorg LIKE ekko-ekorg,
        name1 LIKE lfa1-name1,
        werks LIKE ekpo-werks,
        menge LIKE ekpo-menge,
        meins LIKE ekpo-meins,
        netpr LIKE ekpo-netpr,
        netwr LIKE ekpo-netwr,
        menge1(16),
        netpr1(16),
        menge2 TYPE string,
        netpr2 TYPE string,
        lrate TYPE p DECIMALS 2,
        stax LIKE ekpo-netwr,
        exbed LIKE ekpo-netwr,
        dcost LIKE konv-kwert,
        nomvl LIKE ekpo-netwr,
        nomrt LIKE ekpo-netwr,
        zplp1 LIKE mbew-zplp1,
        verpr LIKE mbew-verpr,
        bgval LIKE ekpo-netwr,
        varnc LIKE ekpo-netwr,
        maktx LIKE makt-maktx,
        knumv LIKE ekko-knumv,
        ebelp LIKE ekpo-ebelp,
        matnr LIKE ekpo-matnr,
        matkl LIKE ekpo-matkl,
        mtart LIKE ekpo-mtart,
        bprme LIKE ekpo-bprme,
        txz01 LIKE ekpo-txz01,
        mwskz LIKE ekpo-mwskz,
        prdat LIKE ekpo-prdat,
      END OF itab.
DATA: wtab LIKE itab.
DATA: v_steuc TYPE marc-steuc.
DATA: v_brsch TYPE lfa1-brsch.
DATA: wa_komk TYPE komk.
DATA: wa_komp TYPE komp.
DATA: it_komv TYPE TABLE OF komv.
DATA: wa_komv TYPE komv.
DATA : wa_fieldcat TYPE slis_fieldcat_alv,
       gt_fieldcat TYPE slis_t_fieldcat_alv,
       wa_layout   TYPE slis_layout_alv,
       lt_sort     TYPE slis_t_sortinfo_alv,
       i LIKE sy-tabix.
DATA: gt_events     TYPE slis_t_event.
DATA: gd_prntparams TYPE slis_print_alv.
DATA: it_color TYPE   slis_t_specialcol_alv.
DATA: wa_color TYPE   slis_specialcol_alv.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                      Begin Of Selection Screen                      *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SELECTION-SCREEN BEGIN OF BLOCK pas WITH FRAME TITLE text-001.
SELECT-OPTIONS s_matnr FOR ekpo-matnr.
SELECT-OPTIONS s_werks FOR ekpo-werks.
SELECT-OPTIONS s_bedat FOR ekko-bedat.
PARAMETERS     p_abcin LIKE marc-abcin OBLIGATORY.
SELECTION-SCREEN END OF BLOCK pas.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                       INITIALIZATION                                *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
INITIALIZATION.
IF sy-datum+4(2) GE 4.
    s_bedat-low+6(2) = 01.
    s_bedat-low+4(2) = 04.
    s_bedat-low(4) = sy-datum(4).
ENDIF.
IF sy-datum+4(2) LT 4.
    s_bedat-low+6(2) = 01.
    s_bedat-low+4(2) = 04.
    s_bedat-low(4) = sy-datum(4) - 1.
ENDIF.
s_bedat-high   = sy-datum.
APPEND s_bedat.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                    AT Selection Screen Output                       *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
AT SELECTION-SCREEN.
Check for Material Type
SELECT amatnr amtart bwerks babcin INTO CORRESPONDING FIELDS OF TABLE i_mat
FROM mara AS a INNER JOIN marc AS b
       ON amatnr = bmatnr
WHERE a~matnr IN s_matnr
    AND ( amtart = 'IRAM' OR amtart = 'IPAM' OR amtart = 'PRAM' OR amtart = 'PPAM' )
    AND b~werks IN s_werks
    AND b~abcin = p_abcin.
SORT i_mat BY matnr werks.
CHECK NOT i_mat[] IS INITIAL.
READ TABLE i_mat INDEX 1.
IF sy-subrc <> 0.
    MESSAGE e006(zmm).
    LEAVE LIST-PROCESSING.
ENDIF.
Check for Date
IF ( s_bedat-low IS INITIAL AND s_bedat-high IS INITIAL ).
    s_bedat-sign   = 'I'.
    s_bedat-option = 'BT'.
    IF sy-datum+4(2) GE 4.
      s_bedat-low+6(2) = 01.
      s_bedat-low+4(2) = 04.
      s_bedat-low(4) = sy-datum(4).
    ENDIF.
    IF sy-datum+4(2) LT 4.
      s_bedat-low+6(2) = 01.
      s_bedat-low+4(2) = 04.
      s_bedat-low(4) = sy-datum(4) - 1.
    ENDIF.
    s_bedat-high   = sy-datum.
ELSEIF ( s_bedat-low IS NOT INITIAL AND s_bedat-high IS INITIAL ).
    s_bedat-low6(2) = s_bedat-low6(2).
    s_bedat-low4(2) = s_bedat-low4(2).
    s_bedat-low(4)   = s_bedat-low(4).
ELSEIF ( s_bedat-low IS NOT INITIAL AND s_bedat-high IS NOT INITIAL ).
    s_bedat-sign   = 'I'.
    s_bedat-option = 'BT'.
    s_bedat-low6(2) = s_bedat-low6(2).
    s_bedat-low4(2) = s_bedat-low4(2).
    s_bedat-low(4)   = s_bedat-low(4).
    s_bedat-high6(2) = s_bedat-high6(2).
    s_bedat-high4(2) = s_bedat-high4(2).
    s_bedat-high(4)   = s_bedat-high(4).
ENDIF.
APPEND s_bedat.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                        START OF SELECTION                           *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
START-OF-SELECTION.
*----- Get all PO for given selection criteria.
LOOP AT i_mat.
SELECT
    aebeln abedat alifnr aknumv awaers abukrs a~ekorg
    bebelp bmatnr bmatkl bnetpr bbprme btxz01 bwerks bmenge bmeins bnetwr bmtart bmwskz b~prdat
FROM ( ekko AS a INNER JOIN ekpo AS b ON amandt = bmandt AND aebeln = bebeln )
INTO CORRESPONDING FIELDS OF TABLE itab
FOR ALL ENTRIES IN i_mat
WHERE a~bedat IN s_bedat
   AND a~loekz = ''
   AND b~matnr = i_mat-matnr
   AND b~werks = i_mat-werks
   AND b~loekz = ''
   AND b~pstyp = '0'
   AND b~bstyp = 'F'
   AND b~knttp = ''.
ENDLOOP.            " END OF i_mat
CHECK NOT itab[] IS INITIAL.
SORT itab BY ebeln ebelp.
*----- Calculating The DCOST -- Delivery Cost
DATA: BEGIN OF i_konv OCCURS 0,
         knumv LIKE konv-knumv,
         kposn LIKE konv-kposn,
         stunr LIKE konv-stunr,
         zaehk LIKE konv-zaehk,
         kschl LIKE konv-kschl,
         kbetr LIKE konv-kbetr,
         kwert LIKE konv-kwert,
       END OF i_konv.
SELECT knumv kposn stunr zaehk kschl kbetr kwert
FROM konv
INTO CORRESPONDING FIELDS OF TABLE i_konv
FOR ALL ENTRIES IN itab
WHERE knumv = itab-knumv
   AND kposn = itab-ebelp
    AND ( kschl   = 'ZFC3' OR kschl   = 'ZQIQ'
       OR kschl   = 'ZQIV' OR kschl   = 'ZFA3'
       OR kschl   = 'ZFB3' OR kschl   = 'ZPF2'
       OR kschl   = 'ZPQ2' OR kschl   = 'ZPV2'
       OR kschl   = 'ZOCP' OR kschl   = 'ZOCQ'
       OR kschl   = 'ZOCV' OR kschl   = 'ZMT1'
       OR kschl   = 'ZIN2' OR kschl   = 'ZIQ2'
       OR kschl   = 'ZIV2' OR kschl   = 'ZBK1'
       OR kschl   = 'ZBKQ' OR kschl   = 'ZBKV' ).
SORT i_konv BY knumv kposn stunr zaehk kschl .
DELETE ADJACENT DUPLICATES FROM i_konv.
DELETE i_konv WHERE kbetr = 0.
DATA: BEGIN OF i_knumv OCCURS 0,
          knumv LIKE konv-knumv,
          kwert LIKE konv-kwert,
        END OF i_knumv.
LOOP AT i_konv.
    MOVE i_konv-knumv TO i_knumv-knumv.
    MOVE i_konv-kwert TO i_knumv-kwert.
    COLLECT i_knumv.
ENDLOOP.
CLEAR i_konv.
CLEAR i_knumv.
LOOP AT itab INTO wtab.
    READ TABLE i_knumv WITH KEY knumv = wtab-knumv.
    IF sy-subrc = 0.
      wtab-dcost = i_knumv-kwert.
      MODIFY itab FROM wtab.
    ENDIF.
ENDLOOP.
CLEAR i_knumv.
CLEAR itab.
*----- Get the vendor name.
LOOP AT itab.
    SELECT SINGLE name1 FROM lfa1 INTO itab-name1
                                    WHERE lifnr = itab-lifnr.
    MODIFY itab INDEX sy-tabix TRANSPORTING name1.
ENDLOOP.
*----- Calculate Excise Duty, Educat. cess, Sec edu. cess, sales tax
CLEAR: wa_komk, wa_komp.
Selecting The Value Of STEUC (Controlling Code)
CLEAR itab.
LOOP AT itab.
    SELECT SINGLE steuc
      FROM marc
      INTO v_steuc
     WHERE matnr = itab-matnr
       AND werks = itab-werks.
Selecting The Value Of BRSCH (Industry key)
    SELECT SINGLE brsch
      FROM lfa1
      INTO v_brsch
     WHERE lifnr = itab-lifnr.
Filling KOMK (Header Structure)
    wa_komk-kappl     = 'TX'.
    wa_komk-kalsm     = 'TAXINN'.
    wa_komk-lifnr     = itab-lifnr.
    wa_komk-waerk     = itab-waers.
    wa_komk-aland     = 'IN'.
    wa_komk-hwaer     = 'INR'.
    wa_komk-bukrs     = itab-bukrs.
    wa_komk-brsch     = v_brsch.
    wa_komk-prsdt     = itab-bedat.
    wa_komk-ekorg     = itab-ekorg.
    wa_komk-mwskz     = itab-mwskz.
Filling KOMP (Details Structure)
    wa_komp-kposn     = itab-ebelp.
    wa_komp-matnr     = itab-matnr.
    wa_komp-werks     = itab-werks.
    wa_komp-matkl     = itab-matkl.
    wa_komp-meins     = itab-meins.
    wa_komp-vrkme     = itab-bprme.
    wa_komp-netwr     = itab-netwr.
    wa_komp-wrbtr     = itab-netwr.
    wa_komp-mwskz     = itab-mwskz.
    wa_komp-netpr     = itab-netpr.
    wa_komp-mtart     = itab-mtart.
    wa_komp-kursk_dat = itab-prdat.
    wa_komp-steuc     = v_steuc.
    wa_komp-mgame     = itab-menge.
    wa_komp-mglme     = itab-menge.
    FREE it_komv.
Calling The Pricing Function To Get GR EXCISE, GR ECES, GR VAT/CST
    CALL FUNCTION 'PRICING'
      EXPORTING
        calculation_type = 'B'
        comm_head_i      = wa_komk
        comm_item_i      = wa_komp
      TABLES
        tkomv            = it_komv.
Calculating The Excise --excise duty
    DATA: l_kbetr        TYPE komv-kbetr.
    DATA: l_gr_excise    TYPE ekpo-brtwr.
    DATA: l_basic_gr_val TYPE ekpo-netpr.
    l_basic_gr_val = itab-netwr.
    CLEAR: l_kbetr, l_gr_excise.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'JMOP'
                                    OR kschl = 'JAOP'
                                    OR kschl = 'JMIP'
                                    OR kschl = 'JAOQ'.
      l_kbetr     = ( wa_komv-kbetr / 10 ).
      l_gr_excise = ( l_kbetr * l_basic_gr_val ) / 100.
    ENDLOOP.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'JAIP'
                                    OR kschl = 'JAIQ'
                                    OR kschl = 'JMIQ'
                                    OR kschl = 'JMOQ'.
      l_gr_excise = ( wa_komv-kbetr * l_basic_gr_val ).
    ENDLOOP.
Calculating The ECES -- Educational Cess
    DATA l_gr_eces      TYPE ekpo-netpr.
    CLEAR: l_kbetr, l_gr_eces.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'ZECE'
                                    OR kschl = 'ZECN'.
      l_kbetr     = ( wa_komv-kbetr / 10 ).
      l_gr_eces   = ( l_kbetr * l_gr_excise ) / 100.
    ENDLOOP.
Calculating The SECES -- Sec. Educational Cess
    DATA l_gr_secs      TYPE ekpo-netpr.
    CLEAR: l_kbetr, l_gr_secs.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'JSEP'
                                    OR kschl = 'JSEI'.
      l_kbetr     = ( wa_komv-kbetr / 10 ).
      l_gr_secs   = ( l_kbetr * l_gr_excise ) / 100.
    ENDLOOP.
Calculating The VAT/CST --Sales Tax
    DATA l_gr_vatcst    TYPE ekpo-netpr.
    CLEAR: l_kbetr, l_gr_vatcst.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'JVRN'
                                    OR kschl = 'JVRD'
                                    OR kschl = 'JVCS'
                                    OR kschl = 'JVCD'
                                    OR kschl = 'JVCN'
                                    OR kschl = 'JIPS'
                                    OR kschl = 'JIPC'
                                    OR kschl = 'JIPL'.
      l_kbetr     = ( wa_komv-kbetr / 10 ).
      l_gr_vatcst = ( ( l_basic_gr_val + l_gr_excise + l_gr_eces + l_gr_secs ) * l_kbetr ) / 100.
    ENDLOOP.
Calculating The NOMVL & NOMVR -- NOM Value (Setoff / Inventory ) & NOM Rate
    DATA: l_netpr TYPE ekpo-netpr,
          l_menge TYPE ekpo-menge,
          l_dcost TYPE ekpo-netwr,
          l_nomvl TYPE ekpo-netwr,
          l_nomrt TYPE ekpo-netwr.
    l_netpr = itab-netpr.
    l_menge = itab-menge.
    l_dcost = itab-dcost.
    CLEAR: l_nomvl, l_nomrt.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'JMOP'                        "------setoff
                                    OR kschl = 'ZECE'
                                    OR kschl = 'JSEP'.
      l_nomvl = ( l_netpr * l_menge ) + l_gr_vatcst + l_dcost - ( l_gr_excise + l_gr_eces + l_gr_secs ).
      l_nomrt = l_nomvl / l_menge.
    ENDLOOP.
    LOOP AT it_komv INTO wa_komv WHERE kschl = 'JMIP'                        "-------inventory
                                    OR kschl = 'ZECN'
                                    OR kschl = 'JSEI'.
      l_nomvl = ( l_netpr * l_menge ) + l_gr_vatcst + l_dcost.
      l_nomrt = l_nomvl / l_menge.
    ENDLOOP.
    itab-exbed = l_gr_excise + l_gr_eces + l_gr_secs.
    itab-stax = l_gr_vatcst.
    itab-nomvl = l_nomvl.
    itab-nomrt = l_nomrt.
    MODIFY itab .
    CLEAR itab.
ENDLOOP.           " end of itab
LOOP AT itab WHERE exbed = 0.
    itab-nomvl = ( itab-netpr * itab-menge ) + itab-stax + itab-dcost.
    itab-nomrt = itab-nomvl / itab-menge.
    MODIFY itab INDEX sy-tabix TRANSPORTING nomvl nomrt.
ENDLOOP.
*----- Calculating The Budget Rate, Moving Average Price, Landed Rate & Material Description
DATA: verp(15).
DATA: matdes(40).
LOOP AT itab.
    SELECT SINGLE zplp1 FROM mbew INTO itab-zplp1
                                    WHERE matnr = itab-matnr AND bwkey = itab-werks.
    SELECT SINGLE verpr FROM mbew INTO itab-verpr
                                    WHERE matnr = itab-matnr AND bwkey = itab-werks.
    itab-lrate = itab-netwr / itab-menge.
    SELECT SINGLE maktx FROM makt INTO itab-maktx
                                    WHERE matnr = itab-matnr AND spras = 'EN'.
    MODIFY itab INDEX sy-tabix TRANSPORTING zplp1 verpr lrate maktx.
    verp = itab-verpr.
    matdes = itab-maktx.
ENDLOOP.
*----- Calculating The Budget Value & Variance
LOOP AT itab.
    itab-bgval = itab-zplp1 * itab-menge.
    itab-varnc = itab-bgval - itab-nomvl.
    MODIFY itab INDEX sy-tabix TRANSPORTING bgval varnc.
ENDLOOP.
*------ Calculating Total of Quantity
DATA: BEGIN OF i_quan OCCURS 1,
           quant LIKE ekpo-menge,
           unit LIKE ekpo-meins,
           nomvl LIKE ekpo-netwr,
           curr LIKE ekko-waers,
           varnc LIKE ekpo-netwr,
           bgval LIKE ekpo-netwr,
         END OF i_quan.
LOOP AT itab.
    MOVE itab-menge TO i_quan-quant.
    MOVE itab-meins TO i_quan-unit.
    MOVE itab-nomvl TO i_quan-nomvl.
    MOVE itab-waers TO i_quan-curr.
    MOVE itab-varnc TO i_quan-varnc.
    MOVE itab-bgval TO i_quan-bgval.
    COLLECT i_quan.
ENDLOOP.
CLEAR itab.
CLEAR i_quan.
DATA: qty(15).
DATA: unt(3).
DATA: wtd TYPE p DECIMALS 2.
DATA: wtd2(15).
DATA: cur(3).
DATA: var(15).
DATA: nomvl(15).
DATA: bgval(15).
DATA: bgv TYPE p DECIMALS 2.
DATA: bgv2(15).
LOOP AT i_quan.
    qty = i_quan-quant.
    unt = i_quan-unit.
    cur = i_quan-curr.
    var = i_quan-varnc.
    bgval = i_quan-bgval.
    nomvl = i_quan-nomvl.
    wtd = nomvl / qty.
    bgv = bgval / qty.
ENDLOOP.
CLEAR i_quan.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                      DATA DISPLAY                                   *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
wa_fieldcat-fieldname = 'EBELN'.
wa_fieldcat-seltext_l = 'Purchase Order'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 1.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'BEDAT'.
wa_fieldcat-seltext_l = 'PO Date'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 2.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-seltext_l = 'Vendor Name'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 3.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'WERKS'.
wa_fieldcat-seltext_l = 'Plant'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 4.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'MENGE2'.
wa_fieldcat-fieldname = 'MENGE'.
wa_fieldcat-seltext_l = 'Quantity'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 5.
wa_fieldcat-do_sum     = 'X'.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'NETPR2'.
wa_fieldcat-fieldname = 'NETPR'.
wa_fieldcat-seltext_l = 'Basic Rate'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 6.
wa_fieldcat-do_sum     = ' '.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'EXBED'.
wa_fieldcat-seltext_l = 'Excise'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 7.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'STAX'.
wa_fieldcat-seltext_l = 'Sale Tax'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 7.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'DCOST'.
wa_fieldcat-seltext_l = 'Delivery Cost'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 8.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'NETWR'.
wa_fieldcat-seltext_l = 'Landed Value'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 9.
wa_fieldcat-do_sum     = 'X'.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'LRATE'.
wa_fieldcat-seltext_l = 'Landed Rate'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 10.
wa_fieldcat-do_sum     = ' '.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'NOMVL'.
wa_fieldcat-seltext_l = 'NOM Value'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 12.
wa_fieldcat-do_sum     = 'X'.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'NOMRT'.
wa_fieldcat-seltext_l = 'NOM Rate'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 13.
wa_fieldcat-do_sum     = ' '.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'BGVAL'.
wa_fieldcat-seltext_l = 'Budget Value'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 11.
wa_fieldcat-do_sum     = 'X'.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'ZPLP1'.
wa_fieldcat-seltext_l = 'Budget Rate'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 12.
wa_fieldcat-do_sum     = ' '.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-fieldname = 'VARNC'.
wa_fieldcat-seltext_l = 'Variance'.
wa_fieldcat-tabname    = 'ITAB'.
wa_fieldcat-row_pos    = 1.
wa_fieldcat-col_pos    = 13.
wa_fieldcat-do_sum     = 'X'.
APPEND wa_fieldcat TO gt_fieldcat.
wa_layout-colwidth_optimize = 'X'.
wa_layout-zebra = ' '.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = gt_events[].
READ TABLE gt_events WITH KEY name = slis_ev_end_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE 'END_OF_PAGE' TO ls_event-form.
    APPEND ls_event TO gt_events.
ENDIF.
READ TABLE gt_events WITH KEY name = slis_ev_end_of_list
                         INTO ls_event.
IF sy-subrc = 0.
    MOVE 'END_OF_LIST' TO ls_event-form.
    APPEND ls_event TO gt_events.
ENDIF.
gd_prntparams-reserve_lines = '7'.   "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
            i_callback_program        = sy-repid
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
       i_callback_top_of_page            = 'TOP-OF-PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
i_callback_html_end_of_list           = 'END_OF_LIST_HTML'
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
            is_layout                 = wa_layout
            it_fieldcat               = gt_fieldcat
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
         i_default                    = 'X'
         i_save                       = 'X'
IS_VARIANT                        =
   it_events                         = gt_events
IT_EVENT_EXIT                     =
is_print                          = gd_prntparams
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = itab
   EXCEPTIONS
     program_error                     = 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.
*&      Form top-of-page
      text
--> p1        text
<-- p2        text
FORM top-of-page .
ALV Header Declarations
DATA: t_header TYPE slis_t_listheader,
        wa_header TYPE slis_listheader,
       wa_header1 TYPE slis_listheader,
       wa_header2 TYPE slis_listheader,
       wa_header3 TYPE slis_listheader,
        wa_header4 TYPE slis_listheader.
Title
wa_header-typ = 'H'.
wa_header-info = 'Purchase Variance Report'.
APPEND wa_header TO t_header.
CLEAR wa_header.
Material
SHIFT p_matnr LEFT DELETING LEADING '0'.
wa_header1-typ = 'S'.
wa_header1-info = ' '.
CONCATENATE 'Material : ' p_matnr matdes INTO wa_header1-info SEPARATED BY space.
APPEND wa_header1 TO t_header.
CLEAR wa_header1.
Plant
IF ( s_werks-low IS NOT INITIAL AND s_werks-high IS NOT INITIAL ).
   wa_header2-typ = 'S'.
   wa_header2-info = ' '.
   CONCATENATE 'Plant : ' s_werks-low 'to' s_werks-high INTO wa_header2-info SEPARATED BY space.
   APPEND wa_header2 TO t_header.
   CLEAR wa_header2.
ELSEIF ( s_werks-low IS NOT INITIAL AND s_werks-high IS INITIAL ).
   wa_header2-typ = 'S'.
   wa_header2-info = ' '.
   CONCATENATE 'Plant : ' s_werks-low INTO wa_header2-info SEPARATED BY space.
   APPEND wa_header2 TO t_header.
   CLEAR wa_header2.
ELSEIF ( s_werks-low IS INITIAL AND s_werks-high IS INITIAL ).
   EXIT.
ENDIF.
Period
IF ( s_bedat-low IS NOT INITIAL AND s_bedat-high IS INITIAL ).
    wa_header4-typ = 'S'.
    wa_header4-info = ' '.
    CONCATENATE 'Period : '
                s_bedat-low+6(2) '.'
                s_bedat-low+4(2) '.'
                s_bedat-low(4) INTO wa_header4-info SEPARATED BY space.
    APPEND wa_header4 TO t_header.
    CLEAR wa_header4.
ELSE.
IF ( s_bedat-low IS INITIAL AND s_bedat-high IS INITIAL ).
    wa_header4-typ = 'S'.
    wa_header4-info = ' '.
    CONCATENATE 'Period : '
                s_bedat-low+6(2) '.'
                s_bedat-low+4(2) '.'
                s_bedat-low(4)
                'to'
                s_bedat-high+6(2) '.'
                s_bedat-high+4(2) '.'
                s_bedat-high(4) INTO wa_header4-info SEPARATED BY space.
    APPEND wa_header4 TO t_header.
    CLEAR wa_header4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = t_header.
I_LOGO                   =
I_END_OF_LIST_GRID       =
I_ALV_FORM               =
ENDFORM.                    " top-of-page
*&      Form end_of_list_html
      output at the end of the list - not in printed output       *
FORM end_of_list_html USING end TYPE REF TO cl_dd_document.
DATA: ls_text TYPE sdydo_text_element,
        l_grid     TYPE REF TO cl_gui_alv_grid,
        f(14) TYPE c VALUE 'SET_ROW_HEIGHT'.
DATA: qty1 TYPE sdydo_text_element.
DATA: unt1 TYPE sdydo_text_element.
DATA: wtd1 TYPE sdydo_text_element.
DATA: cur1 TYPE sdydo_text_element.
DATA: var1 TYPE sdydo_text_element.
DATA: verp1 TYPE sdydo_text_element.
DATA: bgv1 TYPE sdydo_text_element.
qty1 = qty.
unt1 = unt.
wtd1 = wtd.
cur1 = cur.
var1 = var.
verp1 = verp.
bgv1 = bgv.
ls_text = 'SUMMARY'.
CALL METHOD end->add_text
    EXPORTING
      text         = ls_text
      sap_emphasis = 'strong'.
Total Qty Bought (start new line)
CALL METHOD end->new_line.
CALL METHOD end->add_text
    EXPORTING
      text = 'Total Qty Bought : '.
CALL METHOD end->add_text
    EXPORTING
      text = qty1.
CALL METHOD end->add_text
    EXPORTING
      text = unt1.
Wtd. Avg. Purchase Rate
CALL METHOD end->new_line.
CALL METHOD end->add_text
    EXPORTING
      text = 'Wtd. Avg. Purchase Rate : '.
CALL METHOD end->add_text
    EXPORTING
      text = cur1.
CALL METHOD end->add_text
    EXPORTING
      text = wtd1.
Wtd. Avg. Budget Rate
CALL METHOD end->new_line.
CALL METHOD end->add_text
    EXPORTING
      text = 'Wtd. Avg. Budget Rate : '.
CALL METHOD end->add_text
    EXPORTING
      text = cur1.
CALL METHOD end->add_text
    EXPORTING
      text = bgv1.
Gain / Loss
CALL METHOD end->new_line.
CALL METHOD end->add_text
    EXPORTING
      text = 'Gain / Loss : '.
CALL METHOD end->add_text
    EXPORTING
      text = cur1.
CALL METHOD end->add_text
    EXPORTING
      text = var1.
MAP ( Moving Average Price )
CALL METHOD end->new_line.
CALL METHOD end->add_text
    EXPORTING
      text = 'Mov Avg Price : '.
CALL METHOD end->add_text
    EXPORTING
      text = cur1.
CALL METHOD end->add_text
    EXPORTING
      text = verp1.
ENDFORM. "end_of_list_html.
*&      Form END_OF_PAGE
FORM end_of_page.
DATA: listwidth TYPE i,
        ld_pagepos(10) TYPE c,
        ld_page(10)    TYPE c.
wtd2 = wtd.
bgv2 = bgv.
CONDENSE qty.
CONDENSE unt.
CONDENSE wtd2.
CONDENSE bgv2.
CONDENSE var.
CONDENSE verp.
SKIP.
WRITE:/ 'SUMMARY:'.
write:/ sy-uline(7).
WRITE:/ 'Total Qty Bought        : ', qty, unt.
WRITE:/ 'Wtd. Avg. Purchase Rate : ', wtd2, cur.
WRITE:/ 'Wtd. Avg. Budget Rate   : ', bgv2, cur.
WRITE:/ 'Gain / Loss             : ', var, cur.
WRITE:/ 'Mov Avg Price           : ', verp, cur.
ENDFORM.                    "END_OF_PAGE
*&      Form END_OF_LIST
FORM end_of_list.
DATA: listwidth TYPE i,
        ld_pagepos(10) TYPE c,
        ld_page(10)    TYPE c.
wtd2 = wtd.
bgv2 = bgv.
CONDENSE qty.
CONDENSE unt.
CONDENSE wtd2.
CONDENSE bgv2.
CONDENSE var.
CONDENSE verp.
SKIP.
WRITE:/ 'SUMMARY:'.
write:/ sy-uline(7).
WRITE:/ 'Total Qty Bought        : ', qty, unt.
WRITE:/ 'Wtd. Avg. Purchase Rate : ', wtd2, cur.
WRITE:/ 'Wtd. Avg. Budget Rate   : ', bgv2, cur.
WRITE:/ 'Gain / Loss             : ', var, cur.
WRITE:/ 'Mov Avg Price           : ', verp, cur.

Error accessing function module: HELP

TO ADMINISTRATORS: PLEASE DO NOT DELETE. ADVISE WHICH FORUM TO POST.
Good Day to all SAP Gurus,
I need your help in resolving / understanding an error.
Envirornment - SAP IDES 4.7
While posting any document through FBCJ (Cash Journal), f.26 (incoming payment), f.22 etc., the below mentioned error is appearing.
Error accessing function module: FMFK_FIKRS_READ
Parameter: IP-FIKRS IP_FMA_OBJNR
When I click help (?), the following detailed message appears.
Diagnosis
The application has accessed a Funds Management or Cash Budget Management module with parameters missing or defective.
Can someone please help on this?
Points guaranteed.
Regards
Jamil

1. Please do not offer points for replies. This is clearly mentioned in the [Rules of Engagement|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement]. It is considered impolite and is the quickest way to have someone flag your message using the Abuse Button which usually means that the post will be deleted.
2. Per the [Rules of Engagement|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement], please title your subject appropriately. In particular, words such as "help" don't provide any insight into your message either when viewed directly or via search. This too is a possible Abuse violation and may be deleted by the other Moderators. A more appropriate title would be "posting Cash Journal document results in error XX-YYY (FMFK_FIKRS_READ)"... and it would help the others who would attempt to reply to your message if you provided the specific message number.
3. The financials forum is for functional questions. Since you are asking about a FM I'd recommend posting this question in one of the [ABAP Forums|/community [original link is broken];. Posting in the wrong forum won't lead to an abuse report but the message is likely to be locked to discourage other users to post in the correct forum.
Edited by: Nathan Genez on Oct 10, 2008 2:20 PM

Are there BAPI or function modules for creating posting address ?

Are there BAPI or function modules for creating posting address and budget address? We are currently use BDC program and T code FMBSPO_MULT (Posting address) and T code FMBSBO_MULT(budget address), but it is a very slow processing because we have thousands of funds centers.
Your input will be appreciated!
Regards,
Fisher Li

Li,
You will have, may be more answers in the technical forum :
https://www.sdn.sap.com/irj/sdn/collaboration
Regards
Valérie

BAPI or functiona module for KEPM tcode

Hi Guys,
I am looking to maintain Sales budget and forecast values.
is there any BAPI or function module I can use ?
the only other option will be BDC program.
Thanks
Sam

Hi Eduardo,
Thanks for that.
I am already trying to post with these function modules.
But it looks like I can only update the existing records. not sure I can post new records.
do you know any way to post new entries ?
I try BDC but its not good enough..
Cheers
Sam

Function Modules to update Funds in TPM

Hi All,
Does anyone know what functional modules does SAP provide to update the Funds in Trade Promotion Mgt solution?
Please suggest !
Thanks & Regards,
Neeraj Sharma

I have found a few as given below, but I need those using which we can create a budget posting for the fund.
CRM_FM_FND_FUND_ATTR Fund Attributes Function Group
CRM_FM_FND_FUND_ATTR_BORK_POST Fund Attributes Product Category update
CRM_FM_FND_FUND_ATTR_BPHN_POST Business Partner Hierarchy Node Update
CRM_FM_FND_FUND_ATTR_BUPA_POST Business Partner Fund Attribute Update
CRM_FM_FND_FUND_ATTR_PCAT_POST Fund Attributes Product Category update
CRM_FM_FND_FUND_ATTR_PGRP_POST Product Group Fund Attribute update
CRM_FM_FND_FUND_ATTR_PROD_POST Fund Attributes ProductCategory update
CRM_FM_FND_FUND_ATTR_TERR_POST Territory Fund Attribute Update
Regards,
Neeraj Sharma

Budget IO - Function Module

Similar Messages

Maybe you are looking for