|
|
22仿真币
现有二类产品，A和B，如何实现1个A和1个B组装成1个C？我用orderlist建了二个OL_1和OL_2,分别用于A和B的等待，到了下一个进程，要取用的时候，一个都取不出来，实在不知为什么了，请大侠帮忙。1 Z) l* p$ D7 L0 t
8 R) x8 {8 H; t0 C8 A
begin P_wait arriving! a& z& R. I# z7 i
if this load type=L_a1 then
6 G( u4 @' t# D/ R% z& r7 f$ q wait to be ordered on OL_1
2 F+ ?" W9 K2 [' r/ g* A if this load type=L_b1 then
, Y- Z2 n4 p) Z, a- @ wait to be ordered on OL_2
+ s3 U& }( H7 l1 V send to P_assemble
* P8 \; E0 V5 ~( w& |7 n9 ]: Fend- n- }$ K- h5 q# y4 C0 D
& S9 i2 L% x% ibegin P_assemble arriving( o3 n3 ]* v% D7 b$ @ ^$ b
order a load from OL_1 to die
]% _1 F! u7 }" O- S% P in case order not filled backorder on OL_1
* s" \- o5 f7 _5 c order a load from OL_2 to continue
1 _4 V( o( ~* m( n+ @ in case order not filled backorder on OL_21 E$ @" d0 F6 k* |6 e
set load type to L_product$ Q" \' }" |& g" B: A
get R_massm" f6 s( D! E' {4 n
wait for normal 5,1 min, j: k) e/ `) B1 r/ T
free R_massm, z9 y' z% J2 m2 w: h# O3 H. ^- Q
move into Q_stock' X/ _* e/ v) S' @! W) \ l
end |
|
发表于 2009-6-14 16:41:55
楼主