当前位置： 首页 > web >正文

SAPCRM销售订单集成创建

web 2025/7/5 6:52:32

一、概述

越来越多的公司在数字化转型项目中不仅只上线SAP系统，而是将各模块外围系统同步上线，因此对于业务顾问来说，不只要写增强&报表的FS，还要提供外围系统集成的接口规范，以及集成方案，本文分享一下在某项目中的接口规范以及源码。

1.集成方案

本次项目中，由于客户要求价格必须由财务严格把控，因此通过CRM调用BAPI获取财务在SAP系统中维护的价格主数据的方式。
集成方式大致有：
1、CRM创建订单，设置利润率计算公式，并计算利润率，根据不同利润率触发OA审批，并设置分级审批。
2、财务统计发布建议售价，在建议售价基础上打折，根据折扣和业务员折扣权限触发审批，并设置分级审批。
…
本项目中采用的集成形式为，销售人员在CRM系统中创建销售订单，并将订单数据同步至SAP，SAP调用BAPI模拟创建销售订单，在内表中获取定价过程中的价格主数据，并将其作为基准价返回CRM，销售根据基准价填写给客户的实际售价，CRM系统计算实际售价与基准价的差额，并设置差额审批流程，触发OA审批。审批后返回审批状态，若为审批通过，CRM系统自动触发与SAP的接口，将销售订单数据同步至SAP，SAP创建销售凭证，并返回凭证编号。流程图如下：
系统数据流图

2. 接口规范

接口规范即为SAP系统的字段名、类型以及用途
接口规范表头
接口规范表体
接口规范返回消息

3.接口函数

FUNCTION Z_SD_SO_CREATE.
*“----------------------------------------------------------------------
"“本地接口：
*” EXPORTING
*” LV(ET_RETURN) TYPE ZSDT_SO_RETURN
*" TABLES
*" IT_SOHEAD STRUCTURE ZSDS_SOHEAD_INTF OPTIONAL
*" IT_SOITEM STRUCTURE ZSDS_SOITEM_INTF OPTIONAL
*"----------------------------------------------------------------------
DATA:LS_HEADER TYPE BAPISDHD1,
LS_HEADERX TYPE BAPISDHD1X,
LS_LOGIC_SWITCH TYPE BAPISDLS,
LT_ITEM TYPE TABLE OF BAPISDITM,
LS_ITEM TYPE BAPISDITM,
LT_ITEMX TYPE TABLE OF BAPISDITMX,
LS_ITEMX TYPE BAPISDITMX,
LT_PARTS TYPE TABLE OF BAPIPARNR,
LS_PARTS TYPE BAPIPARNR,
LT_SCH TYPE TABLE OF BAPISCHDL,
LS_SCH TYPE BAPISCHDL,
LT_SCHX TYPE TABLE OF BAPISCHDLX,
LS_SCHX TYPE BAPISCHDLX,
LT_COND TYPE TABLE OF BAPICOND,
LS_COND TYPE BAPICOND,
LT_CONDX TYPE TABLE OF BAPICONDX,
LS_CONDX TYPE BAPICONDX,
LT_TEXT_TMP TYPE TABLE OF BAPISDTEXT,
LT_TEXT TYPE TABLE OF BAPISDTEXT,
LS_TEXT TYPE BAPISDTEXT,
LS_BAPE_VBAK TYPE BAPE_VBAK,
LS_BAPE_VBAKX TYPE BAPE_VBAKX,
LS_BAPE_VBAP TYPE BAPE_VBAP,
LS_BAPE_VBAPX TYPE BAPE_VBAPX,
LT_EXTENSIONIN TYPE TABLE OF BAPIPAREX,
LS_EXTENSIONIN TYPE BAPIPAREX,
LT_RETURN TYPE TABLE OF BAPIRET2,
LS_RETURN TYPE BAPIRET2,
LS_RETURN_INTF TYPE ZSDS_SO_RETURN.

