SAP ABAP编程创建采购订单

最新推荐文章于 2025-02-04 11:32:54 发布

心丨悦_蜗牛在裸奔

最新推荐文章于 2025-02-04 11:32:54 发布

阅读量4.7k

点赞数 1

分类专栏： SAP ABAP编程

本文链接：https://blog.youkuaiyun.com/qinyuezhan/article/details/43014825

版权

这是一个关于如何使用ABAP编程语言在SAP系统中创建采购订单的函数。代码首先获取结算单信息，然后根据税码和物料组生成多个行项目。接着，它设置采购订单的头部信息，如供应商、付款条件和采购组织，并为每个服务行项目填充数据。最后，通过调用BAPI_PO_CREATE1创建采购订单。

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

FUNCTION zmm_jsd_creatpo .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(JSD) TYPE  ZMM_YS_JSD_HEAD-JSD
*"  EXPORTING
*"     VALUE(E_FLAG) TYPE  CHAR1
*"     VALUE(E_INFO) TYPE  TEXT60
*"     VALUE(EBELN) TYPE  EBELN
*"----------------------------------------------------------------------
*      根据结算单生成采购订单  根据税码、物料组分成多个行项目
*"----------------------------------------------------------------------
   DATA : header   LIKE  bapimepoheader ,
         headerx LIKE  bapimepoheaderx .

   DATA :   it_return       TYPE TABLE OF bapiret2           WITH HEADER LINE ,
          it_poitem       TYPE TABLE OF bapimepoitem       WITH HEADER LINE ,
          it_poitemx      TYPE TABLE OF bapimepoitemx      WITH HEADER LINE ,
          it_poschedule   TYPE TABLE OF bapimeposchedule   WITH HEADER LINE ,
          it_poschedulex TYPE TABLE OF bapimeposchedulx   WITH HEADER LINE ,
          it_poaccount    TYPE TABLE OF bapimepoaccount    WITH HEADER LINE ,
          it_poaccountx   TYPE TABLE OF bapimepoaccountx   WITH HEADER LINE ,
          it_polimits     TYPE TABLE OF bapiesuhc          WITH HEADER LINE ,
          it_povalues     TYPE TABLE OF bapiesklc          WITH HEADER LINE ,
          it_poservice    TYPE TABLE OF bapiesllc          WITH HEADER LINE .

   DATA ext_line     TYPE n LENGTH 10 .
   DATA line_no      TYPE n LENGTH 10 .
   DATA pckg_no      TYPE n LENGTH 10 .
   DATA po_item      TYPE n LENGTH 5 .       "行项目编号
   DATA serial_no    TYPE n LENGTH 2 .
   DATA short_text   TYPE c LENGTH 40 .      "项目短文本
   DATA head_zterm   TYPE lfm1 -zterm .       "付款条件

   DATA : gw_jsd_head LIKE zmm_ys_jsd_head ,
        gw_jsd_item LIKE zmm_ys_jsd_item ,
        gt_jsd_item LIKE TABLE OF zmm_ys_jsd_item .

   "结算单暂存结构
   TYPES : BEGIN OF ty_ys_jsd ,
       beznk    LIKE zmm_ys_jsd_item -beznk ,    "税码
       matkl    LIKE asmd -matkl ,    "物料组
       asnum    LIKE zmm_ys_jsd_item -asnum ,    "服务编号
       jsd      LIKE zmm_ys_jsd_item -jsd ,
       jsdhh    LIKE zmm_ys_jsd_item -jsdhh ,
       qd       LIKE zmm_ys_jsd_item -qd ,
       zd       LIKE zmm_ys_jsd_item -zd ,
       smatnr   LIKE zmm_ys_jsd_item -smatnr ,
       kostl    LIKE zmm_ys_jsd_item -kostl ,
       shdw     LIKE zmm_ys_jsd_item -shdw ,
       ctype    LIKE zmm_ys_jsd_item -ctype ,
       menge    LIKE zmm_ys_jsd_item -menge ,
       meins    LIKE zmm_ys_jsd_item -meins ,
       hsdj     LIKE