Дублируются записи ???

← →
petvv (2009-10-29 13:01) [0]

Есть запрос

select Fuel.Marka, Osnovan.Name Osnov, Statist.DateTime, Statist.Price, Statist.LitFact, Statist.CurFact, Statist.Osnovanye, Osnovan.Discount from Fuel, Osnovan, Statist, Discount where Statist.DateTime>=:QDatBeg and Statist.DateTime<=:QDatEnd and Statist.Product=Fuel.Num and Statist.Osnovanye=Osnovan.Num

и последующая его обработка

Table1.Exclusive:=True; Table1.Active:=True; Table1.EmptyTable; //***************************************** qRas.Active:=False; qRas.Prepare; qRas.Params[0].AsDateTime := DatBeg; qRas.Params[1].AsDateTime := DatEnd; qRas.Active:=True; for i:= 1 to qRas.RecordCount do begin Table1.Append; Table1.FieldByName("DateTime").Value:=qRas.FieldByName("DateTime").Value; Table1.FieldByName("Marka").Value:=qRas.FieldByName("Marka").Value; Table1.FieldByName("Osnov").Value:=qRas.FieldByName("Osnov").Value; Table1.FieldByName("Discount").Value:=qRas.FieldByName("Discount").Value; Table1.FieldByName("Price").Value:=qRas.FieldByName("Price").Value; Table1.FieldByName("LitFact").Value:=qRas.FieldByName("LitFact").Value; Table1.FieldByName("CurFact").Value:=qRas.FieldByName("CurFact").Value; if qRas.FieldByName("Discount").Value=True then begin Money:=qRas.FieldByName("CurFact").Value; Money:=FloatToStr(Round(StrToFloat(Money)*exp(2*ln(10)))/(exp(2*ln(10)))); Litr:=qRas.FieldByName("LitFact").Value; Litr:=FloatToStr(Round(StrToFloat(Litr)*exp(2*ln(10)))/(exp(2*ln(10)))); Delta:=Money/Litr; Delta:=Delta*(1+Dis[StrToInt(VarToStr(qRas.FieldByName("Osnovanye").Value))]/100); Delta:=(Delta*Litr)-Money; Delta:=FloatToStr(Round(StrToFloat(Delta)*exp(2*ln(10)))/(exp(2*ln(10)))); Table1.FieldByName("Delta").Value:=Delta; end; Table1.Post; qRas.Next; end;

В нем получается один и тотже набор данных дублирется несколько раз.

Где искать, как бороться ???

← →
Sergey13 © (2009-10-29 13:02) [1]

> [0] petvv (29.10.09 13:01)

А где в запросе привязка Discount?

← →
petvv (2009-10-29 13:05) [2]

не понял

← →
petvv (2009-10-29 13:07) [3]

теперь понял

Дублируются записи ??? Найти похожие ветки