登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

VK15创建价格(A951)  

2011-10-24 16:56:40|  分类: BDC |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

*---for BDC
datac_update    type c value 'S'.
databdcdata     type table of  bdcdata with header line.
datamesstab     type table of  bdcmsgcoll with header line.
datagt_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

  评论这张
 
阅读(411)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018