DATA:LV_SO TYPE VBAK-VBELN, "销售订单号
LV_POSNR_INI TYPE VBAP-POSNR. "行号（空值 仅作参数 不赋值）

DATA: LT_KOMV TYPE STANDARD TABLE OF KOMV,
LS_KOMV TYPE KOMV.

CONSTANTS: CNS_MEMORY_ID TYPE CHAR20 VALUE ‘SALEORDER_MAINTAIN’,
CNS_BAPE_VBAK TYPE CHAR20 VALUE ‘BAPE_VBAK’,
CNS_BAPE_VBAP TYPE CHAR20 VALUE ‘BAPE_VBAP’,
CNS_BAPE_VBAKX TYPE CHAR20 VALUE ‘BAPE_VBAKX’,
CNS_BAPE_VBAPX TYPE CHAR20 VALUE ‘BAPE_VBAPX’.

CONSTANTS:CNS_HEAD_TDOBJECT TYPE TDOBJECT VALUE ‘VBBK’,
CNS_ITEM_TDOBJECT TYPE TDOBJECT VALUE ‘VBBP’,
CNS_TDID_01 TYPE TDID VALUE ‘0001’,
CNS_TDID_02 TYPE TDID VALUE ‘0002’,

        CNS_AUART_ZOR4    TYPE VBAK-AUART VALUE 'ZOR4', "配件CNS_AUART_ZOR5    TYPE VBAK-AUART VALUE 'ZOR5', "免费CNS_AUART_ZOR6    TYPE VBAK-AUART VALUE 'ZOR6', "服务CNS_AUART_ZOR7    TYPE VBAK-AUART VALUE 'ZOR7', "废料CNS_AUART_ZOR8    TYPE VBAK-AUART VALUE 'ZOR8', "有偿

  •        cns_auart_zor9    TYPE vbak-auart VALUE 'ZOR9'. "无偿CNS_KSCHL_ZR02    TYPE KSCHA VALUE 'ZR02',"手工条件类型CNS_KSCHL_ZR01    TYPE KSCHA VALUE 'ZR01',"条件类型CNS_KSCHL_ZK01    TYPE KSCHA VALUE 'ZK01'."条件类型

    LOOP AT IT_SOHEAD INTO DATA(LS_SOHEAD).
    CLEAR:LT_ITEM,LT_ITEMX,LT_SCH,LT_SCHX,LT_COND,LT_CONDX,LT_PARTS,LT_TEXT,LT_RETURN,LT_EXTENSIONIN,LS_EXTENSIONIN.
    "so head
    CLEAR:LS_HEADER,LS_HEADERX,LV_SO,LS_LOGIC_SWITCH.

    IF LS_SOHEAD-VBELN IS NOT INITIAL.
    PERFORM FRM_EXIT_ALPHA_INPUT USING LS_SOHEAD-VBELN CHANGING LS_SOHEAD-VBELN.
    ENDIF.
    LS_HEADER-DOC_TYPE = LS_SOHEAD-AUART. "销售凭证类型
    LS_HEADER-SALES_ORG = LS_SOHEAD-VKORG. "销售组织
    LS_HEADER-DISTR_CHAN = LS_SOHEAD-VTWEG. "分销渠道
    LS_HEADER-DIVISION = LS_SOHEAD-SPART. "产品组
    LS_HEADER-PURCH_NO_C = LS_SOHEAD-BSTKD. "客户参考
    LS_HEADER-REQ_DATE_H = LS_SOHEAD-KETDAT. "请求交货日期
    LS_HEADER-PMNTTRMS = LS_SOHEAD-ZTERM. "付款条款
    LS_HEADER-INCOTERMS1 = LS_SOHEAD-INCO1. "国际贸易条款
    LS_HEADER-INCOTERMS2 = LS_SOHEAD-INCO2_L. "国际贸易条款位置
    LS_HEADER-DOC_DATE = LS_SOHEAD-AUDAT. "凭证日期
    LS_HEADER-CURRENCY = LS_SOHEAD-WAERK. "凭证货币
    LS_HEADER-EXCHG_RATE = LS_SOHEAD-KURSK. "汇率
    IF LS_SOHEAD-BSTDK NE ‘’.
    LS_HEADER-PURCH_DATE = LS_SOHEAD-BSTDK. "客户参考日期
    LS_HEADERX-PURCH_DATE = ABAP_TRUE.
    ENDIF.

    IF LS_SOHEAD-AUART = CNS_AUART_ZOR5 OR LS_SOHEAD-AUART = CNS_AUART_ZOR8.
    LS_HEADER-ORD_REASON = LS_SOHEAD-AUGRU.
    ENDIF.
    LS_HEADER-CUST_GRP1 = LS_SOHEAD-KVGR1.
    LS_HEADER-CUST_GRP2 = LS_SOHEAD-KVGR2.
    LS_HEADER-CUST_GRP3 = LS_SOHEAD-KVGR3.
    LS_HEADER-VERSION = LS_SOHEAD-VSNMR_V. "跟单员
    LS_HEADER-PO_METHOD = LS_SOHEAD-BSARK. "采购订单类型

    LS_HEADERX-UPDATEFLAG = ZIF_BC_CONSTANTS=>GC_I."‘I’.
    LS_HEADERX-DOC_TYPE = ABAP_TRUE.
    LS_HEADERX-SALES_ORG = ABAP_TRUE.
    LS_HEADERX-DISTR_CHAN = ABAP_TRUE.
    LS_HEADERX-DIVISION = ABAP_TRUE.
    LS_HEADERX-PURCH_NO_C = ABAP_TRUE.
    LS_HEADERX-REQ_DATE_H = ABAP_TRUE.
    LS_HEADERX-PMNTTRMS = ABAP_TRUE.
    LS_HEADERX-INCOTERMS1 = ABAP_TRUE.
    LS_HEADERX-INCOTERMS2 = ABAP_TRUE.
    LS_HEADERX-DOC_DATE = ABAP_TRUE.
    LS_HEADERX-CURRENCY = ABAP_TRUE.
    LS_HEADERX-EXCHG_RATE = ABAP_TRUE.

    IF LS_SOHEAD-AUART = CNS_AUART_ZOR5 OR LS_SOHEAD-AUART = CNS_AUART_ZOR8.
    LS_HEADERX-ORD_REASON = ABAP_TRUE.
    ENDIF.
    LS_HEADERX-CUST_GRP1 = ABAP_TRUE.
    LS_HEADERX-CUST_GRP2 = ABAP_TRUE.
    LS_HEADERX-CUST_GRP3 = ABAP_TRUE.
    LS_HEADERX-VERSION = ABAP_TRUE. "版本
    LS_HEADERX-PO_METHOD = ABAP_TRUE. "采购订单类型

    LOOP AT IT_SOITEM INTO DATA(LS_SOITEM) WHERE BUSID = LS_SOHEAD-BUSID.
    "so item
    CLEAR:LS_ITEM,LS_ITEMX.
    LS_ITEM-ITM_NUMBER = LS_SOITEM-POSNR."lv_count.
    PERFORM FRM_EXIT_MATN1_INPUT USING LS_SOITEM-MATNR CHANGING LS_SOITEM-MATNR.
    LS_ITEM-MATERIAL = LS_SOITEM-MATNR. "物料
    LS_ITEM-PLANT = LS_SOITEM-WERKS. "工厂
    LS_ITEM-SHORT_TEXT = LS_SOITEM-ARKTX. "项目描述
    LS_ITEM-ITEM_CATEG = LS_SOITEM-PSTYV. "项目类别
    LS_ITEM-TARGET_QTY = LS_SOITEM-KWMENG. "数量
    PERFORM FRM_MAT_MEINS_INPUT USING LS_SOITEM-VRKME CHANGING LS_SOITEM-VRKME.
    LS_ITEM-TARGET_QU = LS_SOITEM-VRKME. "单位
    LS_ITEM-PO_ITM_NO = LS_SOITEM-POSEX. "规格
    LS_ITEM-REF_1 = LS_SOITEM-IHREZ. "客户参考（单位）
    APPEND LS_ITEM TO LT_ITEM.

    LS_ITEMX-ITM_NUMBER = LS_SOITEM-POSNR."lv_count.
