*---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' '/00'.
perform bdc_field using 'KOMG-WERKS' werks.
perform bdc_field using 'KOMG-SPART' spart.
perform bdc_field using 'KOMG-MATNR(01)' matnr.
perform bdc_field using 'KONP-KBETR(01)' price_new.
perform bdc_field using 'KONP-KONWA(01)' 'CNY'.
perform bdc_field using 'KONP-KMEIN(01)' 'KG'.
perform bdc_field using 'RV13A-DATAB(01)' datab.
perform bdc_field using 'RV13A-DATBI(01)' datbi.
perform bdc_dynpro using 'SAPMV13A' '1951'.
perform bdc_field using 'BDC_CURSOR' 'KOMG-MATNR(01)'.
perform bdc_field using 'BDC_OKCODE' '=SICH'.
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
评论