How to carry out Pricing using ABAP Function Module PRICING

[aditya_palekar]

Hi,
I am sure most of you who have programmed on Sales & Distribution Module in ERP would know that Pricing data is an important part of the Sales Document.

When you manually enter a Sales Document such as a Quotation or Sales Order and then change it, the pricing is carried out automatically.

This is due to the function module PRICING which is called by the standard Sales Transactions. Even the Sales Order BAPIs use this function module to carry out the PRICING.

Now try to implement this Pricing functionality via the Web! That's the requirement we had in one of the projects I undertook this year.

This Weblog gives you a Technical Approach to implementing the PRICING functionality which can be used even in a Web Based Application.

Project Requirement

* Develop a Web Based Create Quotation application (based on the standard VA21 transaction).

A part of this requirement was to carry out the pricing in the same way as the R/3 transaction would in the backend system.

Now the web application was developed by the Portal team in my company using Web Dynpro for Java Technology. The SAP release was ECC 5.0 (WebAS 640).

I was responsible for developing a custom RFC function module which is called from the Web Application. It then carries out the Pricing in the backend and then returns the re-calculated Net Value and other pricing conditions. These are then displayed on the portal application.

There is a function module PRICING which is called by the standard SD transactions to carry out pricing.

In this blog, I shall explain how to write a custom RFC function module to carry out the Pricing using the standard function module PRICING. You can integrate this RFC into a Web application.

Please Note: -
The code presented in this blog is specific to the project I had undertaken and to the system on which it was tested. You might have to modify the code to adapt it as per your specific requirement.

Here is an RFC Function module Z_SD_SLS_PROCESS_PRICING. The function module is called for each item of the Quotation and performs the following steps: -

1) Accepts Sales Quotation Data such as: -

• Sales organisation
• Distribution Channel
• Division
• Order Type
• Item Number
• Material
• Plant
• Order Quantity
• Sales Unit
• Sold-To Party
• Ship-To Party
• Currency
• Gross Weight
• Net Weight
• Weight Unit
• Pricing Conditions entered by the User through the Web

2) Calls the function module SPR_KOMK_KOMP_FILL to populate the pricing structues KOMK and KOMP based on the data passed from above.

3) Populates the Pricing conditions entered by the user into a separate internal table of structure KOMV. In our example only pricing conditions ZPR0, ZMAN, ZMLT, ZSTP, ZFR1, ZFR2 and ZCST are accepted from the Web application to carry out re-pricing.

4) Then it calls the function module PRICING using the KOMK and KOMP structures populated earlier to carry out the Pricing.

5) Then it calls the function module PRICING_SUBSCREEN_SET_DATA to format the PRICING data as per the screen display required in R/3 transactions. This is where you can get the Total Net Value which you can display in your web applications.

Below are the steps to activate the RFC function module along with the code: -

Step 1:
In your ERP system, create a new Function Group Z_PRICING and activate it.

Step 2:
Create a new Function module Z_PROCESS_PRICING within the function group Z_PRICING. In the Attributes, set the Processing Type to "Remote-Enabled Module". Enter the following interface parameters: -

Step 3:
Insert the following code into the Function module Z_PROCESS_PRICING.

