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

原来为了你

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

 
 
 

日志

 
 
 
 

Create outbound delivery  

2011-04-24 14:26:59|  分类: BAPI |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
  report  zz_test_create_sls.

parametersvbeln like vbak-vbeln obligatory memory id aun.


datalf_vbeln  type vbeln_vl,
      lf_num    type vbnum,
      ls_deli   type bapishpdelivnumb,
      lt_deli   type table of bapishpdelivnumb,
      lt_order  type table of bapidlvreftosalesorder,
      ls_order  type bapidlvreftosalesorder,
      ls_itm    type bapidlvitemcreated,
      lt_itm    type table of bapidlvitemcreated,
      ls_ext    type bapiparex,
      lt_extin  type table of bapiparex,
      lt_extout type table of bapiparex,
      ls_ret    type bapiret2,
      lt_return type table of bapiret2.

types:begin of ty_vbap,
       vbeln like vbap-vbeln,
       posnr like vbap-posnr,
       kwmeng like vbap-kwmeng,
       meins like vbap-meins,
      end of ty_vbap.
data:it_vbap type table of ty_vbap.
data:ws_vbap type ty_vbap.
*---SalesOrderItems (here: complete sales order)
select vbeln posnr kwmeng meins into table it_vbap from vbap where vbeln vbeln.
loop at it_vbap into ws_vbap.
  ls_order-ref_doc ws_vbap-vbeln.
  ls_order-ref_item ws_vbap-posnr.
  ls_order-dlv_qty ws_vbap-kwmeng.
  ls_order-sales_unit ws_vbap-meins.
  append ls_order to lt_order.
endloop.
*---ExtensionIn
ls_ext 'My additional input'.
append ls_ext to lt_extin.
*---Synchronous RFC
call function 'BAPI_OUTB_DELIVERY_CREATE_SLS'
  importing
    delivery          lf_vbeln
    num_deliveries    lf_num
  tables
    sales_order_items lt_order
    extension_in      lt_extin
    deliveries        lt_deli
    created_items     lt_itm
    extension_out     lt_extout
    return            lt_return.

write:  'Delivery:',      lf_vbeln,
        / 'NumDeliveries:'lf_num,
        / 'Deliveries:'.
loop at lt_deli into ls_deli.
  write ls_deli-deliv_numb.
endloop.

if not lt_itm[] is initial.
  write'CreatedItems:'.
  loop at lt_itm into ls_itm.
    write/ ls_itm-ref_doc,
             ls_itm-ref_item,
             ls_itm-deliv_numb,
             ls_itm-deliv_item,
             ls_itm-material,
             ls_itm-dlv_qty,
             ls_itm-sales_unit,
             ls_itm-sales_unit_iso.
  endloop.
endif.

if not lt_return[] is initial.
  write'Return:'.
  loop at lt_return into ls_ret.
    write/ ls_ret-typels_ret-idls_ret-number,
             ls_ret-message,
           /.
  endloop.
endif.

if not lt_extout[] is initial.
  write'ExtensionOut:'.
  loop at lt_extout into ls_ext.
    write/ ls_ext.
  endloop.
endif.
*---commit work
if not lf_vbeln is initial.
  commit work.
endif.
  评论这张
 
阅读(871)| 评论(0)

历史上的今天

评论

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

页脚

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