Текущий архив: 2009.12.13;
Скачать: CL | DM;

Вниз

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

← →
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]

теперь понял

---

Страницы: 1 вся ветка

Текущий архив: 2009.12.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c