DISPO与EKGRP 的关系(MRP控制者和采购组)

本文探讨了SAP中DISPO和EKGRP的区别,前者是物料计划的内部标识,后者是采购活动的买方代码,涉及内外部沟通。在物料信息中,两者都存在,而在订单中只显示EKGRP。在MD04中,查看的物料信息同样包含两者。面对特定需求,应考虑显示入库、订单和JIT信息,并通过PERNR、EKGRP过滤供应商。
摘要由CSDN通过智能技术生成

DISPO和EKGRP 我混淆了

使用事务码MM03查看物料信息的时候

首先看看SAP自己是怎样描述这两个概念的

-------------------------------------------------------------------------------------------------

EKGRP

采购组

负责某个采购活动的买方或买方组的代码。

使用

  • 在内,采购组对物料采购或物料分类负责。
  • 在外,是和供应商保持联系的媒介。
------------------------------------------------------------------------------------------------
DISPO

MRP 控制者(物料计划人)

指定负责物料的 物料规划 MRP 控制者 或 MRP 控制者组的编号。

--------------------------------------------------------------------------------------------------

可以看到EKGRP是一个对内对外都有意义的概念,对内就是物料,对外就是供应商

DISPO则是一个纯对内的概念,也就是对物料


  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Sub ExportMD04TableToExcel() '定义变量 Dim objSAP As Object Dim objMD04 As Object Dim objWorkbook As Workbook Dim objWorksheet As Worksheet Dim objRange As Range Dim i As Integer '创建SAP对象 Set objSAP = CreateObject("SAP.Functions") '连接SAP objSAP.Connection.System = "SAP系统名称" objSAP.Connection.Client = "SAP客户端编号" objSAP.Connection.User = "SAP用户名" objSAP.Connection.Password = "SAP密码" objSAP.Connection.Language = "EN" objSAP.Connection.ApplicationServer = "SAP应用服务器名称" objSAP.Connection.SystemNumber = "SAP系统编号" objSAP.Connection.UseSAPLogonIni = False objSAP.Connection.UseSAPGui = True objSAP.Connection.Connect '创建MD04对象 Set objMD04 = objSAP.Add("RFC_READ_TABLE") '设置参数 objMD04.Exports("QUERY_TABLE") = "MD04" objMD04.Exports("ROWCOUNT") = 0 '执行函数 objMD04.Call '创建Excel对象 Set objWorkbook = Application.Workbooks.Add Set objWorksheet = objWorkbook.Sheets(1) '写入表头 objWorksheet.Cells(1, 1).Value = "Material" objWorksheet.Cells(1, 2).Value = "Plant" objWorksheet.Cells(1, 3).Value = "MRP Element" objWorksheet.Cells(1, 4).Value = "Reqmt Date" objWorksheet.Cells(1, 5).Value = "Open Qty" '获取数据 For i = 1 To objMD04.Tables("DATA").RowCount '写入数据 objWorksheet.Cells(i + 1, 1).Value = objMD04.Tables("DATA").Cell(i, "MATNR") objWorksheet.Cells(i + 1, 2).Value = objMD04.Tables("DATA").Cell(i, "WERKS") objWorksheet.Cells(i + 1, 3).Value = objMD04.Tables("DATA").Cell(i, "DISPO") objWorksheet.Cells(i + 1, 4).Value = objMD04.Tables("DATA").Cell(i, "BDTER") objWorksheet.Cells(i + 1, 5).Value = objMD04.Tables("DATA").Cell(i, "OPEN_REQ_QTY") Next i '自动调整列宽 objWorksheet.Columns.AutoFit '保存Excel文件 objWorkbook.SaveAs "MD04 Table.xlsx" '释放对象 Set objRange = Nothing Set objWorksheet = Nothing Set objWorkbook = Nothing Set objMD04 = Nothing Set objSAP = Nothing End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值