Код

where
Отбор.MDID+Отбор.PARENTVAL+DTOS(Отбор.CHILDDATE)+Отбор.CHILDTIME BETWEEN
    $ГрафаОтбора.Договор+:ДлинныйДоговор+'"+_Стр111+"'
and $ГрафаОтбора.Договор+:ДлинныйДоговор+'"+_Стр222+"'


где
_Стр111=Формат("","с14");
_Стр222=СтрЗаменить(_Стр111," ","Z");

 

Код

where
Отбор.MDID+Отбор.PARENTVAL+DTOS(Отбор.CHILDDATE)+Отбор.CHILDTIME+Отбор.CHILDID BETWEEN
    $ГрафаОтбора.Договор+:ДлинныйДоговор+'"+_Стр111+"'
and $ГрафаОтбора.Договор+:ДлинныйДоговор+'"+_Стр222+"'


где
_Стр111=Формат("","с23");
_Стр222=СтрЗаменить(_Стр111," ","Z");

 

Код

where
Отбор.MDID+Отбор.PARENTVAL+DTOS(Отбор.CHILDDATE)+Отбор.CHILDTIME+Отбор.CHILDID =
    $ГрафаОтбора.Договор+:ДлинныйДоговор 

Код

ОлеДБКоманда.Выполнить("EXEC('SET ANSI OFF')");
 

Код

Функция ЕстьОтгрузка()


	Если ПустоеЗначение(ТекущийДокумент)=1 тогда возврат "" КонецЕсли;
	Если ПустоеЗначение(ТекущийДокумент.Договор)=1 тогда возврат "" КонецЕсли;


	ДокОбщ.ВыбратьПоЗначению(,,"Договор",ТекущийДокумент.Договор);
	Пока ДокОбщ.ПолучитьДокумент()=1 цикл
		Если ДокОбщ.Проведен()=0 тогда
		ИначеЕсли ДокОбщ.Вид()="РасходнаяНакладная" тогда
			возврат 1;

		КонецЕсли;
	КонецЦикла;
	возврат 0;

КонецФункции
 

Код

Функция лайтИнит()
	ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
	база = СоздатьОбъект("SQLiteBase");
	база.Открыть(":memory:");
	запросПоДоговорамРН = база.НовыйЗапрос();
	запросПоДоговорамРН.Подготовить("
	|select exists(
	|	select *
	|	from __1S_crdoc cr inner join Журнал Ж on cr.childid = Ж.iddoc
	|	where cr.mdid = :ГрафаОтбора.Договор and cr.parentval = @Договор
	|	and Ж.iddocdef = :ВидДокумента.РасходнаяНакладная and Ж.closed > 0
	|) [ЕстьОтгрузки :Число.1.0]
	|");
	Возврат запросПоДоговорамРН;
КонецФункции	// лайтИнит

Процедура Сформировать()
	ЗапросЛайт = лайтИнит();
	Док = СоздатьОбъект("Документ.Счет");
	КолДоковСОтгрузкой1С = 0;
	КолДоковСОтгрузкойЛайт = 0;
	КолЗапросов = 0;
	ДокОбщ = СоздатьОбъект("Документ");

	счетнач	= _GetPerformanceCounter();
	Док.ВыбратьДокументы();
	Пока Док.ПолучитьДокумент()=1 цикл
		Если ПустоеЗначение(Док.Договор)=1 тогда продолжить КонецЕсли;
		КолЗапросов=КолЗапросов+1;
		ДокОбщ.ВыбратьПоЗначению(,,"Договор",Док.Договор);
		Пока ДокОбщ.ПолучитьДокумент()=1 цикл
			Если ДокОбщ.Проведен()=0 тогда
			ИначеЕсли ДокОбщ.Вид()="РасходнаяНакладная" тогда
				КолДоковСОтгрузкой1С = КолДоковСОтгрузкой1С + 1;
				Прервать;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	счеткон=_GetPerformanceCounter();
	Сообщить("Количество запросов 1С = " + КолЗапросов);
	Сообщить("Время по ВыбратьПоЗначению: "+(счеткон-счетнач) +
		" Количество доков с отгрузкой = " + КолДоковСОтгрузкой1С);

	КолЗапросов = 0;
	счетнач	= _GetPerformanceCounter();
	Док.ВыбратьДокументы();
	Пока Док.ПолучитьДокумент() = 1 цикл
		Если ПустоеЗначение(Док.Договор)=1 тогда продолжить КонецЕсли;
		КолЗапросов=КолЗапросов+1;
		ЗапросЛайт.УстановитьПараметр("@Договор", Док.Договор, -1);
		КолДоковСОтгрузкойЛайт = КолДоковСОтгрузкойЛайт + ЗапросЛайт.Выполнить(0);
	КонецЦикла;
	счеткон=_GetPerformanceCounter();
	Сообщить("Количество запросов лайт = " + КолЗапросов);
	Сообщить("Время по лайт: "+(счеткон-счетнач) +
		" Количество доков с отгрузкой = " + КолДоковСОтгрузкойЛайт);
КонецПроцедуры