SAP VT01N创建Shipment Number

调用BAPI:BAPI_SHIPMENT_CREATE创建装运单本身很简单,但是如果是第一次使用的话,可能会对抬头的一些日期感到困惑

BAPI_SHIPMENT_CREATE抬头日期字段处理代码:Include程序:LV56I_BAPIHEA,子程序:set_header_data

常量定义:Include程序LV56I_BAPITOP

*- Global constants: deadline types
CONSTANTS: BEGIN OF gc_time_type,stpldt  LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTPLDT',"Status plannedstcipdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTCIPDT',"Status checkin planstpladt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTCIADT',"Status checkin actstlspdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTLSPDT',"Status load start planstlsadt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTLSADT',"Status load start actstlepdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTLEPDT',"Status load end planstleadt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTLEADT',"Status load end actstcpdt  LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTCPDT',"Status complete planstcadt  LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTCADT',"Status copmlete actstsspdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTSSPDT',"Status shipmnt start planstssadt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTSSADT',"Status shipmnt start actstsepdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTSEPDT',"Status shipmnt end planstseadt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRSTSEADT',"Status shipmnt end acttndepdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRTNDEPDT',"Tendering earliest picktndlpdt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRTNDLPDT',"Tendering latest picktndeddt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRTNDEDDT',"Tendering earliest deliverytndlddt LIKE bapishipmentheaderdeadline-time_type VALUE 'HDRTNDLDDT',"Tendering latest deliverylstpdt LIKE bapishipmentstagedeadline-time_type VALUE 'STLSTPDT',"Stage start planlstadt LIKE bapishipmentstagedeadline-time_type VALUE 'STLSTADT',"Stage start actlenpdt LIKE bapishipmentstagedeadline-time_type VALUE 'STLENDPT',"Stage end planlenadt LIKE bapishipmentstagedeadline-time_type VALUE 'STLENADT',"Stage end act
END OF gc_time_type.

 常量的使用

在Incldue程序LV56I_BAPIHEA的set_header_data子程序中可以找到日期对应具体的vttk的日期

 LOOP AT it_deadline_ext.CASE it_deadline_ext-time_type.WHEN gc_time_type-stpldt.      "Status plannedCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dtdis TIME cs_data_int-uzdis.WHEN gc_time_type-stcipdt.     "Status checkin planCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dpreg TIME cs_data_int-upreg.WHEN   gc_time_type-stpladt.   "Status checkin actCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dareg TIME cs_data_int-uareg.WHEN   gc_time_type-stlspdt.   "Status load start planCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dplbg TIME cs_data_int-uplbg.WHEN   gc_time_type-stlsadt.   "Status load start actCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dalbg TIME cs_data_int-ualbg.WHEN   gc_time_type-stlepdt.   "Status load end planCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dplen TIME cs_data_int-uplen.WHEN   gc_time_type-stleadt.   "Status load end actCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dalen TIME cs_data_int-ualen.WHEN   gc_time_type-stcpdt .   "Status complete planCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dpabf TIME cs_data_int-upabf.WHEN   gc_time_type-stcadt .   "Status copmlete actCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dtabf TIME cs_data_int-uzabf.WHEN   gc_time_type-stsspdt.   "Status shipmnt start planCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dptbg TIME cs_data_int-uptbg.WHEN   gc_time_type-stssadt.   "Status shipmnt start actCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-datbg TIME cs_data_int-uatbg.WHEN   gc_time_type-stsepdt.   "Status shipmnt end planCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-dpten TIME cs_data_int-upten.WHEN   gc_time_type-stseadt.   "Status shipmnt end actCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-daten TIME cs_data_int-uaten.WHEN   gc_time_type-tndepdt.   "Tendering earliest pickCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-tndr_erpdTIME  cs_data_int-tndr_erpt.WHEN   gc_time_type-tndlpdt.   "Tendering latest pickCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-tndr_ltpdTIME  cs_data_int-tndr_ltpt.WHEN   gc_time_type-tndeddt.   "Tendering earliest deliveryCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-tndr_erddTIME  cs_data_int-tndr_erdt.WHEN   gc_time_type-tndlddt.   "Tendering latest deliveryCONVERT TIME STAMP it_deadline_ext-time_stamp_utcTIME ZONE  it_deadline_ext-time_zoneINTO DATE  cs_data_int-tndr_ltddTIME  cs_data_int-tndr_ltdt.WHEN OTHERS.gf_flag_rollback = gc_true.IF it_deadline_ext-time_type IS INITIAL.            "v_546602sy-msgid = 'VTBAPI' .sy-msgty = 'E' .sy-msgno = '013' .ELSE.sy-msgid = 'VTBAPI' .sy-msgty = 'E' .sy-msgno = '014' .sy-msgv1 = it_deadline_ext-time_type.ENDIF.                                              "^_546602PERFORM append_protocol USINGsy-msgid sy-msgty sy-msgnosy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.clear: sy-msgid, sy-msgty, sy-msgno, sy-msgv1.ENDCASE.ENDLOOP.

