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

[Kirvisniemi]

Для тех кто хочет извращаться с потоками - тоже просто:

<div class='CALtop'>C/AL</div><div class='CAL'>VAR
     Ins : InStream;
     Outs : OutStream;
     Bin : Binary[1];

CODE

table1.CALCFIELDS(BLOB);

table1.BLOB.CREATEINSTREAM(Ins);
table2.BLOB.CREATEOUTSTREAM(Outs);

table2.INIT;
WHILE NOT Ins.EOS DO BEGIN
 Ins.READ(Bin,1);
 Outs.WRITE(Bin);
END;
table2.INSERT;</div>