LS_ITEMX-UPDATEFLAG = ZIF_BC_CONSTANTS=>GC_I."'I'.
LS_ITEMX-MATERIAL   = ABAP_TRUE.
LS_ITEMX-PLANT      = ABAP_TRUE.
LS_ITEMX-SHORT_TEXT = ABAP_TRUE.
LS_ITEMX-ITEM_CATEG = ABAP_TRUE.
LS_ITEMX-TARGET_QTY = ABAP_TRUE.
LS_ITEMX-TARGET_QU  = ABAP_TRUE.
LS_ITEMX-PO_ITM_NO  = ABAP_TRUE.
LS_ITEMX-REF_1      = ABAP_TRUE.
APPEND LS_ITEMX TO LT_ITEMX."schedule line
CLEAR:LS_SCH,LS_SCHX.
LS_SCH-ITM_NUMBER = LS_SOITEM-POSNR."lv_count.
LS_SCH-SCHED_LINE = 1.
LS_SCH-REQ_DATE   = LS_SOITEM-ETDAT.
LS_SCH-REQ_QTY    = LS_SOITEM-KWMENG.
LS_SCH-SCHED_TYPE = LS_SOITEM-ETTYP.    "计划行类别
APPEND LS_SCH TO LT_SCH.LS_SCHX-ITM_NUMBER = LS_SOITEM-POSNR."lv_count.
LS_SCHX-UPDATEFLAG = ZIF_BC_CONSTANTS=>GC_I."'I'.
LS_SCHX-SCHED_LINE = 1.
LS_SCHX-REQ_DATE   = ABAP_TRUE.
LS_SCHX-REQ_QTY    = ABAP_TRUE.
LS_SCHX-SCHED_TYPE = ABAP_TRUE.
APPEND LS_SCHX TO LT_SCHX.

