当前位置: 代码迷 >> 企业开发 >> BOM带库存算法解决思路
  详细解决方案

BOM带库存算法解决思路

热度:1622   发布时间:2013-02-26 00:00:00.0
BOM带库存算法
 
 向你请教一种算法
现在我有一张表bom mid表示物品编码 ,Cid表示所组成的物品编码,num表示 所需要 Cid物品个数
(举例现有一支笔A,笔由笔帽,笔心,外壳组成,笔心由,油墨,笔心壳组成)这种组合会随不同物品而变化,产生不同的层级) 
  Mid Cid num
  A A1 2
  A A2 3
  A A3 3
  A2 A3 3
  A2 A4 3
  A2 A5 3
  A4 A5 3
  A4 A6 3
 .........
表 store 仓库,mid即物品编码 SL表示数量 
Mid SL
A 2
A1 5
A2 3
A4 1
A5 2
A6 3
 
 现在要求领10个A,程序大致要这样执行,先去store看A的个数,成品有2个,接下来8个要用子原料来生产,A2=3*8 A3=3*8,然后再看A2 A3各自库存数……这样,可以通过哪种算法去实现?

------解决方案--------------------------------------------------------
以下这些代码是从书上抄的,希望对大家有用

SQL code
--------mrp计算存储过程CREATE PROCEDURE sf_mrp计算 ( @考虑库存等  bit=1,     @考虑提前期 bit=1, @考虑损耗 bit=1)ASbegin tran    --清除    delete from mrp物料需求计算    -- 更新物料清单底层码,计算时使用    update 物料清单 set 低层码 = 0 where 父项编号 = 0    -- 循环10次,根据情况,这里默认bom物料的层级不超过10级    declare @i int    select @i = 1    while (@i<=10)    begin         update 物料清单 set 低层码 = b.低层码+1 from 物料清单 as a,            (select * from 物料清单) as b             where a.父项编号 = b.物料编号        select @i = @i + 1    end    --重新生成物料需求计算表,并计算毛需求    -- 低层码代表物料的层级,使用他来循环    insert into mrp物料需求计算(物料编号,年份,计划期,毛需求)        select 物料编号,年份,计划期,sum(MPS数量)        FROM 主生产计划 group by 物料编号,年份,计划期    select @i = 1    while (@i<=10)    begin         -- 没有的先查入记录,因为一个物料可以对应多个父项        insert into mrp物料需求计算(物料编号,年份,计划期,毛需求)            select distinct b.物料编号,年份,计划期,0            FROM mrp物料需求计算 as a, 物料清单 as b            where rtrim(b.物料编号)+convert(char(4),年份)+            convert(char(2),计划期)    not in(select rtrim(物料编号)+            convert(char(4),年份)+convert(char(2),计划期)             from mrp物料需求计算)            and b.父项编号=a.物料编号 and b.低层码=@i        -- 计算毛需求        -- 注意考虑损耗的情况        update mrp物料需求计算 set 毛需求 = c.毛需求 + d.需求            from mrp物料需求计算 as c,                 (select b.物料编号,年份,计划期,                sum((a.毛需求*b.需要数量)/(1-(case when @考虑损耗=1 then                 isnull(损耗率,0) else 0 end))) as 需求                FROM mrp物料需求计算 as a, 物料清单 as b                where b.父项编号=a.物料编号 and b.低层码=@i                group by b.物料编号,a.年份,a.计划期            ) as d            where c.物料编号=d.物料编号 and c.年份=d.年份 and c.计划期=d.计划期        select @i = @i + 1    end    --------------- 不考虑提前期的毛需求计算完成    -- 考虑提前期,计算提前期    --if (@考虑提前期=1)     --begin        -- 这里不在计算,具体计算方法为将当前计划期的数量移到提前期        -- 注意跨年度计划期的    --end    if (@考虑库存等=1)          begin           -- 第一次计算,设置期初库存        -- 这里统一设置起初库存为100        -- 实际系统应该和库存库及上期情况结合        update mrp物料需求计算 set 期初库存=100         update mrp物料需求计算 set 预计入库 = isnull(预计入库,0) +             数量 from mrp物料需求计算 as a, (select sum(剩余数量) as 数量,                 物料编号,年份,计划期 from 采购订单                 group by 物料编号,年份,计划期) as b, 物料主文件 as c            where a.物料编号=b.物料编号 and a.年份=b.年份             and a.计划期=b.计划期 and a.物料编号 = c.物料编号             and c.计划类别='wg'    -- 外购产品          update mrp物料需求计算 set 预计入库 = isnull(预计入库,0) +             数量 from mrp物料需求计算 as a, (select sum(剩余数量) as 数量,                 物料编号,年份,计划期 from 生产订单                 group by 物料编号,年份,计划期) as b, 物料主文件 as c            where a.物料编号=b.物料编号 and a.年份=b.年份             and a.计划期=b.计划期 and a.物料编号 = c.物料编号             and c.计划类别='bcp'    -- 半成品                -- 这里计算预计出库的情况           update mrp物料需求计算 set 预计出库 = isnull(预计出库,0)       end    -- 按照计划期循环计算各个计划期的物料需求    declare @年份 int, @计划期 int    declare mycur cursor for select 年份,计划期 from mrp物料需求计算        order by 年份,计划期    open mycur    fetch next from mycur into @年份, @计划期    WHILE (@@FETCH_STATUS = 0 )    BEGIN        -- 如果不是最小的计划期, 计算期初库存        -- 注意跨年度的计算,这里先不考虑        update mrp物料需求计算 set 期初库存=b.预计库存 from             mrp物料需求计算  as a, (select * from mrp物料需求计算)                 as b where a.年份=@年份 and a.计划期=@计划期                and a.年份=b.年份 and a.计划期=b.计划期+1                -- 计算净需求        update mrp物料需求计算 set 预计库存 = isnull(期初库存,0) -             isnull(毛需求,0) + isnull(预计入库,0) - isnull(预计出库,0)            where 年份=@年份 and 计划期=@计划期        update mrp物料需求计算 set 净需求=0  where 年份=@年份 and 计划期=@计划期        -- 预期(期末库存)小于0的存在净需求        update mrp物料需求计算 set 净需求=-预计库存, 预计库存=0             where 年份=@年份 and 计划期=@计划期 and 预计库存<0        fetch next from mycur into @年份, @计划期    END    close mycur    deallocate mycurcommitGO
  相关解决方案