FUNCTION z_sd_sls_process_pricing .*"----------------------------------------------------------------------*"*"Local Interface:*"  IMPORTING*"     VALUE(IV_SALES_ORG) TYPE  VBAK-VKORG*"     VALUE(IV_DIST_CHANNEL) TYPE  VBAK-VTWEG*"     VALUE(IV_DIVISION) TYPE  VBAK-SPART*"     VALUE(IV_ORDER_TYPE) TYPE  VBAK-AUART*"     VALUE(IV_ITEM_NUMBER) TYPE  VBAP-POSNR*"     VALUE(IV_MATERIAL) TYPE  VBAP-MATNR*"     VALUE(IV_PLANT) TYPE  VBAP-WERKS*"     VALUE(IV_ORDER_QUANTITY) TYPE  VBAP-KWMENG*"     VALUE(IV_SALES_UNIT) TYPE  VBAP-VRKME*"     VALUE(IV_SOLD_TO_PARTY) TYPE  VBPA-PARNR*"     VALUE(IV_SHIP_TO_PARTY) TYPE  VBPA-PARNR*"     VALUE(IV_CURRENCY) TYPE  VBAK-WAERK*"     VALUE(IV_GROSS_WEIGHT) TYPE  VBAP-BRGEW*"     VALUE(IV_NET_WEIGHT) TYPE  VBAP-NTGEW*"     VALUE(IV_WEIGHT_UNIT) TYPE  VBAP-GEWEI*"  TABLES*"      IT_CONDITIONS STRUCTURE  BAPICOND*"      IT_RETURN STRUCTURE  BAPIRET2*"  CHANGING*"     VALUE(CS_KOMK) TYPE  KOMK OPTIONAL*"     VALUE(CS_KOMP) TYPE  KOMP OPTIONAL*"     VALUE(CV_NET_VALUE) TYPE  VBAP-NETWR*"     VALUE(CV_CURRENCY) TYPE  VBAK-WAERK OPTIONAL*"----------------------------------------------------------------------****** LOCAL DATA DECLARATIONS  CONSTANTS lc_text1 TYPE char20 VALUE 'Pricing Condition'.  CONSTANTS lc_text2 TYPE char20 VALUE 'Not Found'.  CONSTANTS lc_zpr0 TYPE konv-kschl VALUE 'ZPR0'.  CONSTANTS lc_zmlt TYPE konv-kschl VALUE 'ZMLT'.  CONSTANTS lc_zman TYPE konv-kschl VALUE 'ZMAN'.  CONSTANTS lc_zcst TYPE konv-kschl VALUE 'ZCST'.  CONSTANTS lc_zstp TYPE konv-kschl VALUE 'ZSTP'.  CONSTANTS lc_zfr1 TYPE konv-kschl VALUE 'ZFR1'.  CONSTANTS lc_zfr2 TYPE konv-kschl VALUE 'ZFR2'.  DATA ls_input TYPE pispr.  DATA ls_komk TYPE komk.  DATA ls_komp TYPE komp.  DATA ls_komv TYPE komv.  DATA ls_return TYPE bapiret2.  DATA ls_conditions LIKE LINE OF it_conditions.  DATA lt_komv TYPE STANDARD TABLE OF komv.  DATA lt_komv_disp TYPE STANDARD TABLE OF komv.  DATA lt_return TYPE TABLE OF bapiret2.  DATA lv_kposn TYPE vbap-posnr.  DATA lv_tabix TYPE sytabix.  DATA lv_kalks TYPE knvv-kalks.  DATA lv_kalvg TYPE tvak-kalvg.  DATA lv_caltyp TYPE komv-ksteu VALUE 'C'.  DATA lv_vtweg TYPE vtweg VALUE '00'.  DATA lv_spart TYPE spart VALUE '00'.  REFRESH lt_return.* STEP 1: Append all relevant condition types to be used  REFRESH r_kschl.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zpr0.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zmlt.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zman.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zcst.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zstp.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zfr1.  PERFORM z_append_cond_types TABLES r_kschl                              USING  lc_zfr2.* STEP 2: Populate the KOMK and KOMP pricing structures  CLEAR ls_input.  ls_input-matnr = iv_material.  ls_input-vrkme = iv_sales_unit.  ls_input-vkorg = iv_sales_org.  ls_input-vtweg = lv_vtweg.  ls_input-spart = lv_spart.  ls_input-werks = iv_plant.  ls_input-waerk = iv_currency.  ls_input-kunnr = iv_sold_to_party.  ls_input-mgame = iv_order_quantity.  ls_input-prsdt = sy-datum.* Determine the Pricing Procedure* Step 1: Document procedure (for determining pricing procedure)  CLEAR lv_kalvg.  SELECT SINGLE kalvg INTO lv_kalvg FROM tvak  WHERE auart = iv_order_type.* Step 2: Read the Pricing procedure assigned to this customer  CLEAR lv_kalks.  SELECT SINGLE kalks INTO lv_kalks FROM knvv  WHERE kunnr = iv_sold_to_party  AND   vkorg = iv_sales_org  AND   vtweg = lv_vtweg  AND   spart = lv_spart.* Step 3: Read the Pricing Procedure based on the Sales Area in the* Sales Document  SELECT SINGLE kalsm INTO ls_input-vkals FROM t683v  WHERE vkorg = iv_sales_org  AND   vtweg = iv_dist_channel  AND   spart = iv_division  AND   kalvg = lv_kalvg  AND   kalks = lv_kalks.  PERFORM z_prepare_komk_komp  USING  ls_input                               CHANGING  ls_komk                                         ls_komp.* Move the Ship-to-Party to the pricing structure in order* to get the freight condition types  MOVE iv_ship_to_party TO ls_komk-kunwe.* Move the Item Number to the pricing structure  MOVE iv_item_number TO lv_kposn.  ls_komp-kposn = lv_kposn.* Filter out the condition lines with condition type 'ZPR0'* Since this is a basic price and will not be changed by the user* we don't need to carry our re-pricing for the same  DELETE it_conditions WHERE cond_type = lc_zpr0.* Transfer any newly entered conditions into the conditions* table  REFRESH lt_komv.  LOOP AT it_conditions INTO ls_conditions.* Consider only those condition types relevant for our use    CHECK ls_conditions-cond_type IN r_kschl.    CLEAR ls_komv.    ls_komv-kposn = ls_conditions-itm_number.    ls_komv-kschl = ls_conditions-cond_type.* Condition Type 'ZMLT' is a percentage, so make the conversion* for condition rate from external to internal format. Also the* condition rate is a negative value    IF ls_komv-kschl = lc_zmlt.      ls_komv-kbetr = ls_conditions-cond_value * 10.      CLEAR ls_komv-waers.      IF ls_komv-kbetr > 0.        ls_komv-kbetr = ls_komv-kbetr * '-1'.      ENDIF.    ELSE.      ls_komv-kbetr = ls_conditions-cond_value.    ENDIF.    ls_komv-waers = ls_conditions-currency.    ls_komv-kpein = ls_conditions-cond_p_unt.    ls_komv-kmein = ls_conditions-cond_unit.    ls_komv-kwert = ls_conditions-condvalue.    ls_komv-kumza = ls_conditions-numconvert.    ls_komv-kumne = ls_conditions-denominato.    APPEND ls_komv TO lt_komv.  ENDLOOP.* STEP 3: Carry out the pricing  PERFORM z_pricing  USING     lv_caltyp                     CHANGING  ls_komk                               ls_komp                               lt_komv                               lt_komv_disp                               lt_return.* STEP 4: Move the pricing conditions after processing to the conditions* internal table for external use  LOOP AT lt_komv INTO ls_komv.* Consider only those condition types relevant for our use    CHECK ls_komv-kschl IN r_kschl.    CLEAR ls_conditions.    CLEAR lv_tabix.    READ TABLE it_conditions WITH KEY itm_number = lv_kposn                                      cond_type   = ls_komv-kschl                                      INTO ls_conditions.    IF sy-subrc = 0.      lv_tabix = sy-tabix.      ls_conditions-cond_st_no = ls_komv-stunr.      ls_conditions-cond_count = ls_komv-zaehk.* Condition Type 'ZMLT' is a percentage, so make the conversion* for condition rate from internal to external format. Also the* condition rate is a negative      IF ls_conditions-cond_type = lc_zmlt.        ls_conditions-cond_value = ls_komv-kbetr / 10.      ELSE.        ls_conditions-cond_value = ls_komv-kbetr.        ls_conditions-currency = ls_komv-waers.      ENDIF.      ls_conditions-cond_p_unt = ls_komv-kpein.      ls_conditions-cond_unit = ls_komv-kmein.      ls_conditions-condvalue = ls_komv-kwert.      ls_conditions-currency_2 = ls_komk-waerk.      ls_conditions-numconvert = ls_komv-kumza.      ls_conditions-denominato = ls_komv-kumne.      ls_conditions-condisacti = ls_komv-kinak.      MODIFY it_conditions FROM ls_conditions INDEX lv_tabix      TRANSPORTING cond_st_no                   cond_count                   cond_value                   currency                   cond_p_unt                   cond_unit                   condvalue                   currency_2                   numconvert                   denominato                   condisacti.    ELSE.      ls_conditions-itm_number = ls_komv-kposn.      ls_conditions-cond_type = ls_komv-kschl.      ls_conditions-cond_st_no = ls_komv-stunr.      ls_conditions-cond_count = ls_komv-zaehk.* Condition Type 'ZMLT' is a percentage, so make the conversion* for condition rate from internal to external format. Also the* condition rate is a negative      IF ls_conditions-cond_type = lc_zmlt.        ls_conditions-cond_value = ls_komv-kbetr / 10.      ELSE.        ls_conditions-cond_value = ls_komv-kbetr.        ls_conditions-currency = ls_komv-waers.      ENDIF.      ls_conditions-cond_p_unt = ls_komv-kpein.      ls_conditions-cond_unit = ls_komv-kmein.      ls_conditions-condvalue = ls_komv-kwert.      ls_conditions-currency_2 = ls_komk-waerk.      ls_conditions-numconvert = ls_komv-kumza.      ls_conditions-denominato = ls_komv-kumne.      ls_conditions-condisacti = ls_komv-kinak.      APPEND ls_conditions TO it_conditions.    ENDIF.  ENDLOOP.* Filter out the conditions where the Condition Rate is 0  DELETE it_conditions WHERE cond_value IS INITIAL.  SORT it_conditions ASCENDING BY itm_number cond_st_no cond_count.* STEP 5: If List Price condition type 'ZPR0' is not found in the* internal table, then send a message  READ TABLE it_conditions WITH KEY cond_type = lc_zpr0  TRANSPORTING NO FIELDS.  IF sy-subrc <> 0.    CLEAR ls_return.    ls_return-type = 'I'.    ls_return-number = '010'.    ls_return-id = 'AD'.    PERFORM z_format_message                USING                   ls_return-id                   sy-langu                   ls_return-number                   lc_text1                   lc_zpr0                   lc_text2                   space                CHANGING                   ls_return-message.    APPEND ls_return TO lt_return.  ENDIF.********* COMMUNICATION HEADER AND ITEM STRUCTURES* Move the updated Pricing Structures KOMK and KOMP to the* Changing Parameters  MOVE ls_komk TO cs_komk.  MOVE ls_komp TO cs_komp.********* NET VALUE ******************* Read the Net Value for the Pricing Item  CLEAR ls_komv.  READ TABLE lt_komv_disp WITH KEY kposn = lv_kposn                                   stunr = '925'                                   kzwiw = 'A'                                   INTO ls_komv.* Move the Net Value and the Document Currency to* the Changing Parameter  MOVE ls_komv-kwert TO cv_net_value.  MOVE ls_komv-waers TO cv_currency.  REFRESH it_return.  APPEND LINES OF lt_return TO it_return.ENDFUNCTION.Step 4: Create an Include LZ_PRICINGF01 in the function group Z_PRICING. Insert the following code in the Include program.*&---------------------------------------------------------------------**&  Include           LZ_PRICINGF01*&---------------------------------------------------------------------**&---------------------------------------------------------------------**&      Form  z_format_message*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->P_SY_MSGID  text*      -->P_SY_LANGU  text*      -->P_SY_MSGNO  text*      -->P_SY_MSGV1  text*      -->P_SY_MSGV2  text*      -->P_SY_MSGV3  text*      -->P_SY_MSGV4  text*      <--P_LS_RETURN_MESSAGE  text*----------------------------------------------------------------------*FORM z_format_message  USING    p_msgid TYPE c                                p_langu TYPE c                                p_msgno TYPE n                                p_msgv1 TYPE c                                p_msgv2 TYPE c                                p_msgv3 TYPE c                                p_msgv4 TYPE c                       CHANGING p_message TYPE c.*----------------------------------------------------------------------** Format the message text*----------------------------------------------------------------------*  CALL FUNCTION 'FORMAT_MESSAGE'    EXPORTING      id        = p_msgid      lang      = p_langu      no        = p_msgno      v1        = p_msgv1      v2        = p_msgv2      v3        = p_msgv3      v4        = p_msgv4    IMPORTING      msg       = p_message    EXCEPTIONS      not_found = 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.                    " z_format_message*&---------------------------------------------------------------------**&      Form  Z_APPEND_COND_TYPES*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->P_LR_KSCHL  text*      -->P_0116   text*----------------------------------------------------------------------*FORM z_append_cond_types  TABLES   pt_kschl STRUCTURE gs_kschl                          USING    p_kschl TYPE c.  DATA ls_kschl LIKE LINE OF pt_kschl.  CLEAR ls_kschl.  ls_kschl-sign = 'I'.  ls_kschl-option = 'EQ'.  ls_kschl-low = p_kschl.  APPEND ls_kschl TO pt_kschl.ENDFORM.                    " Z_APPEND_COND_TYPES*&---------------------------------------------------------------------**&      Form  z_prepare_komk_komp*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->P_LS_INPUT  text*      <--P_LS_KOMK  text*      <--P_LS_KOMP  text*----------------------------------------------------------------------*FORM z_prepare_komk_komp  USING    ps_input TYPE pispr                          CHANGING ps_komk TYPE komk                                   ps_komp TYPE komp.*----------------------------------------------------------------------** Populate the Pricing Header and Item Structures*----------------------------------------------------------------------*  CLEAR ps_komk.  CLEAR ps_komp.  CALL FUNCTION 'SPR_KOMK_KOMP_FILL'    EXPORTING      pi_i_spr                    = ps_input    IMPORTING      pe_i_komk                   = ps_komk      pe_i_komp                   = ps_komp    EXCEPTIONS      org_structure_not_completed = 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.                    " z_prepare_komk_komp*&---------------------------------------------------------------------**&      Form  z_pricing*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->P_LT_KOMV  text*      -->P_LT_KOMV_DISP  text*      -->P_LV_CALTYP  text*      <--P_LS_KOMK  text*      <--P_LS_KOMP  text*----------------------------------------------------------------------*FORM z_pricing  USING    p_caltyp TYPE komv-ksteu                CHANGING ps_komk TYPE komk                         ps_komp TYPE komp                         pt_komv TYPE ty_komv_tab                         pt_komv_disp TYPE ty_komv_tab                         pt_return TYPE ty_bapi_tab.*----------------------------------------------------------------------** Carry out the Pricing*----------------------------------------------------------------------*  DATA lv_trans_typ  TYPE t180-trtyp.  DATA lv_msgid_old  TYPE symsgid.  DATA lv_msgid_new  TYPE symsgid.  DATA lv_msgno_old  TYPE symsgno.  DATA lv_msgno_new  TYPE symsgno.  DATA ls_return TYPE bapiret2.* Call Function Module to Carry Out the Pricing* The relevant pricing condition types will be picked up from* the config and appended to internal table KOMV* New Pricing condition types will also be taken into account from* internal table of structure KOMV.* The condition values will be calculated for all line items  CLEAR lv_msgid_old.  CLEAR lv_msgno_old.  CLEAR lv_msgid_new.  CLEAR lv_msgno_new.  lv_msgid_old = sy-msgid.  lv_msgno_old = sy-msgno.  CALL FUNCTION 'PRICING'    EXPORTING     calculation_type        = p_caltyp      comm_head_i             = ps_komk      comm_item_i             = ps_komp*   PRELIMINARY             = ' '*   NO_CALCULATION          = ' '   IMPORTING     comm_head_e             = ps_komk     comm_item_e             = ps_komp    TABLES      tkomv                   = pt_komv*   SVBAP                   =* CHANGING*   REBATE_DETERMINED       = ' '            .  lv_msgid_new = sy-msgid.  lv_msgno_new = sy-msgno.* If any new messages were created from the pricing function* module, then append this message to the message table  IF lv_msgid_new <> lv_msgid_old  OR lv_msgno_new <> lv_msgno_old.    CLEAR ls_return.    ls_return-type = 'I'.    ls_return-id = lv_msgid_new.    ls_return-number = lv_msgno_new.    ls_return-message_v1 = sy-msgv1.    ls_return-message_v2 = sy-msgv2.    ls_return-message_v3 = sy-msgv3.    ls_return-message_v4 = sy-msgv4.    PERFORM z_format_message                USING                   ls_return-id                   sy-langu                   ls_return-number                   ls_return-message_v1                   ls_return-message_v2                   ls_return-message_v3                   ls_return-message_v4                CHANGING                   ls_return-message.    APPEND ls_return TO pt_return.  ENDIF.* Format the pricing conditions obtained from the PRICING* function module as per the required (screen/output) format* This is to get the net value that has been calculated due to* the pricing  CALL FUNCTION 'PRICING_SUBSCREEN_SET_DATA'    EXPORTING      comm_head_i           = ps_komk      comm_item_i           = ps_komp     trtyp_i               = lv_trans_typ*   DISPLAY_ONLY          = ' '*   CTRL_NO_DISPLAY       =*   CTRL_GREY             =    TABLES*   SVBAP                 =      tkomv                 = pt_komv     ykomv                 = pt_komv_disp* CHANGING*   C_VFKOMV              =   EXCEPTIONS     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.ENDFORM.                    " z_pricing

