Odysseos
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
qChart2.Open;
for i:=0 to count_product-1 do begin
SetLength(mseries,dbChart1.SeriesList.Count+1);
mseries[dbChart1.SeriesList.Count]:=TFastLineSeries.Create(dbChart1);
mseries[dbChart1.SeriesList.Count].LinePen.Width:=2;
dbChart1.AddSeries(mseries[dbChart1.SeriesList.Count]);
qChart2.First();
while not qChart2.Eof and (trunc(qChart2.FieldByName('rc_sd_begindate').AsDateTime) < j) do
qChart2.Next();
for j := Trunc(cxdedReservFrom.Date) to trunc(strtodate('07.03.2010')) do begin
value_found := False;
//showmessage(DateToStr(j));
while not qChart2.Eof and (trunc(qChart2.FieldByName('rc_sd_begindate').AsDateTime) = j) do begin
if qChart2.FieldByName('rc_smenavol_volumenum').AsInteger = mproduct[i] then begin
if cxRadioGroup1.ItemIndex = 0 then //График фактического отклонения движения за смену от расчетного
mseries[dbChart1.SeriesList.Count-1].Add(
qChart2.FieldByName('otklon_fakdvforsmena').AsInteger,
datetostr(trunc(qChart2.FieldByName('rc_sd_begindate').Asdatetime))
)
else //График фактического остатка от нарастающего расчетного
mseries[dbChart1.SeriesList.Count-1].Add(
qChart2.FieldByName('otklon_fakrestfromincrease').AsInteger,
datetostr(trunc(qChart2.FieldByName('rc_sd_begindate').Asdatetime))
);
value_found := True;
end;
qChart2.Next();
end;
if not value_found then
mseries[dbChart1.SeriesList.Count-1].Add(
0,
datetostr(trunc(qChart2.FieldByName('rc_sd_begindate').Asdatetime))
);
end;
end;
end;
|
