Код

select
Док.Iddoc,$Док.Договор
from $Документ.РасходнаяНакладная Док
where $Док.Договор=:Договор    
 

Код

select
Отбор.CHILDID
from 1scrdoc Отбор
where
Отбор.MDID+Отбор.PARENTVAL+DTOS(Отбор.CHILDDATE)+Отбор.CHILDTIME+Отбор.CHILDID BETWEEN $ГрафаОтбора.Договор+'B1'+$ВидСправочника36.Договоры+:Договор+'"+Стр111+"' and $ГрафаОтбора.Договор+'B1'+$ВидСправочника36.Договоры+:Договор+'"+Стр222+"'

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

Код

select
Отбор.CHILDID
from 1scrdoc Отбор
where
Отбор.MDID+Отбор.PARENTVAL+DTOS(Отбор.CHILDDATE)+Отбор.CHILDTIME+Отбор.CHILDID BETWEEN ' CR5'+'B1  34   30HП					   ' and ' CR5'+'B1  34   30HП	    ZZZZZZZZZZZZZZZZZZZZZZZ'
 

Код

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();
	Сообщить("Количество запросов лайт = " + КолЗапросов);
	Сообщить("Время по лайт: "+(счеткон-счетнач) +
		" Количество доков с отгрузкой = " + КолДоковСОтгрузкойЛайт);
КонецПроцедуры

 

Код

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

Функция ФоксИнит()  
	ОлеДБ = СоздатьОбъект("OLEDBData");  
	Рез=ОлеДБ.Соединение("  
	|Provider=VFPOLEDB.1;  
	|Data Source=" + КаталогИБ() + ";  
	|Null = Yes;
	|Exclusive = No;
	|SourceType = DBF;
	|Mode=ReadWrite;  
	|ANSI= 0;
	|EXACT=0;
	|NEAR -1;  
	|REFRESH TO 0,-1;
	|REPROCESS TO 60 SECONDS;
	|TABLEVALIDATE 0;
    |Collating Sequence=MACHINE;
	|");
	ТекстПроцедурыОткрытия="
	|SET NEAR ON
	|USE 1SCRDOC IN 1 ALIAS OTBOR
	|USE 1SJOURN IN 2 ALIAS JUR
	|SELECT JUR
	|SET ORDER TO TAG IDDOC OF  '1SJOURN.CDX'
	|SELECT OTBOR
	|SET RELATION TO CHILDID INTO JUR
	|SET ORDER TO TAG PARENT OF  '1SCRDOC.CDX'
	|";
	ТекстПроцедурыПоиска="
	|LPARAMETERS dogovor,grapha,VIDRash
	|GO TOP IN OTBOR
	|IndexValue=grapha+dogovor
	|SEEK (IndexValue)
	|IF NOT FOUND()  THEN
	|	Return 0  
	|ENDIF    
	|KolDoc=0
	|DO WHILE  (OTBOR.MDID==grapha)AND(OTBOR.PARENTVAL==dogovor)
	|	IF(JUR.CLOSED==5)AND(JUR.IDDOCDEF==VIDRash)THEN
	|		KolDoc=KolDoc+1
	|      	RETURN KolDoc
	|        
	|	ENDIF
	|	SKIP 1
	|	IF EOF()OR BOF() THEN
	|		RETURN KolDoc
	|	ENDIF      
	|ENDDO
	|RETURN KolDoc
	|";  

    СоздатьПроцедуру(ТекстПроцедурыОткрытия,"OpenTabKolDoc");
    СоздатьПроцедуру(ТекстПроцедурыПоиска,"GetKolDoc");


	Возврат ОлеДБ
КонецФункции
//*******************************************
Процедура Сформировать()
     Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"1CPP.dll")=0 Тогда
	//	Если ЗагрузитьВнешнююКомпоненту("1CPP.dll")=0 Тогда
			Предупреждение("Не удалось обнаружить компоненту 1CPP.dll!",20);

			Возврат;
	//	КонецЕсли;
    КонецЕсли;

	глМД = СоздатьОбъект("MetaDataWork");

	ГрафаОтбораДоговор=глМД.ОбрМетаСКЛ("$ГрафаОтбора.Договор");
	ВидДокРасх=глМД.ОбрМетаСКЛ("$ВидДокумента.РасходнаяНакладная");
	ОлеДБ = ФоксИнит();  
    локОлеДБКоманда = ОлеДБ.СоздатьКоманду();
	локОлеДБКоманда.Выполнить("OpenTabKolDoc()");
	ТЗ=СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("return_value");

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

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

	КолЗапросов = 0;
	счетнач	= _GetPerformanceCounter();
	Для Номер = 1 По 1000 Цикл
		Док.ВыбратьДокументы();
		Пока Док.ПолучитьДокумент() = 1 цикл
			Если ПустоеЗначение(Док.Договор)=1 тогда продолжить КонецЕсли;
			  КолЗапросов=КолЗапросов+1;  
			  ДлинныйДоговор="'"+глМД.ЗначениеВСамуюДлиннуюСтрокуБД(Док.Договор)+"'";
			  ТЗ.УдалитьСтроки();
			 Договор+","+ВидДокРасх+")",ТЗ,0);
			  Кол=ТЗ.ПолучитьЗначение(1,"return_value");

			  КолДоковСОтгрузкойЛайт = КолДоковСОтгрузкойЛайт + Кол;

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