Monday, March 30, 2015

Dexterity Template - Clear and Delete button

Clear
release table RecordTable;

restart form;

Delete
if empty(RecordID) then
abort script;
end if;

if ask(getmsg(1300),getmsg(3),getmsg(1),"") = ASKBUTTON1 then
release table RecordTable;
RecordID of table RecordTable = RecordID;
change table RecordTable;
if err() = OKAY then
remove table RecordTable;
end if;
release table RecordTable;
restart form;
end if;

No comments:

Post a Comment

There was an error in this gadget