Monday, March 30, 2015

Dexterity template for Display Existing Record

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

call Get of form RecordForm, RecordID, table RecordTable, CHG;

if err(table RecordTable) <> MISSING then
'Display Existing Record' = true;
copy from table RecordTable to window RecordWindow;
clear changes form RecordForm;
'Display Existing Record' = false;
clear table RecordTable;
end if;

lock RecordID;
focus RecordDescription;

No comments:

Post a Comment