Создание хранилища конфигурации

2025-12-22 15:56:55 +03:00
commit 45c3a63eeb
23547 changed files with 7002312 additions and 0 deletions
@@ -0,0 +1,57 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
+#Область НастройкиОтчетаПоУмолчанию
+
+//Выполняет заполнение категорий и разделов в зависимости от варианта отчета
+//Параметры:КлючВариантаОтчета - Строковое название варианта отчета
+//			СписокКатегорий - в список добавляются необходимые категории
+//			СписокРазделов - в список добавляются необходимые категории
+Процедура ЗаполнитьСписокКатегорийИРазделовОтчета(КлючВариантаОтчета, СписокКатегорий, СписокРазделов) Экспорт
+	
+	СписокРазделов.Добавить(ОбщегоНазначения.ИдентификаторОбъектаМетаданных(
+			Метаданные.Подсистемы.ДокументыИФайлы));
+			
+	Если КлючВариантаОтчета = "СписокЗаключенныхДоговоров" Тогда
+		
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.ПоДоговорам);
+		
+		СписокРазделов.Добавить(Перечисления.РазделыОтчетов.ДокументыПредприятияСписок);
+		
+	ИначеЕсли КлючВариантаОтчета = "ДоговорыСИстекающимСрокомДействия" Тогда
+		
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.ПоДоговорам);
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.КонтрольныеОтчеты);
+		
+		СписокРазделов.Добавить(Перечисления.РазделыОтчетов.ДокументыПредприятияСписок);
+		
+	ИначеЕсли КлючВариантаОтчета = "СопроводительныеДокументыПоДоговору" Тогда
+		
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.ПоДоговорам);
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.КонтрольныеОтчеты);
+		
+		СписокРазделов.Добавить(Перечисления.РазделыОтчетов.ДокументыПредприятияСписок);
+		
+	ИначеЕсли КлючВариантаОтчета = "ДинамикаКоличестваЗаключенныхДоговоров" Тогда
+		
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.ПоДоговорам);
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.Статистические);
+		
+	ИначеЕсли КлючВариантаОтчета = "ДинамикаСуммЗаключенныхДоговоров" Тогда
+		
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.ПоДоговорам);
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.Статистические);
+		
+	ИначеЕсли КлючВариантаОтчета = "РасторгнутыеДоговоры" Тогда
+		
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.ПоДоговорам);
+		СписокКатегорий.Добавить(Справочники.КатегорииОтчетов.КонтрольныеОтчеты);
+		
+		СписокРазделов.Добавить(Перечисления.РазделыОтчетов.ДокументыПредприятияСписок);
+		
+	КонецЕсли;
+		
+КонецПроцедуры
+
+#КонецОбласти
+
+#КонецЕсли