**定价 配件-ZOR4 服务类–ZOR6 废料–ZOR7 有偿–ZOR8 ——价格手工输入
-----moidfy by amy 20230423 配件类改为价格自动带出 begin---------
IF
" ls_sohead-auart = cns_auart_zor4 OR
LS_SOHEAD-AUART = CNS_AUART_ZOR6 OR
LS_SOHEAD-AUART = CNS_AUART_ZOR7 OR
LS_SOHEAD-AUART = CNS_AUART_ZOR8.
"ZR02条件类型为手工输入
"Condition line
CLEAR:LS_COND,LS_CONDX.
LS_COND-ITM_NUMBER = LS_SOITEM-POSNR.“lv_count.
LS_COND-COND_TYPE = CNS_KSCHL_ZR02.”'ZR02.
LS_COND-COND_VALUE = LS_SOITEM-KBETR. "单价
LS_COND-COND_UNIT = LS_SOITEM-VRKME .
LS_COND-COND_P_UNT = LS_SOITEM-PEINH .
LS_COND-CURRENCY = LS_SOHEAD-WAERK. "销售凭证货币
APPEND LS_COND TO LT_COND.

    LS_CONDX-ITM_NUMBER = LS_SOITEM-POSNR."lv_count.LS_CONDX-COND_TYPE  = CNS_KSCHL_ZR02."'ZR02LS_CONDX-COND_VALUE = ABAP_TRUE. "单价(条件金额)LS_CONDX-COND_UNIT  = ABAP_TRUE .LS_CONDX-COND_P_UNT = ABAP_TRUE .LS_CONDX-CURRENCY   = ABAP_TRUE.   "销售凭证货币APPEND LS_CONDX TO LT_CONDX.

