Creation of PO with tow default pricing conditions

hello,
can you please indicate to me how I can have by default two conditions RA00 and HB01 with a value 0 during the creation of a PO? how can make this customizing in the pricing procedure?
thank in advance.
Said

Hi,
Every condition maintain in Pricing procedure are shows Zero value at Purchase Order if your not maintain condition records for some rate.
and also it not possible to maintain a condition records for Zero rate.
so for your req, just maintain the condition at pricing procedure by selecting print indicator.
regards
Sanjay L

Similar Messages

Contract with monthly half pricing conditions

Hi
Iu2019m trying to use a contract with monthly half pricing conditions.
When sales orders are created during the first monthly half, I need to use a specific price.
When sales orders are created during the second monthly half, I need to another specific price.
Please let me know your comments.
Regards

Create two condition types that fetch the specific price for each part of month.
Then, you can set these two condition types consecutively in the pricing procedure with pricing requirement code that checks for the part of the month and sets SY-SUBRC to zero or not according to the first or later part of the month. This will allow one pricing condition type to trigger the first part of month while the other triggers the later part.

Sales order pricing conditions

Can any one let me know what are the tables that are updated while working with sales order pricing conditions .......      r sales order conditions

Hi Ali,
VBRK     Billing document :header data
VBRP     Billing document :Item data
KONH      Conditions header
KONP     Conditions items
KONV     Procedure ( billing doc or sales order)
KOND     Conditions (data)
These tables will give sufficient information on Sales order pricing and its billing conditions etc.
best regards
Ramakrishna

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

Create pricing condition with default value in processing process field

hi all,
when i maintain the pricing conditions with vk11 or vk31, i want the price maintained is set default as blocked (the processing status field-KBSTAT). can it be done? i am using 4.6c.

You should try to use transaction variant
<i>Transaction variants simplify transaction flow by:
Inserting default values in fields
Changing the ready for input status of fields
Hiding various screen elements and menu functions, or even entire screens
Adjusting table control settings
When you create a transaction variant, you run through the transaction in a special mode. In this mode, you decide which elements you no longer need in your transaction and which values should be inserted where. If you choose to hide an entire screen, the system will no longer display that screen in the transaction and will proceed on to the next screen in the series. You can also adjust table control settings and determine the width of columns and the order in which you want them displayed. In tab strips, you can suppress tabs that you no longer need by setting them to invisible.
You may also create as many variants for a transaction as you desire. One of these variants can be defined as a standard variant. This variant is then valid across all clients. You may also assign different variants to specific users.
This is done using Variant Transactions. Variant transactions are then places in those users user menus instead of the standard transaction. </i>
To use this : Tools -> Accelerated SAP -> Personalization (transaction SHD0)
Regards

BAPI for creation of Credit Note with custom pricing condition

I need to create a Credit Note with reference Invoice via program. So, I am planning to use BAPI. Could you please suggest appropriate BAPI? I need to send a pricing condition that is set manually in the credit note as well. So, I will needto pass pricing condition and value. Thanks.

Hello,
Why you have to create the credit note using BAPI w.r.t. invoice ? Can you brief the senario .
The simple way is create a credit memo request in VA01 w.r.t. invoice number. It will have the block . Remove the block and Create credit memo in VF01 .
Thanks
RK

Maintain Excise defaults for pricing condition in TAXINN procedure

Hi all,
I post this message as I'm customizing CIN part for creation and calculation of excise invoice. I have read lot of post but i'm a bit confused about right procedure to adopt. I try to explain:
I'm doing a stardard sales flow (sales order -> delivery -> commercial invoice -> excise invoice) and the only method I have found to flow excise values in excise invoice is to insert pricing conditions in India -> Basic settings -> Determination of excise duty -> Maintain excise defaults for TAXINN procedure.
In this table I have insert pricing conditions I use in my SD pricing schemas (in this case I use a copy of JINFAC). I have insert pricing conditions corresponding to BED % and BED total, and also CESS % and total and S&HCESS % and total.
If I remove pricing condition from this table, corresponing value in excise invoice, when I create it, become 0.
My dubt is if is correct to populate with table to flow excise values in excise invoice. I ask it as I have read differents approach and differents customizing settings applied in similar situations. In particular, I have found documentation in which, for TAXINN procedure, is recommended to leave blank "excise defaults" (with exception of CVD condition). What is the right method to use?
There is one right procedure or, as it seems reading posts, someone have to do his "proper CIN customizing" based on results that have to obtain?
Thanks in advance for any contribute that can help to clarify this situation.
Regards
Gianpaolo

Hi all,
I think to have found solution to my dubt.
If I use "condition based Excise determination" I have to insert records with pricing schema (if is a copy of standard J* schema, like ZINFAC that is a copy of JINFAC) and excise pricing conditions in the transaction below:
India -> Basic settings -> Determination of excise duty -> Condition-based Excise determination -> Classify condition type
To determine value in excise invoice seems that program check before table in transaction described before. If in this table don't find records for pricing schema-excise pricing condition the program check also table in transaction below:
India -> Basic settings -> Determination of excise duty -> Maintain excise defaults
If during this second check find excise pricing conditions insert, can determine equally the values of excise in excise invoice.
This is the result of my checks. I hope this could be useful for other people with similar problem.

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.

Pricing condition redetermination for sales order created with reference

Hi,
Are there any exit or routines that can be used to redetermine MWST pricing condition alone when creating sales order with reference to another sales order? The pricing from preceeding sales order is copied but we need only MWST to be redetermined after saving the order
This is because we are making changes so that while saving the sales order the material tax classification is defaulted to M based on some conditions so that MWST picks up the value M
Regards,
Vin

