|
<div class='CALtop'>C/AL</div><div class='CAL'>
var
FromTable,ToTable - recordref
TableId - integer
NewCompanyName - text 30
ToTable.OPEN(TableID,FALSE,COMPANYNAME);
FromTable.OPEN(TableID,FALSE,NewCompanyName);
IF ToTable.FIND('-') THEN;
IF FromTable.FIND('-') THEN BEGIN
REPEAT
ToTable:=FromTable;
ToTable.INSERT(TRUE);
UNTIL FromTable.NEXT = 0;
END;</div>
При выполнение Оператора ToTable.INSERT(TRUE); появляется ошибка попытки вставить не уникальную запись, хотя копирую таблицу с одной записью в пустую таблицу.
Такое ощущение, что фирма в переменной ToTable стала такой же, как в FromTable. Подскажите, пожалуйста, можно ли побороть или обойти данную ошибку
|