-----moidfy by amy 20230423 配件类改为价格自动带出 end---------
ELSE.
"ZK01为折扣价
IF LS_SOHEAD-AUART <> CNS_AUART_ZOR5.
"Condition line
CLEAR:LS_COND,LS_CONDX.
LS_COND-ITM_NUMBER = LS_SOITEM-POSNR.“lv_count.
LS_COND-COND_TYPE = CNS_KSCHL_ZK01.”'ZK01.

  •      LS_COND-COND_VALUE = 1."LS_SOITEM-KBETR. "单价

  •      LS_COND-COND_UNIT  = 'ST' .

  •      LS_COND-COND_P_UNT = 100 .LS_COND-CONDVALUE  = LS_SOITEM-KBETR. "LS_COND-CURRENCY   = LS_SOHEAD-WAERK.   "销售凭证货币LS_COND-CURRENCY_2 = LS_SOHEAD-WAERK.   "销售凭证货币APPEND LS_COND TO LT_COND.LS_CONDX-ITM_NUMBER = LS_SOITEM-POSNR."lv_count.LS_CONDX-UPDATEFLAG = ZIF_BC_CONSTANTS=>GC_I .LS_CONDX-COND_TYPE  = CNS_KSCHL_ZK01."'ZK01'.

  •      LS_CONDX-COND_VALUE = ABAP_TRUE. "单价(条件金额)

  •      LS_CONDX-COND_UNIT   = ABAP_TRUE.

  •      LS_CONDX-COND_P_UNT  = ABAP_TRUE.LS_CONDX-CURRENCY   = ABAP_TRUE.   "销售凭证货币APPEND LS_CONDX TO LT_CONDX.ENDIF.
ENDIF."item text
"--备注
CLEAR:LT_TEXT_TMP.
PERFORM FRM_MAINTAIN_TEXT USING LS_SOHEAD-VBELN LS_SOITEM-POSNR CNS_TDID_01 LS_SOITEM-ZTEXT_I CHANGING LT_TEXT_TMP.
APPEND LINES OF LT_TEXT_TMP TO LT_TEXT."行项目增强：
CLEAR: LS_BAPE_VBAP,LS_BAPE_VBAPX.
LS_BAPE_VBAP-POSNR    = LS_SOITEM-POSNR.
LS_BAPE_VBAPX-POSNR   = LS_SOITEM-POSNR.
LS_BAPE_VBAP-ZZSEPCT  = LS_SOITEM-ZZSEPCT.
LS_BAPE_VBAPX-ZZSEPCT = ABAP_TRUE.
MOVE CNS_BAPE_VBAP TO LS_EXTENSIONIN-STRUCTURE.
##ENH_OK   MOVE LS_BAPE_VBAP TO LS_EXTENSIONIN-VALUEPART1.
APPEND LS_EXTENSIONIN TO LT_EXTENSIONIN.
CLEAR LS_EXTENSIONIN.MOVE CNS_BAPE_VBAPX TO LS_EXTENSIONIN-STRUCTURE.
##ENH_OK   MOVE LS_BAPE_VBAPX TO LS_EXTENSIONIN-VALUEPART1.
APPEND LS_EXTENSIONIN TO LT_EXTENSIONIN.

    ENDLOOP.

    "head text
    "–海关文件备注
    CLEAR:LT_TEXT_TMP.
    PERFORM FRM_MAINTAIN_TEXT USING LS_SOHEAD-VBELN LV_POSNR_INI CNS_TDID_01 LS_SOHEAD-ZTEXT_H1 CHANGING LT_TEXT_TMP.
    APPEND LINES OF LT_TEXT_TMP TO LT_TEXT.

    "–生产备注
    CLEAR:LT_TEXT_TMP.
    PERFORM FRM_MAINTAIN_TEXT USING LS_SOHEAD-VBELN LV_POSNR_INI CNS_TDID_02 LS_SOHEAD-ZTEXT_H2 CHANGING LT_TEXT_TMP.
    APPEND LINES OF LT_TEXT_TMP TO LT_TEXT.

    “partners
    CLEAR:LS_PARTS.
    LS_PARTS-PARTN_ROLE = CNS_ROLE_SELL.”‘AG’.
    LS_PARTS-PARTN_NUMB = LS_SOHEAD-ZROLE_SELL. "售达方
    PERFORM FRM_EXIT_ALPHA_INPUT USING LS_PARTS-PARTN_NUMB CHANGING LS_PARTS-PARTN_NUMB.
    APPEND LS_PARTS TO LT_PARTS.

    CLEAR:LS_PARTS.
    LS_PARTS-PARTN_ROLE = CNS_ROLE_RECEV."‘RE’.
    LS_PARTS-PARTN_NUMB = LS_SOHEAD-ZROLE_RECEV. "收票方
    PERFORM FRM_EXIT_ALPHA_INPUT USING LS_PARTS-PARTN_NUMB CHANGING LS_PARTS-PARTN_NUMB.
    APPEND LS_PARTS TO LT_PARTS.

    CLEAR:LS_PARTS.
    LS_PARTS-PARTN_ROLE = CNS_ROLE_PAY."‘RG’.
    LS_PARTS-PARTN_NUMB = LS_SOHEAD-ZROLE_PAY. "付款方
    PERFORM FRM_EXIT_ALPHA_INPUT USING LS_PARTS-PARTN_NUMB CHANGING LS_PARTS-PARTN_NUMB.
    APPEND LS_PARTS TO LT_PARTS.

    CLEAR:LS_PARTS.
    LS_PARTS-PARTN_ROLE = CNS_ROLE_DELIV."‘WE’.
    LS_PARTS-PARTN_NUMB = LS_SOHEAD-ZROLE_DELIV. "送达方
    PERFORM FRM_EXIT_ALPHA_INPUT USING LS_PARTS-PARTN_NUMB CHANGING LS_PARTS-PARTN_NUMB.
    APPEND LS_PARTS TO LT_PARTS.

