Вычитание в DBgrid

[Abay19941308]

У меня есть БД. В ней есть таблица Поставка и Документ. В таблице Документ есть поле 'Цена_оптовая', а в таблице Поставка поле 'Цена'.
Когда я вычитаю 'Цена_оптовая' от 'Цена', у меня не правильно проходит вычитание. Оно проверяется по номеру документа. Это поле есть в обоих таблицах.
Если 'номер_документа' поставка = 'номер_документа' Документ то произвести вычитание.

 while not DM.Dokument.EOF do begin
  ZZ:=DM.Dokument.FieldValues['номер_документа'];
 while not DM.Postavka.EOF do begin
  ZC:=DM.Postavka.FieldValues['номер_документа'];
  if (ZZ=ZC) then begin
  DM.Postavka.Fieldvalues['Прибыль_каждого_товара']:=(DM.Dokument.FieldValues['Цена_оптовая']) -
(DM.Postavka.FieldValues['Цена']);
  end;
  DM.Dokument.next;
 end;
  DM.Postavka.Next;
 end;

[Аватар]

Номер документа уникален в обеих таблицах или возможны повторы записей с одним и тем же номером документа?

[Vad33]

А как формируются строки в DBgrid, запросом ?
Там же должны быть документы с одинаковым номером в колонках
"Цена_оптовая" и "Цена" ?!

А вообще такое вычитание сразу делается в запросе.

[Abay19941308]

номер_документа уникален
у каждого товара свой
9 товаров 9 номеров документа

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

А как формируются строки в DBgrid, запросом ?
Там же должны быть документы с одинаковым номером в колонках
"Цена_оптовая" и "Цена" ?!

А вообще такое вычитание сразу делается в запросе.

Я создаю в Таблице "документы" отдельное поле Прибыль каждого товара
и разницу между "Цена_оптовая" и "Цена" заношу в нее.
Да номера одинаковые.

[Аватар]

А вообще такое вычитание сразу делается в запросе

Без вариантов и не надо программно гонять по данным. Но если очень хочется, то выбросить код и переделать примерно так

DM.Postavka.First;
while not DM.Postavka.EOF do begin
  if DM.Dokument.Locate('номер_документа',DM.Postavka.FieldByName('номер_документа').AsString,[]) then begin
    DM.Postavka.Edit;
    DM.Postavka.FieldByName('Прибыль_каждого_товара').AsFloat:=DM.Dokument.FieldByName('Цена_оптовая').AsFloat-Postavka.FieldByName('Цена').AsFloat;
    DM.Postavka.Post;
  end;
  DM.Postavka.Next;
end;

[Abay19941308]

Спасибо большое!!! Все работает!!!