Header Pricing Condition - distribution to items question

we have a condition (Freight) that is a surcharge entered as a percentage. If the condition is 10%, we would like the calcualtion 10% of net value at the header level and then distribute the amount to the line items distributed by weight or volume.
We tried using the alternate condition base value formula, but then the calculation is the product of surcharge percentage multiplied by either the weight and volume instead of the net value. Is it possible to do the calculation as defined?
example we would like to occur:
net value 1000, percentage 10% total value of condition is 100
line item 1 volume 70 - condition value is 70
line item 2 volume 30 - condition value is 30
what is happending using alternate condition base formula of volume:
net value 1000 percentage condition value is 1 (100* 1) from total volume
line item 1 volume 70 - condition value is .7
line item 2 volume 30 - condition value is .3
thanks for all help.

you do not need any alt cond base value.
In the condition type defintion of your freight condition ( T Code V/06) in the defintion, under the scales section , for "Scale Basis" use F - Volume based.
Mark the condition as Group condition , use group formula 1, Check Both Header / Item Conditions
When you create the condition record using VK11, mainatin the scales as per the requirement
For example say from 0 to 1000 - 10% / From 1001 till....... 15%....so on
Process order and check the results. Please post if you have any further error.
Regards
Sai

Similar Messages

How can I have the pricing conditions at the item and header level of the d

How can I have the pricing conditions at the item and header level of the delivery? There exist "condition" tabs both the header and the item level of the delivery but the contents of the tabs are empty. I'll be happy if you can help me. Thanks in advance....

Hi
If you want to have the pricing procedure at delivery level then you need to assign a pricing procedure at delivery level also
Just go through the path to maintain the pricing procedure at delivery level.
IMG -> Logistics execution -> Shipping -> Basic Shipping Functions -> Pricing -> Pricing Procedure. for Delivery.
But can you be more clear if the above one is not your query ?
Regards
Srinath

Header Pricing Condition -- Can I attach rotuine..

Hi,
I want to attach routine for the header pricing condition (instead of manual) to fetch the price from ztable then the price
has to be equally distribute to item level/
Is this possible? can i attach a rotuine to Header condition?
Laxman

Hi,
The price for this Header condition is stored in classification field of material master.
Example..
We created charactersitc called deductables,and
attached this characterstic to the class of material. finally we given value of 100 usd in the material master classification tab.
So when I attach a routine (say 602) to ZDED (header discount condition), it has to go to the material master and find this 100 usd and equally distribute to all line item.
My direct questions is
Is SAP header condition will work if I attach a routine (altenative calcualtion type)?
If yes, once i identify the value of 100 USD how to pass to header level condition rate?
Need advice

Change header pricing condition in sales order

Hi,
I have an requirement in VA01 and VA02 to automatically edit one header pricing condition. The user can able to change the value of that condition type in header not in items . Does anyone know what user exit I can use for this requirement.
Thanks

Hi Sunil,
Plealse find below 2 methods to change header pricing conditions in sales order.
1.Goto SE38, give prog name as MV45AFZZ and in that write logic under USEREXIT_PRICING_PREPARE_TKOMK . (OR)
2) The same can be done by creating a Alt Calculation type routine through VOFM and writng the logic in the routine, which will then be assigned to the pricing procedure in the condition type which will automatically calculate the condition.
Try with the options mentioned above..
Regards,
KK

Sales Order Header Pricing Conditions

Hi All,
I am using BAPISDORDER_GETDETAILEDLIST function module to get the pricing conditions. I am able to see Item Pricing Conditions in the ORDER_CONDITIONS_OUT table but not able to find the Header Pricing Conditions.
Please let me know how to fetch header pricing conditions. Is there any other FM which can do it?
Thanks
Jit

Hello,
Try these FM's.
SD_SALES_HEADER_READ
SD_SALES_ITEM_TABLES_READ
SD_SALES_PRICING_INFORMATION
MRM_DBTAB_KONV_READ
RV_KONV_SELECT
Please check out the Function module RV_INVOICE_DOCUMENT_READ.
Here you need to pass on the invoice no. In the output it shall give you details in invoice header and item levels, price, document status. You will get the net amount as well as the tax. Then you need to add the net amount and the tax to get the total amount
Regards,
Vasanth

Header Pricing conditions in BAPI function module

I am using BAPI function module BAPI_SALESDOCU_CREATEFROMDATA1 to create sales orders through program.
It is working fine with item level pricing conditions.
But my requirement is ... I need to update few pricing conditon types in item level and one in header level.
Could you please help me where I need to pass header pricing conditions. Please help me.
        CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
          EXPORTING
            SALESDOCUMENT             = SALESDOCUMENT
            SALES_HEADER_IN           = SALES_HEADER_IN
          SALES_HEADER_INX          =
          SENDER                    =
            BINARY_RELATIONSHIPTYPE   = 'VORL'
          INT_NUMBER_ASSIGNMENT     = ' '
          IMPORTING
            SALESDOCUMENT_EX          = SALESDOCUMENT_EX
          TABLES
            RETURN                    = RETURN
            SALES_ITEMS_IN            = SALES_ITEMS_IN
          SALES_ITEMS_INX           =
            SALES_PARTNERS            = SALES_PARTNERS
            SALES_SCHEDULES_IN        = SALES_SCHEDULES_IN
          SALES_SCHEDULES_INX       =
            SALES_CONDITIONS_IN       = SALES_CONDITIONS_IN.
          SALES_CFGS_REF            =
          SALES_CFGS_INST           =
          SALES_CFGS_PART_OF        =
          SALES_CFGS_VALUE          =
          SALES_CFGS_BLOB           =
          SALES_CCARD               =
          KEY_TABLE                 =
Thanks in advance.
Raghu

If the correct configuration allows for manual entry of the condition type you want to populate, You can map your value using
' ORDER_CONDITIONS_IN' . If item level map line number, cond step number of the condition type in your pricing procedure, your condition type you are using, condition value you are sending into the system, currency, and cond unit. If it is a header condition, then send in 000000 as the item number.   You can also consider using BAPI_SALESORDER_CREATEFROMDAT2