**抬头增强字段写入
"Fill item level self-defined fields

  • extension BAPE_VBAP

    CLEAR: LS_BAPE_VBAK,LS_BAPE_VBAKX.
    LS_BAPE_VBAK-ZZBRAN1 = LS_SOHEAD-ZZBRAN1.
    LS_BAPE_VBAK-ZZBRAN2 = LS_SOHEAD-ZZBRAN2.
    LS_BAPE_VBAK-ZZBRAN3 = LS_SOHEAD-ZZBRAN3.
    LS_BAPE_VBAK-ZZDJHH = LS_SOHEAD-ZZDJHH.
    LS_BAPE_VBAK-ZZSFKKP = LS_SOHEAD-ZZSFKKP.
    LS_BAPE_VBAK-ZZISDELV = ‘0’."SO创建 是否发货字段给默认0

    MOVE CNS_BAPE_VBAK TO LS_EXTENSIONIN-STRUCTURE.
    CALL METHOD CL_ABAP_CONTAINER_UTILITIES=>FILL_CONTAINER_C
    EXPORTING
    IM_VALUE = LS_BAPE_VBAK
    IMPORTING
    EX_CONTAINER = LS_EXTENSIONIN+30.
    APPEND LS_EXTENSIONIN TO LT_EXTENSIONIN.
    CLEAR LS_EXTENSIONIN.

    LS_BAPE_VBAKX-ZZBRAN1 = ABAP_TRUE.
    LS_BAPE_VBAKX-ZZBRAN2 = ABAP_TRUE.
    LS_BAPE_VBAKX-ZZBRAN3 = ABAP_TRUE.
    LS_BAPE_VBAKX-ZZDJHH = ABAP_TRUE .
    LS_BAPE_VBAKX-ZZSFKKP = ABAP_TRUE .
    LS_BAPE_VBAKX-ZZISDELV = ABAP_TRUE.

    MOVE CNS_BAPE_VBAKX TO LS_EXTENSIONIN-STRUCTURE.
    ##ENH_OK MOVE LS_BAPE_VBAKX TO LS_EXTENSIONIN-VALUEPART1.
    APPEND LS_EXTENSIONIN TO LT_EXTENSIONIN.
    CLEAR LS_EXTENSIONIN.

    LS_LOGIC_SWITCH-PRICING = ZIF_BC_CONSTANTS=>GC_C .

    IF LS_SOHEAD-AUART = ‘ZRE1’ OR LS_SOHEAD-AUART = ‘ZRE2’
    OR LS_SOHEAD-AUART = ‘ZRE3’ OR LS_SOHEAD-AUART = ‘ZRE4’ OR LS_SOHEAD-AUART = ‘ZRE5’
    OR LS_SOHEAD-AUART = ‘ZRE6’ OR LS_SOHEAD-AUART = ‘ZRE7’ OR LS_SOHEAD-AUART = ‘ZCR1’.

    CALL FUNCTION ‘BAPI_CUSTOMERRETURN_CREATE’
    EXPORTING
    SALESDOCUMENTIN = LS_SOHEAD-VBELN
    RETURN_HEADER_IN = LS_HEADER
    RETURN_HEADER_INX = LS_HEADERX
    LOGIC_SWITCH = LS_LOGIC_SWITCH
    TESTRUN = LS_SOHEAD-TESTRUN
    IMPORTING
    SALESDOCUMENT = LV_SO
    TABLES
    RETURN = LT_RETURN
    RETURN_ITEMS_IN = LT_ITEM
    RETURN_ITEMS_INX = LT_ITEMX
    RETURN_PARTNERS = LT_PARTS
    RETURN_SCHEDULES_IN = LT_SCH
    RETURN_SCHEDULES_INX = LT_SCHX
    RETURN_CONDITIONS_IN = LT_COND
    EXTENSIONIN = LT_EXTENSIONIN
    RETURN_TEXT = LT_TEXT.

    ELSE.

    CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTINGSALESDOCUMENTIN      = LS_SOHEAD-VBELNORDER_HEADER_IN      = LS_HEADERORDER_HEADER_INX     = LS_HEADERXLOGIC_SWITCH         = LS_LOGIC_SWITCHTESTRUN              = LS_SOHEAD-TESTRUN
