Копирование м\у фирмами с помощью RecordRef

[Константин!]

<div class='CALtop'>C/AL</div><div class='CAL'>
var
   TableID                    Integer        
   NewCompanyName    Text        30
   CopyTable                    Boolean        
               FromTable                    RecordRef        
               ToTable                    RecordRef        
               FromFilds                    FieldRef        
               ToFields                    FieldRef        
               FieldTable                    Record    Field    

 FromTable.OPEN(TableID,FALSE,NewCompanyName);
 ToTable.OPEN(TableID,FALSE,COMPANYNAME);
 IF FromTable.FIND('-') THEN BEGIN
   REPEAT
    FieldTable.RESET;
    FieldTable.SETRANGE(TableNo,TableID);
    IF FieldTable.FIND('-') THEN BEGIN
      REPEAT
        FromFilds:= FromTable.FIELD(FieldTable."No.");
        ToFields:=ToTable.FIELD(FieldTable."No.");
        ToFields.VALUE:=FromFilds.VALUE;
      UNTIL FieldTable.NEXT=0;
    END;
     ToTable.INSERT();
   UNTIL FromTable.NEXT = 0;
 END;
END;
</div>

такая конструкция работает железно. Теперь можно любую табличку между фирмами на лету копировать. Думаю будет удобна при создание новой фирмы и копирование настроек из текушей.
Спасибо.