VL31N BAPI:GN_DELIVERY_CREATE创建内向交货单同时批次拆分

翻到之前写的测试代码,记录一下,用于创建DN的同时就进行批次拆分,不需要再调用变更的BAPI再去修改一次。

REPORT ZTEST_VL31N_BATCH_SPLIT.DATA:GS_VBSK_I     TYPE VBSK,                                   "構造:販売伝票ヘッダINGS_VBSK_E     TYPE VBSK,                                   "構造:販売伝票ヘッダOUTGS_BORGR_CT   TYPE BORGR_CONTROL,                          "構造:GN_DELIVERY_CREATE の管理区分GT_XKOMDLGN   TYPE STANDARD TABLE OF KOMDLGN,              "T:明細GS_XKOMDLGN   TYPE KOMDLGN,                                "構造:明細GT_PARTNER    TYPE STANDARD TABLE OF PARTNER_GN,GS_PARTNER    TYPE PARTNER_GN,GT_ADDRESS    TYPE STANDARD TABLE OF BAPIADDR1,GS_ADDRESS    TYPE BAPIADDR1,GT_XVBFS      TYPE STANDARD TABLE OF VBFS,                 "T:一括処理用エラーログGS_XVBFS      TYPE VBFS,                                   "構造:一括処理用エラーログGT_XVBLS      TYPE STANDARD TABLE OF VBLS,                 "T:一括処理用納品書GS_XVBLS      TYPE VBLS,                                   "構造:一括処理用納品書GS_ADDR_SEL   TYPE ADDR1_SEL,GS_ADDR_VALUE TYPE ADDR1_VAL.*   抬头数据GS_BORGR_CT-SAVE_TEXTS = ABAP_TRUE.              "グループタイプGS_VBSK_I-MANDT = SY-MANDT.                      "クライアントGS_VBSK_I-ERNAM = SY-UNAME.                      "オブジェクト登録者名GS_VBSK_I-ERDAT = SY-DATUM.                      "レコード登録日GS_VBSK_I-UZEIT = SY-UZEIT.                      "時刻
*  GS_VBSK_I-VSTEL = '100B'.                      "装运点GS_VBSK_I-PROGRAMM = SY-REPID.GS_VBSK_I-SELSET   = SY-SLSET.GS_VBSK_I-BATCH    = SY-BATCH.GS_VBSK_I-SMART = 'L'.                           "グループタイプ*   内部番号割当の番号範囲取得SELECT SINGLE NUMKIINTO @DATA(GV_NUMKI)                           "変数:内部番号割当の番号範囲FROM TVSAWHERE SMART = @GS_VBSK_I-SMART.                 "グループタイプ*   NUmber range: Assigns next free numberCALL FUNCTION 'NUMBER_GET_NEXT'EXPORTINGNR_RANGE_NR             = GV_NUMKI           "変数:内部番号割当の番号範囲OBJECT                  = 'RV_SAMMG'         "番号範囲オブジェクト名
*     QUANTITY                = '1'
*     SUBOBJECT               = ' '
*     TOYEAR                  = '0000'
*     IGNORE_BUFFER           = ' 'IMPORTINGNUMBER                  = GS_VBSK_I-SAMMG    "グループタイプ
*     QUANTITY                =
*     RETURNCODE              =EXCEPTIONSINTERVAL_NOT_FOUND      = 1NUMBER_RANGE_NOT_INTERN = 2OBJECT_NOT_FOUND        = 3QUANTITY_IS_0           = 4QUANTITY_IS_NOT_1       = 5INTERVAL_OVERFLOW       = 6BUFFER_OVERFLOW         = 7OTHERS                  = 8.*   取得できなかた場合IF SY-SUBRC <> 0.ASSERT 0 = 0.ENDIF.*  GS_XKOMDLGN-POSNR = '000010'.GS_XKOMDLGN-SPE_POSNR = '000010'.GS_XKOMDLGN-LIFNR = '5000000000'.GS_XKOMDLGN-LFIMG = '0'.GS_XKOMDLGN-KCMENG = '50'.GS_XKOMDLGN-MATNR = '000000010000000047'.GS_XKOMDLGN-EMATN = '000000010000000047'.GS_XKOMDLGN-PSTYV = 'ELN'.GS_XKOMDLGN-BLDAT = SY-DATUM.GS_XKOMDLGN-WERKS = '100B'.GS_XKOMDLGN-LGORT = 'JA06'.GS_XKOMDLGN-MTART = 'Z001'.GS_XKOMDLGN-VGBEL = '4100002508'.              "参照伝票番号GS_XKOMDLGN-VGPOS = '000001'.                  "参照明細番号GS_XKOMDLGN-VGTYP = 'V'.                       "販売管理伝票カテゴリGS_XKOMDLGN-RFBEL = '4100002508'.              "参照伝票番号GS_XKOMDLGN-RFPOS = '000001'.                  "参照明細番号GS_XKOMDLGN-LFART = 'EL'.GS_XKOMDLGN-AKMNG = 'A'.GS_XKOMDLGN-KZBEW = 'B'.GS_XKOMDLGN-LFDAT = SY-DATUM.GS_XKOMDLGN-VRKME = 'ST'.GS_XKOMDLGN-MEINS = 'ST'.GS_XKOMDLGN-KZAZU = 'X'.                       "受注結合区分GS_XKOMDLGN-XCHAR = 'X'.                       "GS_XKOMDLGN-XCHPF = 'X'.                       "APPEND GS_XKOMDLGN TO GT_XKOMDLGN.CLEAR GS_XKOMDLGN.*  GS_XKOMDLGN-POSNR = '900001'.GS_XKOMDLGN-SPE_POSNR = '900001'.GS_XKOMDLGN-UECHA = '000010'.GS_XKOMDLGN-LIFNR = '5000000000'.GS_XKOMDLGN-LFIMG = '20'.GS_XKOMDLGN-LGMNG = '20'.GS_XKOMDLGN-CHARG = '90D128_80'.GS_XKOMDLGN-KCMENG = '0'.GS_XKOMDLGN-MATNR = '000000010000000047'.GS_XKOMDLGN-PSTYV = 'ELN'.GS_XKOMDLGN-BLDAT = SY-DATUM.GS_XKOMDLGN-WERKS = '100B'.GS_XKOMDLGN-LGORT = 'JA06'.GS_XKOMDLGN-MTART = 'Z001'.GS_XKOMDLGN-VGBEL = '4100002508'.              "参照伝票番号GS_XKOMDLGN-VGPOS = '000001'.                  "参照明細番号GS_XKOMDLGN-VGTYP = 'V'.                       "販売管理伝票カテゴリGS_XKOMDLGN-RFBEL = '4100002508'.              "参照伝票番号GS_XKOMDLGN-RFPOS = '000001'.                  "参照明細番号GS_XKOMDLGN-LFART = 'EL'.GS_XKOMDLGN-AKMNG = 'A'.GS_XKOMDLGN-KZBEW = 'B'.GS_XKOMDLGN-LFDAT = SY-DATUM.GS_XKOMDLGN-VRKME = 'ST'.GS_XKOMDLGN-MEINS = 'ST'.GS_XKOMDLGN-KZAZU = 'X'.                       "受注結合区分GS_XKOMDLGN-XCHAR = 'X'.                       "GS_XKOMDLGN-XCHPF = 'X'.                       "
*  GS_XKOMDLGN-MFRGR = '02'.                     "便APPEND GS_XKOMDLGN TO GT_XKOMDLGN.GS_XKOMDLGN-SPE_POSNR = '900002'.GS_XKOMDLGN-UECHA = '000010'.GS_XKOMDLGN-LIFNR = '5000000000'.GS_XKOMDLGN-LFIMG = '30'.GS_XKOMDLGN-LGMNG = '30'.GS_XKOMDLGN-CHARG = '90D128_81'.GS_XKOMDLGN-KCMENG = '0'.GS_XKOMDLGN-MATNR = '000000010000000047'.GS_XKOMDLGN-PSTYV = 'ELN'.GS_XKOMDLGN-BLDAT = SY-DATUM.GS_XKOMDLGN-WERKS = '100B'.GS_XKOMDLGN-LGORT = 'JA06'.GS_XKOMDLGN-MTART = 'Z001'.GS_XKOMDLGN-VGBEL = '4100002508'.              "参照伝票番号GS_XKOMDLGN-VGPOS = '000001'.                  "参照明細番号GS_XKOMDLGN-VGTYP = 'V'.                       "販売管理伝票カテゴリGS_XKOMDLGN-RFBEL = '4100002508'.              "参照伝票番号GS_XKOMDLGN-RFPOS = '000001'.                  "参照明細番号GS_XKOMDLGN-LFART = 'EL'.GS_XKOMDLGN-AKMNG = 'A'.GS_XKOMDLGN-KZBEW = 'B'.GS_XKOMDLGN-LFDAT = SY-DATUM.GS_XKOMDLGN-VRKME = 'ST'.GS_XKOMDLGN-MEINS = 'ST'.GS_XKOMDLGN-KZAZU = 'X'.                       "受注結合区分GS_XKOMDLGN-XCHAR = 'X'.                       "GS_XKOMDLGN-XCHPF = 'X'.                       "
*  GS_XKOMDLGN-MFRGR = '02'.                     "便APPEND GS_XKOMDLGN TO GT_XKOMDLGN.CALL FUNCTION 'GN_DELIVERY_CREATE'EXPORTINGVBSK_I           = GS_VBSK_I
*     NO_COMMIT        = ' '
*     IF_SYNCHRON      = 'X'
*     VBLS_POS_RUECK   = ' '
*     IF_CREATE_DEC    = ' '
*     IF_NO_DEQUE      = ' '
*     IT_HANDLING_UNITS          =
*     IF_QUAN_NO_CHECK =
*     IF_MASS_READ_MAT_SW        = ' '
*     IS_DELIVERY_EXTEND         =
*     IS_CONTROL       =IS_BORGR_CONTROL = GS_BORGR_CT
*     IF_NO_INIT       = ' '
*     IF_NO_PARTNER_DIALOG       = 'X'
*     IF_CHECK_UOM     = ' '
*     IT_LECOMP        =
*     IF_CALL_ACTIVITY = ' 'IMPORTINGVBSK_E           = GS_VBSK_E
*     ET_SPLITPROT     =
*     ET_VBADR         =
*     ET_VBPA          =TABLESXKOMDLGN         = GT_XKOMDLGNXVBFS            = GT_XVBFSXVBLS            = GT_XVBLS
*     XXLIPS           =
*     XVERKO           =
*     XVERPO           =IT_GN_PARTNER    = GT_PARTNER
*     IT_GN_LIPSPO     =
*     IT_GN_LIPSRF     =
*     IT_GN_TEXTH      =
*     IT_GN_TEXTL      =
*     IT_GN_HUSERNR    =
*     IT_GN_SERNR      =
*     IT_TMSTMP        =
*     ET_SPE_VBFS      =IT_BAPIADDR1     = GT_ADDRESS
*     IT_GN_HU_HEADER_EPC        =
*     IT_GN_HU_ITEMS_EPC         =
*     IT_GN_HURES      =.READ TABLE GT_XVBLS INTO GS_XVBLS INDEX 1.IF GS_XVBLS-VBELN_LIF IS NOT INITIAL.
*   コミットCALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = ABAP_TRUE.WRITE GS_XVBLS-VBELN_LIF.ELSE.
*   ロールバックCALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.DATA:LT_MESSAGE_TAB TYPE ESP1_MESSAGE_TAB_TYPE,LS_MESSAGE     TYPE ESP1_MESSAGE_WA_TYPE.LOOP AT GT_XVBFS INTO GS_XVBFS.LS_MESSAGE-MSGID  = GS_XVBFS-MSGID.LS_MESSAGE-MSGTY  = GS_XVBFS-MSGTY.LS_MESSAGE-MSGNO  = GS_XVBFS-MSGNO.LS_MESSAGE-MSGV1  = GS_XVBFS-MSGV1.LS_MESSAGE-MSGV2  = GS_XVBFS-MSGV2.LS_MESSAGE-MSGV3  = GS_XVBFS-MSGV3.LS_MESSAGE-MSGV4  = GS_XVBFS-MSGV4.LS_MESSAGE-LINENO = SY-TABIX.APPEND LS_MESSAGE TO LT_MESSAGE_TAB.ENDLOOP.CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'TABLESI_MESSAGE_TAB = LT_MESSAGE_TAB.*    CL_DEMO_OUTPUT=>DISPLAY( GT_XVBFS ).ENDIF.

