Поделка запускается несколько раз и в какой то момент вылет ?
Или запускается одноразово и вылет ?

Если первое, то с большой вероятностью есть обращение к атрибутам формы в операторах основной программы (например, установка заголовку формы), на 3-4 открытие вылет гарантирован.

Eprst писал(а) 27. Ноября 2012 :: 08:47:

Что за довольно серьезный баг? поясни, пожалуйста.
кто виноват? 1С или 1с++

es3000 писал(а) 27. Ноября 2012 :: 09:12:


Это в операторах основной программы, или в ПриОткрытии ?

Но я все-таки думаю, что ошибка либо в прямом запросе либо в ИТ.
Так как количество вылетов меньше, если меньше объем обрабатываемых данных.

Например, если при выполнении обработки я делаю фильтр только по одной номенклатуре - то чаще всего обработка отрабатывает нормально.
А если фильтр не устанавливать, т.е. сделать обработку по всей номенклатуре - вероятность вылета приближается к 90%

Eprst писал(а) 27. Ноября 2012 :: 10:14:


Да.
Говоря в "модуле обработки", я имел ввиду "в операторах основной программы" обработки.
Здесь у меня создаются колонки для ТаблицыЗначений и устанавливаются начальные значения флажков.

Eprst писал(а) 27. Ноября 2012 :: 10:30:


ОК. Попробую.

А все-таки какая версия будет постабильнее для ИТ и прямых запросов?
На 1cpp.ru упоминаются только стабильные релизы версии 2.ххх:

Рекомендованный стабильный релиз с раздельной загрузкой FormEx: 2.5.0.7
Рекомендованный стабильный релиз c включенным FormEx: 2.0.3.7 

Eprst писал(а) 27. Ноября 2012 :: 11:05:


а что же делать?
пользоваться той которая сейчас?
3.2.3.20?

Eprst писал(а) 27. Ноября 2012 :: 12:26:

а ничего что это "release candidate"? типа до конца не проверена?

Eprst писал(а) 27. Ноября 2012 :: 12:26:


только это:

		Рез = ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "ExtDlls\1cpp.dll");
		УправлениеНастройками = СоздатьОбъект("УправлениеНастройками");
		УправлениеНастройками.Включить("EnableTurboBL");
 

Eprst писал(а) 27. Ноября 2012 :: 12:26:


230тыс.строк

Eprst писал(а) 27. Ноября 2012 :: 12:26:

ИТЗ потом обрабатывается, и промежуточные результаты тоже потом нужны, писать это все запросами - тяжко

Eprst писал(а) 27. Ноября 2012 :: 13:44:

так ведь по-правильному должна не валиться, а вернуть код ошибки, сказать типа "...невозможно выполнить запрос..." и т.д.
чего валиться-то?

Eprst писал(а) 27. Ноября 2012 :: 13:44:

ага

Eprst писал(а) 27. Ноября 2012 :: 13:44:

около 200Мб

ТЗ и ИТ с одними и теми же данными занимают разное место в памяти:
для 230 тыс. строк ТЗ занимает 300Мб, ИТ - 400 Мб.

Это нормально?

es3000 писал(а) 27. Ноября 2012 :: 20:19:

если база ms sql то вместо таких огромных таблиц  ТЗ,ИТЗ гораздо эфективене во всех отношениях
использовать временные таблицы #tabl_1 ( и индексы на них)
на самом ms sql сервере.

Eprst писал(а) 28. Ноября 2012 :: 06:38:

ну вообще не очень понятно,
зачем нужен отчет на 200 000 строк.

Выяснилось: ИТ не при чем, ИТ отрабатывает нормально,
вылеты происходят когда выполняется:
КомандаОЛЕ.УложитьСписокОбъектов(лСписокНом, ВремТабл);

в списке около 6 тыс. наименований


И есть предположение с чем это связано.
Недавно на сервере вирус операционку повредил. Возможно повредились какие-то системные библиотеки связанные с OLEDB.
Возможно такое?

Ну тогда вылеты не были бы связаны с объемом данных.
А у меня на маленьких объемах (по одной номенклатуре) отрабатывает хорошо.

Eprst писал(а) 28. Ноября 2012 :: 08:59:

да

переустанови vfp

если запрос правильно построен с учетом использования индексов, то sqllite ему проигрывает в разы на некоторых запросах (особенно, где group by есть)

es3000 писал(а) 28. Ноября 2012 :: 08:36:


ну так и реализуй свою функцию создания фильтрующей времТЗ (или создание условия вида In(, , , , ...) при малых количествах фильтрующих значений).

своим инсёртом во временную табличку..
вот только группы разворачивать придётся до полной иерархии.

