当前位置： 首页 > news >正文

MIGO 物料过账 创建物料凭证 BAPI_GOODSMVT_CREATE

news 2025/8/23 13:04:18

文章目录

    • 1.前台操作
    • 2.需求分析
      • 2.1调用方式
      • 2.2分为两大概括:
      • 2.3业务逻辑细节图
    • 3.BAPI_GOODSMVT_CREATE
    • 4.RFC接口代码
    • 5.总结

1.前台操作

SAP CO01(创建生产订单)/MIGO(发货投料)前台操作
这里面有migo的前台操作,首先了解前台操作后再去写RFC接口是比较容易理解的.!!

2.需求分析

2.1调用方式

mesOS->SAPOS

2.2分为两大概括:

同一过账标识 1 和 0

  1. 为 0 的时候单一过账,无论行项目中有多少个物料号,都会对应生成多少个物料凭证号
  2. 为 1的时候同一过账,也就是无论行项目中有多少个物料号,都只生成一个物料凭证编号.
    这两个逻辑是是相反的.

2.3业务逻辑细节图

在这里插入图片描述

3.BAPI_GOODSMVT_CREATE

下面的这些参数我只介绍了此需求用过的.

EXPORTING部分
bapi2017_gm_head_01,   "凭证中的过帐日期等一些抬头信息
bapi2017_gm_code,        "这个是你要进行的是什么样的操作比如说是发货,收货,取消等都对应相应的编号比如01 02 03IMPORTING部分
bapi2017_gm_head_ret,  "物料凭证号,凭证年度
bapi2017_gm_head_ret-mat_doc, "物料凭证号
bapi2017_gm_head_ret-doc_year, "凭证年度TABLES部分bapi2017_gm_item_create, "行项目bapiret2, "返回值

4.RFC接口代码

代码感觉比较臃肿,欢迎大佬前来补充优化!!!

