BAPI_PO_CREATE1创建采购订单BAPI学习

1314lay_1007

已于 2025-01-03 08:47:30 修改

阅读量684

点赞数 8

CC 4.0 BY-SA版权

分类专栏： SAP ABAP BAPI MM 文章标签： ABAP

于 2024-12-17 10:30:27 首次发布

本文链接：https://blog.csdn.net/weixin_44686958/article/details/144527417

这里是创建采购订单BAPI的学习及研究，没有涉及到增强结构。就是常规的信息

创建测试的函数模块

创建函数模块

在这里插入图片描述

创建函数组

在这里插入图片描述

创建需要的结构

在这里插入图片描述

设置传入参数

在这里插入图片描述
还有一个导出参数：

运行结果

在这里插入图片描述

非常注意

在这里插入图片描述

代码解析

定义需要的变量

在这里插入图片描述

抬头赋值

在这里插入图片描述

"-->>采购订单抬头
  LS_POHEADER-COMP_CODE  = I_HEAD-BUKRS. "公司代码
  LS_POHEADER-VENDOR     = I_HEAD-LIFNR. "供应商帐户号
  LS_POHEADER-PURCH_ORG  = I_HEAD-EKORG. "采购组织
  LS_POHEADER-PUR_GROUP  = I_HEAD-EKGRP. "采购组
  LS_POHEADER-DOC_TYPE   = I_HEAD-BSART. "采购凭证类型
  LS_POHEADER-DOC_DATE   = I_HEAD-AEDAT.
  LS_POHEADER-CURRENCY   = I_HEAD-WAERS. "货币码
  LS_POHEADER-CREATED_BY = SY-UNAME.    "创建对象的人员名称
  LS_POHEADER-COLLECT_NO = ''.
  LS_POHEADER-ITEM_INTVL = ''.

  "-->>采购订单抬头数据（更改参数）
  LS_POHEADERX-COMP_CODE  = 'X'.
  LS_POHEADERX-VENDOR     = 'X'.
  LS_POHEADERX-PURCH_ORG  = 'X'.
  LS_POHEADERX-PUR_GROUP  = 'X'.
  LS_POHEADERX-CREATED_BY = 'X'.
  LS_POHEADERX-DOC_DATE   = 'X'.
  LS_POHEADERX-DOC_TYPE   = 'X'.
  LS_POHEADERX-CURRENCY   = 'X'.
  LS_POHEADERX-COLLECT_NO = 'X'.
  LS_POHEADERX-ITEM_INTVL = 'X'.

行项目

在这里插入图片描述

交货计划行

在这里插入图片描述

条件

在这里插入图片描述

账户分配

在这里插入图片描述


    IF LS_ITEM-KNTTP = 'K'.
      LS_POACCOUNT-PO_ITEM    = LS_ITEM-EBELP.
      LS_POACCOUNT-SERIAL_NO  = 1.
      LS_POACCOUNT-COSTCENTER = LS_ITEM-KOSTL.
      LS_POACCOUNT-GL_ACCOUNT = LS_ITEM-SAKNR.
      APPEND LS_POACCOUNT TO LT_POACCOUNT.

      LS_POACCOUNTX-PO_ITEM     = LS_ITEM-EBELP.
      LS_POACCOUNTX-SERIAL_NO   = 1.
      LS_POACCOUNTX-COSTCENTER  = 'X'.
      LS_POACCOUNTX-GL_ACCOUNT  = 'X'.
      APPEND LS_POACCOUNTX TO LT_POACCOUNTX.
      CLEAR: LS_POACCOUNT,LS_POACCOUNTX.

    ELSEIF LS_ITEM-KNTTP = 'F'.
      LS_POACCOUNT-PO_ITEM    = LS_ITEM-EBELP.
      LS_POACCOUNT-SERIAL_NO  = 1.
      LS_POACCOUNT-ORDERID    = LS_ITEM-AUFNR.
      LS_POACCOUNT-GL_ACCOUNT = LS_ITEM-SAKNR.
      APPEND LS_POACCOUNT TO LT_POACCOUNT.

      LS_POACCOUNTX-PO_ITEM     = LS_ITEM-EBELP.
      LS_POACCOUNTX-SERIAL_NO   = 1.
      LS_POACCOUNTX-ORDERID     = 'X'.
      LS_POACCOUNTX-GL_ACCOUNT  = 'X'.
      APPEND LS_POACCOUNTX TO LT_POACCOUNTX.
      CLEAR: LS_POACCOUNT,LS_POACCOUNTX.
    ELSEIF LS_ITEM-KNTTP = 'M'.
      LS_POACCOUNT-PO_ITEM    = LS_ITEM-EBELP.
      LS_POACCOUNT-SERIAL_NO  = 1.
      LS_POACCOUNT-SD_DOC     = LS_ITEM-VBELN.
      LS_POACCOUNT-ITM_NUMBER = LS_ITEM-VBELP.
      APPEND LS_POACCOUNT TO LT_POACCOUNT.

      LS_POACCOUNTX-PO_ITEM     = LS_ITEM-EBELP.
      LS_POACCOUNTX-SERIAL_NO   = 1.
      LS_POACCOUNTX-SD_DOC      = 'X'.
      LS_POACCOUNTX-ITM_NUMBER  = 'X'.
      APPEND LS_POACCOUNTX TO LT_POACCOUNTX.
      CLEAR: LS_POACCOUNT,LS_POACCOUNTX.
    ELSEIF LS_ITEM-KNTTP = 'A'.
      LS_POACCOUNT-PO_ITEM      = LS_ITEM-EBELP.
      LS_POACCOUNT-SERIAL_NO    =