缺料表

h749600173 · 发表于 2018-4-26 16:02

zpy2 发表于 2018-4-25 19:37
结果可以复制放到excel,计算我用的是c#，你也可以用vba
using System;
using System.IO;

复制在VBA中显示语法错误呀！

opiona · 发表于 2018-4-26 16:31

BOM1及物料需求-QQ14885553.rar (1.01 MB, 下载次数: 53)

h749600173 · 发表于 2018-4-26 16:32

zpy2 发表于 2018-4-25 21:17
有个运算上bug，现在看不出错在哪里，明天再研究下。

对求缺料表的BOM作一下说明，可能这样表达比较直观。

h749600173 · 发表于 2018-4-26 16:34

opiona 发表于 2018-4-26 16:31

对求缺料表的BOM作一下说明，可能这样表达比较直观。
见上一楼附件，谢谢！

h749600173 · 发表于 2018-4-26 16:49

opiona 发表于 2018-4-26 16:31

谢谢，辛苦了，刚试模拟了一下，计算的结果还是不对。可能算的思路有些不同。你看下24楼对BOM结构计算的说明。看看你的思路是否和说明中的计算步骤是一样的。

zpy2 · 发表于 2018-4-26 18:01

h749600173 发表于 2018-4-26 16:49
谢谢，辛苦了，刚试模拟了一下，计算的结果还是不对。可能算的思路有些不同。你看下24楼对BOM结构计算的 ...

这位老师，这个对和不对，应该是有个比对的标准，我下载了最新的附件，没有看到问题手工模拟计算的结果，是否可以把无用的字段去除，就最少的数据模拟。比如，用我以前贴的模拟数据结构，您花点时间计算确认一下是否是结果是我算这样的，一个就3个料号，两个产品，5个sap_code,三次运算就行了。另外，我是c#,不是vba,论坛上关于bom计算的代码非常多，现在的问题不是代码，是业务逻辑。我的bug也是逻辑，不是语法错误。

zpy2 · 发表于 2018-4-26 21:50

opiona 发表于 2018-4-26 16:31

数量2018-04-04
2088124有点不同

2018-04-03计算结果一致

zpy2 · 发表于 2018-4-27 06:17

zpy2 发表于 2018-4-26 21:50
数量2018-04-04
2088124有点不同

这是我的计算结果和计算过程，请老师指点。

zpy2 · 发表于 2018-4-27 06:19

