LSMW Pricing Condition changes

Hi,
I need to create a LSMW to change pricing condiitons in condition type PR00 for access sequence table 006 (Price List Type/Currency/Material). I did the following:
1. Defined Object attributes Standard/Batch Direct Input 0070 (Condition record) Program Name RV14BTCI and Program type B (Batch). Method is 000.
2. Where do I define that the new records have to go into this table 006? Will it be in the source structures? Source fields? Can anyone explain me step by step how this will work? And what will be the subsequent steps? The documentation I have on LSMW isn't much help unfortunately and is very generic. I need specific solution/steps to this pricing condition table. Any guidance on it?
Thanks a lot.

Hi Kevin
Pl. check this link on LSMW pricing :
<a href="http://sap-img.com/sap-data-migration.htm">LSMW</a>
<a href="http://sap-img.com/sd001.htm">to upload pricing conditions</a>
Pl reward if it helps.
Thanks & Regards
Sadhu Kishore

Similar Messages

How to handle the different pricing conditions changes in BI.

Dear Friends
can any one send me Regarding
How to handle the different pricing conditions changes in BI.
Thanks & Regards
Ramana

Hi,
Take a look at the 0sd_o06 ODS and 2lis_13_vdkon datasource for sales billing conditions.
http://help.sap.com/saphelp_nw70/helpdata/EN/36/8188408bc0bb4de10000000a1550b0/frameset.htm
http://help.sap.com/saphelp_nw70/helpdata/EN/7f/0f8c4037fba62be10000000a1550b0/frameset.htm
Regards.

Automatic PO adjustment for pricing condition changes sap

Hello SAP users,
How to prevent automatic PO adjustment for pricing condition changes to purchase order items that are marked for deletion. Please respond.
Thanks

Hi,
Check the settings in below configuration:
SPRO>MM>Purchasings>Conditions>Automatic document adjustment-->Control doc. adjustment.
SAM

LSMW Pricing Conditions Conversion

Hello.
We are trying to import a large number of pricing conditions. However, the program LSMW uses limits us to about 7 conditions. This, apparently, is because the screen size it is using is small (I have run it in the foreground and seen this). There is a note about this from several years ago, but that should have been addressed in the version we're using.
Questions:
1. Is there a way around this?
2. My friendly Basis people say I will have to modify the program. Has anyone done this?
3. Have I posted this to the correct forum? If not, kindly point me in the right direction.
Thank you.
-Bob Gordon

Hi Bob,
It did work for me, I just tested it.
See below
my header data file1:
PRICE_HEADER FILE STRUCTURE FOR PRICE HEADER.
KOTABNR C(003) condition table
KSCHL C(004) condition type
VAKEY C(100) Variable key
DATBI C(008) Validity end date
DATAB C(008) validity start date
KBETR C(015) Amount field
KONWA C(005) unit/currency Rate
KPEIN C(005) pricing unit
KMEIN C(003) Unit of measuremen
File content
503ZP010032013660000238-005 200612312006013150 USD 1 EA ( One single line in fixed length format)
SCALE structure
KOTABNR C(003) condition table
KSCHL C(004) condition type
VAKEY C(100) Variable key
KSTBM C(015) Scale quantity
KONMS C(003) Scale unit of meas.
KBETR_S C(018) Condition rate
File content
503ZP010032013660000238-005 1 EA 50
503ZP010032013660000238-005 2 EA 49
503ZP010032013660000238-005 3 EA 48
503ZP010032013660000238-005 4 EA 47
503ZP010032013660000238-005 5 EA 46
503ZP010032013660000238-005 6 EA 45
503ZP010032013660000238-005 7 EA 44
503ZP010032013660000238-005 8 EA 43
503ZP010032013660000238-005 9 EA 42
503ZP010032013660000238-005 10 EA 41
503ZP010032013660000238-005 11 EA 40
503ZP010032013660000238-005 12 EA 39
503ZP010032013660000238-005 13 EA 38
503ZP010032013660000238-005 14 EA 37
503ZP010032013660000238-005 15 EA 36
503ZP010032013660000238-005 16 EA 35
503ZP010032013660000238-005 17 EA 34
503ZP010032013660000238-005 18 EA 33
503ZP010032013660000238-005 19 EA 32
503ZP010032013660000238-005 20 EA 31
(Format the data to the fixed lenth per the above structures)
Change that condition type, condition table and the material number per ur requirement.
when you execute the step for create the session select like below.
Max no records per transaction 1
Max. no. cond. recs per screen 1
Max no. scales per screen 7
Max. no. cond. recs in table 500
Let me know if you still have an issue, you may also reach me at [email protected] for any queries.
Thanks,
Prabhu.

