*---for BDC
data: c_update type c value 'S'.
data: bdcdata type table of bdcdata with header line.
data: messtab type table of bdcmsgcoll with header line.
data: gt_messtab type table of bdcmsgcoll with header line.
*---出厂价
perform bdc_dynpro using 'SAPMV13A' '0100'."初始界面
perform bdc_field using 'BDC_CURSOR' 'RV13A-KOTABNR'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'RV13A-KSCHL' 'ZP00'.
perform bdc_field using 'RV13A-KOTABNR' '951'.
perform bdc_dynpro using 'SAPMV13A' '1951'.
perform bdc_field using 'BDC_CURSOR' 'RV13A-DATBI(01)'.
perform bdc_field using 'BDC_OKCODE' '=PSTF'."价格等级按钮
perform bdc_field using 'KOMG-WERKS' '1000'.
perform bdc_field using 'KOMG-SPART' '01'.
perform bdc_field using 'KOMG-MATNR(01)' '000000000006026021'.
perform bdc_field using 'KONP-KBETR(01)' '19.9'.
perform bdc_field using 'KONP-KONWA(01)' 'CNY'.
perform bdc_field using 'KONP-KMEIN(01)' 'KG'.
perform bdc_field using 'RV13A-DATAB(01)' '20110910'.
perform bdc_field using 'RV13A-DATBI(01)' '20111001'.
perform bdc_dynpro using 'SAPMV13A' '0303'.
perform bdc_field using 'BDC_CURSOR' 'KONM-KBETR(04)'.
perform bdc_field using 'BDC_OKCODE' '=SICH'."保存按钮
perform bdc_field using 'KONM-KSTBM(02)' '10'.
perform bdc_field using 'KONM-KBETR(02)' '19.8'.
perform bdc_field using 'KONM-KSTBM(03)' '20'.
perform bdc_field using 'KONM-KBETR(03)' '19.7'.
perform bdc_field using 'KONM-KSTBM(04)' '30'.
perform bdc_field using 'KONM-KBETR(04)' '19.2'.
perform call_transaction_form using 'VK15'. "实现数据导入
**********************************************************************
form bdc_field using fnam fval.
clear bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
condense bdcdata-fval.
append bdcdata.
endform. "BDC_FIELD
**********************************************************************
form call_transaction_form using tcode.
call transaction tcode
using bdcdata
mode 'E'
update c_update
messages into messtab.
append lines of messtab to gt_messtab.
clear messtab.clear messtab[].
clear bdcdata.clear bdcdata[].
endform. "CALL_TRANSACTION_form
**********************************************************************
form bdc_dynpro using program dynpro.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform. "BDC_DYNPRO
参考表: konm,a95x.
vk15是创建价格,所以每次保存都会生成新的条件记录号,vk17是修改价格,保存时不会生成新的记录号,而会修改对应的条件记录号.
评论