EBS FORM 中DELETE_RECORD的用法

例子：
　　通过点击删除按钮，通过DELETE_RECORD删除所选数据
主要实现代码：

GO_BLOCK('folder'); 
first_record;
LOOP
    IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
        delete_record;
    END IF;
    EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
    next_record;
END LOOP;    

问题：
　　如果最后一行数据是被选中的，但并没有被删除
解决办法：
　　在循环出来后再加一个判断，进行删除

GO_BLOCK('folder'); 
first_record;
LOOP
    IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
        delete_record;
    END IF;
    EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
    next_record;
END LOOP;
    
IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
    delete_record;
END IF;