Перебор документов, обработка и запись В данном примере показано как в 7-ке выбрать документы поступления товаров за определенный период и обработать их, установив дату и номер счета-фактуры.
Код 1C v 7.x Процедура Сформировать() = СоздатьОбъект( "Документ.ПоступлениеТоваров" ) ;
ДокПрием. ВыбратьДокументы( НачДата, КонДата) ;
Пока ДокПрием. ПолучитьДокумент( ) = 1 Цикл
текдлина = СтрДлина( СокрЛП( ДокПрием. НомерСчетаФактуры) ) ;
если текдлина> 1 Тогда
Сообщить( "Уже заполнено - " + строка( текдлина) + " * " + ДокПрием. НомерСчетаФактуры) ;
Иначе
ДатаСчФ = лев( ДокПрием. ДатаНомерСчетаФактуры, 10 ) ;
ДатаСчетаФактуры = Дата( Сред( ДатаСчФ, 7 , 4 ) , Сред( ДатаСчФ, 4 , 2 ) , Лев( ДатаСчФ, 2 ) ) ;
НомерСчетаФактуры = СокрЛП( Сред( ДокПрием. ДатаНомерСчетаФактуры, 11 , 50 ) ) ;
ДокПрием. ДатаСчетаФактуры = ДатаСчетаФактуры;
ДокПрием. НомерСчетаФактуры = НомерСчетаФактуры;
ДокПрием. ДатаНомерСчетаФактуры = СокрЛП( НомерСчетаФактуры) + ";" + Формат( ДатаСчетаФактуры, "Д ДДММГГГГ" ) ;
Сообщить( " - " + НомерСчетаФактуры+ " / " + строка( ДатаСчетаФактуры) ) ;
ДокПрием. Записать( ) ;
Конецесли ;
КонецЦикла ;
КонецПроцедуры
Категория:
Документы 
