帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)

procedure mech_Pro_Type()
var
& n1 x) V  b& Bpro1_process,pro2_process:process
the_logic:logic
/ u8 w. i+ ?; y, K0 o/ Ebegin
: E) E8 t' a% Y* d0 ^   wait until out part_count 0
   require part any
- @8 Q' k) e2 K* a% r1 E' }   pro1_process=get_process('Mechanism400')
   pro2_process=get_process('Mechanism500')
- ?! F4 v4 O; V7 B( n( k
) i# l" K: K& E1 o   if(cpart<>NULL)then
, y( D, `3 [6 X& D$ G8 a       if( cpart->Product_Type==400)then
3 e/ D4 Q, I8 K            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
. x! l! p/ M( g5 q/ R- E* y+ t5 O         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
+ X: R8 ^$ R; N. D1 X( B$ c       else
; }% X  H, O. W/ h! X            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
2 p0 \8 _6 `) ?0 `' P/ _       endif
   endif
  s% S3 v" c% n8 G7 J7 fend