VFP 愛用者社區

zzbdyx · 註冊時間: 2004-02-04 文章: 37 第 1 樓

有一BOM表，表結構如下：
par_lpbh 父件料號
com_lpbh 子件料號
qty 單位用量
hsbl 損耗比率

有一庫存表
lpbh 料號
kcsl 庫存數量

有一產品A，產品BOM結構如圖，在BOM表中記錄如下
A B 2 1%
A C 1 2%
B D 1 2%
B E 1 1%
D I 2 2%
D J 1 1%
C F 1 1%
C G 1 2%
C H 2 1%

現在要生產A 一定數量，同時要考慮半成品庫存數量，分別得出采購建議表和生產建議兩個表 _scb ;_cgb 凡是為尾階的都是原材料，有下層物料的是半成品，如上表，半成品就是B;C;D 原材料就是E;F;G;H;I;J
比方生產100個A，按BOM表會需要生產200個B，假設庫存有200個B則不需要展開B的BOM結構，如果庫存有100個B，則只需要生產100個B，那么在展開B的時候按100數量繼續展開算下級物料，依次類推！同時要考慮損耗！！

請問代碼如何寫，我已經用遞歸算法實現了BOM的展開如下：

展開后數據存放臨時表為zkbom,結構如下
jc 階次
lpbh 料號
qty 單位用量

syntech · 發表於: 星期二三月 03, 2009 9:25 am 文章主題:

這個是我專門的,
但是不能洩漏公司機密.

我們公司的做法明確而且有效率.

nelsonchuang · 發表於: 星期二三月 03, 2009 2:23 pm 文章主題:

如果要考慮庫存,那你是不是也要考慮已預約數(其他的產品展開bom時,已扣除的數量?)
作法很多種,不見得每個人說的都適用.
自己先作作看,也許很辛苦,起碼會有些心得.

zzbdyx · 註冊時間: 2004-02-04 文章: 37 第 4 樓

目前不考慮其他已做MRP運算的已分配數，僅在展開時考慮庫存實際存量即可！

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 5 樓

E原料需求量=MAX(((((A產量*B耗用率-B存量)*C耗用率-C存量)*D耗用率)-D存量)*E耗用率,0)
依此類推 , 多少階都可以套用

garfield · 發表於: 星期日三月 08, 2009 10:09 pm 文章主題:

create 空白暫存檔
openbom(產品編號, 生產數量)
return

func openbom( 料號,生產數量 )
* 遞迴抓出資料, 不含判斷死結的狀況.
local itemcount[1,3],i
select 子件編號,單位用量,損耗比率 where 母件料號=料號 into array itemcount
if _tally = 0
return
else
for i=1 to alen( itemcount,1)
insert into 暫存檔 , 將母件料號,子件編號,單位用量,損耗比率, 生產數量*單位用量*損耗比率=需求量
openbom(子件編號, 生產數量)
next
endif
return

****
試看看大概是這樣寫吧.

syntech · 發表於: 星期一三月 09, 2009 9:03 am 文章主題:

"目前不考慮其他已做MRP運算的已分配數，僅在展開時考慮庫存實際存量即可！"

那就是一定會少買吧.
同一批料怎麼可以重複分配?

另外,
你覺得你的"庫存實際存量",不管在什麼情況下,
都會準確嗎?
(不考慮人員打單不齊的情況)
你的"庫存實際存量"在檔案毀損的情況下有能力重建嗎?

zzbdyx · 註冊時間: 2004-02-04 文章: 37 第 8 樓

謝謝garfield
，問題已解決，并且在你的基礎上我完善了代碼，就是自動根據某階層是否有下階物料來區分半成品及原材料從而得出建議生產及建議采購的兩個分析表!!

萬分感謝

zzbdyx · 註冊時間: 2004-02-04 文章: 37 第 9 樓