FUNCTION zmigo_carry_to.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IN_NUM) TYPE  BAPI_MTYPE
*"  EXPORTING
*"     VALUE(MSG_TYPE) TYPE  BAPI_MTYPE
*"     VALUE(MESSAGE) TYPE  BAPI_MSG
*"  TABLES
*"      IT_TAB_IN STRUCTURE  ZCARRY_TO_INPUT OPTIONAL
*"      INT_TAB_OUT STRUCTURE  ZCARRY_TO_OUTPUT OPTIONAL
*"----------------------------------------------------------------------DATA:goodsmvt_header       LIKE  bapi2017_gm_head_01,goodsmvt_code         LIKE  bapi2017_gm_code,goodsmvt_headret      LIKE  bapi2017_gm_head_ret,materialdocument      TYPE  bapi2017_gm_head_ret-mat_doc,matdocumentyear       TYPE  bapi2017_gm_head_ret-doc_year,goodsmvt_item         TYPE TABLE OF  bapi2017_gm_item_create,goodsmvt_item_0       TYPE TABLE OF  bapi2017_gm_item_create,w_goodsmvt_item       TYPE           bapi2017_gm_item_create,goodsmvt_serialnumber LIKE  bapi2017_gm_serialnumber,it_return             TYPE TABLE OF  bapiret2,wa_return             TYPE           bapiret2.DATA gs_tab_in TYPE zcarry_to_input .DATA gt_tab_in TYPE TABLE OF zcarry_to_input .DATA gs_tab_out TYPE zcarry_to_output .IF in_num = 1 .MOVE-CORRESPONDING  it_tab_in[]  TO  gt_tab_in.SORT gt_tab_in BY bwart.LOOP AT gt_tab_in INTO DATA(ls_tab).DELETE ADJACENT DUPLICATES FROM gt_tab_in COMPARING bwart.ENDLOOP.IF lines( gt_tab_in ) > 1.CLEAR:gt_tab_in, ls_tab.msg_type = 'E'.message = '不同移动类型请分批出库!'.RETURN.ENDIF.LOOP AT it_tab_in[] INTO gs_tab_in.gs_tab_in-zeile = sy-tabix.MODIFY it_tab_in FROM gs_tab_in.goodsmvt_header-pstng_date = gs_tab_in-budat_mkpf. "过账日期goodsmvt_code-gm_code      = '03'.w_goodsmvt_item-material  = gs_tab_in-matnr. "物料号w_goodsmvt_item-plant     = gs_tab_in-werks. "工厂w_goodsmvt_item-stge_loc  = gs_tab_in-lgort.  "库位w_goodsmvt_item-costcenter     = it_tab_in-kostl. "成本中心w_goodsmvt_item-entry_qnt = gs_tab_in-menge.  "数量w_goodsmvt_item-ref_doc_it = gs_tab_in-zeile.  "物料参考项目w_goodsmvt_item-move_type = gs_tab_in-bwart. "移动类型（库存管理）APPEND w_goodsmvt_item TO goodsmvt_item.CLEAR: w_goodsmvt_item,gs_tab_in.ENDLOOP.IF goodsmvt_item[] IS  NOT INITIAL.CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header  = goodsmvt_headergoodsmvt_code    = goodsmvt_code
*         TESTRUN          = ' '
*         GOODSMVT_REF_EWM =IMPORTING
*         goodsmvt_headret = goodsmvt_headermaterialdocument = materialdocumentmatdocumentyear  = matdocumentyearTABLESgoodsmvt_item    = goodsmvt_item[]
*         GOODSMVT_SERIALNUMBER         =return           = it_return[]
*         GOODSMVT_SERV_PART_DATA       =
*         EXTENSIONIN      =.READ TABLE it_return INTO wa_return WITH KEY type = 'E'.IF sy-subrc = 0.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.msg_type = 'E'.message = wa_return-message.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.msg_type = 'S'." message = '物料凭证:' && materialdocument && '已过账!'.LOOP AT it_tab_in[] INTO gs_tab_in.int_tab_out-mjahr = matdocumentyear. "凭证年份int_tab_out-mblnr = materialdocument."物料凭证int_tab_out-zeile = gs_tab_in-zeile."物料参考项目int_tab_out-budat_mkpf = gs_tab_in-budat_mkpf. "过账日期int_tab_out-matnr  = gs_tab_in-matnr. "物料号int_tab_out-werks     = gs_tab_in-werks. "工厂int_tab_out-lgort  = gs_tab_in-lgort.  "库位int_tab_out-kostl     = it_tab_in-kostl. "成本中心int_tab_out-menge = gs_tab_in-menge.  "数量int_tab_out-bwart = gs_tab_in-bwart. "移动类型（库存管理）APPEND int_tab_out.ENDLOOP.ENDIF.ENDIF.ELSEIF in_num = 0.LOOP AT it_tab_in[] INTO gs_tab_in  .goodsmvt_header-pstng_date = gs_tab_in-budat_mkpf. "过账日期goodsmvt_code-gm_code      = '03'.w_goodsmvt_item-material  = gs_tab_in-matnr. "物料号w_goodsmvt_item-plant     = gs_tab_in-werks. "工厂w_goodsmvt_item-stge_loc  = gs_tab_in-lgort.  "库位w_goodsmvt_item-costcenter     = it_tab_in-kostl. "成本中心w_goodsmvt_item-entry_qnt = gs_tab_in-menge.  "数量w_goodsmvt_item-move_type = gs_tab_in-bwart. "移动类型（库存管理）w_goodsmvt_item-ref_doc_it = '1'.  "物料参考项目APPEND w_goodsmvt_item TO goodsmvt_item_0.IF goodsmvt_item_0[] IS  NOT INITIAL.CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header  = goodsmvt_headergoodsmvt_code    = goodsmvt_code
*           TESTRUN          = ' '
*           GOODSMVT_REF_EWM =IMPORTING
*           goodsmvt_headret = goodsmvt_headermaterialdocument = materialdocumentmatdocumentyear  = matdocumentyearTABLESgoodsmvt_item    = goodsmvt_item_0[]
*           GOODSMVT_SERIALNUMBER         =return           = it_return[]
*           GOODSMVT_SERV_PART_DATA       =
*           EXTENSIONIN      =.ENDIF.READ TABLE it_return INTO wa_return WITH KEY type = 'E'.IF sy-subrc = 0.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.msg_type = 'E'.message = wa_return-message.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.msg_type = 'S'."  message = '物料凭证已过账!'.int_tab_out-mjahr = matdocumentyear. "凭证年份int_tab_out-mblnr = materialdocument."物料凭证int_tab_out-zeile = w_goodsmvt_item-ref_doc_it ."物料参考项目int_tab_out-budat_mkpf = gs_tab_in-budat_mkpf. "过账日期int_tab_out-matnr  = gs_tab_in-matnr. "物料号int_tab_out-werks     = gs_tab_in-werks. "工厂int_tab_out-lgort  = gs_tab_in-lgort.  "库位int_tab_out-kostl     = it_tab_in-kostl. "成本中心int_tab_out-menge = gs_tab_in-menge.  "数量int_tab_out-bwart = gs_tab_in-bwart. "移动类型（库存管理）APPEND int_tab_out.ENDIF.CLEAR:goodsmvt_item_0[] ,goodsmvt_header,goodsmvt_code.CLEAR: w_goodsmvt_item.ENDLOOP.ENDIF.
ENDFUNCTION.

