Заполнение таблицы из кода программы

[Андре]

У меня есть 2 таблицы: одна заполненная, другая пустая. Необходимо заполнить одно поле пустой таблицы из заполненной. Не могли бы Вы подсказать, как это лучше сделать ?
Я пробовал так:

void clicked()
{
   InventTable iTable;
   InventItemLocation iLocation;
   str s;
   
   while select iTable
   {
      s=iTable.ItemId;

      iLocation.insert();
      iLocation.ItemId=s;
      iLocation.update();
      print s;
   }
   super();
}

При запуске переносится только первая запись, а дальше Аксапта говорит, что следующую запись вставить невозможно, так такая уже существует. Хотя из (print s); видно что значение поля другое.

Не могли бы Вы подсказать в чем дело ?

Спасибо.

[PlasticinE]

<Зохавано мудератором>
за неуплату

[Maxim Gorbunov]

Вообще говоря, Вы делаете лишнее действие, вставляя пустую запись. Перенесите insert на то место, где у Вас стоит update, а update удалите:

    . . . . . .
    while select iTable 
    {
        iLocation.ItemId = iTable.ItemId;
        iLocation.insert();
    }
    . . . . . .

Переменная типа таблицы имеет смысл буфера. Вы заполняете ее поля, а методы insert и update переносят значение этого буфера в таблицу.

Ваша ошибка возникает в том случае, когда на таблице определен индекс, не позволяющий повторы (Allow Duplicates равно No). Вставляя пустую запись, Вы автоматически создаете такой повтор.

Однако, ошибка может быть вызвана и тем, что, как уже писал PlasticinE, заполнены не Все поля записи. Опять же, если одно из незаполненных полей входило в индекс, который не позволял повторов, Вы получите ту же самую ошибку. Чтобы сократить вероятность появления таких ситуаций, в некоторых таблицах переопределен метод initValue. Этот метод обычно заполняет некоторые поля таблицы (если быть точным, то буфера), среди которых и те, которые входят в индексы, причем они заполняются так, чтобы избежать повторов. initValue рекомендуется вставлять непосредственно перед тем, как Вы начинаете заполнять поля:

    . . . . . .
    while select iTable
    {
        iLocation.initValue();
        iLocation.ItemId = iTable.ItemId;
        iLocation.insert();
    }
    . . . . . .