Функция ТЦВыполнить() Экспорт
#Если ТолстыйКлиентОбычноеПриложение Тогда
 Попытка
		Инструменты = КипВнешнийКомпонент.ПолучитьИнструменты();
		Для СЧ=1 По ТЦОбъект.ЧислоИтераций Цикл
	        ВремяНачала = КипВнешнийКомпонент.ЗначениеТаймера(Инструменты);
        	    Док = ТЦОбъект.СсылкаНаДокумент.Скопировать();
		    Док.Дата=ТекущаяДата();
	        Док.Записать  (РежимЗаписиДокумента.Проведение);
      	       ВремяОкончания = КипВнешнийКомпонент.ЗначениеТаймера(Инструменты);
	       ТЦЗаписатьПоказатель("Время сек.", (ВремяОкончания - ВремяНачала - ТЦОбъект.Пауза) /1000);
	       КонецЦикла;
 	Возврат ТЦРезультатВыполненияУспешно();
 Исключение
	     ТЦОбщий.ЗаписатьВЖурнал("Ошибка создания документа" + ОписаниеОшибки ());
          Возврат   ТЦРезультатВыполненияОшибка();
КонецПопытки;
	#Иначе
		// Код управляемого приложения
	#КонецЕсли
КонецФункции // ТЦВыполнить()