|
|
22仿真币
现有二类产品，A和B，如何实现1个A和1个B组装成1个C？我用orderlist建了二个OL_1和OL_2,分别用于A和B的等待，到了下一个进程，要取用的时候，一个都取不出来，实在不知为什么了，请大侠帮忙。# P! O- z- K1 O+ g; u+ Y q
4 w' ]7 }1 b8 m; x' F1 H
begin P_wait arriving: K" ^5 b r9 V8 i/ d
if this load type=L_a1 then0 G# t8 }1 M" E* f
wait to be ordered on OL_1
- g4 G* v' Q! {% X/ Y. O0 l! { if this load type=L_b1 then4 N9 B4 [; p* F3 a2 R
wait to be ordered on OL_2; B7 m# Y) \3 W0 S( g
send to P_assemble3 K% i: X5 r. [" V9 N6 \5 N9 G
end
; ]( ^( f* R3 S, B8 k3 v
7 t+ J, D3 @) R6 u0 C2 Dbegin P_assemble arriving/ g% [$ [, q3 e) w& ~
order a load from OL_1 to die
, x6 x, d) O g in case order not filled backorder on OL_1
/ n" B7 _, N& a4 M! Q order a load from OL_2 to continue$ m c; S0 R; ?! ]' j) x
in case order not filled backorder on OL_2" ^1 c6 \ F4 }9 p: `/ Y1 W; G! E
set load type to L_product$ H; N% o+ h$ `+ o% w0 g
get R_massm
' M7 w2 Z, s/ `! S8 n- _1 E wait for normal 5,1 min: h8 }2 |: D- a; j5 Q1 b
free R_massm
# b6 u" O& h' I8 E. l+ E move into Q_stock
; h/ j( I& m- n! A" x/ f) Oend |
|
发表于 2009-6-14 16:41:55
楼主