Hi Peter,
See the below code it is working for me. if you are not using suppliment conditions, you can remove the suppliment pricing procedure from the condition type.
Regards,
Murali Mikkili
Report Zxxxxx.
*- Data
DATA: cr LIKE TABLE OF komv WITH HEADER LINE,
key_fields LIKE TABLE OF komg WITH HEADER LINE,
ls_komk TYPE komk,
ls_komp TYPE komp,
copy_staffel LIKE TABLE OF condscale WITH HEADER LINE,
lt_knumh TYPE STANDARD TABLE OF knumh_comp,
t_komv_idoc LIKE TABLE OF komv_idoc WITH HEADER LINE.
*- Fill Key fields
CALL FUNCTION 'SD_CONDITION_KOMG_FILL'
EXPORTING
p_kotabnr = '304'
p_kvewe = 'A'
p_vakey = '100010F-01'
IMPORTING
p_komg = key_fields.
*- Fill KOMK
MOVE-CORRESPONDING key_fields TO ls_komk.
ls_komk-mandt = sy-mandt.
*- Fill KOMP
MOVE-CORRESPONDING key_fields TO ls_komp.
ls_komp-kposn = '000001'.
*- Fill KOMV_IDOC
t_komv_idoc-kznep = 'X'.
APPEND t_komv_idoc.
*- Fill KOMV
cr-kappl = 'V'.
cr-kschl = 'PR00'.
cr-kbetr = '21'. " Unit Price
cr-krech = 'C'.
cr-kpein = '1'.
cr-kmein = 'EA'.
cr-waers = 'EUR'.
cr-knumh = '$000000001'.
cr-mandt = sy-mandt.
* Bellow are the important fields in KOMV for scales.
cr-kopos = 1.
cr-kzbzg = 'C'.
cr-konms = 'EA'.
cr-stfkz = 'A'.
APPEND cr.
* - Fill Scales
*- Scale Item 1
copy_staffel-klfn1 = '0001'.
copy_staffel-kopos = '01'.
copy_staffel-kstbm = '1'.
copy_staffel-kbetr = '21'. " Scale Price
copy_staffel-kzbzg = 'C'.
copy_staffel-rv13akonwa = 'EUR'.
copy_staffel-konpkmein = 'EA'.
copy_staffel-konpkonms = 'EA'.
APPEND copy_staffel.
*- Scales item 2
copy_staffel-klfn1 = '0002'.
copy_staffel-kopos = '01'.
copy_staffel-kstbm = '10'.
copy_staffel-kbetr = '18'. " Scale Price
copy_staffel-kzbzg = 'C'.
copy_staffel-rv13akonwa = 'EUR'.
copy_staffel-konpkmein = 'EA'.
copy_staffel-konpkonms = 'EA'.
APPEND copy_staffel.
*- Scales item 3
copy_staffel-klfn1 = '0003'.
copy_staffel-kopos = '01'.
copy_staffel-kstbm = '10'.
copy_staffel-kbetr = '14'. " Scale Price
copy_staffel-kzbzg = 'C'.
copy_staffel-rv13akonwa = 'EUR'.
copy_staffel-konpkmein = 'EA'.
copy_staffel-konpkonms = 'EA'.
APPEND copy_staffel.
CALL FUNCTION 'RV_CONDITION_COPY'
EXPORTING
application = 'V'
condition_table = '304'
condition_type = 'PR00'
date_from = '20131101'
date_to = '99991231'
enqueue = 'X'
i_komk = ls_komk
i_komp = ls_komp
key_fields = key_fields
maintain_mode = 'A'
no_authority_check = 'X'
* keep_old_records = 'X'
used_by_idoc = 'X' " when suppling scales prices, this flag must be X else price will be created with Zero price.
overlap_confirmed = 'X'
TABLES
copy_records = cr
copy_staffel = copy_staffel
copy_recs_idoc = t_komv_idoc
EXCEPTIONS
enqueue_on_record = 01
invalid_application = 02
invalid_condition_number = 03
invalid_condition_type = 04
no_authority_ekorg = 05
no_authority_kschl = 06
no_authority_vkorg = 07
no_selection = 08
table_not_valid = 09.
BREAK-POINT.
CALL FUNCTION 'RV_CONDITION_SAVE'
TABLES
knumh_map = lt_knumh.
CALL FUNCTION 'RV_CONDITION_RESET'.
COMMIT WORK AND WAIT.
