ABAP创建销售订单BAPI示例_bapi 创建退货销售订单-程序员宅基地

技术标签: SAP  ABAP开发  ABAP 实用程序记录  ABAP  

1.BAPI种类

  1. BAPI_SALESORDER_CREATEFROMDAT2
  2. BAPI_CUSTOMERRETURN_CREATE
  3. SD_SALESDOCUMENT_CREATE

2.BAPI区别

  • BAPI_SALESORDER_CREATEFROMDAT2 业务对象限制为BUS2032
  • BAPI_CUSTOMERRETURN_CREATE 业务对象限制为BUS2102
  • SD_SALESDOCUMENT_CREATE 未限制业务对象类型
    • BUS2030 客户询价单
    • BUS2031 客户报价
    • BUS2032 销售订单
    • BUS2034 合同
    • BUS2094 贷项订单
    • BUS2096 借项订单
    • BUS2102 退货订单
    • BUS2103 后续免费送货订单
  • BAPI_SALESORDER_CREATEFROMDAT2和BAPI_CUSTOMERRETURN_CREATE都在内部调用SD_SALESDOCUMENT_CREATE
  • 对于不同订单类型(Z001,Z002…),配置了的SD凭证类型;可在TVAK表中VBTYP字段查看
    1
    2
  • 业务对象和SD凭证类型有绑定关系;比如Z008 Z009凭证,SD凭证类型为H(退货)所以需要使用业务对象类型BUS2102的BAPI;或者使用SD_SALESDOCUMENT_CREATE并设置参数BUSINESS_OBJECT = ‘BUS2102’

3.创建抬头行项目输入结构

3

4

4.创建接口函数,并配置传入传出参数

5
6
7

5.代码

  • 此方法save_text切割的字符串结尾为空格时;会造成空格丢失,需要自行写逻辑处理
  • 处理逻辑:缩短切割长度(例如:120);然后判断前一行是否末尾为空格,如果空则将空格写入本行开头
    FUNCTION ZSD_IF0012.
    *"----------------------------------------------------------------------
    *"*"本地接口:
    *"  IMPORTING
    *"     VALUE(I_HEAD) TYPE  ZSDS_CRM_IF007
    *"  EXPORTING
    *"     VALUE(RESULTCODE) TYPE  CHAR1
    *"     VALUE(RESULTMSG) TYPE  BAPI_MSG
    *"     VALUE(O_VBELN) TYPE  VBELN
    *"  TABLES
    *"      T_ITEM STRUCTURE  ZSDS_CRM_IF008
    *"----------------------------------------------------------------------
    
      DATA:
            WA_ORDER_HEADER_IN      LIKE BAPISDHD1,                 "抬头
            WA_ORDER_HEADER_INX     LIKE BAPISDHD1X,                "抬头控制
            WA_LOGIC_SWITCH         LIKE BAPISDLS,                  "内部控制参数
            GV_SALESDOCUMENT_EX     LIKE BAPIVBELN-VBELN,           "返回SO凭证号
            WA_ORDER_ITEMS_IN       LIKE BAPISDITM,                 "行项目
            ORDER_ITEMS_IN          LIKE  TABLE OF  BAPISDITM,      "行项目
            WA_ORDER_ITEMS_INX      LIKE BAPISDITMX,                "行项目控制
            ORDER_ITEMS_INX         LIKE  TABLE OF  BAPISDITMX,     "行项目控制
            WA_ORDER_PARTNERS       LIKE BAPIPARNR,                 "业务伙伴
            ORDER_PARTNERS          LIKE  TABLE OF  BAPIPARNR,      "业务伙伴
            WA_ORDER_SCHEDULES_IN   LIKE BAPISCHDL,                 "计划行
            ORDER_SCHEDULES_IN      LIKE  TABLE OF  BAPISCHDL,      "计划行
            WA_ORDER_SCHEDULES_INX  LIKE BAPISCHDLX,                "计划行控制
            ORDER_SCHEDULES_INX     LIKE  TABLE OF  BAPISCHDLX,     "计划行控制
            WA_ORDER_CONDITIONS_IN  LIKE BAPICOND,                  "定价条件
            ORDER_CONDITIONS_IN     LIKE  TABLE OF  BAPICOND,       "定价条件
            WA_ORDER_CONDITIONS_INX LIKE BAPICONDX,                 "定价条件控制
            ORDER_CONDITIONS_INX    LIKE  TABLE OF  BAPICONDX,      "定价条件控制
            WA_ORDER_TEXT           LIKE BAPISDTEXT,                "文本
            ORDER_TEXT              LIKE  TABLE OF  BAPISDTEXT,     "文本
            WA_EXTENSIONIN          TYPE BAPIPAREX,
            ORDER_EXTENSIONIN       TYPE TABLE OF BAPIPAREX,
            WA_RETURN               LIKE BAPIRET2,                  "BAPI返回
            RETURN                  LIKE  TABLE OF  BAPIRET2.       "BAPI返回
    
      DATA: WA_BAPE_VBAP  TYPE BAPE_VBAP,
            WA_BAPE_VBAPX TYPE BAPE_VBAPX,
            WA_BAPE_VBAK  TYPE BAPE_VBAK,
            WA_BAPE_VBAKX TYPE BAPE_VBAKX.
    
      DATA: WA_ITEM TYPE ZSDS_CRM_IF008,
            GS_LOGS TYPE ZALL_LOGS.                       "日志
    
      DATA: GT_DATA TYPE TABLE OF ZSDT_CRM_IF012,         "业务数据
            WA_DATA TYPE ZSDT_CRM_IF012.
    
      DATA: GV_STRING TYPE STRING,
            GT_STRING TYPE TABLE OF CHAR_132,
            WA_STRING TYPE  CHAR_132,
            GV_LENGTH TYPE I.
    
      SELECT *
      FROM ZMPPZB AS A
      FOR ALL ENTRIES IN @T_ITEM
      WHERE ZMPXX = @T_ITEM-ZMPXX
      INTO TABLE @DATA(GT_ZMPPZB).
    
    *    获取日志表流水号
      CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
      EXPORTING
        OBJECT           = 'ZLOG001'
      EXCEPTIONS
        FOREIGN_LOCK     = 1
        OBJECT_NOT_FOUND = 2
        SYSTEM_FAILURE   = 3
        OTHERS           = 4.
      IF SY-SUBRC EQ 0.
    * Implement suitable error handling here
        CALL FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          NR_RANGE_NR             = '01'
          OBJECT                  = 'ZLOG001'
        IMPORTING
          NUMBER                  = GS_LOGS-SEQNR
    *       QUANTITY                =
    *       RETURNCODE              =
        EXCEPTIONS
          INTERVAL_NOT_FOUND      = 1
          NUMBER_RANGE_NOT_INTERN = 2
          OBJECT_NOT_FOUND        = 3
          QUANTITY_IS_0           = 4
          QUANTITY_IS_NOT_1       = 5
          INTERVAL_OVERFLOW       = 6
          BUFFER_OVERFLOW         