Вот кусок из функции, написанной 2 года назад, когда я "с нуля" писал набор классов на новой (в тот момент) работе

	ИначеЕсли ТипЗначения(ЗначениеФильтра) = 11 Тогда
		Если ЗначениеФильтра.ЭтоГруппа() = 0 Тогда
			Если фДекларативныеФильтры = 0 Тогда
				стрЗначение = "'" + РадугаСервис.ЗначениеВСтрокуБД(ЗначениеФильтра) + "'";
			Иначе
				текст_Декларация = текст_Декларация + "
				|Declare " + стрЗначение + " Char(9)
				|Set " + стрЗначение + " = '" + РадугаСервис.ЗначениеВСтрокуБД(ЗначениеФильтра) + "'";
			КонецЕсли;
		Иначе
			ИмяВремТаблицы	= ИмяВременнойТаблицы(, 0);

			ТекстЗапроса = "
			|SELECT '" + РадугаСервис.ЗначениеВСтрокуБД(ЗначениеФильтра) + "' ID Into " + ИмяВремТаблицы + "
			|
			|While @@RowCount > 0
			|INSERT INTO " + ИмяВремТаблицы + "
			|SELECT
			|	Спр.ID
			|FROM
			|	$Справочник." + ЗначениеФильтра.Вид() + " Спр (NoLock)
			|WHERE
			|	ParentID In (SELECT ID FROM " + ИмяВремТаблицы + " (NoLock))
			|	And ID Not In (SELECT ID FROM " + ИмяВремТаблицы + " (NoLock))
			|
			|If (SELECT Count(*) From " + ИмяВремТаблицы + " (NoLock)) > 100
			|	Create Clustered Index " + СтрЗаменить(ИмяВремТаблицы, "[#", "[#IX_") + " on " + ИмяВремТаблицы + " (ID)
			|";

			Если фЗаполняемВремТаблицыОтдельнымЗапросом = 1 Тогда
				ЗапросСКЛ.Выполнить("Set NoCount ON
				|" + ТекстЗапроса);
			Иначе
				текст_Префикс = текст_Префикс + ТекстЗапроса;
			КонецЕсли;

			текст_Постфикс = текст_Постфикс + "
			|Drop Table " + ИмяВремТаблицы;
		КонецЕсли;

	ИначеЕсли ТипЗначенияСтр(ЗначениеФильтра) = "СписокЗначений" Тогда
		фИспользоватьВТ = 0;
		Если ЗначениеФильтра.РазмерСписка() > 10 Тогда
			фИспользоватьВТ = 1;
		Иначе
			Для й = 1 По ЗначениеФильтра.РазмерСписка() Цикл
				ОдноИзЗначений = ЗначениеФильтра.ПолучитьЗначение(й);
				Если ТипЗначения(ОдноИзЗначений) = 11 Тогда
					Если ОдноИзЗначений.ЭтоГруппа() = 1 Тогда
						фИспользоватьВТ = 1;
						Прервать;
					КонецЕсли;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;

		Если фИспользоватьВТ = 0 Тогда
			Для й = 1 По ЗначениеФильтра.РазмерСписка() Цикл
				ОдноИзЗначений = ЗначениеФильтра.ПолучитьЗначение(й);
				Если ПустоеЗначение(ОдноИзЗначений) = 1 Тогда
					Продолжить;
				КонецЕсли;
				СписокЗначений = СписокЗначений + ", '" + РадугаСервис.ЗначениеВСтрокуБД(ОдноИзЗначений) + "'";
			КонецЦикла;

			Если (СтрДлина(СписокЗначений) = 0) И (фФильтрПоПустомуЗначению = 0) Тогда
				Возврат "";
			ИначеЕсли СтрДлина(СписокЗначений) = 0 Тогда
				СписокЗначений = ", ''";
			КонецЕсли;
			СписокЗначений = "(" + Сред(СписокЗначений, 2) + ")";
		Иначе
			ИмяВремТаблицы	= ИмяВременнойТаблицы(, 0);

			ТекстЗапроса = "
			|CREATE TABLE " + ИмяВремТаблицы + " (ID Char(9))";

			фЭтоСправочник = 0;
			Для й = 1 По ЗначениеФильтра.РазмерСписка() Цикл
				ОдноИзЗначений = ЗначениеФильтра.ПолучитьЗначение(й);
				Если ПустоеЗначение(ОдноИзЗначений) = 1 Тогда
					Продолжить;
				КонецЕсли;
				ТекстЗапроса = ТекстЗапроса + "
				|INSERT INTO " + ИмяВремТаблицы + " Values('" + РадугаСервис.ЗначениеВСтрокуБД(ОдноИзЗначений) + "')";

				Если ТипЗначения(ОдноИзЗначений) = 11 Тогда
					фЭтоСправочник = 1;
					ВидСпр = ОдноИзЗначений.Вид();
				КонецЕсли;
			КонецЦикла;

			Если фЭтоСправочник = 1 Тогда
				МетаСпр = Метаданные.Справочник(ВидСпр);
				Если МетаСпр.КоличествоУровней > 1 Тогда
					ТекстЗапроса = ТекстЗапроса + "
					|
					|While @@RowCount > 0
					|INSERT INTO " + ИмяВремТаблицы + "
					|SELECT
					|	Спр.ID
					|FROM
					|	$Справочник." + ВидСпр + " Спр (NoLock)
					|WHERE
					|	ParentID In (SELECT ID FROM " + ИмяВремТаблицы + " (NoLock))
					|	And ID Not In (SELECT ID FROM " + ИмяВремТаблицы + " (NoLock))
					|";
				КонецЕсли;
			КонецЕсли;

			ТекстЗапроса = ТекстЗапроса + "
			|If (SELECT Count(*) From " + ИмяВремТаблицы + " (NoLock)) > 100
			|	Create Clustered Index " + СтрЗаменить(ИмяВремТаблицы, "[#", "[#IX_") + " on " + ИмяВремТаблицы + " (ID)
			|";

			Если фЗаполняемВремТаблицыОтдельнымЗапросом = 1 Тогда
				ЗапросСКЛ.Выполнить("Set NoCount ON
				|" + ТекстЗапроса);
			Иначе
				текст_Префикс = текст_Префикс + ТекстЗапроса;
			КонецЕсли;

			текст_Постфикс = текст_Постфикс + "
			|Drop Table " + ИмяВремТаблицы;
		КонецЕсли;
 

Это функция класса ТОтчет.Запрос, отвечающая за построение фильтра по переданному значению.
Есть еще вторая функция, которая готовит фильтр char(13) - она немного сложнее, но принципиально ничем не отличается.

Таблицы деревьев появились относительно недавно, переписать под них фильтры - как-то пока даже надобности не возникало. Устраивает и то, как они сейчас работают.

С ДБФом прямыми запросами не приходилось, да.
Там нет возможности покрутить цикл прямо на драйвере?

Да это всё равно ему не нужно..
имхо

kiruha писал(а) 03. Декабря 2012 :: 08:09:


Ну дык.. не универсально как-то... особенно, через кучу лефт джоинов

Чорт , я слишком ленивый для этого , да и.. по 20000 элементов в список не укладываю, так что и с уложитьсписокОбъектов проблем и вылетов (и тормозов) замечено не было.

Полечили операционку на сервере: просто полностью переустановили.

Вылеты 1С++ остались, только теперь в системных сообщениях больше информации: сначала идет сообщение:

Faulting application 1cv7s.exe, version 7.70.0.27,
faulting module 1CPP.dll, version 3.2.3.20,
fault address 0x0001f845.
 

а следом:

The application, c:\program files\1cv77\bin\1cv7s.exe,
generated an application error
The error occurred on 12/05/2012 @ 14:33:50.423
The exception generated was c0000005 at address 2401F845
(1cpp!OleDb::CResultDirectAccessProxy::CResultDirectAccessProxy)
 

И в 90% вылетает как я и говорил на "УложитьСписокОбъектов".
Завтра буду испытывать свою функцию вместо "УложитьСписокОбъектов".
По результатам отпишусь.

Если есть какие мысли - буду рад...

Может быть дело в драйвере OLEDB FoxPro?
Что-то их много разных, толком не ясно какой лучше использовать:
1. Есть MSI-установщик драйвера
2. Есть отдельно DLL-ка вроде как из SP2
3. Есть та же DLL-ка, но модифицированная

Какой из них лучше использовать? И как убедиться что скачанный файл - это тот что мне нужен?

Похоже, что глючный драйвер OLEDB.

Сравнил папки C:\Program Files\Common Files\System\OleDB на локальном компьютере (здесь запросы работают нормально) и на сервере.
Оказалось файлы различаются!
Хотя устанавливал с одного и того же дистрибутива!
Дистрибутив VFPOLEDBSetup.msi как я понимаю содержит один файл vfpoledb.dll?
Как такое может быть?

Естественно, как и миллионы юзеров Fox - надо пользоваться последним с официального сайта Microsoft
Там два установщика - с визуальной формой установки(msi) и без, но содержание dll не отличается
Библиотека закрыта, поэтому о корректной правке речи не идет

В свое время Ужас правил dll чтобы пользоваться в модуле документа
Потом выяснилось, что просто по умолчанию Fox блокирует заголовки, и чтобы пользоваться в модуле документа - ничего править в dll не надо - а только в параметре подключения указать не блокировать. Ну или вызвать команду