以上。

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/diannao/38755.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

2023-2024华为ICT大赛中国区 实践赛云赛道 全国总决赛 理论部分真题

Part 1 大数据模块(3题)&#xff1a; 1、以下关于特征选择中的互信息法描述中&#xff0c;理解正确的是哪些?(多选题) A.互信息法是从信息熵的角度分析特征和输出值之间的关系评分 B.在Python工具的sklearn模块中&#xff0c;可使用mutual_info_classif(分类)和mutual_info…

AI智能在Type-C领域的应用

随着科技的飞速发展&#xff0c;Type-C接口凭借其卓越的性能和广泛的应用场景&#xff0c;已成为现代电子设备中不可或缺的一部分。而AI智能技术的兴起&#xff0c;为Type-C领域带来了革命性的变革&#xff0c;推动了其功能的进一步完善和应用领域的拓展。本文将探讨AI智能在Ty…

用技术手段有效应对CC攻击

在网络安全领域&#xff0c;CC攻击&#xff08;Challenge Collapsar&#xff0c;即HTTP Flood攻击的一种&#xff09;是一种常见的分布式拒绝服务&#xff08;DDoS&#xff09;攻击手段&#xff0c;它通过大量合法的HTTP请求耗尽服务器资源&#xff0c;导致正常用户访问缓慢甚至…