5.总结

RFC接口首先要明确的是,接口参数以及业务逻辑.(我尼玛,说的都是废话);如果调用bapi就需要研究一下bapi中的参数.

http://www.lryc.cn/news/24950.html

相关文章：

  • 项目经理处理团队冲突 5大注意事项
  • Linux(Centos)安装TDengine
  • 大数据处理技术导论（6） | Datawhale组队学习46期
  • Java——异常
  • Netty之io.netty.util.concurrent.Promise与io.netty.util.concurrent.Future初解
  • 【正点原子FPGA连载】第二十一章AXI DMA环路测试 摘自【正点原子】DFZU2EG_4EV MPSoC之嵌入式Vitis开发指南
  • 手把手搭建springboot项目06-springboot整合RabbitMQ及其原理和应用场景
  • 如何根据IP地址判断是IPv4还是IPv6
  • 山地车和公路车怎么选
  • Zotero设置毕业论文/中文期刊参考文献格式
  • 【人工智能与深度学习】自动编码器的简介
  • Isaac-gym(9)：项目更新、benchmarks框架梳理
  • Linux 学习笔记（一）：终端 和 Shell 的区别和联系
  • cycleGAN算法解读
  • 解读“方差”
  • 记录面试问题
  • （六十四）设计索引的时候，我们一般要考虑哪些因素呢？（上）
  • 【蓝桥杯嵌入式】LCD屏的原理图解析与代码实现（第十三届省赛为例）——STM32
  • 论文学习——Reproducing Activation Function for Deep Learning
  • 【趣味学Python】Python基础语法讲解
  • 虚拟局域网VLAN的实现机制
  • Mask R-CNN 算法学习总结
  • Gorm -- 添加记录
  • go提高升阶（四） I/O流学习
  • 【代码随想录训练营】【Day28】第七章｜回溯算法｜93.复原IP地址｜78.子集｜90.子集II
  • Get请求和Post请求区别
  • static关键字
  • A Comprehensive Tool for Modeling CMOS Image-Sensor-Noise Performance论文总结及翻译
  • 嘀嗒出行再闯IPO：千军万马我无懈
  • MATLAB算法实战应用案例精讲-【优化算法】增强型鲸鱼优化算法(EWOA)（附matlab代码实现）