帮我看个程序,好吗

zhangyc1985

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

# F# x+ |- t& z0 ]. S1 n. N  Mprocedure mech_Pro_Type()
$ b! R) N; a7 @$ N( g( bvar
pro1_process,pro2_process:process
the_logic:logic
begin
# e# K& n! p, J" \0 t, m: l5 x   wait until out part_count 0
   require part any
   pro1_process=get_process('Mechanism400')
# I! O( }' n! C3 g3 r   pro2_process=get_process('Mechanism500')
7 q$ O9 r- \$ B4 M$ g
% N1 e' K6 F- f4 m7 A   if(cpart<>NULL)then
       if( cpart->Product_Type==400)then
            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
4 s7 E# A- d% j& @& x" r         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
* _! M$ {7 l& D' {4 O       else
            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
! U$ L7 I. P6 I5 i- l, m$ I1 w5 ^       endif
   endif
end