| ( |
|
|
|||
| Sets back previously set up company | |||
 |
|
| Parameters: | |
| company number | |
|
|
procedure ExportTheBlock(string blockname,Integer compnr)
begin
integer curcomp;
curcomp = CurrentCompany;
if (SetCompany(compnr,false)) then begin
BlockExport(blockname);
ResetCompany(curcomp);
end else begin
ResetCompany(curcomp);
end;
return;
end;
|
|
| Related topics: | |