using System;
using System.IO;
using System.Data;
using System.Data.OleDb;
using System.Text;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Collections.Generic;
using System.Web.Script.Serialization;
using System.Reflection;
using System.Net;
//using System.Exception;
public partial class Index : System.Web.UI.Page
{
public string result;//调试输出
Hashtable htWanted = new Hashtable();//缺料表
Hashtable htStock = new Hashtable();//库存表
System.Text.StringBuilder sb = new System.Text.StringBuilder();//调试输出
protected void Page_Load(object sender, EventArgs e)
{
string sql="";
//打开数据库
DAO.DBEngine dbEn2=new DAO.DBEngine();
DAO.Database db2 = dbEn2.OpenDatabase(System.Web.HttpContext.Current.Server.MapPath("./stu.mdb"))
;
//打开库存
sql="select SAP_Code,库存合计 from 库存2";
DAO.Recordset rsStock = db2.OpenRecordset(sql)
; //库存记录
while (!rsStock.EOF){
htStock.Add(rsStock.Fields["SAP_Code"].Value.ToString(),rsStock.Fields["库存合计"].Value);//库存表为料号库存合计键值对
//循环下一条
rsStock.MoveNext();
} //while
rsStock.Close();
//打开需求表
sql="select SAP_Code,需求 from 需求2";
Response.Write(" 上阶"+sql+"记录数:");
DAO.Recordset rs2 = db2.OpenRecordset(sql)
;
Response.Write(rs2.RecordCount);
while (!rs2.EOF){//循环取出每个产品料号的需求量
//取出料号
string strKey=rs2.Fields[0].Value.ToString();
//取出需求量
double dblWanted=(double)rs2.Fields["需求"].Value;
//产品也是有库存的，所以，在全部转化为对下级半阶或原料的需求前，需要计算缺料
//本级的需求2018-4-26 晚
Response.Write("需求"+strKey+":");
Response.Write(dblWanted);
Response.Write("库存"+strKey+":");
Response.Write(htStock[strKey]);
//本级料号需求减去 (库存哈希表里键值为本级 SAP_code的库存)=缺料
dblWanted=dblWanted-Convert.ToDouble(htStock[strKey]);
if((dblWanted)>0) //如果需求大于库存
{
htStock[strKey]=0; //库存量全部消耗掉变为0
//缺料等于需求减库存合计缺料进入下一级消耗
//分解到下层
Response.Write("缺料:"+strKey+":");
Response.Write(dblWanted);
Response.Write(" ");
findChild(strKey,dblWanted);
}else{//dblWanted<0需求小于0，库存合计大于需求量只要更新库存，不要计算下一级消耗量
htStock[strKey]=dblWanted;//dblWanted=库存-需求
Response.Write("库存减少到:"+strKey+":");
Response.Write(-1*dblWanted);
Response.Write(" ");
}
// //本级的需求2018-4-26 晚
Response.Write(" ");
Response.Write(" 循环取出下一个产品");
Response.Write(" ");
//循环取出下一个产品
rs2.MoveNext();
}//while
rs2.Close();
db2.Close();
//输出
// result=sb.ToString();
Response.Write(" ");
Response.Write("缺料表: ");
ICollection key = htWanted.Keys;
// 获取缺料哈希表键的集合
foreach (string k in key)
{//输出缺料
Response.Write(k + "缺料: " + htWanted[k]);
Response.Write(" ");//打印库存缺料
}
}//page_load
//根据上级的料号，需求量求出缺料
void findChild(string strKeyParent,double dblWantedParent){
string sql="";
string strKey="";
sb.AppendLine(strKeyParent);//输出料号，调试
//打开bom表
DAO.DBEngine dbEn=new DAO.DBEngine();
DAO.Database db = dbEn.OpenDatabase(System.Web.HttpContext.Current.Server.MapPath("./stu.mdb"))
;
sql="select 上阶料号,SAP_Code,单耗 from bom2 where 上阶料号 LIKE '"+strKeyParent+"'";
Response.Write(" 上阶"+sql+"记录数:");
DAO.Recordset rs = db.OpenRecordset(sql)
;
// Response.Write("上阶"+strKeyParent+":");
Response.Write(rs.RecordCount);
Response.Write("父缺料:"+dblWantedParent+" ");
sb.AppendLine("<ol>");
if(rs.RecordCount==0){//如果是原料，没有经过上面循环分解到下级
if(htWanted.ContainsKey(strKeyParent)){
htWanted[strKeyParent]=dblWantedParent+(double)htWanted[strKeyParent];
Response.Write(strKeyParent+ "缺料增加: " +dblWantedParent );
Response.Write(" ");//打印
Response.Write(strKeyParent+ "缺料增加后: " + htWanted[strKeyParent]);
Response.Write(" ");//打印
//缺料增加
}else{
htWanted.Add(strKeyParent,dblWantedParent);
Response.Write(strKeyParent+ "新增缺料: " + htWanted[strKeyParent]);
Response.Write(" ");//打印
//新增缺料品种
}//是否新缺料
}else{
while (!rs.EOF){//如果有下级则循环取出，否则跳过
//本级需求转化为下级需求不需要算缺料
// 本级需求=上级数量*本级单耗
double dblWanted=dblWantedParent*(double)rs.Fields["单耗"].Value;
strKey=rs.Fields["SAP_Code"].Value.ToString();
sb.AppendLine("<li>");
sb.AppendLine(strKey);//显示料号
sb.AppendLine("</li>");
//这里的单耗不能用哈希表，因为，一个code对应不同的上阶，所以不同的单耗
//这里对本级子料的需求量等于传入上级料号需求量* 本级的单耗
//输出调试
Response.Write("需求"+strKey+":");
Response.Write(dblWanted);
Response.Write("库存"+strKey+":");
Response.Write(htStock[strKey]);
//本级料号需求减去 (库存哈希表里键值为本级 SAP_code的库存)=缺料
dblWanted=dblWanted-Convert.ToDouble(htStock[strKey]);
Response.Write("缺料:"+strKey+":");
Response.Write(dblWanted);
Response.Write(" ");
// break;
if((dblWanted)>0) //如果缺料大于库存
{
htStock[strKey]=0; //库存量全部消耗掉变为0
//缺料等于需求减库存合计缺料进入下一级消耗
findChild(strKey,dblWanted);
}else{//dblWanted<0缺料小于0，库存合计大于需求量只要更新库存，不要计算下一级消耗量
htStock[strKey]=-1*dblWanted;//dblWanted<0
Response.Write("库存减少到:"+strKey+":");
Response.Write(-1*dblWanted);
Response.Write(" ");
}
//循环取出下个子料号
rs.MoveNext();
}//while
}// elseif recordsetCout>0
//关闭数据库连接
rs.Close();
db.Close();
sb.AppendLine("</ol>");
}//find
}//class

复制代码

zpy2 · 发表于 2018-4-27 06:23

有点明白了，我算的是截止4日总共缺料多少，楼上老师应该是新增的缺料吧:)算法应该是一样的。1333+666=2000

		自动登录	找回密码
密码			免费注册

[求助] 缺料表

评分