帮我看个程序,好吗

zhangyc1985

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

4 |" M0 C. ^; |: X( U9 Bprocedure mech_Pro_Type()
var
1 a* w& P; x* j. R: I0 h. jpro1_process,pro2_process:process
the_logic:logic
begin
; n4 y- T3 e) g( x* e   wait until out part_count 0
% l0 w. ?9 {0 W   require part any
8 I. |; H' g, o9 J  z$ g   pro1_process=get_process('Mechanism400')
   pro2_process=get_process('Mechanism500')

$ q  ^8 O: l9 J. L4 n   if(cpart<>NULL)then
       if( cpart->Product_Type==400)then
            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
0 W& D: ]2 \: o" K0 @% x) [' l         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
- m0 @- l9 S: n6 E. @! w1 P# s& U       else
: C; z2 U$ B) e- U            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
' u) v7 K4 ~" J       endif
   endif
end