Header pricing condition types

Hi,
In a purchase order header pricing condition types are appearing twice .
Ex: JCDB    254
      JCDB     20
      JCV1    345
      JCV1     30.
first condition type (ex: JCDB 254) is calculated on net price
second cond type (ex: JCDB 20) is calculated on handling charge.
Only for this particular PO we face this problem.
How the pricing condition types are calculating twice?
regards,
sathya

If I am not mistaken, this is a Purchasing question.
Please post to correct forum.
Regards

Billing header pricing condition value

Hi,
I have requirment to display billing header pricing condition value. I have check using first go to Vbrk then find Knumv field,go to KONV and find all condition record value.
But in KONV there are only Items condition record SO how to find header. please reply

Hi ,
Instead of KONV, get the header condition value from KONH
regards,
santosh

Header Pricing Condition (SD)

Hello,
We have a header pricing condition type both applicable to header and line items. When manually putting an amount on the header, it automatically distributes the amount on the line items proportionally.
When running in batch or IDoc via requirement routines (or any VOFM routines), how can I populate the header amount so that it will distribute the amount automatically also on the line items?
I normally do this on the line item level by modifying XKWERT on a requirement routine but I cannot get it to to work when the target is a header pricing condition.
Please help me if you have any ideas.
Thanks in advance,
John

which include? i think you forgot to include the name of the include

Unable to update the header Pricing Condition of Customer Quotation

Hi Friends,
I am trying to change the Customer Quotaion using the 'BAPI_CUSTOMERQUOTATION_CHANGE'.
I am able to update the Header details and item details,but When it comes to pricing Conditions the Following errors I am getting
000000: Operations with Conditions of type F not allowed(ZZHD).
as it is a Header pricing Condition, I am passing Item number as 000000,even I tried to Comment and see,but the same issue.
Following is are the pricing Condition details that I am passing to BAPI.
CLEAR: wa_quote_condition_in,
         wa_quote_condition_inx.
wa_quote_condition_in-itm_number        = '000000'.
wa_quote_condition_inx-itm_number       = '000000'.
wa_quote_condition_in-COND_COUNT     = '01'.
wa_quote_condition_inx-COND_COUNT    = '01'.
wa_quote_condition_in-cond_type            = 'ZZHD'.
wa_quote_condition_inx-cond_type         = 'ZZHD'.
    wa_quote_condition_inx-updateflag      = 'U'.
lv_zzhd = ( ls_nd_payment-transport_charg / 10 ).
wa_quote_condition_in-cond_value     = lv_zzhd.
wa_quote_condition_inx-cond_value    = 'X'.
APPEND: wa_quote_condition_in TO it_quote_condition_in,
          wa_quote_condition_inx TO it_quote_condition_inx.
CLEAR: wa_quote_condition_in,
         wa_quote_condition_inx.
Please help in tracing the above issue.
Regards,
Xavier.P
Edited by: Xavier on Sep 7, 2011 10:59 AM
Edited by: Xavier on Sep 7, 2011 11:00 AM

Hi prasad,
Please find the you will find 'condition type paramter in the structers bapicond, bapicondx.
data :it_quote_condition_in    TYPE TABLE OF bapicond,
         wa_quote_condition_in    TYPE bapicond,
         it_quote_condition_inx   TYPE TABLE OF bapicondx,
         wa_quote_condition_inx   TYPE bapicondx.
CALL FUNCTION 'BAPI_CUSTOMERQUOTATION_CHANGE'
    EXPORTING
      salesdocument                = ls_nd_payment-vbeln
      quotation_header_in          = wa_header
      quotation_header_inx         = wa_header_inx
     simulation                   = 'X'
BEHAVE_WHEN_ERROR            =
INT_NUMBER_ASSIGNMENT        =
   logic_switch                 = wa_logic_switch
NO_STATUS_BUF_INIT           = ' '
    TABLES
      return                       = it_bapiret2
      quotation_item_in            = it_order_items
      quotation_item_inx           = it_order_items_inx
     partners                     = it_partners
PARTNERCHANGES               =
PARTNERADDRESSES             =
      conditions_in                = it_quote_condition_in
      conditions_inx               = it_quote_condition_inx
QUOTATION_CFGS_REF           =
QUOTATION_CFGS_INST          =
QUOTATION_CFGS_PART_OF       =
QUOTATION_CFGS_VALUE         =
QUOTATION_CFGS_BLOB          =
QUOTATION_CFGS_VK            =
QUOTATION_CFGS_REFINST       =
    schedule_lines               = it_order_schedule
    schedule_linesx              = it_order_schedule_inx
   quotation_text               = it_texts
QUOTATION_KEYS               =
EXTENSIONIN                  =
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Regards,
Xavier.P

User exit to add header pricing condition in sales order

Hi experts,
I have an urgent requirement in VA01/VA02 to automatically add a header pricing condition and rate (Kanban charges) for a certain type of Sales order (Kanban Sales order). Does anyone know what user exit I can use for this requirement? Also, the additional header pricing condition should be included in the net value for the item.
Thanks!

HI Leo
To add a condition price for a condition type, this has to be assigned in the pricing procedure. For each condition type in a pricing procedure, we will have access sequences. If we follow this approch, the price is automatically extracted basing on the access sequences when condition records are maintained. For this, no coding is required and everything can be done by configuration by Functional consultant.
Naren is right to point out on the same.
If you need to change the price for a particular condition which already exists, you can go by pricing routines. Go through transaction VOFM for the same.
I advice you to discuss with your functional consultant and understand the requirement and then go for modifying accordingly.
Kind Regards
Eswar

Crm_order_maintain ,changing pricing condition value at item level