Step 4:
Insert the following code in the TOP include of the function group Z_PRICING which is Include LZ_PRICINGTOP.

FUNCTION-POOL z_pricing.                    "MESSAGE-ID ..DATA r_kschl TYPE RANGE OF konv-kschl.DATA gs_kschl LIKE LINE OF r_kschl.TYPES: ty_komk_tab TYPE STANDARD TABLE OF komk.TYPES: ty_komp_tab TYPE STANDARD TABLE OF komp.TYPES: ty_komv_tab TYPE STANDARD TABLE OF komv.TYPES: ty_bapi_tab TYPE STANDARD TABLE OF bapiret2.

Step 5:
Activate the function group Z_PRICING and all the include programs. This will also activate our function module Z_PROCESS_PRICING.

Step 6:
Test the function module Z_PROCESS_PRICING first in the backend to check if the results are accurate before integrating into the Web Application.

A suggested approach to test is as follows: -

* Start the Create transaction for a Sales Document (in our example Create Sales Quotation - VA21) in one terminal session.
* Enter all the relevant parameters manually and check the Net Value at the Item Level of the document. This value is determined from the Pricing that is carried out by the system.
* In another terminal session, start the test mode for Function Module Z_PROCESS_PRICING. Enter similar parameters as the VA21 transaction and execute.
* The Net Nalue returned in the Changing Parameter CV_NET_VALUE should be the same as the Net Value on the pricing condition screen as shown below.

If the above test has been successful, then the function module can be integrated into a Web Application.

Regards,
Aditya Palekar