BDC:CO11/CO11N

最新推荐文章于 2024-06-26 17:07:50 发布

SAP剑客

最新推荐文章于 2024-06-26 17:07:50 发布

阅读量1.6k

点赞数

分类专栏：程序人生 ABAPer 文章标签： up

程序人生 ABAPer 专栏收录该内容

1330 篇文章

订阅专栏

本文介绍了一个使用ABAP通过后台文档控制(BDC)处理CO11N(维护内部订单)的具体示例。该示例展示了如何通过BDC技术自动创建内部订单并填充相关字段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

BDC:CO11/CO11N

FORM frm_process_co11n_bdc  TABLES   tp_message STRUCTURE zifsret01
                                     tp_item STRUCTURE zrmxpps002
                              USING  up_head TYPE zrmxpps001
                                     up_aufnr LIKE afko-aufnr
                              CHANGING cp_eind TYPE c
                                       .
  DATA:
        ls_item      TYPE zrmxpps002,
        ls_message   TYPE zifsret01.

  DATA: lv_msg   TYPE string,
        lv_bwtar TYPE bwtar_d,
        lv_menge(18) TYPE c.

REFRESH:gt_bdcdata[],gt_bdcmsg[].

* 凭证类型
  IF up_head-vtype = cns_vtype_2.
    lv_bwtar = "OEM".
  ELSE.
    lv_bwtar = "PRD".
  ENDIF.

*
  PERFORM frm_fill_bdc USING: "X" "SAPLCORU"   "0100",
                              "" "CORUF-AUFNR"  up_aufnr,
                              "" "CORUF-VORNR" "10",        "默认0010
                              "" "BDC_OKCODE" "/00".        "回车

  lv_menge = up_head-menge.
  PERFORM frm_fill_bdc USING: "X" "SAPLCORU"   "0150",
                              ""  "AFRUD-LMNGA" lv_menge,   "确认数量
                              ""  "CORUF-TEILR" "X",        "部分确认
                              ""  "BDC_OKCODE"  "=RZUS".    "人员附加信息标签页

* 在人员附加信息标签页填写凭证日期
  PERFORM frm_fill_bdc USING: "X" "SAPLCORU" "0150",
                              ""  "AFRUD-BUDAT"  up_head-budat,
                              ""  "BDC_OKCODE"  "=MB03".    "跳转到物料移动

*"默认行带出的评估类型
  PERFORM frm_fill_bdc USING: "X" "SAPLCOWB"    "0130",
                              ""  "BDC_CURSOR"  "COWB_COMP-BWTAR(01)",
                              ""  "COWB_COMP-BWTAR(01)" lv_bwtar,
                              ""  "BDC_OKCODE"   "/00".  "回车

* 消耗物料的行
  LOOP AT tp_item INTO ls_item.
    lv_menge = ls_item-menge.
    PERFORM frm_fill_bdc USING: "X" "SAPLCOWB" "0130",
                                "" "COWB_COMP-MATNR(02)" ls_item-matnr,
                                "" "COWB_COMP-ERFME(02)" ls_item-meins,
                                "" "COWB_COMP-WERKS(02)" ls_item-werks,
                                "" "COWB_COMP-LGORT(02)" ls_item-lgort,
                                "" "COWB_COMP-ERFMG(02)" lv_menge,
                                "" "BDC_OKCODE" "/00".  "回车

    PERFORM frm_fill_bdc USING: "X" "SAPLCOWB" "0130",
                                ""  "BDC_OKCODE" "=P+".  "翻页
  ENDLOOP.

*  保存
  PERFORM frm_fill_bdc USING: "X" "SAPLCOWB" "0130",
                              ""  "BDC_OKCODE" "=WEIT".  "保存

  CALL TRANSACTION "CO11"  USING gt_bdcdata
                           MODE  gv_mode
                           UPDATE "S"
                           MESSAGES INTO gt_bdcmsg.

COMMIT WORK AND WAIT.

  LOOP AT gt_bdcmsg.
*        it_log-aufnr = it_data-aufnr.
*        it_log-vornr = it_data-vornr.
    MESSAGE ID sy-msgid TYPE gt_bdcmsg-msgtyp NUMBER gt_bdcmsg-msgnr
            WITH gt_bdcmsg-msgv1 gt_bdcmsg-msgv2 gt_bdcmsg-msgv3 gt_bdcmsg-msgv4
            INTO lv_msg.

    CLEAR ls_message.
    ls_message-class  = "BUS".
    ls_message-msgtyp = gt_bdcmsg-msgtyp.
    ls_message-msgno  = gt_bdcmsg-msgnr.
    ls_message-msgtxt = lv_msg.
    APPEND ls_message TO tp_message.

    IF gt_bdcmsg-msgtyp = "E" OR
       gt_bdcmsg-msgtyp = "A".
      cp_eind = "X".
    ENDIF.

ENDLOOP.

ENDFORM. " FRM_PROCESS_CO11N_BDC