版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/qq_30797051/article/details/120094731

智能推荐

oracle 12c 集群安装后的检查_12c查看crs状态-程序员宅基地

文章浏览阅读1.6k次。安装配置gi、安装数据库软件、dbca建库见下:http://blog.csdn.net/kadwf123/article/details/784299611、检查集群节点及状态:[root@rac2 ~]# olsnodes -srac1 Activerac2 Activerac3 Activerac4 Active[root@rac2 ~]_12c查看crs状态

解决jupyter notebook无法找到虚拟环境的问题_jupyter没有pytorch环境-程序员宅基地

文章浏览阅读1.3w次,点赞45次,收藏99次。我个人用的是anaconda3的一个python集成环境,自带jupyter notebook,但在我打开jupyter notebook界面后,却找不到对应的虚拟环境,原来是jupyter notebook只是通用于下载anaconda时自带的环境,其他环境要想使用必须手动下载一些库:1.首先进入到自己创建的虚拟环境(pytorch是虚拟环境的名字)activate pytorch2.在该环境下下载这个库conda install ipykernelconda install nb__jupyter没有pytorch环境

国内安装scoop的保姆教程_scoop-cn-程序员宅基地

文章浏览阅读5.2k次,点赞19次,收藏28次。选择scoop纯属意外,也是无奈,因为电脑用户被锁了管理员权限,所有exe安装程序都无法安装,只可以用绿色软件,最后被我发现scoop,省去了到处下载XXX绿色版的烦恼,当然scoop里需要管理员权限的软件也跟我无缘了(譬如everything)。推荐添加dorado这个bucket镜像,里面很多中文软件,但是部分国外的软件下载地址在github,可能无法下载。以上两个是官方bucket的国内镜像,所有软件建议优先从这里下载。上面可以看到很多bucket以及软件数。如果官网登陆不了可以试一下以下方式。_scoop-cn