传入日期的使用方法(代码片段)如下:

IF pa_syori_h-etd IS NOT INITIAL.    " ETDls_headline-time_type = 'HDRSTCPDT'.   "Planned date for shipment completionCALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'EXPORTINGi_datlo     = pa_syori_h-etdi_timlo     = sy-timlo
*       I_TZONE     = SY-ZONLOIMPORTINGe_timestamp = ls_headline-time_stamp_utc.ls_headline-time_zone      = 'UTC'.APPEND ls_headline TO lt_headline.CLEAR:ls_headline.ENDIF.IF pa_syori_h-eta IS NOT INITIAL." ETAls_headline-time_type = 'HDRSTSSPDT'.   "Planned date for end of shipmentCALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'EXPORTINGi_datlo     = pa_syori_h-etai_timlo     = sy-timlo
*       I_TZONE     = SY-ZONLOIMPORTINGe_timestamp = ls_headline-time_stamp_utc.ls_headline-time_zone      = 'UTC'.APPEND ls_headline TO lt_headline.CLEAR:ls_headline.ENDIF.IF pa_syori_h-dpreg IS NOT INITIAL." チェックイン予定日付ls_headline-time_type = 'HDRSTCIPDT'.   "Planned date of check-inCALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'EXPORTINGi_datlo     = pa_syori_h-dpregi_timlo     = sy-timlo
*       I_TZONE     = SY-ZONLOIMPORTINGe_timestamp = ls_headline-time_stamp_utc.ls_headline-time_zone      = 'UTC'.APPEND ls_headline TO lt_headline.CLEAR:ls_headline.ENDIF.IF pa_syori_h-tdlnr IS NOT INITIAL.
*   仕入先マスタを見て、マスタに存在する場合のみセットCLEAR: lwk_mcode,lwk_lifnr.PERFORM alpha_input USING    pa_syori_h-tdlnrCHANGING lwk_mcode.    " 海貨業者SELECT SINGLE lifnr FROM lfa1 INTO lwk_lifnr WHERE lifnr = lwk_mcode.IF sy-subrc = 0.ls_header-service_agent_id = pa_syori_h-tdlnr.    " 海貸業者ENDIF.ENDIF.
 CALL FUNCTION 'BAPI_SHIPMENT_CREATE'EXPORTINGheaderdata     = ls_headerIMPORTINGtransport      = lv_transport
*     SHIPMENTGUID   =TABLESheaderdeadline = lt_headlineitemdata       = lt_items
*     STAGEDATA      =
*     STAGEDEADLINE  =
*     ITEMONSTAGE    =
*     ADDRESS        =
*     hdunheader     = lt_hdunheader
*     hdunitem       = lt_hdunitemreturn         = lt_return.

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

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

相关文章

论如何采用神秘顾客工具提升营业厅的服务质量?

神秘顾客工具能进一步提升营业厅的服务质量,对于这方面深圳神秘顾客(SMS)公司有以下建议: 1、建立顾客反馈机制:除了神秘顾客的反馈外,营业厅还可以建立其他顾客反馈渠道,如在线调查、顾客满意…

大数据面试经验分享

随着大数据技术的快速发展,大数据相关职位的需求也日益增长。对于想要进入大数据领域的求职者来说,面试是通往理想职位的重要一关。下面我将分享一些大数据面试的经验,希望能够帮助大家在面试中脱颖而出。 一、面试前准备 了解公司背景和业…

(已解决)emoji及其特殊符号在vue中的使用

问题叙述 使用问题&#xff1a;在表情库中点击后无法展示对应的emoji表情&#xff0c;仅仅显示Unicode代码编号&#xff0c;按照vue eslint规则更改添加分号后&#xff0c;没有报错但是依旧无法正确渲染。 问题源码&#xff1a; <template><div><!-- 被点击的…

Git Bash中安装tree

文章目录 问题描述解决办法A备选办法BRef 问题描述 在Git Bash中使用tree报错&#xff1a; tree # bash: tree: command not found解决办法A 下载二进制文件&#xff1a; https://gnuwin32.sourceforge.net/packages/tree.htm -> 选binary。下载后解压.zip 把解压后的tre…

全新攻击面管理平台

首页大屏 内测阶段&#xff0c;免费试用一个月 有兴趣体验的师傅&#xff0c;来长亭云图极速版群里找我 py

AI通识教育:可能是我们领先于世界AI的关键

在人工智能时代&#xff0c;要想在全球AI竞争中占据一席之地&#xff0c;摆脱对外部先进机构如OpenAI的依赖&#xff0c;减少对英伟达等公司在GPU等硬件技术上的制约&#xff0c;以及尽快缩小与世界最前沿AI技术水平之间的差距&#xff0c;这是一项艰巨而又紧迫的任务。 实现这…

如何保证 HTTPS 证书的有效性?

