SAP交货单过账自动生产采购订单、采购订单自动收货入库

sol229

　　公司间需要买卖操作，由于发货和收货都是同一批人在操作，为了减少业务人员的工作量，提高工作效率，特实现以上功能
　　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
　　注意：当交货过账成功，采购订单没有生产时，我们要扑捉异常，同时冲销交货单这样才能保证数据的一致性。