Delete all selected items

Question

Hello people,
I have a datablock where one of the items is a check box. I would like to know how to delete all items that has been selected by the checkbox. At the moment I use 'delete_record' but that only deletes the first selected row.
thank you in advance!

Answer 1

Try something like:
GO_BLOCK('CMC_REPORTS');
First_Record;
-- loop through the block until you reach the last record
WHILE :SYSTEM.LAST_RECORD = 'FALSE' LOOP
IF :CMC_REPORTS.ndb_delete_rec = 'Y' THEN
delete_record;
ELSE
Next_Record;
END IF;
END LOOP;
-- check to see if the last record needs to be deleted
IF :CMC_REPORTS.ndb_delete_rec = 'Y' THEN
delete_record;
END IF;
-- check to see if deletes need to be commited
IF :SYSTEM.FORM_STATUS = 'CHANGED' THEN
commit_form;
END IF;
DO_KEY('EXECUTE_QUERY');