随着互联网的蓬勃发展&#xff0c;保障用户在网络上的隐私和安全成为至关重要的任务。HTTPS证书&#xff0c;作为一种安全套接字层协议&#xff0c;扮演着网站安全的守护者。 1. 什么是HTTPS 证书&#xff1f; HTTPS&#xff08;HyperText Transfer Protocol Secure&#xff…

vue 安装各种问题

新下载了个项目模板&#xff0c;安装包就遇到了各种各样问题 电脑&#xff1a;mac 使用npm i 等命令一直安装项目&#xff0c;然后一直报错 2534 info run canvas2.11.2 install node_modules/canvas node-pre-gyp install --fallback-to-build --update-binary 2535 info r…

vscode + visual studio keymap插件

备注&#xff1a;主要推荐代码递归折叠代码展开单个函数折叠单个代码展开。原因&#xff1a;vscode中的visual studio keymap插件对于代码折叠支持不充分&#xff0c;查看大型项目时不方便。 一、个人快捷键推荐 1、前进&#xff1a;ctrl shift - 2、回退&#xff1a;ctrl…

uni-app webview 打开baidu.com

在uni-app中&#xff0c;你可以使用web-view组件来打开外部网页&#xff0c;比如百度首页。以下是一个简单的示例代码&#xff0c;展示了如何在uni-app中使用web-view组件打开百度首页&#xff1a; <template> <view> <web-view :src"baiduUrl">&l…

【new IntersectionObserver】vue3 数据懒加载

new IntersectionObserver js方法描述步骤 实现逻辑&#xff1a;通过监视底部节点可视情况&#xff0c;获取新数据进行渲染&#xff0c;如果获取不到最新数据则显示暂无其他数据 new IntersectionObserver 是用于监视元素可见度&#xff0c;所以我们只需要监视数据下方的dom是…

ubuntu docker deamon无法连接的问题

现象 ubuntu 下使用docker&#xff0c;秃然一天报了一个错误 Cannot connect to the Docker daemon at unix:///var/run/docker.sock. Is the docker daemon running? 排查 排查了半天&#xff0c;是dockerd启动的时候指定的API listen 和默认的不一致。 systemctl 启动的时…

【JS】indexedDB基本入门使用;

本文基本仅做个人简单学习记录&#xff1b; 相关TS类型&#xff1a; IDBDatabase&#xff1a;open成功后的 result 为 IDBDatabase类型 > idb.result; transaction&#xff1a; transaction(storeNames: string | string[], mode?: IDBTransactionMode, options?: IDBTr…

C++入门全集(4):类与对象【下】

一、再谈构造函数 1.1 构造函数体内赋值 我们知道&#xff0c;在创建对象时&#xff0c;编译器会自动调用构造函数给对象中的各个成员变量一个合适的初始值 class Date { public:Date(int year, int month, int day){_year year;_month month;_day day;}private:int _yea…

windows zip压缩报错includes characters that cannot be used in a compressed folder

Windows 用 zip 压缩文件夹时报错&#xff1a; <文件> cannot be compressed because includes characters that cannot be used in a compressed folder, such as <非法字符>. You should rename this file or directory.同 [1]。考虑用 python 批量检测非 ascii…

SOCKS55代理 VS Http代理,如何选择?

在使用IPFoxy全球代理时&#xff0c;选择 SOCKS55代理还是HTTP代理&#xff1f;IPFoxy代理可以SOCKS55、Http协议自主切换&#xff0c;但要怎么选择&#xff1f;为解决这个问题&#xff0c;得充分了解两种代理的工作原理和配置情况。 在这篇文章中&#xff0c;我们会简要介绍 …

我常用的大模型和Prompt有哪些?

常用的大模型及其对比 以前提到过&#xff0c;我们公司鼓励大家多使用GPT这样的大模型&#xff0c;一方面能够提高工作效率&#xff0c;一方面使用的越多&#xff0c;越了解&#xff0c;越有可能发现应该怎么将其跟我们公司的产品结合起来。 但是出于安全考虑&#xff0c;如果…

Synchronized 详解(一)

在C程序代码中我们可以利用操作系统提供的互斥锁来实现同步块的互斥访问及线程的阻塞及唤醒等工作。在Java中除了提供Lock API外还在语法层面上提供了synchronized关键字来实现互斥同步原语,本文将对synchronized关键字详细分析。 带着问题去理解Synchronized 提示 请带着这…

10、BossCms代码审计

1、任意文件上传 限制 复现 POST /system/extend/ueditor/php/controller.php?actionuploadfile&encodeutf-8 HTTP/1.1 Host: bosscms.com Content-Length: 761 User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome…

为什么要学习三维GIS开发?从技术层面告诉你答案

大家都知道GIS开发属于GIS行业中就业薪资较高的岗位&#xff0c;并且测绘、遥感以及城规等相关专业的毕业生纷纷转行做webgis开发。 那么&#xff0c;今天小编从技术层面探讨一下&#xff0c;为什么建议大家不要仅仅停留在webgis&#xff0c;而要继续往前学习三维GIS开发&…