Ты побольше потесть, на разных данных, разных периодических реквизитов. (что-то у меня сомнения по этому поводу, мне кажется, что не те данные в результат попадают, но могу и ошибаться)
О результатах сообщи!  

Угу. Исправил. Спасибо.

PVR писал(а) 25. Июля 2008 :: 05:52:

Пока залил туда же (во второй пост этой ветки). Мне сейчас не очень нравится его реализация. + хочу сделать ВТОборотыРегистара и ВТОстаткиИОбороты.
Да и с 1sqlite есть одна большая проблема, ждём Сашу Орефкова с нетерпением.

JohnyDeath писал(а) 24. Июля 2008 :: 12:04:


Предварительные результаты.
1. Объект тестирования - значения периодического реквизита "Курс" всех элементов справочника "Валюты". В справочнике 5 валют, одна из них - национальная (на тест не повлияла), из остальных четырех по одной (Евро) курс имеется на каждый рабочий день в течение 4 лет, по остальным заполнение от 1 до 10 значений в месяц.
2. Тесты Было выполнено 3 теста, результат сравнивался с образцом - ТекЭлемент.Курс.Получить(ТекДата). Тесты различаются условиями отбора по дате периодического значения -
1.

WHERE objid=спр.id AND id='   E' AND date<= '"+ДатаСтр+"' 

2.

WHERE objid=спр.id AND id='   E' AND (date< '"+ДатаСтр+"' OR date= '"+ДатаСтр+"')  

3.

WHERE idx_ID_OBJID_DATE_TIME_DOCID_PARTNO <
	|('   E' || спр.id || '"+ДатаСтр+"Я') 

3. Результаты теста.
Сражу скажу, что второй тест выдал полное совпадение по всей выборке (отдельный респект Chieftain  )
Первый тест выдавал расхождения на датах, у которых день заказчивался на 9 - 9, 19 и 29 числа месяца. Причем влияет только число - 9-ка в месяце (сентябрь) не добавила расхождений.
Третий тест выдал расхождения по всем валютам, кроме национальной и Евро, причем возвращались значения, относящиеся к курсам других валют  . Скорей всего причина в том, что в 3-м тесте ключ сравнения составной, т.е. выполнение условия происходит на значениях валюты с меньшим внутренним идентификатором (национальная валюта и евро имеют наименьшие идентификаторы).

Вот такие результаты. Имеет смысл дальше тестировать?

JohnyDeath писал(а) 22. Июля 2008 :: 12:37:

Как продвигаются дела с классом?

Поздравляю 

По поводу ПоследнегоЗначения.
Проводил такой тест:

Процедура Тест()
	Попытка
		база = СоздатьОбъект("SQLiteBase");
	Исключение
		ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
		база = СоздатьОбъект("SQLiteBase");
	КонецПопытки;
	база.Открыть(":memory:");
	спр = СоздатьОбъект("Справочник.Цены");
	запрос = база.НовыйЗапрос();
	запрос.Подготовить("select
	|cast(value as numeric) [Цена :Число.15.2]
	|from __1S_Const
	|where
	|objid = @Элемент
	|and id = :ИсторияРеквизита.Цены.Цена
	|and date <= @Дата
	|order by date desc
	|limit 1");

	к = 0;

	Для Номер = 0 По 4 Цикл
		д = '28.03.2006' + Номер;
		Сообщить(д);
		спр.ВыбратьЭлементы(0);
		Пока спр.ПолучитьЭлемент() = 1 Цикл
			к = к + 1;
			Цена1С = спр.ТекущийЭлемент().Цена.Получить(д);
			запрос.УстановитьПараметр("@Элемент", спр.ТекущийЭлемент());
			запрос.УстановитьПараметр("@Дата", д);
			Попытка
				ЦенаЗп = запрос.Выполнить().ПолучитьЗначение(1, 1);
			Исключение
				ЦенаЗп = 0;
			КонецПопытки;
			Если Цена1С <> ЦенаЗп Тогда
				Сообщить("" + д + " " + спр.Владелец + " " + спр.КатегорияЦены + " " + Цена1С + " " + ЦенаЗп);
				Возврат;;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	Сообщить("Все " + к);
КонецПроцедуры	// Тест
 

Результат запуска:

28.03.06
29.03.06
30.03.06
31.03.06
01.04.06
Все 113160
 

То есть расхождений с 1С не было.

Можно узнать более подробно, на которой версии 1sqlite проводились тесты и сам код теста?