1业务说明

在实际业务需求中，需要和供应商签订协议。

此文档使用BAPI：BAPI_CONTRACT_CREATE创建协议

2前台实现

事务代码：ME31K

输入抬头信息

行项目

行项目详细内容

保存即可

3代码实现

3.1调用BAPI

抬头

行项目

导入BAPI

3.2问题解决

3.2.1 SUBOBJECT_NOT_FOUND

在创建时报错，

错误位置在此处，子对象没找到

GOOGLE到相关解决方案

事务代码：SLG0

新增对象COND，对象文本Condition technique (ERP)

选中对象，双击子对象

子对象名称MAINTENANCE，文本Maintenance of Condition records

再次运行，发现已经不报错了，问题解决

3.2.2 保存增强点BADI_IM_PRF_SAVE_OA

3.2.3 长文本增强

当长文本做修改后，需要传给另外一个程序中使用，找了四代增强点，传输长文本。

3.3源代码

"-----------------------------@斌将军-----------------------------

DATA:GS_HEADER     TYPE  BAPIMEOUTHEADER,

     GS_HEADERX    TYPE  BAPIMEOUTHEADERX,

     GV_NUMBER     TYPE  BAPIMEOUTHEADER-NUMBER,

     GS_EXP_HEADER TYPE  BAPIMEOUTHEADER,

     GT_ITEM       TYPE TABLE OF BAPIMEOUTITEM,

     GS_ITEM       TYPE BAPIMEOUTITEM,

     GT_ITEMX      TYPE TABLE OF BAPIMEOUTITEMX,

     GS_ITEMX      TYPE BAPIMEOUTITEMX,

     GT_RETURN     TYPE TABLE OF BAPIRET2,

     GS_RETURN     TYPE BAPIRET2.

DATA:LV_MESSAGE TYPE CHAR200,

     LV_CHECK   TYPE CHAR1.

"抬头

CLEAR:GS_HEADER.

*GS_HEADER-NUMBER    = GWA_OUT-EBELN.  "合同号

GS_HEADER-VENDOR = '0070002292'."供应商

GS_HEADER-DOC_TYPE  = 'YZXY'.  "协议类型

GS_HEADER-COMP_CODE = '2000'.  "公司代码

GS_HEADER-DOC_DATE  = '20191129'.  "协议日期

GS_HEADER-VPER_START  = '20191129'. "协议起始日期

GS_HEADER-VPER_END   = '20191229'.  "协议截至日期

GS_HEADER-PURCH_ORG  = '2000'.  "采购组织

GS_HEADER-PUR_GROUP  = 'CG9'.  "采购组

GS_HEADER-ACUM_VALUE = '1'.  "目标值

GS_HEADER-CURRENCY   = 'CNY'.  "货币

GS_HEADER-COLLECT_NO   = 'CT'.  "汇总号

GS_HEADER-LANGU      = SY-LANGU.

CLEAR:GS_HEADERX.

*GS_HEADERX-NUMBER    = ABAP_TRUE.  "合同号

GS_HEADERX-VENDOR    = ABAP_TRUE.  "供应商

GS_HEADERX-DOC_TYPE  = ABAP_TRUE.  "协议类型

GS_HEADERX-COMP_CODE = ABAP_TRUE.  "公司代码

GS_HEADERX-DOC_DATE  = ABAP_TRUE.  "协议日期

GS_HEADERX-VPER_START  = ABAP_TRUE. "协议起始日期

GS_HEADERX-VPER_END   = ABAP_TRUE.  "协议截至日期

GS_HEADERX-PURCH_ORG  = ABAP_TRUE.  "采购组织

GS_HEADERX-PUR_GROUP  = ABAP_TRUE.  "采购组

GS_HEADERX-ACUM_VALUE = ABAP_TRUE.  "目标值

GS_HEADERX-CURRENCY   = ABAP_TRUE.  "货币

GS_HEADERX-COLLECT_NO   = ABAP_TRUE.  "汇总号

GS_HEADERX-LANGU      = ABAP_TRUE.

"行项目

CLEAR:GS_ITEM.

GS_ITEM-ITEM_NO    = '10'.  "行号

GS_ITEM-EMATERIAL = '000000000000231829'."物料号

GS_ITEM-SHORT_TEXT = '铝板'.  "短文本

GS_ITEM-MATL_GROUP = 'CRC09'.  "物料组

GS_ITEM-PLANT      = '2000'.  "工厂

GS_ITEM-STGE_LOC      = '1006'.  "库存地点

GS_ITEM-TARGET_QTY = '1'.  "目标数量

