Loading program for pricing conditions

[Former Member]

Hi,

Can anyone guide me in writing the code for Loading Condition records in Vk11, either BAPI or BDC.

<<removed by moderator>>

Thank you

[Former Member]

Hi

check this code

loop at it_werks into wa_werks.

clear v_index.

perform bdc_dynpro using 'SAPMV13A' '0100'.

perform bdc_field using 'BDC_CURSOR'

'RV13A-KSCHL'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RV13A-KSCHL'

'ZPUP'.

perform bdc_dynpro using 'SAPMV13A' '1911'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'KOMG-WERKS'

wa_werks-werks.

v_index = 1.

loop at it_bdcdata into wa_bdcdata where werks = wa_werks-werks.

if v_index > 15.

perform bdc_dynpro using 'SAPMV13A' '1911'.

perform bdc_field using 'BDC_OKCODE' '=P+'.

v_index = 2.

endif.

clear v_string.

concatenate 'KOMG-MATNR(' v_index ')' into v_string.

perform bdc_field using v_string

wa_bdcdata-matnr.

clear v_string.

concatenate 'KONP-KBETR(' v_index ')' into v_string.

perform bdc_field using v_string

wa_bdcdata-kbetr.

clear v_string.

concatenate 'KONP-KONWA(' v_index ')' into v_string.

perform bdc_field using v_string

wa_bdcdata-konwa.

clear v_string.

concatenate 'KONP-KPEIN(' v_index ')' into v_string.

perform bdc_field using v_string

wa_bdcdata-kpein.

clear v_string.

concatenate 'RV13A-DATAB(' v_index ')' into v_string.

perform bdc_field using v_string

wa_bdcdata-datab.

clear v_string.

concatenate 'RV13A-DATBI(' v_index ')' into v_string.

perform bdc_field using v_string

wa_bdcdata-datbi.

clear v_string.

v_index = v_index + 1.

endloop.

perform bdc_field using 'BDC_OKCODE'

'=SICH'.

perform bdc_transaction using 'VK11'.

endloop.

form bdc_field using fnam type bdcdata-fnam

fval type any.

if fval <> ''.

clear wa_bdc.

wa_bdc-fnam = fnam.

wa_bdc-fval = fval.

append wa_bdc to it_bdc.

endif.

endform. "BDC_FIELD

form bdc_transaction using tcode type c.

• REFRESH it_messtab.

call transaction tcode using it_bdc

mode c_ctumode

update c_cupdate.

commit work and wait.

refresh it_bdc[].

endform. "bdc_transaction

redards

Rao

[Former Member]

thx