1C 8 бесконечный цикл

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

         КонецЦикла;
	Сообщить("ГОТОВО!");