【cocos2dx】【c++】【游戏开发】旧题新说,计算两个日期相差几天,在指定的天数弹出相应的弹窗

【cocos2dx】【c】计算两个日期相差几天&#xff0c;在指定的天数弹出相应的弹窗 设备/引擎&#xff1a;Mac&#xff08;11.6&#xff09;/Mac Mini 开发工具&#xff1a;Xcode&#xff08;15.0.1&#xff09; 开发需求&#xff1a;计算两个日期相差几天&#xff0c;在指定的…

中文翻译老挝语只推荐一个神器《老挝语翻译通》App,老挝语口语发音练习,支持老挝文OCR识别提取文字!

出国旅游去探索东南亚的神秘国家&#xff1a;老挝&#xff0c;不会老挝语怎么办&#xff1f;不用怕&#xff0c;下载《老挝语翻译通》App帮助你把中文翻译成老挝语。 功能亮点&#xff1a; 实时翻译&#xff1a;实时把中文翻译成老挝语&#xff0c;老挝语单词或者句子均可均可…

typescript学习回顾(三)

今天继续来分享ts的相关概念&#xff0c;枚举&#xff0c;ts模块化&#xff0c;接口和类型兼容性 ts的扩展类型&#xff1a;类型别名&#xff0c;枚举&#xff0c;接口和类 枚举 基础概念 枚举通常用于约束某个变量的取值范围。当然字面量和联合类型配合使用&#xff0c;也可…