Hi,
I am trying to change the pricing condition value at item level while creating sales order through CRM_ORDER_MAINTAIN.
I am not able to change the condition value.
Code is below.
 wa_inputfields-ref_guid = wa_orderi-guid.
 wa_inputfields-ref_kind = 'B'.
 wa_inputfields-objectname = 'PRIDOC'.
 wa_fieldname-fieldname = 'KBETR'.
 append wa_fieldname to wa_inputfields-FIELD_NAMES.
 wa_fieldname-fieldname = 'KMEIN'.
 append wa_fieldname to wa_inputfields-FIELD_NAMES.
 wa_fieldname-fieldname = 'KPEIN'.
 append wa_fieldname to wa_inputfields-FIELD_NAMES.
 wa_fieldname-fieldname = 'KSCHL'.
 append wa_fieldname to wa_inputfields-FIELD_NAMES.
 wa_fieldname-fieldname = 'WAERS'.
 append wa_fieldname to wa_inputfields-FIELD_NAMES.
 INSERT wa_inputfields INTO TABLE it_inputfields.
wa_pricing_add-KSCHL = 'ZP06'.
wa_pricing_add-WAERS = 'USD'.
wa_pricing_add-KBETR = '10'.
wa_pricing_add-KPEIN = '1'.
wa_pricing_add-KMEIN = 'ST'.
INSERT wa_pricing_add INTO table it_pricing_add .
wa_pricing-REF_GUID = wa_orderi-guid.
wa_pricing-REF_KIND = 'B'.
wa_pricing-PRICING_TYPE = 'A'.
wa_pricing-COND_ADD = it_pricing_add.
wa_pricing-PRICING_PROCEDURE = 'ZVDSP'.
append wa_pricing to it_pricing.
Can you tell me how to overwrite the condition value while creating sales order using crm_order_maintain.?
Regards,
Indhra.E

Hello Indhra,
Check the CT_INPUT_FIELDS table, in the OBJECTNAME field you will find all the tables that are filled during the function call. Check those tables mentioned in the OBJECTNAME to look for any pricing related data.
When your order is in change mode and you activate debug just before you make the change, the CRM_ORDER_MAINTAIN FM call contains data only relevant for the change you just made. In other words, you need to fill exactly the same tables as CRMD_ORDER does.
E.g. You just change the pricing procedure and you see in debug that 5 tables are filled, you must do exactly the same in your code! It's quite anoying but you're using a low-level API FM that can handle ANY transaction type in CRM!
Check it, it works!!
Reward points if useful!
Regards,
Joost

Change Pricing Condition for an item with CRM_ORDER_MAINTAIN

Hi community,
I try to change an existing condition with the function module crm_order_maintain.
Everything looks fine, no error no dump, but no success
The condition stays the same!
Can anybody find a solution for this?
Heres my report so far:
*& Report ZTEST_PRICING2
REPORT ztest_pricing2.
DATA: lt_guid TYPE crmt_object_guid_tab,
 lt_item TYPE crmt_object_guid_tab,
 lt_saved TYPE crmt_return_objects,
 lt_pridoc TYPE crmt_pric_cond_t,
 ls_pridoc TYPE crmt_pric_cond,
 lt_pricom TYPE crmt_pridoc_comt,
 ls_pricom TYPE crmt_pridoc_com,
 lt_header TYPE crmt_orderadm_h_comt,
 lt_input TYPE crmt_input_field_tab,
 ls_input TYPE crmt_input_field,
 ls_input_fn TYPE CRMT_INPUT_FIELD_NAMES,
 ls_cond_chg TYPE prct_cond_external_change,
 ls_cond TYPE PRCT_COND_DU,
 lt_pricing_i TYPE CRMT_PRICING_I_WRKT.
PARAMETERS: lv_head TYPE crmt_object_guid DEFAULT 'C4C61C4E35DDF306E10000000A024089'.
PARAMETERS: lv_item TYPE crmt_object_guid DEFAULT '09C71C4E35DDF306E10000000A024089'.
PARAMETERS: lv_kbetr TYPE prct_cond_rate DEFAULT '100'.
INSERT lv_head INTO TABLE lt_guid.
INSERT lv_item INTO TABLE lt_item.
CALL FUNCTION 'CRM_ORDER_READ'
EXPORTING
 it_header_guid = lt_guid
 it_item_guid = lt_item
* IV_MODE =
* IV_ONLY_SPEC_ITEMS =
* IT_REQUESTED_OBJECTS =
* IV_NO_AUTH_CHECK =
* IT_ITEM_USAGE_RANGE =
* IV_SUBITEM_DEPTH = -1
* IT_OBJECT_FILTER =
* IV_ONLY_CHANGED_OBJ = FALSE
* IV_STATUS_H_CHECK_RELEVANCE = FALSE
IMPORTING
 et_pridoc = lt_pridoc
 et_pricing_i = lt_pricing_i
* CHANGING
* CV_LOG_HANDLE =
EXCEPTIONS
 document_not_found = 1
 error_occurred = 2
 document_locked = 3
 no_change_authority = 4
 no_display_authority = 5
 no_change_allowed = 6
 OTHERS = 7.
IF sy-subrc <> 0 AND lt_pridoc IS NOT INITIAL.
WRITE: / 'ERROR'.
EXIT.
ENDIF.
READ TABLE lt_pridoc INDEX 1 INTO ls_pridoc.
IF sy-subrc <> 0.
WRITE: / 'ERROR'.
EXIT.
ENDIF.
READ TABLE ls_pridoc-pric_cond INTO ls_cond WITH KEY kschl = 'PB00'.
IF sy-subrc <> 0.
WRITE: / 'ERROR'.
EXIT.
ENDIF.
ls_input-ref_guid = lv_head.
ls_input-ref_kind = 'A'.
ls_input-objectname = 'PRIDOC'.
ls_input_fn-fieldname = 'WAERS'.
INSERT ls_input_fn INTO TABLE ls_input-field_names.
ls_input_fn-fieldname = 'KBETR'.
INSERT ls_input_fn INTO TABLE ls_input-field_names.
INSERT ls_input INTO TABLE lt_input.
ls_pricom-ref_guid = lv_head.
ls_pricom-ref_kind = 'A'.
*ls_pricom-PRICING_TYPE = 'B'.
*ls_pricom-pricing_procedure = 'ZZMTA'.
ls_pricom-pric_cond[] = ls_pridoc-pric_cond[].
MOVE-CORRESPONDING ls_cond TO ls_cond_chg.
ls_cond_chg-waers = 'EUR'.
ls_cond_chg-kbetr = lv_kbetr.
INSERT ls_cond_chg INTO TABLE ls_pricom-cond_change.
APPEND ls_pricom TO lt_pricom.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
EXPORTING
 it_pridoc = lt_pricom