IMPORTINGSALESDOCUMENT        = LV_SO
TABLESRETURN               = LT_RETURNORDER_ITEMS_IN       = LT_ITEMORDER_ITEMS_INX      = LT_ITEMXORDER_PARTNERS       = LT_PARTSORDER_SCHEDULES_IN   = LT_SCHORDER_SCHEDULES_INX  = LT_SCHXORDER_CONDITIONS_IN  = LT_CONDORDER_CONDITIONS_INX = LT_CONDXORDER_TEXT           = LT_TEXTEXTENSIONIN          = LT_EXTENSIONIN.

    ENDIF.

    CLEAR: LS_RETURN_INTF-MSGTXT .
    LOOP AT LT_RETURN ASSIGNING FIELD-SYMBOL(<LFS_RETURN>) WHERE TYPE CA ZIF_BC_CONSTANTS=>GC_AEX .
    CONCATENATE LS_RETURN_INTF-MSGTXT <LFS_RETURN>-MESSAGE INTO LS_RETURN_INTF-MSGTXT SEPARATED BY ZIF_BC_CONSTANTS=>GC_SEPARATOR .
    ENDLOOP.

    IF SY-SUBRC = 0 OR LS_SOHEAD-TESTRUN = ABAP_TRUE.
    CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’.

    LS_RETURN_INTF-BUSID  = LS_SOHEAD-BUSID.
