IF :SYSTEM.FORM_STATUS IN ('CHANGED','NEW') THEN
commit_form;
block_id := Find_Block('UTS_REPORT_ITEM_SET');
if get_block_property(block_id,STATUS) <> 'QUERY' THEN
MESSAGE('set name出现重复的数据,请修改setname之后重新提交');
return;
END IF;
block_id := Find_Block('UTS_REPORT_ITEM_DETAIL');
if get_block_property(block_id,STATUS) <> 'QUERY' THEN
MESSAGE('item出现重复的数据,请删除重复的item之后重新提交');
return;
END IF;
END IF;[@more@]这种方法尚存bug
commit_form;
block_id := Find_Block('UTS_REPORT_ITEM_SET');
if get_block_property(block_id,STATUS) <> 'QUERY' THEN
MESSAGE('set name出现重复的数据,请修改setname之后重新提交');
return;
END IF;
block_id := Find_Block('UTS_REPORT_ITEM_DETAIL');
if get_block_property(block_id,STATUS) <> 'QUERY' THEN
MESSAGE('item出现重复的数据,请删除重复的item之后重新提交');
return;
END IF;
END IF;[@more@]这种方法尚存bug
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/226700/viewspace-862871/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/226700/viewspace-862871/