CHANGING
* ct_orderadm_h = lt_header
 ct_input_fields = lt_input
EXCEPTIONS
 error_occurred = 1
 document_locked = 2
 no_change_allowed = 3
 no_authority = 4
 OTHERS = 5.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION 'CRM_ORDER_SAVE'
EXPORTING
 it_objects_to_save = lt_guid
IMPORTING
 et_saved_objects = lt_saved
* ET_EXCEPTION =
* ET_OBJECTS_NOT_SAVED =
EXCEPTIONS
 document_not_saved = 1
 OTHERS = 2.
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
ELSE.
ROLLBACK WORK.
ENDIF.
regards
Markus

Hello Jordi,
The example below is whereby i was trying to copy all the pricing condition on one document to another and deleting what's not present on the source document.
You can used this piece of code to adapt your requirement.
CALL FUNCTION 'ZCRC_FM_COPY_PRICE_COND_ALL'
 EXPORTING
id_object_guid_src = <fs_el_con_guid>
id_object_guid_dest = <fs_el_so_guid>
id_commit = abap_false
 EXCEPTIONS
not_allowed = 1
error_occured = 2
OTHERS = 3.
PERFORM f_recup_donnees USING id_object_guid_src
 id_object_guid_dest.
PERFORM f_modif_condition_prix USING id_object_guid_src
 id_object_guid_dest.
PERFORM f_header_copy_pricing using id_object_guid_src
 id_object_guid_dest.
FORM f_recup_donnees USING pd_object_guid_src TYPE crmt_object_guid
 pd_object_guid_dest TYPE crmt_object_guid.
DATA:
 lt_header_guid TYPE crmt_object_guid_tab.
INSERT pd_object_guid_src INTO TABLE lt_header_guid.
INSERT pd_object_guid_dest INTO TABLE lt_header_guid.
CLEAR: gt_orderadm_i, gt_doc_flow.
CALL FUNCTION 'CRM_ORDER_READ'
 EXPORTING
 it_header_guid = lt_header_guid
 IMPORTING
 et_doc_flow = gt_doc_flow
 et_orderadm_i = gt_orderadm_i
 EXCEPTIONS
 document_not_found = 1
 error_occurred = 2
 document_locked = 3
 no_change_authority = 4
 no_display_authority = 5
 no_change_allowed = 6
 OTHERS = 7.
IF sy-subrc NE 0.
 RAISE error_occured.
ENDIF.
" F_RECUP_DONNEES
FORM f_modif_condition_prix USING pd_guid_src TYPE crmt_object_guid
 pd_guid_dest TYPE crmt_object_guid.
DATA : ld_pd_handle_src TYPE prct_handle,
 ld_pd_handle_dest TYPE prct_handle,
 lt_komv_print_src TYPE prct_cond_print_t,
lt_komv_print_dest TYPE prct_cond_print_t,
 ls_komv_print_dest LIKE LINE OF lt_komv_print_dest,
 ls_komv_print_src LIKE LINE OF lt_komv_print_src,
 lt_cond_chg TYPE prct_cond_print_t,
 lt_cond_chg_insert TYPE prct_cond_print_t,
 ls_cond_chg TYPE prct_cond_print,
 ls_cond_chg_tmp TYPE prct_cond_print,
 ls_input_fields TYPE crmt_input_field,
 lt_input_fields TYPE crmt_input_field_tab.
DATA : bal_log TYPE balloghndl,
 lt_item_ret TYPE prct_item_ret_t,
 lt_cond_ret TYPE prct_cond_print_t,
 ld_data_changed TYPE xfeld,
 gv_decimal TYPE usdefaults-dcpfm,
 ld_lines TYPE i,
 ld_ajout_cond TYPE abap_bool.
FIELD-SYMBOLS : <fs_orderadm_i_dest> TYPE crmt_orderadm_i_wrk,
<fs_orderadm_i_src> TYPE crmt_orderadm_i_wrk,
 <fs_cond_chg> TYPE prct_cond_print,
<fs_cond_chg_insert> TYPE prct_cond_print.
* Début Ajout CD1K904313-001.
DATA: ld_guid_src TYPE crmt_object_guid.
FIELD-SYMBOLS: <fs_doc_flow> TYPE crmt_doc_flow_wrk.
* Début Ajout CD1K904313-001.
* Verrouillage des documents source et destinataire
PERFORM f_lock_document USING pd_guid_src.
PERFORM f_lock_document USING pd_guid_dest.
*Récupérer le pricing handle des documents
* Document source
CALL FUNCTION 'CRM_PRIDOC_GET_HANDLE_OW'
 EXPORTING
iv_header_guid = pd_guid_src
 IMPORTING
ev_pd_handle = ld_pd_handle_src
 EXCEPTIONS
error_occurred = 1
handle_determination_error = 2
 orgdata_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 RETURN.
ENDIF.
* Document destinataire
CALL FUNCTION 'CRM_PRIDOC_GET_HANDLE_OW'
 EXPORTING
 iv_header_guid = pd_guid_dest
 IMPORTING
 ev_pd_handle = ld_pd_handle_dest
 EXCEPTIONS
 error_occurred = 1
 handle_determination_error = 2
 orgdata_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 RETURN.
