SAP交货单过账自动生成采购订单、采购订单自动收货入库（转）

原文地址：http://blog.sina.com.cn/s/blog_ad5dbd0201010qtt.html

公司间需要买卖操作，由于发货和收货都是同一批人在操作，为了减少业务人员的工作量，提高工作效率，特实现以上功能

  1、增强实现：增强点为交货单过账成功时触发，在提交前触发，如果遇到不可预知问题，可能造成数据不一致，所以在过账成功后触发，效果更好。

  2、BADI增强：DELIVERY_PUBLISH：数据库更新期间交货数据的公告，采用方法：PUBLISH_AFTER_SAVE

  3、功能实现：由于该增强没有参数，所以问题的关键是业务数据的获取，采用以下方法获取，其他功能就大家自己具体去实现了，这里只是把关键的地方粘贴出来：

  FIELD-SYMBOLS : <V_VBELN> TYPE LIKP-VBELN.
  FIELD-SYMBOLS : <V_LFART> TYPE LIKP-LFART.
  FIELD-SYMBOLS : <V_LFDAT> TYPE LIKP-LFDAT.
  FIELD-SYMBOLS : <V_VKBUR> TYPE LIKP-VKBUR.
  FIELD-SYMBOLS : <V_MBLNR> TYPE EMKPF-MBLNR.
  DATA : V_VAL TYPE STRING VALUE '(SAPMV50A)LIKP-VBELN'.
  DATA : V_VAL1 TYPE STRING VALUE '(SAPMV50A)LIKP-LFART'.

  DATA : V_VAL2 TYPE STRING VALUE '(SAPMV50A)LIKP-WADAT_IST'.
  DATA : V_VAL3 TYPE STRING VALUE '(SAPMV50A)emkpf-MBLNR'.
  DATA : V_VAL4 TYPE STRING VALUE '(SAPMV50A)LIKP-VKBUR'.
  CLEAR:C_VBELN,C_LFART,C_BUDAT,C_MBLNR,C_YEAR,C_JZRQ,
        C_CPZH,C_WERKS,C_LGORT.
  DATA:I_LOG TYPE TABLE OF ZMDLOG,
       W_LOG TYPE ZMDLOG.
*********获取交货类型
  ASSIGN (V_VAL1) TO <V_LFART>.
  MOVE <V_LFART> TO C_LFART.
*********获取物料凭证
  ASSIGN (V_VAL3) TO <V_MBLNR>.
  MOVE <V_MBLNR> TO C_MBLNR.
*********获取交货单号
  ASSIGN (V_VAL) TO <V_VBELN>.
  MOVE <V_VBELN> TO C_VBELN.
*********销售办公室
  ASSIGN (V_VAL4) TO <V_VKBUR>.
  MOVE <V_VKBUR> TO C_VKBUR.

  4、采购订单自动生产使用BAPI:BAPI_PO_CREATE1

  5、采购收货使用BAPI:BAPI_GOODSMVT_CREATE

  6、当需要交货单冲销时,增强点为交货过账冲销前，要先保证采购收货冲销成功并删除采购订单，才能执行过账冲销，这样才能保证数据的连续性，采购入库冲销的BAPI:BAPI_GOODSMVT_CANCEL

  注意：当交货过账成功，采购订单没有生产时，我们要扑捉异常，同时冲销交货单这样才能保证数据的一致性。