| ( |
|
|
|||
| Deletes record from a register and triggers the record events. | |||
 |
|
| Parameters: | |
| Record to delete | |
|
|
global
updating procedure DeletePO ()
begin
record POVc POr;
boolean TrHs, testf;
TrHs = true;
POr.Reference = "ZZZZZZZ";
while (LoopKey("Reference",POr,1,TrHs)) begin
if (TrHs) then begin
if (POr.Reference <> "ZZZZZZZ") then begin
TrHs = false;
end;
end;
if (TrHs) then begin
RecordRemove(POr);
StepBack(POr);
end;
end;
return;
end;
|
|
| Related topics: | |