ENDIF.
* A ne pas traiter les postes de type ZPDF
DELETE gt_orderadm_i WHERE itm_type = 'ZPDF'.
LOOP AT gt_orderadm_i ASSIGNING <fs_orderadm_i_dest> WHERE header = pd_guid_dest.
 REFRESH : lt_komv_print_src,
 lt_komv_print_dest,
lt_cond_chg,
lt_cond_chg_insert.
* Début Modif CD1K904313-001.
* Récupérer le guid de l'item liée au item destinataire.
 READ TABLE gt_doc_flow ASSIGNING <fs_doc_flow> WITH KEY objkey_b = <fs_orderadm_i_dest>-guid.
 CHECK sy-subrc EQ 0.
 ld_guid_src = <fs_doc_flow>-objkey_a.
* READ TABLE gt_orderadm_i ASSIGNING <fs_orderadm_i_src> WITH KEY header = pd_guid_src
* number_int = <fs_orderadm_i_dest>-number_int.
* Fin Modif CD1K904313-001.
* Récupérer les pricing document
 IF sy-subrc EQ 0.
* Document source
 CALL FUNCTION 'PRC_PD_ITEM_SHOW'
 EXPORTING
 iv_pd_handle = ld_pd_handle_src
* iv_item_no = <fs_orderadm_i_src>-guid "Supression CD1K904313-001
 iv_item_no = ld_guid_src "Addition CD1K904313-001
 IMPORTING
 et_komv_print = lt_komv_print_src
 EXCEPTIONS
 non_existing_handle = 1
 non_existing_item = 2
 ipc_error = 3
 OTHERS = 4.
 ENDIF.
* Document destinataire
 CALL FUNCTION 'PRC_PD_ITEM_SHOW'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 iv_item_no = <fs_orderadm_i_dest>-guid
 IMPORTING
et_komv_print = lt_komv_print_dest
 EXCEPTIONS
 non_existing_handle = 1
 non_existing_item = 2
 ipc_error = 3
 OTHERS = 4.
* Modification et Suppression des conditions de prix
 LOOP AT lt_komv_print_dest INTO ls_komv_print_dest .
 CLEAR: ls_cond_chg,
 ls_komv_print_src.
 MOVE-CORRESPONDING ls_komv_print_dest TO ls_cond_chg.
* Rechercher la condition sur le document source
 READ TABLE lt_komv_print_src INTO ls_komv_print_src WITH KEY kschl = ls_komv_print_dest-kschl
zaehk = ls_komv_print_dest-zaehk. "CD1K904313
 IF sy-subrc EQ 0.
 ls_cond_chg-kbetr_prt = ls_komv_print_src-kbetr_prt.
 ls_cond_chg-kwert = ls_komv_print_src-kwert.
 ls_cond_chg-kinak = ls_komv_print_src-kinak.
 ELSEIF ls_cond_chg-kschl IS NOT INITIAL.
 CLEAR ls_cond_chg.
 CONTINUE.
 ENDIF.
* Format décimal
 CASE gv_decimal.
 WHEN space. "format N.NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 WHEN 'Y'. "format N NNN NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 ENDCASE.
 INSERT ls_cond_chg INTO TABLE lt_cond_chg.
 CLEAR ls_cond_chg.
 ENDLOOP.
* Ajout des conditions de prix
 LOOP AT lt_komv_print_src INTO ls_komv_print_src WHERE kschl IS NOT INITIAL.
 CLEAR: ls_cond_chg, ld_lines, ls_komv_print_dest, ls_cond_chg_tmp, ld_ajout_cond.
* Vérifier la présence de la condition sur le document destinataire
 READ TABLE lt_komv_print_dest INTO ls_komv_print_dest WITH KEY kschl = ls_komv_print_src-kschl
zaehk = ls_komv_print_src-zaehk. "CD1K904313.
 IF sy-subrc EQ 0.
 CLEAR: ls_cond_chg, ls_komv_print_dest.
 CONTINUE.
 ELSE.
 DESCRIBE TABLE lt_cond_chg LINES ld_lines.
 READ TABLE lt_cond_chg INTO ls_cond_chg_tmp INDEX ld_lines.
 IF sy-subrc EQ 0.
 ld_ajout_cond = abap_true.
 MOVE-CORRESPONDING ls_komv_print_src TO ls_cond_chg.
 ls_cond_chg-knumv = ls_cond_chg_tmp-knumv.
 ls_cond_chg-kposn = ls_cond_chg_tmp-kposn.
 ls_cond_chg-stunr = ls_cond_chg_tmp-stunr + 10.
 ELSE.
 CLEAR: ls_cond_chg, ld_lines, ls_komv_print_dest, ls_cond_chg_tmp.
 CONTINUE.
 ENDIF.
 ENDIF.
* Format décimal
 CASE gv_decimal.
 WHEN space. "format N.NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 WHEN 'Y'. "format N NNN NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 ENDCASE.
* Récupérer les nouvelles conditions qui seront ajouté au document destinataire
 IF ld_ajout_cond EQ abap_true.
 INSERT ls_cond_chg INTO TABLE lt_cond_chg_insert.
 ENDIF.
 INSERT ls_cond_chg INTO TABLE lt_cond_chg.
 CLEAR ls_cond_chg.
 ENDLOOP.
 CALL FUNCTION 'PRC_INT_ITEM_INPUT'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 iv_item_no = <fs_orderadm_i_dest>-guid
 it_cond_prt = lt_cond_chg
 iv_bal_log = bal_log
 iv_req_ret = abap_true
 iv_req_cond_prt = abap_true
 IMPORTING
 et_item_ret = lt_item_ret
 et_cond_prt = lt_cond_ret
 ev_data_changed = ld_data_changed
 EXCEPTIONS
 non_existing_handle = 1
 non_existing_item = 2
 ipc_error = 3.
 IF sy-subrc = 0.
