| ( |
|
|
|||
| Deletes the record from the database | |||
 |
|
| Parameters: | |
| name of the record to delete | |
|
|
external inner procedure CheckFlush(var Integer,Integer);
updating procedure DeleteItems(record RcVc RepSpec)
BEGIN
Boolean TrHs;
record INVc INr;
Integer cnt;
TrHs = true;
while (LoopMain(INr,1,TrHs)) begin
if (TrHs) then begin
RecordDelete(INr);
StepBack(INr);
end;
end;
RETURN;
END;
|
|
| Related topics: | |