Как сделать автоматич. дату и перенос записей.

[Hito]

Люди подскажите пожалуйста:
1) как сделать что бы Дата автоматически в Таблицу в поле "дата" заносилась.
2)Что бы принажатии на кнопку продажа записи из таблицы "заказ" переносились в таблицу "Твижение товара". , приетом записи в таблице "заказ " должны даляться.

Препод достал весь мозг вынес уже

Структура таблицы:
Таблица 1 "Заказ"
1. Ид заказа(ключевое)
2. Ид товара(запись переносится изи табл. товар на складе)
3. Наименование товара
4. Кол-во
5. стоимость
6. Дата

Структура таблицы:
Таблица 2 "Движение товара"
1.Код операции
2.Наименование товара
3.Кол-во
4.Цена
5.Дата операции

Я бы оболочку прикрепил,но что то форум глючит не даёт выложить[/B][/B][/I][/I]

[ArtInt]

1. Имеется наверное в виду текущая дата
Тогда

Table1.fieldbyname('data').asString:=DateToStr(Date);

2. В чем проблема? Примерно так будет.

Table2.Insert;
Table2.fieldbyname('Nametovar').asstring:=Table1.fieldbyname('Nametovar').asstring;
Table2.fieldbyname('Kol').asstring:=Table1.fieldbyname('kol').asstring;
Table2.post;

Table1.delete;

Тогда текущая запись будет удалена и при этом добавлена в другую таблицу.

[Hito]

Спасибо,а возможно сделать что бы все записи в таблице переносились в другую?т.е. сделку провели оператор или кто там нажал и записи вших в арихв продаж=)

[Hito]

А что за ошибка такая?
Table2.Dataset not in edit or insert mode

[Hito]

УРА! Дату добавил!! Уиииии=)

[ArtInt]

Самый простой способ это через цикл сделать

Table1.first;
for i:=1 to Table1.RecordCount do
begin
Table2.Insert;
Table2.fieldbyname('Nametovar').asstring:=Table1.fieldbyname('Nametovar').asstring;
Table2.fieldbyname('Kol').asstring:=Table1.fieldbyname('kol').asstring;
Table2.post;

Table1. Next;

end;

А потом удалить все записи из таблицы 1

Table1.first;
for i:=1 to Table1.Recordcount do
begin
 Table1.delete;
 Table1.Next;
end;

[Hito]

Ок щас папробую.
А вот ещё вапросик как луше выбрал запись перенёс в архив или все сразу?

[ArtInt]

Это уж на твое усмотрение. Как удобнее для пользователя и как тебе легче реализовать.

[Hito]

Значит по 1-му т.к. уже реализовал