Код

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