Redis 配置详解

文章目录 Redis 配置详解网络持久化复制安全客户端内存管理延迟释放仅追加模式LUA集群慢指令延迟监控事件通知高级配置主动碎片整理 Redis 配置详解 网络 ########################## NETWORK ########################## bind&#xff1a;指定 Redis 只接收来自于特定 IP 地…

Linux 高级编程——线程控制

线程控制&#xff1a;互斥与同步 概念&#xff1a; 互斥 》在多线程中对临界资源的排他性访问。 互斥机制 》互斥锁 》保证临界资源的 访问控制。 pthread_mutex_t mutex; 互斥锁类型 互斥锁变量 内核对象 框架&#xff1a; 定义互斥锁 》初始化锁 》加…

前端——在本地搭建Vue单页应用

目录 1、安装最新node.js 2、打开命令行窗口 3、进入要保存项目的目录下 4、安装 Vue CLI 5、创建新项目&#xff0c;选择功能 5.1 新建项目 5.2 Please pick a preset 5.3 Check the features needed for your project 5.4 Choose a version of Vue.js 5.5 Use hist…

Android13 串口控制是能wifi adb实现

Android13 串口控制是能wifi adb实现 文章目录 一、前言二、Android 串口控制是能wifi adb实现1、通过Settings属性控制2、通过prop属性控制3、wifi adb 对应的Settings属性和prop属性关系&#xff08;1&#xff09;属性监听&#xff08;2&#xff09;相关代码位置&#xff08;…