請教garfield ：
如何將BOM結構用TREEVIEW來顯示呢？
如果不存在不同物料引用同一種原材料則算法相對簡單，但是如果存在在同一個產品的BOM中存在不同半成品引用了同一種原材料時算法如何呢，比方有如圖所示產品A，查詢出BOM的表結構及記錄如下：
階層父件料號子件料號
.1 A B
..2 B D
...3 D H
..2 B E
.1 A C
..2 C D
...3 D H

請教如何用TREEVIEW來展示該BOM

garfield · 發表於: 星期一三月 16, 2009 3:06 pm 文章主題:

改在 treeview 顯示就用treeview這個元件,
用法請搜尋就知道.

引用同一原料,
可以用 select 產品編號,sum(數量) ... from ... 這類的指令即可算出數量.

另外小聲的告訴你......

我沒有寫過製造業程式的經驗...
不要告訴別人哦.

syntech · 發表於: 星期一三月 16, 2009 3:27 pm 文章主題:

還好啦.
有扎實的基礎,就很容易變化.
garfield 兄的基礎非常扎實,
不像我. ^_^|||

像我們公司標準的是 "非遞迴"式bom展開模組,
不過我到公司的第一年就可以vfp做成"遞迴"式bom展開模組,
小時候多少有涉獵一點.

目前在bcb開發的系統就是使用"遞迴"式bom展開模組,
因為bcb操作本地cursor的能力很糟.
不得不使用"遞迴"式bom展開模組,

我們公司標準的"非遞迴"式bom展開模組,
是從clipper 系統留下的,
在20年前就可以做到無限階次的展開.

bom展開時,
如果底下還有子件,
他就是一個node,
反之,就是一個leaf.
一開始的東東就是root,

邊展開邊做treeview會簡單一點,
如果是展完再作treeview,
就要做點小手腳去判斷.
key word "stack"
我還有利用這個idea,作成由展開結果反拆成父子件結構的程式.
但是這與你如何儲存bom展開結果有關,
設計的不好,
也會不容易拆.

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 12 樓

CPS0204 · 註冊時間: 2014-08-24 文章: 482 第 13 樓

剛問過gtp 回答如下,經test可行,此乃 MS SQL 遞迴正展BOM,採用CTE

WITH BomCTE AS (
-- 第 1 層（起點）：查詢根零件（成品）
SELECT
FA_NO,
CHIL_NO,
CAST(CHIL_AMT AS DECIMAL(15,6)) AS CHIL_AMT,
1 AS Level,
FORMAT(ROW_NUMBER() OVER (PARTITION BY FA_NO ORDER BY CHIL_NO),'000') AS SUBLEVEL
FROM M_BOM_SINGO2
WHERE FA_NO = 'FA_CODE0001' -- 指定成品（例如：電腦）

UNION ALL

-- 遞迴部分：繼續展開子零件
SELECT
b.FA_NO,
b.CHIL_NO,
CAST(B.CHIL_AMT AS DECIMAL(15,6)) AS CHIL_AMT,
c.Level + 1,
SUBLEVEL+FORMAT(ROW_NUMBER() OVER (PARTITION BY B.FA_NO ORDER BY B.CHIL_NO),'000') AS SUBLEVEL
FROM M_BOM_SINGO2 b
INNER JOIN BomCTE c
ON b.FA_NO = c.CHIL_NO -- 連接父零件與子零件
)
SELECT * FROM BOMCTE ORDER BY SUBLEVEL
********
上述程式碼父階子件單筆綁定的時候,預設為:數量對此單筆的父件! 數量不是:子件對頂級父件.................請小心計算

註記一下: 如果採用子件數量是針對頂級父件的方法,在單階新增存檔時候,一定要檢查
共用半成品為子件的時候,其用量應只能有一種數字(即使此為共用半成品,有多個父件成品).........不能有不同的數量!

syntech · 發表於: 星期一二月 24, 2025 8:37 pm 文章主題:

我是在 2000年 M$出的SQL 7.0 的一本電話簿上面看到純T-SQL語法遞迴式展開的作法.
那時也順便改成適合自家系統的展開.
只是後來都沒再用.