* En cas d'ajout de nouvelles conditions de prix, appeler le MF PRC_INT_ITEM_INPUT
* avec les montants
 IF lt_cond_chg_insert IS NOT INITIAL.
 REFRESH lt_cond_chg[].
 lt_cond_chg[] = lt_cond_ret[].
 LOOP AT lt_cond_chg_insert ASSIGNING <fs_cond_chg_insert>.
 READ TABLE lt_cond_chg ASSIGNING <fs_cond_chg> WITH KEY kschl = <fs_cond_chg_insert>-kschl.
 IF sy-subrc EQ 0.
 <fs_cond_chg>-kwert = <fs_cond_chg_insert>-kwert.
 <fs_cond_chg>-kbetr_prt = <fs_cond_chg_insert>-kbetr_prt.
 ENDIF.
 ENDLOOP.
 REFRESH lt_cond_ret[].
 CALL FUNCTION 'PRC_INT_ITEM_INPUT'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 iv_item_no = <fs_orderadm_i_dest>-guid
 it_cond_prt = lt_cond_chg
 iv_bal_log = bal_log
 iv_req_ret = abap_true
 iv_req_cond_prt = abap_true
 IMPORTING
 et_item_ret = lt_item_ret
 et_cond_prt = lt_cond_ret
 ev_data_changed = ld_data_changed
 EXCEPTIONS
 non_existing_handle = 1
 non_existing_item = 2
 ipc_error = 3.
 ENDIF.
* Publish event afin de sauvegarder les conditions de prix
 CALL FUNCTION 'CRM_EVENT_PUBLISH_OW'
 EXPORTING
 iv_obj_name = 'PRIDOC'
 iv_guid_hi = pd_guid_dest
 iv_kind_hi = 'A'
 iv_event = 'SAVE'
 EXCEPTIONS
 OTHERS = 1.
* As no order_maintain will follow implicitly and therefore no
* exec times for the events will be set, call CRM_ORDER_MAINTAIN
* without any parameters
* Then the exec time 'end of document' will be set and with the
* group logic also all exec times before
* But at least one object is needed in input_fields
* --> use PRIDOC
 ls_input_fields-ref_guid = <fs_orderadm_i_dest>-guid.
 ls_input_fields-ref_kind = 'B'.
 ls_input_fields-objectname = 'PRIDOC'.
 INSERT ls_input_fields INTO TABLE lt_input_fields.
 CLEAR ls_input_fields.
 CALL FUNCTION 'CRM_ORDER_MAINTAIN'
 CHANGING
 ct_input_fields = lt_input_fields
 EXCEPTIONS
 error_occurred = 1
 document_locked = 2
 no_change_allowed = 3
 no_authority = 4
 OTHERS = 5.
 ENDIF.
ENDLOOP.
" F_MODIF_CONDITION_PRIX
*& Form F_LOCK_DOCUMENT
* Verrouillage d'un document
FORM f_lock_document USING pd_guid TYPE crmt_object_guid.
CONSTANTS : lc_orderadm_h TYPE crmt_object_name VALUE 'ORDERADM_H',
 lc_orderadm_i TYPE crmt_object_name VALUE 'ORDERADM_I'.
DATA: lv_process_mode TYPE crmt_mode,
 lv_order_initialized TYPE crmt_boolean,
 lv_process_type TYPE crmt_process_type,
 lv_already_locked TYPE abap_bool.
DATA: ls_admin_ui_status TYPE crmt_admin_ui_status,
 ls_item_usage_range TYPE crmt_item_usage_range.
DATA: lt_objects_to_read TYPE crmt_object_guid_tab,
 lt_requested_objects TYPE crmt_object_name_tab,
 lt_item_usage_range TYPE crmt_item_usage_range_tab,
 lt_locked_contract TYPE crmt_object_guid_tab.
INSERT pd_guid INTO TABLE lt_objects_to_read.
INSERT lc_orderadm_h INTO TABLE lt_requested_objects.
INSERT lc_orderadm_i INTO TABLE lt_requested_objects.
ls_item_usage_range-sign = 'E'.
ls_item_usage_range-value = '02'.
INSERT ls_item_usage_range INTO TABLE lt_item_usage_range.
* LAM: Financing Options should be viewed in a separate screen:
ls_item_usage_range-sign = 'E'.
ls_item_usage_range-value = '05'. "Financing options
INSERT ls_item_usage_range INTO TABLE lt_item_usage_range.
*-> read document in change mode
CALL FUNCTION 'CRM_ORDER_READ'
 EXPORTING
 it_header_guid = lt_objects_to_read
 iv_mode = 'B'
 it_requested_objects = lt_requested_objects
 it_item_usage_range = lt_item_usage_range
 EXCEPTIONS
 document_not_found = 1
 error_occurred = 2
 document_locked = 3
 no_change_authority = 4
 no_display_authority = 5
 OTHERS = 6.
PERFORM enqueue_order IN PROGRAM saplcrm_order_ow IF FOUND
 USING pd_guid
 abap_false
 abap_false
 abap_false
CHANGING sy-subrc
 lv_already_locked
 lt_locked_contract.
" F_LOCK_DOCUMENT
* Fin Ajout CD1K904074-001
FORM f_header_copy_pricing USING pd_guid_src
pd_guid_dest.
DATA : ld_pd_handle_src TYPE prct_handle,
 ld_pd_handle_dest TYPE prct_handle,
 lt_komv_print_src TYPE prct_cond_print_t,
lt_komv_print_dest TYPE prct_cond_print_t,
 ls_komv_print_dest LIKE LINE OF lt_komv_print_dest,
 ls_komv_print_src LIKE LINE OF lt_komv_print_src,
 lt_cond_chg TYPE prct_cond_print_t,
 ls_cond_chg TYPE prct_cond_print,
 ls_input_fields TYPE crmt_input_field,
 lt_input_fields TYPE crmt_input_field_tab.
DATA : bal_log TYPE balloghndl,
 lt_cond_ret TYPE prct_cond_print_t,
 ld_data_changed TYPE xfeld,
 gv_decimal TYPE usdefaults-dcpfm.