Block Sales order if pricing condition changed manually (no delivery)

Hi,
Requirement is to block sales orders for review by a manager if pricing condition amount is changed manually. Only a manager should be able to review and release the sales order for billing. There is no delivery, item is service.
Thanks

Hi,
This can be achieved as follows:
1) SAP Standard updates the field KOMV->KSTEU for respective price condition type as soon as its changed Manually.
2) Through enhancement automatically delivery block should be set at Sales Order Header, for which User (Sales End User) should not have rights to change.
3) Respective Sales Manager should receive a mail regarding the same.
Point '3' can be done manually i.e user will request respective Manager to do the needful.
RB.

Remove from Billing Plan after Pricing Condition change

Hi all,
I am trying to implement code to deduct from the last date of a billing plan once a pricing condition type is used. Currently, when you enter the pricing condition it spreads the deduction amount across all of the dates in a billing plan.
If we use VOFM, where would I define this? I've created code in the Pricing Requirements but table FPLT is not available to me and I don't know how to only remove from the last date instead of all.
Thanks in advance!

Hello,
If you have necessary authorization to change the Pricing Date in Invoice, please go ahead.
Change the Pricing date in Invoice, go to Conditions tab & update the Pricing. System will fetch Condition Records as on that date.
Hope this helps,
Thanks,
Jignesh Mehta

Pricing conditions changed should get approval

Dear Experts,
We have a requirement. A report should run every night which should output the changes in an existing condition record. The result of the report should be sent to the respective manager for approval.
How can we configure this please help.
Thanks in advance..

Hiii
Here is standard T-code available for the same, AUT10, Kindly explore to meet ur requirement.
Thanks and regards
Shambhu Sarkar

Change Pricing Condition access

Hi Pricing Gurus,
I have a novel situation here. I need to determine two customer discounts in a sales document for two separate partners- Sold to Party (SP) and a Reseller Partner (ZV). I have two condition types K007 to determine Sold to customer discount and ZVCR to determine Reseller Partner Discount.
As there are so many condition records for customer discounts we do not want to maintain the condition records for K007 and ZVCR separetly. We want to maintain condition records for K007 and use the reference condition in ZVCR (pointing to K007) to access the K007 condition records.
The issue we have here is that the Partners to access the conditon records for K007 & ZVCR need to be different. If we have set in ZVCR reference condition as K007, it will pull the Sold to discount for ZVCR instead of for Reseller Partner (ZV).
I am exploring the possibility of changing the condition access during runtime for condition ZVCR such that it changes the Partner from Sold to Party (SP) to ZV while making an access to K007 condition records. Which user exit should I use to accomplish this?
It is a novel issue and I am sure there are pricing experts out there who have encoutered this before. Waiting for your suggestions......
Regards,
Dev

Hi Kevin
Pl. check this link on LSMW pricing :
<a href="http://sap-img.com/sap-data-migration.htm">LSMW</a>
<a href="http://sap-img.com/sd001.htm">to upload pricing conditions</a>
Pl reward if it helps.
Thanks & Regards
Sadhu Kishore

How to change pricing Conditions in Sales order in change sales order bapi

Hi Experts,
How to change pricing Conditions in Sales order in change sales order bapi.
I have used the 2 function modules bapi-changesalesorder and sd salesdocument change, But it is creating the new record , instead of changing the existing one, Could please assist regarding the same
Thanks in Advance .
NLN

HI NLN
I have just tried on my system and managed to overwrite the existing price by passing the following parameters.
Import Paramters:
 SALESDOCUMENT - Sales Document Number
 ORDER_HEADER_INX - UPDATEFLAG as 'U'.
 LOGIC_SWITCH - Import Structure - Pass 'X' to LOGIC_SWITCH-COND_HANDL.
