您好,登录后才能下订单哦!
这篇文章主要讲解了“SAP自动触发生产订单怎么创建”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“SAP自动触发生产订单怎么创建”吧!
使用下面的代码创建一个销售订单:
DATA: ls_header TYPE bapisdhd1, ls_headerx TYPE bapisdhd1x, lt_bapiret2 LIKE bapiret2 OCCURS 0 WITH HEADER LINE, po_order_number TYPE bapivbeln-vbeln, lt_partners TYPE TABLE OF bapiparnr, lt_order_items_in TYPE TABLE OF bapisditm, lt_order_item_x TYPE TABLE OF bapisditmx, ls_order_item_x LIKE LINE OF lt_order_item_x, ls_order_items_in LIKE LINE OF lt_order_items_in, lt_schdlin TYPE TABLE OF bapischdl, ls_schdlin LIKE LINE OF lt_schdlin, lt_schdlinx TYPE TABLE OF bapischdlx, ls_schdlinx LIKE LINE OF lt_schdlinx, ls_partners LIKE LINE OF lt_partners, lt_order_text TYPE TABLE OF bapisdtext, ls_order_text TYPE bapisdtext. ls_header-serv_date = '20200101'. ls_header-doc_type = 'TA'. ls_header-purch_no_c = 'a'. ls_headerx-purch_no_c = 'X'. *ls_header-sales_org = '0001'. *ls_header-distr_chan = '01'. *ls_header-division = '01'. ls_header-comp_cde_b = '0001'. ls_headerx-comp_cde_b = 'X'. ls_headerx-doc_type = 'X'. ls_headerx-updateflag = 'I'. ls_partners-partn_role = 'WE'. "ship to party ls_partners-partn_numb = '0000000001'. APPEND ls_partners TO lt_partners. ls_partners-partn_role = 'AG'. " sold to party ls_partners-partn_numb = '0000000001'. APPEND ls_partners TO lt_partners. ls_order_items_in-item_categ = 'TAN'. ls_order_items_in-material = 'REDUCER_A'. ls_order_items_in-target_qty = 999. ls_order_items_in-itm_number = 10. ls_order_item_x-item_categ = 'X'. ls_order_item_x-material = 'X'. ls_order_item_x-target_qty = 'X'. ls_order_item_x-itm_number = 'X'. ls_order_item_x-updateflag = 'I'. APPEND ls_order_item_x TO lt_order_item_x. APPEND ls_order_items_in TO lt_order_items_in. ls_schdlin-itm_number = 10. ls_schdlin-req_qty = 3. ls_schdlinx-itm_number = 'X'. ls_schdlinx-itm_number = 'X'. ls_schdlinx-updateflag = 'X'. APPEND ls_schdlin TO lt_schdlin. APPEND ls_schdlinx TO lt_schdlinx."ls_order_text-doc_number = SALESDOCUMENT. ls_order_text-itm_number = '000010'. ls_order_text-text_id = '0006'. "ls_order_text-langu = 'E'. ls_order_text-langu_iso = 'ZH'. ls_order_text-format_col = '*'. ls_order_text-text_line = 'Test 2 DSFSDFDSFDS'. ls_order_text-function = '006'. APPEND ls_order_text TO lt_order_text. CALL FUNCTION 'SD_SALESDOCUMENT_CREATE' EXPORTING sales_header_in = ls_header sales_header_inx = ls_headerx int_number_assignment = 'X' IMPORTING salesdocument_ex = po_order_number TABLES return = lt_bapiret2 sales_items_in = lt_order_items_in sales_items_inx = lt_order_item_x sales_schedules_in = lt_schdlin sales_schedules_inx = lt_schdlinx sales_partners = lt_partners sales_text = lt_order_text. LOOP AT lt_bapiret2 ASSIGNING FIELD-SYMBOL(<return>) WHERE type = 'E'. WRITE:/ 'Error:', <return>-message COLOR COL_NEGATIVE. RETURN. ENDLOOP. IF po_order_number IS INITIAL. WRITE:/ 'PO number initial'. RETURN. ENDIF. CLEAR: lt_bapiret2. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X' IMPORTING return = lt_bapiret2. LOOP AT lt_bapiret2 ASSIGNING <return>. WRITE:/ 'Message:', <return>-message COLOR COL_POSITIVE. ENDLOOP.
用事务码SAT分析,发现总共创建消耗的时间为3.98秒,
其中1.84秒花费在EIGENFERTIGUNG_BEARBEITEN这个subroutine上。
用一下Google Translate:
发现EIGENFERTIGUNG的含义就和生产有关:own production
BEARBEITEN的意思是TO eidt:
看这个函数CO_61_ORDER_EDIT:
这个函数的描述信息指向了它是用来做生产用的:
这个函数所在的包也透露了它的作用,是负责生产相关实现的:
观察一下传入这个函数的各参数值:
感谢各位的阅读,以上就是“SAP自动触发生产订单怎么创建”的内容了,经过本文的学习后,相信大家对SAP自动触发生产订单怎么创建这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是亿速云,小编将为大家推送更多相关知识点的文章,欢迎关注!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。