Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.20;
Скачать: CL | DM;

Вниз

ошибка при работе с PReport   Найти похожие ветки 

 
Explorer ©   (2002-05-24 15:06) [0]

Мастера!
На форме две кнопки. Одна вставляет записи в Бд.
Другая, создает отчет (prReport)из этих записей. Все работает.
Но как, только выполняю эти действия (по одной кнопке вставил данные , а затем просмотрел отчет по другой и закрыл его) и пытаюсь закрыть форму на которой все это находиться, выдается ошибка CPU (адрес, значение...). Где я ошибся?
В базу всю правильно заносится. Отчет тоже все корректно выводит

Вот код:


procedure TFormPayments.BitBtnOKClick(Sender: TObject);
begin
QueryFactura.Close;
QueryFactura.ParamByName("IdOfDog").AsInteger:=IdOfDog;
QueryFactura.ParamByName("NumFac").AsInteger:=NumFac;
QueryFactura.Open;

QueryFacTec.Close;
QueryFacTec.ParamByName("IdOfDog").AsInteger:=IdOfDog;
QueryFacTec.ParamByName("NumFac").AsInteger:=NumFac;
QueryFacTec.Open;


prReportOrder.PrepareReport;
prReportOrder.PreviewPreparedReport(false);

end;

procedure TFormPayments.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

QueryFactura.Active:=false;
QueryFacTec.Active:=false;

end;


 
wicked ©   (2002-05-24 16:04) [1]

а под отладчиком?...
а если строчки
> prReportOrder.PrepareReport;
> prReportOrder.PreviewPreparedReport(false);
закомментировать?...


 
Explorer ©   (2002-05-24 16:15) [2]

>wicked ©
Если закомментировать то все работает.
Весь прикол, как раз в том, что после открытия и закрытия отчета, а затем формы - только в этой последовательности ошибка!

Ошибку уже нашел, вот только причину обьяснить так и несмог.
Оказалось, все дело в том, что у меня отчет использует два Query.
Как только, один из них (любой) убираю с отчета все работает!
Может это проблема в PReport"e?



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
3-64925
Alik Chu
2002-05-24 14:57
2002.06.20
Обращение к объекту проекта из диалоговой формы FastReport а


3-64891
Kiko
2002-05-24 14:24
2002.06.20
ClientDataSet для локальной базы ?!


1-65018
Magic
2002-06-06 21:09
2002.06.20
Отсносительно ошибок в MaskEdit...


1-65157
Tutov Roman
2002-06-07 12:02
2002.06.20
Шифрование строки.


1-65006
lipskiy
2002-06-08 03:32
2002.06.20
UBPFD - Бесплатная база готовых решений для Delphi