Forecast订单由于抬头客户PO号不一样不能创建一张交货单

事物代码VOFM ---->数据传输---->交货--->创建例程编号901，然后双击该行项目，把例程编号1的代码复制过去，进行一些修改就可以了。

SPRO-->后勤执行--->装运--->复制控制---->为交货指定复制控制--->选择相应行(ZLF1 HTW外向交货  ZSF1 HTW Forecast订单)，然后双击该行--->在数据传输里修改抬头数据为901

901代码如下：

*{   INSERT         DEVK901531                                        1
*---------------------------------------------------------------------*
*       FORM - Routine for data transfer of order header data         *
*---------------------------------------------------------------------*
*For Delivery Note Split Error by SD10 2013.07.01
*Copy from 001
*}   INSERT
FORM DATEN_KOPIEREN_901.
*{   INSERT         DEVK901531                                        1
  likp-vkorg = cvbak-vkorg.

  likp-autlf = cvbak-autlf.
  likp-vsbed = cvbak-vsbed.
  likp-fkarv = tvak-fkarv.
  likp-tragr = maapv-tragr.

* Fill field ZUKRL with combination criteria
  likp-zukrl(2)      = cvbak-vtweg.
  likp-zukrl+2(2)    = cvbak-spart.

  likp-stafo = cvbak-stafo.
  likp-stwae = cvbak-stwae.


*$*$-End:   DATEN_KOPIEREN_001_10---------------------------------------------------------------$*$*
  move cvbak-kkber to likp-kkber.
  move cvbak-knkli to likp-knkli.
  move cvbak-kkber to likp-kkber.
  move cvbak-grupp to likp-grupp.
  move cvbak-sbgrp to likp-sbgrp.
  move cvbak-cmwae to likp-cmwae.
  move cvbak-waerk to likp-waerk.                      "46C/note 184914
  move cvbak-ctlpc to likp-ctlpc.
  if likp-lfart = tvak-korli.
    likp-klief = charx.
  endif.
  move cvbak-lifsk to likp-lifsk.                           "45B

* Pick-up sheet number in delivery order processing is external dlv. no.
  if cvbak-vbklt eq vbklt_ausl_auft or
     cvbak-vbklt eq vbklt_ausl_auft_korr.
*    move cvbak-bstnk to likp-lifex.
    move '' to likp-lifex.
  endif.
* Consignment issue by service agent is external delivery number
  if cvbak-vbklt eq vbklt_edl_entn or
     cvbak-vbklt eq vbklt_edl_entn_korr.
*    move cvbak-bstnk to likp-lifex.
     move '' to likp-lifex.
  endif.

*... Order Integration with an external TMS (605)          "v_XAN_TMS
  if cl_ops_switch_check=>ops_sfws_sc_erptms( ) = abap_true.

    break-point id int_tms_erp_sc.

    if likp-vbtyp ca 'JT'.

      move cvbak-tm_ctrl_key to likp-tm_ctrl_key.

    endif.
  endif.                                                 "^_XAN_TMS




*}   INSERT
ENDFORM.

最后用SE38运行程序RV61ANNN，运行成功后提示所有例程已被成功激活。

RV61ANNN的代码如下

REPORT RV80HGEN MESSAGE-ID VC.

* Korrektureintraege
INCLUDE MV12ATO2 .

* Gesamtaktivierung aufrufen
PERFORM AKTIVIEREN_ALLE(SAPMV80H) USING 'X'.

ENHANCEMENT-POINT RV80HGEN_01 SPOTS ES_RV80HGEN.
*$*$-Start: RV80HGEN_01-------------------------------------------------------------------------$*$*
ENHANCEMENT 1  OIA_RV80HGEN.    "active version
PERFORM AKTIVIEREN_ALLE(SAPMOIAJ) if found USING 'X'.    "SO3K127075
ENDENHANCEMENT.
ENHANCEMENT 1  OIC_RV80HGEN.    "active version
PERFORM AKTIVIEREN_ALLE(SAPMOICJ) if found USING 'X'.    "SO3K127075
ENDENHANCEMENT.
*$*$-End:   RV80HGEN_01-------------------------------------------------------------------------$*$*
* XPRA - Protokolleintrag

SPROT_TAB-LEVEL    = LEVEL_INFO.
SPROT_TAB-SEVERITY = SEVERITY_INFO.
SPROT_TAB-LANGU    = SY-LANGU.
SPROT_TAB-AG       = 'VC'.
SPROT_TAB-MSGNR    = '556'.
SPROT_TAB-VAR1     = SPACE.
SPROT_TAB-VAR2     = SPACE.
SPROT_TAB-VAR3     = SPACE.
SPROT_TAB-VAR4     = SPACE.
APPEND SPROT_TAB.

CALL FUNCTION 'TR_APPEND_LOG'
     EXPORTING
          ACCEPT_NOT_INIT        = 'X'
     TABLES
          XMSG                   =  SPROT_TAB
     EXCEPTIONS
          OTHERS                 = 3.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'TR_FLUSH_LOG'.