GS_ITEM-PO_UNIT    = 'KG'."订单单位

GS_ITEM-PO_UNIT_ISO    = 'KG'."ISO代码中的定单单位

GS_ITEM-NET_PRICE  = '1'.  "净价

GS_ITEM-PRICE_UNIT = '1'.  "价格单位 每

GS_ITEM-ORDERPR_UN = 'KG'.  "订单价格单位(采购)

GS_ITEM-ORDERPR_UN_ISO = 'KG'.  "订单价格单位(采购)

GS_ITEM-TAX_CODE = 'JF'.  "销售/购买税代码

GS_ITEM-VAL_TYPE = 'CR'.  "评估类型

*GS_ITEM-ACCTASSCAT = 'U'."科目分配类别

*GS_ITEM-ITEM_CAT   = 0."项目类别

APPEND GS_ITEM TO GT_ITEM.

CLEAR:GS_ITEMX.

GS_ITEMX-ITEM_NO     = '10'.  "行号

GS_ITEMX-ITEM_NOX    = ABAP_TRUE.  "行号

GS_ITEMX-EMATERIAL    = ABAP_TRUE.  "物料号

*GS_ITEMX-MATERIAL    = ABAP_TRUE.  "物料号

GS_ITEMX-SHORT_TEXT = ABAP_TRUE.  "短文本

GS_ITEMX-MATL_GROUP = ABAP_TRUE.  "物料组

GS_ITEMX-PLANT      = ABAP_TRUE.  "工厂

GS_ITEMX-STGE_LOC      = ABAP_TRUE.  "库存地点

GS_ITEMX-TARGET_QTY = ABAP_TRUE.  "目标数量

GS_ITEMX-PO_UNIT    = ABAP_TRUE.

GS_ITEMX-PO_UNIT_ISO = ABAP_TRUE.

GS_ITEMX-NET_PRICE  = ABAP_TRUE.  "净价

GS_ITEMX-PRICE_UNIT = ABAP_TRUE.  "价格单位

GS_ITEMX-ORDERPR_UN = ABAP_TRUE.

GS_ITEMX-ORDERPR_UN_ISO = ABAP_TRUE.

GS_ITEMX-TAX_CODE = ABAP_TRUE.

GS_ITEMX-VAL_TYPE = ABAP_TRUE.  "评估类型

*GS_ITEMX-ACCTASSCAT = ABAP_TRUE.            "科目分配类别

*GS_ITEMX-ITEM_CAT   = ABAP_TRUE.              "项目类别

APPEND GS_ITEMX TO GT_ITEMX.

CALL FUNCTION 'BAPI_CONTRACT_CREATE'

  EXPORTING

    HEADER             = GS_HEADER

    HEADERX            = GS_HEADERX

*   VENDOR_ADDRESS     =

*   TESTRUN            =

*   TECHNICAL_DATA     =

  IMPORTING

    PURCHASINGDOCUMENT = GV_NUMBER

    EXP_HEADER         = GS_EXP_HEADER

  TABLES

    RETURN             = GT_RETURN

    ITEM               = GT_ITEM

    ITEMX              = GT_ITEMX

*   ACCOUNT            =

*   ACCOUNTPROFITSEGMENT        =

*   ACCOUNTX           =

*   DELIVERY_ADDRESS   =

*   ITEM_COND_VALIDITY =

*   ITEM_COND_VALIDITYX         =

*   ITEM_CONDITION     =

*   ITEM_CONDITIONX    =

*   ITEM_COND_SCALE_VALUE       =

*   ITEM_COND_SCALE_QUAN        =

*   ITEM_TEXT          =

*   HEADER_TEXT        =

*   HEAD_COND_VALIDITY =

*   HEAD_COND_VALIDITYX         =

*   HEAD_CONDITION     =

*   HEAD_CONDITIONX    =

*   HEAD_COND_SCALE_VAL         =

*   HEAD_COND_SCALE_QUAN        =

*   PARTNER            =

*   PARTNERX           =

*   EXTENSIONIN        =

*   EXTENSIONOUT       =

  .

LV_CHECK = 'S'.

LOOP AT GT_RETURN INTO GS_RETURN WHERE TYPE = 'A' OR TYPE = 'E'.

  LV_MESSAGE = LV_MESSAGE && GS_RETURN-MESSAGE.

  LV_CHECK = 'E'.

ENDLOOP.

IF LV_CHECK = 'S'.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

    EXPORTING

      WAIT = 'X'.

  WRITE:GV_NUMBER.

ELSE.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ENDIF.

"-----------------------------@斌将军-----------------------------

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal