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.pswp.cn/news/718784.shtml
繁體地址，請注明出處：http://hk.pswp.cn/news/718784.shtml
英文地址，請注明出處：http://en.pswp.cn/news/718784.shtml

如若內容造成侵權/違法違規/事實不符，請聯系多彩編程網進行投訴反饋email:809451989@qq.com，一經查實，立即刪除！

相關文章

論如何采用神秘顧客工具提升營業廳的服務質量？

論如何采用神秘顧客工具提升營業廳的服務質量？

神秘顧客工具能進一步提升營業廳的服務質量，對于這方面深圳神秘顧客（SMS）公司有以下建議： 1、建立顧客反饋機制：除了神秘顧客的反饋外，營業廳還可以建立其他顧客反饋渠道，如在線調查、顧客滿意…
閱讀更多...
大數據面試經驗分享

大數據面試經驗分享

隨著大數據技術的快速發展，大數據相關職位的需求也日益增長。對于想要進入大數據領域的求職者來說，面試是通往理想職位的重要一關。下面我將分享一些大數據面試的經驗，希望能夠幫助大家在面試中脫穎而出。 一、面試前準備 了解公司背景和業…
閱讀更多...
（已解決）emoji及其特殊符號在vue中的使用

（已解決）emoji及其特殊符號在vue中的使用

問題敘述 使用問題&#xff1a;在表情庫中點擊后無法展示對應的emoji表情&#xff0c;僅僅顯示Unicode代碼編號&#xff0c;按照vue eslint規則更改添加分號后&#xff0c;沒有報錯但是依舊無法正確渲染。 問題源碼&#xff1a; <template><div><!-- 被點擊的…
閱讀更多...
Git Bash中安裝tree

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的關鍵

AI通識教育：可能是我們領先于世界AI的關鍵

在人工智能時代&#xff0c;要想在全球AI競爭中占據一席之地&#xff0c;擺脫對外部先進機構如OpenAI的依賴&#xff0c;減少對英偉達等公司在GPU等硬件技術上的制約&#xff0c;以及盡快縮小與世界最前沿AI技術水平之間的差距&#xff0c;這是一項艱巨而又緊迫的任務。 實現這…
閱讀更多...
如何保證 HTTPS 證書的有效性？

如何保證 HTTPS 證書的有效性？

隨著互聯網的蓬勃發展&#xff0c;保障用戶在網絡上的隱私和安全成為至關重要的任務。HTTPS證書&#xff0c;作為一種安全套接字層協議&#xff0c;扮演著網站安全的守護者。 1. 什么是HTTPS 證書&#xff1f; HTTPS&#xff08;HyperText Transfer Protocol Secure&#xff…
閱讀更多...
vue 安裝各種問題

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插件

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 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】vue3 數據懶加載

new IntersectionObserver js方法描述步驟 實現邏輯&#xff1a;通過監視底部節點可視情況&#xff0c;獲取新數據進行渲染&#xff0c;如果獲取不到最新數據則顯示暫無其他數據 new IntersectionObserver 是用于監視元素可見度&#xff0c;所以我們只需要監視數據下方的dom是…
閱讀更多...
ubuntu docker deamon無法連接的問題

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基本入門使用；

【JS】indexedDB基本入門使用；

本文基本僅做個人簡單學習記錄&#xff1b; 相關TS類型&#xff1a; IDBDatabase&#xff1a;open成功后的 result 為 IDBDatabase類型 > idb.result; transaction&#xff1a; transaction(storeNames: string | string[], mode?: IDBTransactionMode, options?: IDBTr…
閱讀更多...
C++入門全集（4）：類與對象【下】

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壓縮報錯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代理,如何選擇？

SOCKS55代理 VS Http代理,如何選擇？

在使用IPFoxy全球代理時&#xff0c;選擇 SOCKS55代理還是HTTP代理&#xff1f;IPFoxy代理可以SOCKS55、Http協議自主切換&#xff0c;但要怎么選擇&#xff1f;為解決這個問題&#xff0c;得充分了解兩種代理的工作原理和配置情況。 在這篇文章中&#xff0c;我們會簡要介紹 …
閱讀更多...
我常用的大模型和Prompt有哪些？

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

常用的大模型及其對比 以前提到過&#xff0c;我們公司鼓勵大家多使用GPT這樣的大模型&#xff0c;一方面能夠提高工作效率&#xff0c;一方面使用的越多&#xff0c;越了解&#xff0c;越有可能發現應該怎么將其跟我們公司的產品結合起來。 但是出于安全考慮&#xff0c;如果…
閱讀更多...
Synchronized 詳解（一)

Synchronized 詳解（一)

在C程序代碼中我們可以利用操作系統提供的互斥鎖來實現同步塊的互斥訪問及線程的阻塞及喚醒等工作。在Java中除了提供Lock API外還在語法層面上提供了synchronized關鍵字來實現互斥同步原語,本文將對synchronized關鍵字詳細分析。 帶著問題去理解Synchronized 提示 請帶著這…
閱讀更多...
10、BossCms代碼審計

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開發屬于GIS行業中就業薪資較高的崗位&#xff0c;并且測繪、遙感以及城規等相關專業的畢業生紛紛轉行做webgis開發。 那么&#xff0c;今天小編從技術層面探討一下&#xff0c;為什么建議大家不要僅僅停留在webgis&#xff0c;而要繼續往前學習三維GIS開發&…
閱讀更多...
最新文章

Copyright @ 2022~2023