* Verrouillage des documents source et destinataire
PERFORM f_lock_document USING pd_guid_src.
PERFORM f_lock_document USING pd_guid_dest.
* Récupérer le pricing handle des documents
* Document source
CALL FUNCTION 'CRM_PRIDOC_GET_HANDLE_OW'
 EXPORTING
 iv_header_guid = pd_guid_src
 IMPORTING
 ev_pd_handle = ld_pd_handle_src
 EXCEPTIONS
 error_occurred = 1
 handle_determination_error = 2
 orgdata_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 RETURN.
ENDIF.
* Document destinataire
CALL FUNCTION 'CRM_PRIDOC_GET_HANDLE_OW'
 EXPORTING
 iv_header_guid = pd_guid_dest
 IMPORTING
 ev_pd_handle = ld_pd_handle_dest
 EXCEPTIONS
 error_occurred = 1
 handle_determination_error = 2
 orgdata_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 RETURN.
ENDIF.
* * Récupérer les pricing document
* Document Source
CALL FUNCTION 'PRC_PD_HEAD_SHOW'
 EXPORTING
 iv_pd_handle = ld_pd_handle_src
 IMPORTING
 et_komv_print = lt_komv_print_src
 EXCEPTIONS
 non_existing_handle = 1
 ipc_error = 2
 OTHERS = 3.
CHECK sy-subrc EQ 0.
* Document Destinataire
CALL FUNCTION 'PRC_PD_HEAD_SHOW'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 IMPORTING
et_komv_print = lt_komv_print_dest
 EXCEPTIONS
 non_existing_handle = 1
 ipc_error = 2
 OTHERS = 3.
CHECK sy-subrc EQ 0.
* * Modification et Suppression des conditions de prix
LOOP AT lt_komv_print_src INTO ls_komv_print_src .
 CLEAR: ls_cond_chg,
 ls_komv_print_dest.
 MOVE-CORRESPONDING ls_komv_print_src TO ls_cond_chg.
* Rechercher la condition sur le document source
 READ TABLE lt_komv_print_dest INTO ls_komv_print_dest WITH KEY kschl = ls_komv_print_src-kschl
zaehk = ls_komv_print_src-zaehk.
 IF sy-subrc EQ 0.
 IF ls_komv_print_src-kbetr NE ls_komv_print_dest-kbetr.
 ls_cond_chg-kbetr_prt = ls_komv_print_src-kbetr_prt.
 ls_cond_chg-kwert = ls_komv_print_src-kwert.
 ls_cond_chg-kinak = ls_komv_print_src-kinak.
 CASE gv_decimal.
 WHEN space. "format N.NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 WHEN 'Y'. "format N NNN NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 ENDCASE.
 ENDIF.
 ENDIF.
 CLEAR ls_cond_chg-krech.
 INSERT ls_cond_chg INTO TABLE lt_cond_chg.
 CLEAR ls_cond_chg.
ENDLOOP.
CALL FUNCTION 'PRC_INT_HEAD_INPUT'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 iv_bal_log = bal_log
 it_cond_prt = lt_cond_chg
 iv_req_ret = abap_true
 iv_req_cond_prt = abap_true
 IMPORTING
 et_cond_prt = lt_cond_ret
 ev_data_changed = ld_data_changed
 EXCEPTIONS
 non_existing_handle = 1
 ipc_error = 2
 not_allowed = 3
 OTHERS = 4.
CHECK sy-subrc EQ 0.
* * Publish event afin de sauvegarder les conditions de prix
CALL FUNCTION 'CRM_EVENT_PUBLISH_OW'
 EXPORTING
 iv_obj_name = 'PRIDOC'
 iv_guid_hi = pd_guid_dest
 iv_kind_hi = 'A'
 iv_event = 'SAVE'
 EXCEPTIONS
 OTHERS = 1.
* As no order_maintain will follow implicitly and therefore no
* exec times for the events will be set, call CRM_ORDER_MAINTAIN
* without any parameters
* Then the exec time 'end of document' will be set and with the
* group logic also all exec times before
* But at least one object is needed in input_fields
* --> use PRIDOC
ls_input_fields-ref_guid = pd_guid_dest.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-objectname = 'PRIDOC'.
INSERT ls_input_fields INTO TABLE lt_input_fields.
CLEAR ls_input_fields.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
 CHANGING
 ct_input_fields = lt_input_fields
 EXCEPTIONS
 error_occurred = 1
 document_locked = 2
 no_change_allowed = 3
 no_authority = 4
 OTHERS = 5.
ENDFORM.
FORM f_header_copy_pricing USING pd_guid_src
pd_guid_dest.
DATA : ld_pd_handle_src TYPE prct_handle,
 ld_pd_handle_dest TYPE prct_handle,
 lt_komv_print_src TYPE prct_cond_print_t,
lt_komv_print_dest TYPE prct_cond_print_t,
 ls_komv_print_dest LIKE LINE OF lt_komv_print_dest,
 ls_komv_print_src LIKE LINE OF lt_komv_print_src,
 lt_cond_chg TYPE prct_cond_print_t,
 ls_cond_chg TYPE prct_cond_print,
 ls_input_fields TYPE crmt_input_field,
 lt_input_fields TYPE crmt_input_field_tab.
DATA : bal_log TYPE balloghndl,
 lt_cond_ret TYPE prct_cond_print_t,
 ld_data_changed TYPE xfeld,
 gv_decimal TYPE usdefaults-dcpfm.
PERFORM f_lock_document USING pd_guid_src.
PERFORM f_lock_document USING pd_guid_dest.
* Récupérer le pricing handle des documents
* Document source
CALL FUNCTION 'CRM_PRIDOC_GET_HANDLE_OW'
 EXPORTING
 iv_header_guid = pd_guid_src
 IMPORTING
 ev_pd_handle = ld_pd_handle_src
 EXCEPTIONS
 error_occurred = 1
 handle_determination_error = 2
 orgdata_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 RETURN.
