Вылетает ошибка. СУБД - Oracle. Переменные вродебы задал правильно. А ошибка вылетает .
| Код |
procedure TfrmSvMemOrd.bbOKClick(Sender: TObject);
var DateBeg, DateEnd: TDateTime;
begin
Month := FrDate1.lbMonth.ItemIndex + 1;
Year := FrDate1.dxSpinYearEdit.IntValue;
DateBeg := FrDate1.dxDateEdit1.Date; //SysUtils.EncodeDate(Year, Month, 1);
DateEnd := FrDate1.dxDateEdit2.Date; //IncMonth(DateBeg, 1) - 1;
odsSVMemOrd.Close;
odsSvMemOrd.SetVariable('PORDER', OrderId);//Fields[0].Asinteger := OrderId;
odsSvMemOrd.SetVariable('PDATE1', DateBeg);//Fields[1].AsDateTime := DateBeg;
odsSvMemOrd.SetVariable('PDATE1', DateEnd);//Fields[2].AsDateTime := DateEnd;
odsSvMemOrd.Open;
frReport1.LoadFromFile('svmemord.frf'); <--Вот тут вот вылетает ошибка
frReport1.ShowReport;
end;
|
А внутри фаст репорта вылетает ошибка вот тут
| Код |
begin
frReadMemo(Stream, SMemo);
AddObject(gtAddIn, SMemo[0]);
end
else
AddObject(b, ''); //вылетает
t.LoadFromStream(Stream);
end;
|
В чем может быть дело ??? |