Element ui colorpicker在Vue中的使用_vue el-color-picker-程序员宅基地

文章浏览阅读4.5k次,点赞2次,收藏3次。首先要有一个color-picker组件 <el-color-picker v-model="headcolor"></el-color-picker>在data里面data() { return {headcolor: ’ #278add ’ //这里可以选择一个默认的颜色} }然后在你想要改变颜色的地方用v-bind绑定就好了,例如:这里的:sty..._vue el-color-picker

迅为iTOP-4412精英版之烧写内核移植后的镜像_exynos 4412 刷机-程序员宅基地

文章浏览阅读640次。基于芯片日益增长的问题,所以内核开发者们引入了新的方法,就是在内核中只保留函数,而数据则不包含,由用户(应用程序员)自己把数据按照规定的格式编写,并放在约定的地方,为了不占用过多的内存,还要求数据以根精简的方式编写。boot启动时,传参给内核,告诉内核设备树文件和kernel的位置,内核启动时根据地址去找到设备树文件,再利用专用的编译器去反编译dtb文件,将dtb还原成数据结构,以供驱动的函数去调用。firmware是三星的一个固件的设备信息,因为找不到固件,所以内核启动不成功。_exynos 4412 刷机

Linux系统配置jdk_linux配置jdk-程序员宅基地

文章浏览阅读2w次,点赞24次,收藏42次。Linux系统配置jdkLinux学习教程,Linux入门教程(超详细)_linux配置jdk

随便推点

matlab(4):特殊符号的输入_matlab微米怎么输入-程序员宅基地

文章浏览阅读3.3k次,点赞5次,收藏19次。xlabel('\delta');ylabel('AUC');具体符号的对照表参照下图:_matlab微米怎么输入

C语言程序设计-文件(打开与关闭、顺序、二进制读写)-程序员宅基地

文章浏览阅读119次。顺序读写指的是按照文件中数据的顺序进行读取或写入。对于文本文件,可以使用fgets、fputs、fscanf、fprintf等函数进行顺序读写。在C语言中,对文件的操作通常涉及文件的打开、读写以及关闭。文件的打开使用fopen函数,而关闭则使用fclose函数。在C语言中,可以使用fread和fwrite函数进行二进制读写。‍ Biaoge 于2024-03-09 23:51发布 阅读量:7 ️文章类型:【 C语言程序设计 】在C语言中,用于打开文件的函数是____,用于关闭文件的函数是____。

Touchdesigner自学笔记之三_touchdesigner怎么让一个模型跟着鼠标移动-程序员宅基地

文章浏览阅读3.4k次,点赞2次,收藏13次。跟随鼠标移动的粒子以grid(SOP)为partical(SOP)的资源模板,调整后连接【Geo组合+point spirit(MAT)】,在连接【feedback组合】适当调整。影响粒子动态的节点【metaball(SOP)+force(SOP)】添加mouse in(CHOP)鼠标位置到metaball的坐标,实现鼠标影响。..._touchdesigner怎么让一个模型跟着鼠标移动

【附源码】基于java的校园停车场管理系统的设计与实现61m0e9计算机毕设SSM_基于java技术的停车场管理系统实现与设计-程序员宅基地

文章浏览阅读178次。项目运行环境配置:Jdk1.8 + Tomcat7.0 + Mysql + HBuilderX(Webstorm也行)+ Eclispe(IntelliJ IDEA,Eclispe,MyEclispe,Sts都支持)。项目技术:Springboot + mybatis + Maven +mysql5.7或8.0+html+css+js等等组成,B/S模式 + Maven管理等等。环境需要1.运行环境:最好是java jdk 1.8,我们在这个平台上运行的。其他版本理论上也可以。_基于java技术的停车场管理系统实现与设计

Android系统播放器MediaPlayer源码分析_android多媒体播放源码分析 时序图-程序员宅基地

文章浏览阅读3.5k次。前言对于MediaPlayer播放器的源码分析内容相对来说比较多,会从Java-&amp;amp;gt;Jni-&amp;amp;gt;C/C++慢慢分析,后面会慢慢更新。另外,博客只作为自己学习记录的一种方式,对于其他的不过多的评论。MediaPlayerDemopublic class MainActivity extends AppCompatActivity implements SurfaceHolder.Cal..._android多媒体播放源码分析 时序图

java 数据结构与算法 ——快速排序法-程序员宅基地

文章浏览阅读2.4k次,点赞41次,收藏13次。java 数据结构与算法 ——快速排序法_快速排序法