ENDIF.
* Document destinataire
CALL FUNCTION 'CRM_PRIDOC_GET_HANDLE_OW'
 EXPORTING
 iv_header_guid = pd_guid_dest
 IMPORTING
 ev_pd_handle = ld_pd_handle_dest
 EXCEPTIONS
 error_occurred = 1
 handle_determination_error = 2
 orgdata_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 RETURN.
ENDIF.
* * Récupérer les pricing document
* Document Source
CALL FUNCTION 'PRC_PD_HEAD_SHOW'
 EXPORTING
 iv_pd_handle = ld_pd_handle_src
 IMPORTING
 et_komv_print = lt_komv_print_src
 EXCEPTIONS
 non_existing_handle = 1
 ipc_error = 2
 OTHERS = 3.
CHECK sy-subrc EQ 0.
* Document Destinataire
CALL FUNCTION 'PRC_PD_HEAD_SHOW'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 IMPORTING
et_komv_print = lt_komv_print_dest
 EXCEPTIONS
 non_existing_handle = 1
 ipc_error = 2
 OTHERS = 3.
CHECK sy-subrc EQ 0.
* * Modification et Suppression des conditions de prix
LOOP AT lt_komv_print_src INTO ls_komv_print_src .
 CLEAR: ls_cond_chg,
 ls_komv_print_dest.
 MOVE-CORRESPONDING ls_komv_print_src TO ls_cond_chg.
* Rechercher la condition sur le document source
 READ TABLE lt_komv_print_dest INTO ls_komv_print_dest WITH KEY kschl = ls_komv_print_src-kschl
zaehk = ls_komv_print_src-zaehk.
 IF sy-subrc EQ 0.
 IF ls_komv_print_src-kbetr NE ls_komv_print_dest-kbetr.
 ls_cond_chg-kbetr_prt = ls_komv_print_src-kbetr_prt.
 ls_cond_chg-kwert = ls_komv_print_src-kwert.
 ls_cond_chg-kinak = ls_komv_print_src-kinak.
 CASE gv_decimal.
 WHEN space. "format N.NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 WHEN 'Y'. "format N NNN NNN,NN
 REPLACE ALL OCCURRENCES OF '.' IN ls_cond_chg-kbetr_prt WITH ','.
 ENDCASE.
 ENDIF.
 ENDIF.
 CLEAR ls_cond_chg-krech.
 INSERT ls_cond_chg INTO TABLE lt_cond_chg.
 CLEAR ls_cond_chg.
ENDLOOP.
CALL FUNCTION 'PRC_INT_HEAD_INPUT'
 EXPORTING
 iv_pd_handle = ld_pd_handle_dest
 iv_bal_log = bal_log
 it_cond_prt = lt_cond_chg
 iv_req_ret = abap_true
 iv_req_cond_prt = abap_true
 IMPORTING
 et_cond_prt = lt_cond_ret
 ev_data_changed = ld_data_changed
 EXCEPTIONS
 non_existing_handle = 1
 ipc_error = 2
 not_allowed = 3
 OTHERS = 4.
CHECK sy-subrc EQ 0.
CALL FUNCTION 'CRM_EVENT_PUBLISH_OW'
 EXPORTING
 iv_obj_name = 'PRIDOC'
 iv_guid_hi = pd_guid_dest
 iv_kind_hi = 'A'
 iv_event = 'SAVE'
 EXCEPTIONS
 OTHERS = 1.
ls_input_fields-ref_guid = pd_guid_dest.
ls_input_fields-ref_kind = 'A'.
ls_input_fields-objectname = 'PRIDOC'.
INSERT ls_input_fields INTO TABLE lt_input_fields.
CLEAR ls_input_fields.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
 CHANGING
 ct_input_fields = lt_input_fields
 EXCEPTIONS
 error_occurred = 1
 document_locked = 2
 no_change_allowed = 3
 no_authority = 4
 OTHERS = 5.

Header Condition distribution to item

Hi all,
I would like to create a header condition type that will distribute the amount to the item according to the qty, whereas condition such as HB00 and HM00 are distribute according to value.
How could I set the condition in order to do that?
Thank you.

Hi,
You can copy Condition Type HB00 for this purpose.
Ensure that "Header Condition" and "Group Condition" check box must have been checked/ticked.
You need not change the "Calculation Type" to C, as it will not work.
In standard system, Header Condition like HB00 are distributed on the basis of Net Value.
If you want to change the basis of distribution (quantiy or weight etc) then, in the Pricing Procedure, you assign the appropriate routine in the "Alt Cond Base Value" column for your Header Condition.
This will serve your purpose.
At present, I do not have access to SAP, therefore I can not tell the adject routine to be used.
You can search the appropriate routine from the drop down. I hope it is available in standard.
Regards
Pradyumna

Header Pricing Condition?

HI
My Client Requirement is like they wants shipping Charges at header level only. and we are maintaing two C.Type for the Shipping Charges at header level and this condition and its values come from Z-Table.and in Z-table we are maintaing C.Type and its Values. if the requirement is fullfilled then this C.Type and its Value will populate at Header level. Now after putting logic by ABAPER when i m looks to Header condition. at there only AMOUNT value is coming, its not passed to C.VALUE Field, So its charges is not calculated.. but if I put the values manaully and activate then and then its passed to C.VALUE Field. But i want this values from the Z-table without activate...Please let me know is there any control parameter for C.Type to automatic Activation at header level..
Regard
Pinal...

Dear Pinal
No just for my information, I had asked.
Meanwhile, for information, as far as Header Conditions is concerned as you said, the value WILL flow in "Amount" but NOT in "Condition Value" which is the behavious of Header Conditions.
You must activate pricing, by choosing Activate. When you activate the header condition, the system distributes the condition value proportionally among the various items in the sales document. This distribution can be based on the order value of each individual item or on other criteria specified in Customizing for Sales
Thanks
G. Lakshmipathi

Header Pricing Condition - distribution to items question

Similar Messages

Maybe you are looking for