ME31K 创建框架协议

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.
"-----------------------------@斌将军-----------------------------