33.
dront_70
20.10.10 16:34
Сейчас в теме
А для чего вот это?
Процедура ОбработатьДвижения(ИмяРегистра,ВидРегистра,Периодический=Истина)
Запрос= Новый Запрос;
ТекстЗапроса =
"ВЫБРАТЬ
| БракВПроизводстве.Регистратор.Ссылка КАК Ссылка
|ИЗ
| РегистрНакопления.БракВПроизводстве КАК БракВПроизводстве
|ГДЕ
| БракВПроизводстве.Регистратор.Проведен = ЛОЖЬ
| И БракВПроизводстве.Период МЕЖДУ &ДатаНач И &ДатаКон";
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"БракВПроизводстве",ИмяРегистра);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"РегистрНакопления",ВидРегистра);
Если НЕ Периодический Тогда
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"Период","Регистратор.Дата");
КонецЕсли;
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("ДатаНач",ДатаНач);
Запрос.УстановитьПараметр("ДатаКон",ДатаКон);
ТаблицаРезультата = Запрос.Выполнить().Выгрузить();
Если ТаблицаРезультата.Количество() Тогда
ОбщегоНазначения.ЗагрузитьВТаблицуЗначений(ТаблицаРезультата,ТЗДокументы);
КонецЕсли;
КонецПроцедуры
А вызывается это так:
//Регистры накопления
Для каждого Регистр Из Метаданные.РегистрыНакопления Цикл
Состояние("Обрабатывается регистр накопления: "+Регистр.Имя);
ОбработатьДвижения(Регистр.Имя,"РегистрНакопления");
КонецЦикла;
//Регистры сведений
Для каждого Регистр Из Метаданные.РегистрыСведений Цикл
Если Регистр.РежимЗаписи = Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.ПодчинениеРегистратору Тогда
Состояние("Обрабатывается регистр сведений: "+Регистр.Имя);
Периодический = (Регистр.ПериодичностьРегистраСведений <> Метаданные.СвойстваОбъектов.ПериодичностьРегистраСведений.Непериодический);
ОбработатьДвижения(Регистр.Имя,"РегистрСведений",Периодический);
КонецЕсли;
КонецЦикла;
//Регистры бухгалтерии
Для каждого Регистр Из Метаданные.РегистрыБухгалтерии Цикл
Состояние("Обрабатывается регистр бухгалтерии: "+Регистр.Имя);
ОбработатьДвижения(Регистр.Имя,"РегистрБухгалтерии");
КонецЦикла;
Вроде в аннотации написано, что "Внешний отчет, обработка для 1С: Предприятие 8.1"