优化数据库字段使用位运算-php语言示例

背景&#xff1a;一个会员有三个状态&#xff0c;A、B、C&#xff0c;其中一个人可以为 A、B、C、AB&#xff1b;之前数据表结构加了三个字段is_a、is_b、is_c; 本人实在不想这样粗糙的实现需求&#xff0c;遂决定用位运算优化。 上代码&#xff1a; 位运算可以用来处理状态值…

探索SOLIDWORKS 2024设计增强功能

随着技术的不断进步和市场的日益竞争&#xff0c;工程设计和制造行业对于快捷、准确和创新的工具需求日益增长。SOLIDWORKS作为3D CAD设计软件&#xff0c;一直致力于为用户提供更强大、更便捷的设计工具。SOLIDWORKS 2024的发布&#xff0c;再次证明了其在设计增强功能方面的持…

使用 Amazon Bedrock Converse API 简化大语言模型交互

本文将介绍如何使用 Amazon Bedrock 最新推出的 Converse API&#xff0c;来简化与各种大型语言模型的交互。该 API 提供了一致的接口&#xff0c;可以无缝调用各种大型模型&#xff0c;从而消除了需要自己编写复杂辅助功能函数的重复性工作。文中示例将展示它相比于以前针对每…

如何在Windows上使用Docker搭建PHP开发环境

前言 在本地搭建开发环境我好像没几年就要折腾一次&#xff0c;因为本地开发电脑使用的是windows&#xff0c;早些年的时候&#xff0c;用过很多类似WAMP之类的东西&#xff0c;但最终都有或多或少不满意的地方&#xff0c;前两年的时候&#xff0c;还折腾过WSL&#xff0c;但…

批量文件名修改软件:一键解决同一编码多型号文件分类与命名难题,高效管理文件

在数字化时代&#xff0c;图片文件已经成为我们工作中不可或缺的一部分。然而&#xff0c;当面对成百上千个同一编码下不同型号的图片文件时&#xff0c;如何快速、准确地进行分类和命名&#xff0c;成为了许多职场人士头疼的问题。现在&#xff0c;我们为您带来了一款神奇的批…

MyBatisPlus 基础数据表的增删改查 入门 简单查询

MyBatisPlus MyBatisPlus&#xff08;简称MP&#xff09;是一个基于MyBatis的增强工具库&#xff0c;简化了MyBatis的开发&#xff0c;提供了很多实用的功能和特性&#xff0c;如自动生成SQL、通用CRUD操作、分页插件、条件构造器、代码生成器等。它不仅简化了开发过程&#x…

2024海亮日记

写在前面&#xff1a;长文预警 20240617 听说要去海亮&#xff0c;不考&#xff08;补考&#xff09;期末考试&#xff0c;于是进行一个停课的办理&#xff0c;第一次进入410&#xff0c;被逆天的配置和气氛所震惊 发誓这回去HL一定要有好效果&#xff0c;于是制定了详细的计…

golang 未指定类型interface{} 类型的 int类型数据json.Unmarshal 解码后变成float64类型问题解决方法

golang内置的json反序列化方法&#xff0c;默认情况下对应 未指定类型interface{} 类型的的 int类型数据在经过Unmarshal解码后 int类型的数据会变成 float64类型。 因为json里面默认将interface{}类型的int数据都当做float64来处理。 解决方法很简单&#xff0c;就是使用自定…

优盘有盘符显示0字节:故障解析与数据恢复策略

一、优盘有盘符显示0字节现象描述 在使用优盘的过程中&#xff0c;我们有时会遇到一种令人困惑的情况&#xff1a;插入优盘后&#xff0c;电脑能正常识别到优盘的盘符&#xff0c;但当我们尝试访问其中的数据时&#xff0c;却发现优盘的容量显示为0字节&#xff0c;无法读取或…

快速掌握MyBatis

MyBatis 是一个流行的 Java 持久层框架&#xff0c;它提供了一种半自动的 SQL 映射方式&#xff0c;使得开发者能够更加灵活地编写 SQL 语句&#xff0c;同时避免了传统 JDBC 代码的冗余和复杂性。下面进行简要概述&#xff1a; MyBatis 快速掌握 核心概念&#xff1a;理解 My…