 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
zzbdyx
註冊時間: 2004-02-04
文章: 37
第 1 樓
|
 發表於: 星期二 三月 03, 2009 8:45 am 文章主題: BOM展開代碼求助 |
 |
|
有一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 單位用量
| 代碼: |
PARA flpbh
PRIV mlpbh
mlpbh=flpbh
DIMENSION renu(40)
dimension qty(40)
dimension chil(40)
for i = 1 to 40
store 1 to qty(i)
endfor
sele bom
loca for alltrim(par_lpbh)==mlpbh
i=1
do while .t.
if found()
renu(i) = recno()
if i = 1
qty(i) = qty*(1+hsbl/100)
else
qty(i) = qty(i-1)*(qty*(1+hsbl/100))
endif
chil(i)=com_lpbh
pleve=repl('.',i)+alltrim(str(i))
insert into zkbom &&zkbom為存放BOM展�}后存放數據(jc,lpbh,qty) ;
values (pleve,bom.com_lpbh,qty(i))
i=i+1
loca for alltrim(par_lpbh)==alltrim(chil(i-1))
else
if i>1
i=i-1
go renu(i)
ff=.f.
if i=1
ff=.t.
chil(1)=mlpbh
i=i+1
endif
continu
if ff
i=i-1
endif
else
exit
endif
endif
enddo
RETURN
|
以上是不考慮庫存，請問如考慮半成品庫存的話如何改進代碼！！請高手指教啊！！ |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期二 三月 03, 2009 9:25 am 文章主題: |
|
|
這個是我專門的,
但是不能洩漏公司機密.
我們公司的做法明確而且有效率.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
nelsonchuang
註冊時間: 2003-09-04
文章: 563
來自: 臺灣
第 3 樓
|
| 發表於: 星期二 三月 03, 2009 2:23 pm 文章主題: |
|
|
如果要考慮庫存,那你是不是也要考慮已預約數(其他的產品展開bom時,已扣除的數量?)
作法很多種,不見得每個人說的都適用.
自己先作作看,也許很辛苦,起碼會有些心得.
_________________
大家好,請多指教 |
|
| 回頂端 |
|
|
zzbdyx
註冊時間: 2004-02-04
文章: 37
第 4 樓
|
| 發表於: 星期三 三月 04, 2009 3:06 pm 文章主題: |
|
|
| 目前不考慮其他已做MRP運算的已分配數，僅在展開時考慮庫存實際存量即可！ |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1644
第 5 樓
|
| 發表於: 星期六 三月 07, 2009 12:13 am 文章主題: |
|
|
E原料需求量=MAX(((((A產量*B耗用率-B存量)*C耗用率-C存量)*D耗用率)-D存量)*E耗用率,0)
依此類推 , 多少階都可以套用 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2157
第 6 樓
|
| 發表於: 星期日 三月 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
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 7 樓
|
| 發表於: 星期一 三月 09, 2009 9:03 am 文章主題: |
|
|
"目前不考慮其他已做MRP運算的已分配數，僅在展開時考慮庫存實際存量即可！"
那就是一定會少買吧.
同一批料怎麼可以重複分配?
另外,
你覺得你的"庫存實際存量",不管在什麼情況下,
都會準確嗎?
(不考慮人員打單不齊的情況)
你的"庫存實際存量"在檔案毀損的情況下有能力重建嗎?
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
zzbdyx
註冊時間: 2004-02-04
文章: 37
第 8 樓
|
| 發表於: 星期一 三月 09, 2009 9:14 am 文章主題: 問題已解決 |
|
|
謝謝garfield
，問題已解決，并且在你的基礎上我完善了代碼，就是自動根據某階層是否有下階物料來區分半成品及原材料從而得出建議生產及建議采購的兩個分析表!!
萬分感謝 |
|
| 回頂端 |
|
|
zzbdyx
註冊時間: 2004-02-04
文章: 37
第 9 樓
|
| 發表於: 星期一 三月 16, 2009 2:53 pm 文章主題: |
|
|
請教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
Site Admin
註冊時間: 2003-01-30
文章: 2157
第 10 樓
|
| 發表於: 星期一 三月 16, 2009 3:06 pm 文章主題: |
|
|
改在 treeview 顯示就用treeview這個元件,
用法請 搜尋 就知道.
引用同一原料,
可以用 select 產品編號,sum(數量) ... from ... 這類的指令即可算出數量.
另外小聲的告訴你......
我沒有寫過製造業程式的經驗...
不要告訴別人哦.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 11 樓
|
| 發表於: 星期一 三月 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展開結果有關,
設計的不好,
也會不容易拆.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11
文章: 909
第 12 樓
|
| 發表於: 星期二 一月 26, 2010 4:55 pm 文章主題: |
|
|
| garfield 寫到: | 改在 treeview 顯示就用treeview這個元件,
用法請 搜尋 就知道.
引用同一原料,
可以用 select 產品編號,sum(數量) ... from ... 這類的指令即可算出數量.
另外小聲的告訴你......
我沒有寫過製造業程式的經驗...
不要告訴別人哦. |
我偷聽到了
n年前.你跟我說過有
_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!
想了解更多，您可上幸福雞湯組.找尋!!丁澐瑄.老師.
愛作夢 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
