1 |
ЗначениеЗаполнено(Получатель.ДатаРождения) Тогда ДатаТекущегоГода = Дата(Год(мТекущаяДата), Месяц(Получатель.ДатаРождения),День(Получатель.ДатаРождения)); ДатаПредыдущегоГода = ДобавитьМесяц(ДатаТекущегоГода,-12); |
2 |
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ " + Сред(СтрокиЗапроса, 2) + " ИЗ Документ." + ДокументОбъектМетаданные.Имя + " КАК Док "+ ТаблицыЗапроса + Символы.ПС + " ГДЕ Док.Ссылка = &ДокументСсылка"; Запрос.УстановитьПараметр("ДокументСсылка" , ДокументОбъект.Ссылка); Запрос.УстановитьПараметр("ДатаДокумента" , ?(ОбщегоНазначения.ЕстьРеквизитДокумента("ПериодРегистрации", ДокументОбъектМетаданные), КонецМесяца(ДокументОбъект.ПериодРегистрации), ДокументОбъект.Дата)); |
3 |
Если ИмяТабличнойЧасти = "Товары" И (ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.РеализацияТоваров") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.ВозвратТоваровПоставщику") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.СписаниеТоваров")) Тогда РазрешитьНулевыеСуммыИЦены = Ложь; Если ТипСклада = Перечисления.ТипыСкладов.ТорговыйЗал Тогда РазрешитьНулевыеСуммыИЦены = УправлениеПользователями.РазрешитьНулевыеЦеныДляТорговогоЗала(); Иначе РазрешитьНулевыеСуммыИЦены = УправлениеПользователями.РазрешитьНулевыеЦеныДляСкладов(); КонецЕсли; |
4 |
Если Не ВозвращатьОстатки И Не ВозвращатьЦены Тогда Возврат Новый ТаблицаЗначений; КонецЕсли; Если Магазин = Неопределено Тогда Магазин = ПараметрыСеанса.ТекущийМагазин; Если Магазин = Неопределено Тогда Возврат Новый ТаблицаЗначений; КонецЕсли; КонецЕсли; Запрос = Новый Запрос; |
5 |
ЕстьОтбор = Конт.ПолучитьОтбор(Отбор, ЗначениеОтбора); НачДата = Конт.НачалоИнтервала(); КонДата = Конт.КонецИнтервала(); Расшифровка = СоздатьОбъект("СписокЗначений"); Расшифровка.Установить("Отчет","ОбработкаДокументов"); Расшифровка.Установить("Дата1", НачДата); Расшифровка.Установить("Дата2", КонДата); Расшифровка.Установить("ВыбрКонтрагент", ПолучитьПустоеЗначение("Справочник.Контрагенты")); Расшифровка.Установить("ВыбрСтрока", ""); Расшифровка.Установить("ВыбрСтрокаКом", ""); Расшифровка.Установить("Признак", "Все"); Расшифровка.Установить("ВидОбработки", "Печать") |
Комментарии