powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ADO + Delphi 6 + MS SQL 2000 + Quick Report
1 сообщений из 1, страница 1 из 1
ADO + Delphi 6 + MS SQL 2000 + Quick Report
    #32257698
Not Registered
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброе время суток, дорогие коллеги.
Использую ADO + Delphi 6 + MS SQL 2000 + Quick Report. Соединение через UDL-файл.
Проблема: работают одновременно два клиента с одной БД, печатают накладные. Все работает - муха не сиди. Однако ИНОГДА бывает так что при печати одной накладной печатаются товары из этой накладной, плюс товары из другой. В таблицах на сервере - все нормально. Единственное подозрение - перед печатью я делаю обновление таблиц следующим образом (MasterTable - данные о накладной, DetailTable - товары в накладной):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dm.MasterTable.DisableControls;	// чтобы было быстрее
Dm.DetailTable.DisableControls;

TmpBM:=Dm.MasterTable.GetBookmark; 
Dm.MasterTable.Requery;		// опять же для скорости
if Dm.MasterTable.BookmarkValid(TmpBM)
then
      Dm.MasterTable.GotoBookmark(TmpBM);
Dm.MasterTable.FreeBookmark(TmpBM);

Dm.DetailTable.Refresh;		// а вот здесь я делаю 
				// Refresh вместо Requery
				// из-за глюка DBGrid
				// после Requery как-то
				// не так работает

Dm.MasterTable.EnableControls;
Dm.DetailTable.EnableControls;

Reports.WayBillQuickReport.Print;

В чем проблема - ума не приложу. Может надо ставить закладку на DetailTable перед обновлением? Может совсем обновлять не надо перед печатью? И почему только ИНОГДА это происходит? Еще важный момент - когда работает один клиент - никаких проблем.
Если у кого есть какие-то мысли - помогите кто чем может. Заранее спасибо.
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ADO + Delphi 6 + MS SQL 2000 + Quick Report
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]