Hello Vinod ,
did you tried following options :-
1.Using Exit ( MV45aFzz) and re calculte pricning using FM 'PRICING'.
2.or Using Copy Control (Tcode : VOFM ) while creating order with Ref.
regards
Prabhu

Copying STO PO pricing condition to Billing During Billing creation

Hi,
MM and SD pricing conditions are not similar.
And I cant use Copy PO Basic price in billing Document
I was advised to try USEREXIT_PRICING_PREPARE_TKOMP or USEREXIT_PRICING_PREPARE_TKOMK.
How do I copy the Pricing condition from the STO PO to Billing during billing creation?
Is there an FM i can use to extract the pricing condition given the STO PO?
thanks,
NC

Hi
If the option of Raghavendra doesn't work for you (parameters in copy rule for invoice), try with VOFM subroutines (Condition formula for alternative calculation type) in the pricing procedure. Surely it will be slower, but it must work. How? You have in KOMP the values for VGBEL and VGPOS with the delivery number and item. So, seach the PO number in the same way. When you have the PO number, with the value of field KNUMV search the value of condition in table KONV.
I hope this helps you
Regards
Eduardo
PD: I forgot. The userexits that you mention is to populate KOMP/KOMK for customer fields. See SAP Note 531835 - Using field PSTYV in the condition access for futher information.
Edited by: E_Hinojosa on May 16, 2011 9:21 AM

Default value for pricing condition

Hi,
I have a requirement for a manual pricing condition for Minimum Order charge - ZMIN - to be automatically populated with a fixed value of £6 when entered manually onto an order.
Please advise if this is possible.
Thanks in advance.
Mike

Thanks for that SAP2020.
Where would I put the default value of £6? When I go into the order, I'd want the user to key in the pricing condition of ZMIN and then the condition value to be automatically populate with £6 automatically rather than having the user key the value manually.
I don't want to use condition records/access sequences to define the £6 as the minimum order charge is at the discretion of the person taking the order.
Thanks again,
Mike

Free Goods with pricing condition (Urgent)

Hi MM Expert,
we have a probleme with free goods. because in PO item of free goods, there is no condition management (no Invoice entry) but we should manage some pricing condition for the item (spécifique condition relative to transport, ...).
so are the any way of managing the expenses annex condition(transport charge, customs clearance charges,) for the free goods in an item of Purchase Order ??
thank's in advance.
Said

Hi,
This is not possible to maintain the condition s for free goods because while creating the PO for free goods by selecting the free goods tad at item level, There is no Condition tab at Item detail .means you are not able to mainatin conditions.
If you want to maintain the conditions ,you have to treat as a Normal scenarios .
Regards
Sanjay L

Report to check materials list with missing pricing conditions

Hi,
I have two levels in the BOM. Sales material in the top and purchase material in the bottom. I create VK11 pricing (condition type: XP00) for SALES ORG/ MATERIAL and SALES ORG/ MATERIAL/ CUSTOMER level for both materials. Is there any standard SAP report to display materials I missed to enter pricing conditions.
Thanks,
Sam

Dear Sam
I dont know there is such report which fulfills your requirement. but i suggest you to run V/LD and select Material Prices at 15. Give sales organization, distribution channel, condition type and material range from and to. For example i just executed report with
Sales organization        1000
Distribution Channel       60
Material                          1900000         1999999
Condition                        PR00
The system will show you the materials for which you have maintained condition record. Export this report to excel and use VLOOKUP for your requirement.
Update your response.

Problem with pricing condition type in case of proforma invoicing

Hello All,
the problem is related to a pricing condition type in case of proforma invoice where the details are as follows -
Name of Condition Type - ZADC - Add 10% on Cost                                         Access seq.   Z038 Diff
                                                                                Plus/minus    A Positive
Cond. class - A Discount or surcharge
Calculat.type - A Percentage
Cond.category - Blank
Manual entries      D Not possible to process manually
Amount / Percent - Checked
Item Condition - checked
Scale Basis - Quantity
Currency Conversion - Checked
Quantity Conversion - Checked
This condition type has been kept as statistical in the pricing procedure. Still in the proforma invoice the condition type is not getting reflected automatically , whenever I am updating with " carry out new pricing " option the condition type is getting populated.In case of other commercial invoices this very condition type is getting populated automatically without any updates.Along with this point to be noted is that the Condition type in which the actual costi is captured has been kept active.
What more needs to be configured or what are the changes to be done to populate the condition type automatically as statistical during the time of proforma invoicing?
Thanks & Regards
Priyanka Mitra

Hi,
Kindly do the pricing analysis and check whether you have the following error such as
Inactive condition type because of subsequent price,
Regards,
Ravi

Exit for changing Pricing Conditions with change in Ship to party

Hi All,
In transaction VA01/ VA02 the pricing conditions are getting calculated with respect to the Sold-to-party no.. Instead I wanted it to get calculated with respect to the Ship-to-party. Please guide me with an Exit that i can use, or any other way of solving this.
Thanks in Advance.

Hi Roberto,
I am creating a sales order with transaction VA01 using a Sold-to-party say 1 and a Ship-to-party 2. While saving the order the tax calculations (if it is interstate - cst and intrastate - vat) are happening with respect to the Sold-to-party.
But I want it to happen with respect to the Ship-to-party. Is there anyway of changing this tax calculations in the pricing condition to take place with respect to my Ship-to-party.

Creation of PO with tow default pricing conditions

Similar Messages

Maybe you are looking for