IF LS_RETURN_INTF-MSGTXT IS NOT INITIAL .LS_RETURN_INTF-STATUS = ZIF_BC_CONSTANTS=>GC_E .
ELSE.LS_RETURN_INTF-STATUS = ZIF_BC_CONSTANTS=>GC_S .LS_RETURN_INTF-MSGTXT = TEXT-004 .
ENDIF.CLEAR: LT_KOMV[] .
IMPORT XKOMV = LT_KOMV FROM MEMORY ID CNS_MEMORY_ID .
DELETE FROM MEMORY ID CNS_MEMORY_ID .LOOP AT LT_KOMV INTO LS_KOMV .APPEND INITIAL LINE TO LS_RETURN_INTF-PRICE ASSIGNING FIELD-SYMBOL(<LFS_PRICE>) .<LFS_PRICE>-POSNR = LS_KOMV-KPOSN.<LFS_PRICE>-KSCHL = LS_KOMV-KSCHL.<LFS_PRICE>-KBETR = LS_KOMV-KBETR .<LFS_PRICE>-WAERS = LS_KOMV-WAERS.<LFS_PRICE>-KPEIN = LS_KOMV-KPEIN.<LFS_PRICE>-KMEIN = LS_KOMV-KMEIN.PERFORM FRM_MAT_MEINS_OUTPUT USING <LFS_PRICE>-KMEIN CHANGING <LFS_PRICE>-KMEIN .
ENDLOOP.
APPEND LS_RETURN_INTF TO ET_RETURN.

    ELSE. "SO创建成功

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = ZIF_BC_CONSTANTS=>GC_X. "'X'.LS_RETURN_INTF-BUSID  = LS_SOHEAD-BUSID.
LS_RETURN_INTF-VBELN  = LV_SO.
LS_RETURN_INTF-STATUS = ZIF_BC_CONSTANTS=>GC_S.
LS_RETURN_INTF-MSGTXT = TEXT-001.
APPEND LS_RETURN_INTF TO ET_RETURN.

    ENDIF.

    ENDLOOP.

ENDFUNCTION.

http://www.xdnf.cn/news/11194.html

相关文章：

  • C#中Socket的简单使用
  • 注册系统热键 RegisterHotKey()
  • Android中ProgressDialog的使用
  • BP神经网络算法基本原理,bp神经网络算法详解
  • m3u8直播测试地址
  • 面向对象设计的八大基本原则
  • VMware虚拟机Windows 10安装使用教程（非常详细）从零基础入门到精通，看完这一篇就够了_vmware安装windows10
  • BUMO 区块链开发文档
  • Dogfooding-爱奇艺移动端后台灰度环境优化实践
  • Union和Union All的使用
  • jQuery.serializeArray() 函数详解
  • C/C++编程：log4cpp使用学习
  • wait,notify/notifyAll的使用及实现原理
  • ObjectDock
  • Java 10正式发布，带来了这些新特性
  • Coqui：创建逼真的生成式人工智能语音
  • 在网络安全领域，比较牛的中国黑客有哪些？
  • git clone 遇到问题：fatal: unable to access ‘https://github.comxxxxxxxxxxx‘: Failed to connect to xxxxxxx
  • iOS开发进阶（一）：iOS原生开发环境搭建步骤详解_ios编译环境搭建
  • 关于connectionstring字符串的那点事
  • Python OpenCV 3.x 示例：6~11
  • cache介绍及问题解决
  • 原始数据哪里找？这些网站要用好！200个国内外经济/金融/行研/咨询数据网站大全（附链接）...
  • Linux系统中rpm命令用法详解
  • 华为3108raid安linux,华为服务器 RAID卡配置 SR430 LSISAS3108(Legacy/Dual模式)传统模式
  • CorelDRAW X4 SP2 简体中文正式版精简增强版
  • 简易日志告警系统
  • 群晖上搭建teamspeak3语音服务器
  • 如何实现两地星三角启动
  • Event事件学习实用路线（9）——Event事件之键盘事件——案例：键盘操作元素位置——案例：键盘事件组合键控制