Перенос данных из таблицы в таблицу

[lobster]

Подскажите пожалуйста какой код служит для преноса(копирования) даных из таблици в таблицу?
Например мне нужно пренести из таблици XXXX все строки в другую аналогичную таблицу ZZZ.

[UGT]

Если эти таблицы имеют одинаковый субтип, то код будет такой:
if xxxx.find('-') then
repeat
zzz := xxxx;
zzz.insert;
until xxxx.next = 0;
Если таблицы разные, то используйте TRANSFERFIELD

[lobster]

Цитата:

Сообщение от UGT

Если эти таблицы имеют одинаковый субтип, то код будет такой:
if xxxx.find('-') then
repeat
zzz := xxxx;
zzz.insert;
until xxxx.next = 0;
Если таблицы разные, то используйте TRANSFERFIELD

При компиляции этого кода, navision выдает
<<переменная record должна принадлежать 50002, а не 50001>>
где xxxx имеет номер 50001, а zzz 50002.

[Fordewind]

Цитата:

Сообщение от lobster

При компиляции этого кода, navision выдает
<<переменная record должна принадлежать 50002, а не 50001>>
где xxxx имеет номер 50001, а zzz 50002.

Пользуйте TRANSFERFIELDS. Только обратите внимание, что номера копируемых полей в таблицах дожны совпадать, так же как и типы.

[lobster]

Цитата:

Сообщение от Fordewind

Пользуйте TRANSFERFIELDS. Только обратите внимание, что номера копируемых полей в таблицах дожны совпадать, так же как и типы.

Спасибо, все сработало.
А еще не подскажите, в каком направлении двигаться дальше?
Например:
У обоих таблиц (xxxx, zzz) есть поля (код товара, название, количество).
Надо чтобы при переносе данных из таблице xxxx в таблицу zzz строчки которые совпадают, складывались.
Примерно как при учете товара в заказе покупки, когда товар переносится в зону склада.

[Fordewind]

Цитата:

Сообщение от lobster

Спасибо, все сработало.
А еще не подскажите, в каком направлении двигаться дальше?
Например:
У обоих таблиц (xxxx, zzz) есть поля (код товара, название, количество).
Надо чтобы при переносе данных из таблице xxxx в таблицу zzz строчки которые совпадают, складывались.
Примерно как при учете товара в заказе покупки, когда товар переносится в зону склада.

Ну например так:

IF zzz.GET(xxxx."Item No.", xxxx."Varient No.") THEN BEGIN // все ключевые поля таблицы zzz
zzz.Quantity += xxxx.Quantity;
......
zzz.MODIFY;
END
ELSE BEGIN
.....
zzz.INSERT
END