Tables:
 CONDITIONS_IN - ITM_NUMBER,
 COND_COUNT, -> Condition counter same as KONV-ZAEHK generally it is '01'
 COND_TYPE,
 COND_VALUE,
 CURRENCY.
 CONDITIONS_INX - ITM_NUMBER,
 COND_COUNT,
 COND_TYPE,
 UPDATEFLAG as 'U',
 CURRENCY.
 Hope i have clarified your query.
Kind Regards
Eswar

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.

SAP report showing sales orders on which pricing conditions have been chang

Is there a SAP report that shows a list of sales orders on which pricing conditions have been changed.
My knowledge is:
Review pricing condition transaction data table (KONV) helps is some way.

Hi Ashish,
I don't know any such a report, but I guess you can play arround with table CDPOS.
Change doc. object = VERKBELEG
Table Name = KONVC.
Actually this will take lot of time.
Thanks,
Mandar

How to change exchange rate type for specific pricing condition type

Hello every one,
I have a requirement for billing ie VF01.
currently all the exchange rate are being calculated with exchange rate type 'M' by default.
but now client want it should calculate exchange rate with type 'E' for two pricing condition type for all others it should calculate with type 'M'
Please any body can help me with the exit and code which i can use.
I have checked exits SDVFX008.
but how to change exchange rate with type 'E' only for two conditions.
as changing exchange rate at document header will change exchange rate for all condition type.

You need to assign KOMK-KURST = 'E', for those two condition types. If it had been item number specific, you could have used USEREXIT_PRICING_PREPARE_TKOMK(RV60AFZZ).
Do one thing, put a breakpoint on FM 'PRICING' and then do selective runtime analysis.
Check whether any user exit/BADI/ explicit enhancement are available when condition types are processed in a loop. If nothing is available, try implicit enhancement.
Link to refer for selective runtime analysis - Runtime Analysis for VOFM
Also try with VOFM requirements ( not sure whether changing KOMK-KURST is permissable in requirement as normally we only set sy-subrc values to suppress/allow condition types ). Don't forget to assign requirements against condition types in pricing procedure.

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

Change of pricing condition in sales after delivering or invoicing of a sub

Hello,
I have to change the pricing condition of a sales order item, condition type PR00, after a sub quantity had been delivered or invoiced to the customer. BAPI_SALES_ORDER change I tried with did not work but also I got no error.
w_inx-updateflag = 'U'.
w_cond-itm_number = '000010'.
w_cond-cond_type = 'PR00'.
w_cond-cond_value = 999.
w_cond-currency = 'EUR'.
APPEND w_cond TO t_cond.
w_condx-itm_number = '000010'.
w_condx-cond_type = 'PR00'.
w_condx-updateflag = 'U'.
w_condx-cond_value = 'X'.
w_condx-currency = 'X'.
APPEND w_condx TO t_condx.
w_vbeln = p_in. <--- from input parameter
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
 EXPORTING
 salesdocument = w_vbeln
 order_header_inx = w_inx
 TABLES
 return = t_ret
 conditions_in = t_cond
 conditions_inx = t_condx.
How can I change the price and trigger a new pricing for the sales order?
Thank you for your time
Regards
Norbert

Hi
In the transaction VOFM, tab -> Formulas -> Condition Value , create a new routine, no need to copy from existing as you will be writing your own logic.
In this new routine, set xkwert to your required value.
Ask your SD functional to assign this formula to ZAS2 condition in the transaction V/08.
I hope this might help.
Best Regards,
Nikhil Patil

How to change pricing conditions

Hello Experts,
i'm trying to change pricing conditions in routines.
SPRO --> SD --> System Modifications --> Routines --> Define Copying Requirements (double click any activities) --> it will open "Maintain Requirement and Formula"
select from menubar "Formulas --> Condition Value"
Routine Number --> 36 - Cumulation condition.
i want to change conditions in this Routine 36, so i copy this routine and create a new routine name
901 - Cumulation condition
i want to change Pricing Conditions in this routines. this standard routine adding all sub-total pricing values. but i want to display all sub-total pricing value separately in there respective field.
i'm checking this result in VA11.
any ideas? i know i have to change code in this copied rotines for this calculations. but i'm not finding any clue where this value is getting added in each sub-total field level.
if any more clarification needed, please ask.

Hi Rabindra
For Net Price you can refer this Note 80183.
Neha

LSMW Pricing Condition changes

Similar Messages

Maybe you are looking for