Подскажите как прописать рассуждение в модуле

[Len]

Есть 2 таблицы Товар(Articul*,Name,Cena,Kolvo) и ПрихНаклТовар(NumPNT*,Articul,Name,Cena,Kolvo).
Когда приходуется товар рассуждаю так:
если товар с таким артикулом уже существует, то прибавляем количество ПНТ к количеству Товара иначе, добавляем строки из ПНТ в таблицу Товар.
Подскажите как прописать это рассуждение в модуле?

[Finch]

Не совсем понятно, как расположены таблици.

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

Если таблици в памяти, тогда придется ручками делать перебор. Лучше предварительно отсортировать две таблици по полю артикль.

[Len]

На форме две таблицы связаны с БДТовар(Articul*,Name,Cena,Kolvo) и БДПрихНаклТовар(NumPNT*,Articul,Name,Cena,Kolvo). Прописал такой код:
begin
TableТовар.Insert;
if TableПНТArticul.Value = TableТоварArticul.Value then TableТоварKolvo.Value := TableТоварKolvo.Value + TableПНТKolvo.Value
else
TableТоварArticul.Value:=TableПНТArticul.Value;
TableТоварName.Value:=TableПНТNameTov.Value;
TableТоварCena.Value:=TableПНТCena.Value;
TableТоварKolvo.Value:=TableПНТKolvo.Value;
except
end;
TableТовар.Post;
еnd;
end;
но он не работает, вроде все логически прописал... Если артикль в Товаре уже такой есть, то просто прибавляем кол-во к Товару иначе, просто добавляем строки. Программа выдает сообщение: Key violation.

[Kivals]

После TableТовар.Insert у тебя TableТоварArticul.Value равен значению по умолчанию (скорее всего nil).
правильно будет так:

Код:

begin
	// не помню точно ни названия функции, ни синтаксиса, но идея - в поиске по ключу
	if TableТовар.FindByKey(TableПНТArticul.Value) then begin
		TableТовар.Edit;
		TableТоварKolvo.Value := TableТоварKolvo.Value + TableПНТKolvo.Value;
	end else begin
		TableТовар.Insert;
		TableТоварArticul.Value:=TableПНТArticul.Value;
		TableТоварName.Value:=TableПНТNameTov.Value;
		TableТоварCena.Value:=TableПНТCena.Value;
		TableТоварKolvo.Value:=TableПНТKolvo.Value;
	end;
	TableТовар.Post;
end;