1С 7.x : Перебор документов, обработка и запись

 Процедура Сформировать()

ДокПрием = СоздатьОбъект("Документ.ПоступлениеТоваров");                          

ДокПрием.ВыбратьДокументы(НачДата, КонДата);

Пока ДокПрием.ПолучитьДокумент()=1 Цикл

	текдлина = СтрДлина(СокрЛП(ДокПрием.НомерСчетаФактуры));

	если текдлина>1 Тогда

		Сообщить("Уже заполнено - "+строка(текдлина)+" * "+ДокПрием.НомерСчетаФактуры);

	Иначе	

		ДатаСчФ = лев(ДокПрием.ДатаНомерСчетаФактуры,10);  

		ДатаСчетаФактуры =  Дата(Сред(ДатаСчФ,7,4),Сред(ДатаСчФ,4,2),Лев(ДатаСчФ,2)); //31.03.2015

		НомерСчетаФактуры = СокрЛП(Сред(ДокПрием.ДатаНомерСчетаФактуры, 11, 50));  

		ДокПрием.ДатаСчетаФактуры = ДатаСчетаФактуры;

		ДокПрием.НомерСчетаФактуры = НомерСчетаФактуры;

		ДокПрием.ДатаНомерСчетаФактуры = СокрЛП(НомерСчетаФактуры) + ";" + Формат(ДатаСчетаФактуры,"Д ДДММГГГГ");

		Сообщить(" - " +НомерСчетаФактуры+" / "+строка(ДатаСчетаФактуры));

		ДокПрием.Записать();  

	Конецесли;

КонецЦикла;

КонецПроцедуры