IF g_plant='01HZJM' THEN
SELECT SUM(imn10) INTO l_sum_imn10 FROM imn_file,imm_file
WHERE imn01=imm01 AND imm03<>'Y' AND immconf<>'X'
AND imn03=g_imn[l_ac].imn03 AND imn04=g_imn[l_ac].imn04
AND imn05=g_imn[l_ac].imn05 AND imn06=g_imn[l_ac].imn06
AND imn01||imn02 NOT IN (g_imm.imm01||g_imn[l_ac].imn02)
IF cl_null(l_sum_imn10) THEN LET l_sum_imn10=0 END IF
IF g_imn[l_ac].imn10 > l_img10- l_sum_imn10 THEN
LET l_mess="拨出数量:",g_imn[l_ac].imn10," + 调拨在途:",l_sum_imn10," 大于可用库存:",l_img10,"!请重新确认拨出数量!"
CALL cl_err(l_mess,'cim-003',1)
END IF
END IF