diff --git a/extension/src/ChartsOfCharacteristicTypes/ПС_ВидыНастроек.xml b/extension/src/ChartsOfCharacteristicTypes/ПС_ВидыНастроек.xml new file mode 100644 index 0000000..e039c86 --- /dev/null +++ b/extension/src/ChartsOfCharacteristicTypes/ПС_ВидыНастроек.xml @@ -0,0 +1,158 @@ + + + + + + 8d5a99cd-d7ca-445d-a8e9-e7fd2ee4eda9 + 5b6c191f-635e-47bf-988d-6b89e02c21df + + + 67eaa487-1ab2-4c5d-9b69-307a0c5807e2 + c0478010-5618-402d-bcc5-3efdf575661d + + + 51e77e14-cd35-4b1c-96f5-2f423fe9205b + af42f2bb-5094-4fb3-a086-8572e9c4c357 + + + a513673c-c4bf-4fc1-9600-7b2b0b721003 + 23416a9b-3280-49f3-a37d-8d656406377f + + + 6856a5fc-5441-43d7-b052-1b37118f639e + 3ee47073-477d-4353-a355-740914fa9603 + + + c8e5c8c4-f917-488b-a662-fd90197bcbda + 0b101c09-1ca3-4f6c-bda0-c14f60f2b0c7 + + + + ПС_ВидыНастроек + + + ru + Виды настроек + + + + true + false + + + xs:boolean + xs:string + xs:dateTime + xs:decimal + + 10 + 0 + Any + + + 250 + Variable + + + DateTime + + + true + true + 9 + Variable + 100 + WholeCharacteristicKind + true + true + AsDescription + + Auto + InDialog + false + BothWays + + ChartOfCharacteristicTypes.ПС_ВидыНастроек.StandardAttribute.Description + ChartOfCharacteristicTypes.ПС_ВидыНастроек.StandardAttribute.Code + + DontUse + Begin + Directly + DontUse + Auto + + + + + + + + + + + + + Managed + Use + + + + + ru + Редактирование настроек + + + + + DontUse + false + false + + + + + Имя + + + ru + Наименование для разработчиков + + + + + xs:string + + 50 + Variable + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + Index + ForItem + Use + Use + + + + + \ No newline at end of file diff --git a/extension/src/CommonModules/ПС_РаботаСНастройками.xml b/extension/src/CommonModules/ПС_РаботаСНастройками.xml new file mode 100644 index 0000000..1988c34 --- /dev/null +++ b/extension/src/CommonModules/ПС_РаботаСНастройками.xml @@ -0,0 +1,23 @@ + + + + + ПС_РаботаСНастройками + + + ru + Работа с настройками + + + + false + false + true + false + false + false + false + DontUse + + + \ No newline at end of file diff --git a/extension/src/CommonModules/ПС_РаботаСНастройками/Ext/Module.bsl b/extension/src/CommonModules/ПС_РаботаСНастройками/Ext/Module.bsl index a0809b3..8d7ed0c 100755 --- a/extension/src/CommonModules/ПС_РаботаСНастройками/Ext/Module.bsl +++ b/extension/src/CommonModules/ПС_РаботаСНастройками/Ext/Module.bsl @@ -1,551 +1,551 @@ -Функция ТекущееЗначениеНастройки(Настройка) Экспорт - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ТекущаяДата(), Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; -КонецФункции // ЗначениеНастройки(Настройка) - -Функция ТекущееЗначениеНастройкиПоИмени(Имя) Экспорт - Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); - Если Настройка.Пустая() Тогда - Возврат Неопределено - Иначе - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ТекущаяДата(), Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; - КонецЕсли; -КонецФункции // ЗначениеНастройки(Настройка) - -Функция ЗаписатьТекущееЗначениеНастройкиПоИмени(Имя,Значение) Экспорт - РезультатЗаписи = Истина; - Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); - Если Настройка.Пустая() Тогда - РезультатЗаписи = Ложь; - Иначе - Попытка - ДанныеНастроек = РегистрыСведений.ПС_Настройки.СоздатьМенеджерЗаписи(); - ДанныеНастроек.ВидНастройки = Настройка; - ДанныеНастроек.Период = ТекущаяДата(); - ДанныеНастроек.ЗначениеНастройки = Значение; - ДанныеНастроек.Записать(); - Исключение - РезультатЗаписи = Ложь; - КонецПопытки; - КонецЕсли; - Возврат РезультатЗаписи; -КонецФункции // ЗначениеНастройки(Настройка) - -Функция ЗначениеНастройкиНаДату(Настройка, Дата) Экспорт - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(Дата, Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; -КонецФункции // ЗначениеНастройкиНаДату(Настройка) - -Функция ЗначениеНастройкиПоИмениНаДату(Имя, Дата) Экспорт - Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(Дата, Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; -КонецФункции // ЗначениеНастройкиНаДату(Настройка) - -Функция ЗаписатьТекущееЗначениеНастройкиПоИмениНаДату(Имя,Значение,Дата) Экспорт - РезультатЗаписи = Истина; - Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); - Если Настройка.Пустая() Тогда - РезультатЗаписи = Ложь; - Иначе - Попытка - ДанныеНастроек = РегистрыСведений.ПС_Настройки.СоздатьМенеджерЗаписи(); - ДанныеНастроек.ВидНастройки = Настройка; - ДанныеНастроек.Период = Дата; - ДанныеНастроек.ЗначениеНастройки = Значение; - ДанныеНастроек.Записать(); - Исключение - РезультатЗаписи = Ложь; - КонецПопытки; - КонецЕсли; - Возврат РезультатЗаписи; -КонецФункции // ЗначениеНастройки(Настройка) - -Функция ДатаЗапретаРедактированияДанныхСервиса(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ДатаЗапретаРедактированияДанныхСервиса); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ОрганизацияПоУмолчанию(Дата = Неопределено) - -Функция ДатаВРазрешенномПериодеРедактирования(ПроверяемаяДата) Экспорт - Возврат НачалоДня(ПроверяемаяДата) > НачалоДня(ДатаЗапретаРедактированияДанныхСервиса(ТекущаяДата())); -КонецФункции // ДатаВЗапрещенномПериодеРедактирования() - - -Функция ОсновнаяОрганизация(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ОсновнаяОрганизация); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ОрганизацияПоУмолчанию(Дата = Неопределено) - -Функция ОсновнойСкладРасходныхМатериалов(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.СкладРасходныхМатериалов); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ОрганизацияПоУмолчанию(Дата = Неопределено) - -Функция НоменклатурнаяГруппаДляОбслуживанияПКИОргтехники(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляОбслуживанияПКИОргтехники); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияПКИОргтехники(Дата = Неопределено) - -Функция ВидРаботПоЗаправкеКартриджа(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ВидРаботПоЗаправкеКартриджа); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - -#Область НоменклатурныеГруппыОбслуживанияФизическихЛиц -Функция НоменклатурнаяГруппаДляРаботПоКартриджуФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКартриджуФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоТехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоТехникеФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоМонтажуЛВСФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуЛВСФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоКурсамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКурсамФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляВыездныхРаботПо1СФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПо1СФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехникеФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоРазработкеСайтаФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоРазработкеСайтаФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоПрочимРаботамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоПрочимРаботамФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - -#КонецОбласти - -#Область НоменклатурныеГруппыОбслуживания -Функция НоменклатурнаяГруппаДляРаботПоКартриджу(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКартриджу); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоТехнике(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоТехнике); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоМонтажуЛВС(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуЛВС); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюдения(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюдения); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоКурсам(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКурсам); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляВыездныхРаботПо1С(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПо1С); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехнике(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехнике); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоРазработкеСайта(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоРазработкеСайта); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция НоменклатурнаяГруппаДляРаботПоПрочимРаботам(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоПрочимРаботам); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) - -#КонецОбласти - -#Область ТарифныеПланыОбслуживанияФизическихЛиц -Функция ТарифныйПланДляРаботПоКартриджуФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоКартриджуФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляРаботПоТехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоТехникеФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляРаботПоМонтажуЛВСФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоМонтажуЛВСФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляРаботПоКурсамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоКурсамФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляВыездныхРаботПо1СФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляВыездныхРаботПо1СФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляВыездныхРаботПоПКиОргтехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляВыездныхРаботПоПКиОргтехникеФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляРаботПоРазработкеСайтаФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоРазработкеСайтаФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - - -Функция ТарифныйПланДляРаботПоПрочимРаботамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоПрочимРаботамФизическихЛиц); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) - -#КонецОбласти - -Функция НачалоРабочегоДня(ДатаПолученияНастройки = Неопределено) Экспорт - НастройкаПолученияЧаса = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ЧасНачалаРабочегоДня); - НастройкаПолученияМинуты = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.МинутаНачалаРабочегоДня); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Час = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияЧаса).ЗначениеНастройки; - Если Час = Неопределено Тогда - Час = 0; - КонецЕсли; - Минута = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияМинуты).ЗначениеНастройки; - Если Минута = Неопределено Тогда - Минута = 0; - КонецЕсли; - Возврат Дата(1,1,1,Час,Минута,0); -КонецФункции //НачалоРабочегоДня(ДатаПолученияНастройки = Неопределено) - -Функция ОкончаниеРабочегоДня(ДатаПолученияНастройки = Неопределено) Экспорт - НастройкаПолученияЧаса = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ЧасОкончанияРабочегоДня); - НастройкаПолученияМинуты = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.МинутаОкончанияРабочегоДня); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Час = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияЧаса).ЗначениеНастройки; - Если Час = Неопределено Тогда - Час = 23; - КонецЕсли; - Минута = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияМинуты).ЗначениеНастройки; - Если Минута = Неопределено Тогда - Минута = 59; - КонецЕсли; - Возврат Дата(1,1,1,Час,Минута,0); -КонецФункции //ОкончаниеРабочегоДня(ДатаПолученияНастройки = Неопределено) - -Функция ПрефиксQRКодирования(ДатаПолученияНастройки = Неопределено) Экспорт - НастройкаПолученияПрефикса = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ПрефиксQRКодирования); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Префикс = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияПрефикса).ЗначениеНастройки; - Если Префикс = Неопределено Тогда - Префикс = ""; - КонецЕсли; - Возврат Префикс; -КонецФункции //ПрефиксQRКодирования(ДатаПолученияНастройки = Неопределено) - -Функция КомментироватьСобытия(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.КомментироватьСобытия); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Результат = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; - Если Результат = Неопределено Тогда - Результат = Ложь; - КонецЕсли; - Возврат Результат; -КонецФункции //КомментироватьСобытия(ДатаПолученияНастройки = Неопределено) - -Процедура СообщитьОСобытии(СообщениеОСобытии,Ссылка = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.КомментироватьСобытия); - ДатаПолученияНастройки = ТекущаяДата(); - КомментироватьСобытия = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; - Если КомментироватьСобытия = Неопределено Тогда - КомментироватьСобытия = Ложь; - КонецЕсли; - Если КомментироватьСобытия Тогда - Сообщение = Новый СообщениеПользователю; - Сообщение.Текст = Строка(СообщениеОСобытии); - Если Ссылка <> Неопределено Тогда - Если ЗначениеЗаполнено(Ссылка) Тогда - Сообщение.КлючДанных = Ссылка; - КонецЕсли; - КонецЕсли; - Сообщение.Сообщить(); - КонецЕсли; - Попытка - ЗаголовокСообщения = "ПС. " + ПараметрыСеанса.ПС_ВерсияРасширения + ". Диагностическое сообщение."; - Исключение - ЗаголовокСообщения = "ПС. Диагностическое сообщение."; - КонецПопытки; - ЗаписьЖурналаРегистрации(ЗаголовокСообщения,,,Ссылка,СообщениеОСобытии); -КонецПроцедуры //СообщитьОСобытии(СообщениеОСобытии) - -Функция НомерМесяца(ПереданныйМесяц) - ВозвращаемыйНомер = 0; - Если ТипЗнч(ПереданныйМесяц) = ТипЗнч(Перечисления.ПС_Месяцы.Январь) Тогда - Если ПереданныйМесяц = Перечисления.ПС_Месяцы.Январь Тогда - ВозвращаемыйНомер = 1; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Февраль Тогда - ВозвращаемыйНомер = 2; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Март Тогда - ВозвращаемыйНомер = 3; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Апрель Тогда - ВозвращаемыйНомер = 4; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Май Тогда - ВозвращаемыйНомер = 5; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Июнь Тогда - ВозвращаемыйНомер = 6; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Июль Тогда - ВозвращаемыйНомер = 7; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Август Тогда - ВозвращаемыйНомер = 8; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Сентябрь Тогда - ВозвращаемыйНомер = 9; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Октябрь Тогда - ВозвращаемыйНомер = 10; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Ноябрь Тогда - ВозвращаемыйНомер = 11; - ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Декабрь Тогда - ВозвращаемыйНомер = 12; - КонецЕсли; - КонецЕсли; - Возврат ВозвращаемыйНомер; -КонецФункции // НомерМесяца() - -Функция ПериодОбслуживаняВСтандартныйПериод(МесяцОбслуживания,ГодОбслуживания) Экспорт - ВозвращаемыйСтандартныйПериод = Новый СтандартныйПериод; - ВозвращаемыйСтандартныйПериод.ДатаНачала = Дата(1,1,1,0,0,0); - ВозвращаемыйСтандартныйПериод.ДатаОкончания = Дата(1,1,1,0,0,0); - НомерМесяцаОбслуживания = НомерМесяца(МесяцОбслуживания); - Если НомерМесяцаОбслуживания > 0 Тогда - Попытка - ВозвращаемыйСтандартныйПериод.ДатаНачала = Дата(ГодОбслуживания,НомерМесяцаОбслуживания,1,0,0,0); - ВозвращаемыйСтандартныйПериод.ДатаОкончания = КонецМесяца(ВозвращаемыйСтандартныйПериод.ДатаНачала); - Исключение - КонецПопытки; - КонецЕсли; - Возврат ВозвращаемыйСтандартныйПериод; -КонецФункции - - -Функция МесяцПоНомеру(ПереданныйНомер) - ВозвращаемыйМесяц = 0; - Если ТипЗнч(ПереданныйНомер) = ТипЗнч(1) Тогда - Если ПереданныйНомер = 1 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Январь; - ИначеЕсли ПереданныйНомер = 2 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Февраль; - ИначеЕсли ПереданныйНомер = 3 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Март; - ИначеЕсли ПереданныйНомер = 4 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Апрель; - ИначеЕсли ПереданныйНомер = 5 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Май; - ИначеЕсли ПереданныйНомер = 6 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Июнь; - ИначеЕсли ПереданныйНомер = 7 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Июль; - ИначеЕсли ПереданныйНомер = 8 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Август; - ИначеЕсли ПереданныйНомер = 9 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Сентябрь; - ИначеЕсли ПереданныйНомер = 10 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Октябрь; - ИначеЕсли ПереданныйНомер = 11 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Ноябрь; - ИначеЕсли ПереданныйНомер = 12 Тогда - ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Декабрь; - КонецЕсли; - КонецЕсли; - Возврат ВозвращаемыйМесяц; -КонецФункции // НомерМесяца() - - -Функция ДатаОбслуживанияВПериодОбслуживаня(ДатаОбслуживания) Экспорт - ВозвращаемыйПериодОбслуживания = Новый Структура("МесяцОбслуживания,ГодОбслуживания"); - Попытка - ВозвращаемыйПериодОбслуживания.МесяцОбслуживания = МесяцПоНомеру(Месяц(ДатаОбслуживания)); - ВозвращаемыйПериодОбслуживания.ГодОбслуживания = Год(ДатаОбслуживания); - Исключение - КонецПопытки; - Возврат ВозвращаемыйПериодОбслуживания; -КонецФункции - -Функция МаксимальноеКоличествоЧасовНепрерывнойДистанционнойРаботы(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.МаксимальноеКоличествоЧасовНепрерывнойДистанционнойРаботы); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //МаксимальноеКоличествоЧасовНепрерывнойДистанционнойРаботы(Дата = Неопределено) - -Функция ПутьКПапкеСФайломСтатистикиОбращенийУдаленногоОбслуживания(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ПутьКПапкеСФайломСтатистикиОбращенийУдаленногоОбслуживания); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ПутьКПапкеСФайломСтатистикиОбращенийУдаленногоОбслуживания(Дата = Неопределено) - -Функция ПутьКПапкеСФайломСтатистикиСеансовУдаленногоДоступа(ДатаПолученияНастройки = Неопределено) Экспорт - Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ПутьКПапкеСФайломСтатистикиСеансовУдаленногоДоступа); - Если ДатаПолученияНастройки = Неопределено Тогда - ДатаПолученияНастройки = ТекущаяДата() - КонецЕсли; - Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; -КонецФункции //ПутьКПапкеСФайломСтатистикиСеансовУдаленногоДоступа(Дата = Неопределено) +Функция ТекущееЗначениеНастройки(Настройка) Экспорт + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ТекущаяДата(), Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; +КонецФункции // ЗначениеНастройки(Настройка) + +Функция ТекущееЗначениеНастройкиПоИмени(Имя) Экспорт + Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); + Если Настройка.Пустая() Тогда + Возврат Неопределено + Иначе + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ТекущаяДата(), Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; + КонецЕсли; +КонецФункции // ЗначениеНастройки(Настройка) + +Функция ЗаписатьТекущееЗначениеНастройкиПоИмени(Имя,Значение) Экспорт + РезультатЗаписи = Истина; + Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); + Если Настройка.Пустая() Тогда + РезультатЗаписи = Ложь; + Иначе + Попытка + ДанныеНастроек = РегистрыСведений.ПС_Настройки.СоздатьМенеджерЗаписи(); + ДанныеНастроек.ВидНастройки = Настройка; + ДанныеНастроек.Период = ТекущаяДата(); + ДанныеНастроек.ЗначениеНастройки = Значение; + ДанныеНастроек.Записать(); + Исключение + РезультатЗаписи = Ложь; + КонецПопытки; + КонецЕсли; + Возврат РезультатЗаписи; +КонецФункции // ЗначениеНастройки(Настройка) + +Функция ЗначениеНастройкиНаДату(Настройка, Дата) Экспорт + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(Дата, Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; +КонецФункции // ЗначениеНастройкиНаДату(Настройка) + +Функция ЗначениеНастройкиПоИмениНаДату(Имя, Дата) Экспорт + Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(Дата, Новый Структура("ВидНастройки",Настройка)).ЗначениеНастройки; +КонецФункции // ЗначениеНастройкиНаДату(Настройка) + +Функция ЗаписатьТекущееЗначениеНастройкиПоИмениНаДату(Имя,Значение,Дата) Экспорт + РезультатЗаписи = Истина; + Настройка = ПланыВидовХарактеристик.ПС_ВидыНастроек.НайтиПоРеквизиту("Имя",Имя); + Если Настройка.Пустая() Тогда + РезультатЗаписи = Ложь; + Иначе + Попытка + ДанныеНастроек = РегистрыСведений.ПС_Настройки.СоздатьМенеджерЗаписи(); + ДанныеНастроек.ВидНастройки = Настройка; + ДанныеНастроек.Период = Дата; + ДанныеНастроек.ЗначениеНастройки = Значение; + ДанныеНастроек.Записать(); + Исключение + РезультатЗаписи = Ложь; + КонецПопытки; + КонецЕсли; + Возврат РезультатЗаписи; +КонецФункции // ЗначениеНастройки(Настройка) + +Функция ДатаЗапретаРедактированияДанныхСервиса(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ДатаЗапретаРедактированияДанныхСервиса); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ОрганизацияПоУмолчанию(Дата = Неопределено) + +Функция ДатаВРазрешенномПериодеРедактирования(ПроверяемаяДата) Экспорт + Возврат НачалоДня(ПроверяемаяДата) > НачалоДня(ДатаЗапретаРедактированияДанныхСервиса(ТекущаяДата())); +КонецФункции // ДатаВЗапрещенномПериодеРедактирования() + + +Функция ОсновнаяОрганизация(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ОсновнаяОрганизация); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ОрганизацияПоУмолчанию(Дата = Неопределено) + +Функция ОсновнойСкладРасходныхМатериалов(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.СкладРасходныхМатериалов); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ОрганизацияПоУмолчанию(Дата = Неопределено) + +Функция НоменклатурнаяГруппаДляОбслуживанияПКИОргтехники(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляОбслуживанияПКИОргтехники); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияПКИОргтехники(Дата = Неопределено) + +Функция ВидРаботПоЗаправкеКартриджа(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ВидРаботПоЗаправкеКартриджа); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + +#Область НоменклатурныеГруппыОбслуживанияФизическихЛиц +Функция НоменклатурнаяГруппаДляРаботПоКартриджуФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКартриджуФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоТехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоТехникеФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоМонтажуЛВСФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуЛВСФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоКурсамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКурсамФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляВыездныхРаботПо1СФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПо1СФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехникеФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоРазработкеСайтаФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоРазработкеСайтаФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоПрочимРаботамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоПрочимРаботамФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + +#КонецОбласти + +#Область НоменклатурныеГруппыОбслуживания +Функция НоменклатурнаяГруппаДляРаботПоКартриджу(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКартриджу); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоТехнике(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоТехнике); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоМонтажуЛВС(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуЛВС); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюдения(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоМонтажуСистемыВидеонаблюдения); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоКурсам(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоКурсам); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляВыездныхРаботПо1С(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПо1С); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехнике(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляВыездныхРаботПоПКиОргтехнике); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоРазработкеСайта(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоРазработкеСайта); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция НоменклатурнаяГруппаДляРаботПоПрочимРаботам(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.НоменклатурнаяГруппаДляРаботПоПрочимРаботам); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //НоменклатурнаяГруппаДляОбслуживанияФизическихЛиц(Дата = Неопределено) + +#КонецОбласти + +#Область ТарифныеПланыОбслуживанияФизическихЛиц +Функция ТарифныйПланДляРаботПоКартриджуФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоКартриджуФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляРаботПоТехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоТехникеФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляРаботПоМонтажуЛВСФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоМонтажуЛВСФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоМонтажуСистемыВидеонаблюденияФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляРаботПоКурсамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоКурсамФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляВыездныхРаботПо1СФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляВыездныхРаботПо1СФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляВыездныхРаботПоПКиОргтехникеФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляВыездныхРаботПоПКиОргтехникеФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляРаботПоРазработкеСайтаФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоРазработкеСайтаФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + + +Функция ТарифныйПланДляРаботПоПрочимРаботамФизическихЛиц(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ТарифныйПланДляРаботПоПрочимРаботамФизическихЛиц); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ТарифныйПланДляОбслуживанияФизическихЛиц(Дата = Неопределено) + +#КонецОбласти + +Функция НачалоРабочегоДня(ДатаПолученияНастройки = Неопределено) Экспорт + НастройкаПолученияЧаса = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ЧасНачалаРабочегоДня); + НастройкаПолученияМинуты = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.МинутаНачалаРабочегоДня); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Час = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияЧаса).ЗначениеНастройки; + Если Час = Неопределено Тогда + Час = 0; + КонецЕсли; + Минута = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияМинуты).ЗначениеНастройки; + Если Минута = Неопределено Тогда + Минута = 0; + КонецЕсли; + Возврат Дата(1,1,1,Час,Минута,0); +КонецФункции //НачалоРабочегоДня(ДатаПолученияНастройки = Неопределено) + +Функция ОкончаниеРабочегоДня(ДатаПолученияНастройки = Неопределено) Экспорт + НастройкаПолученияЧаса = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ЧасОкончанияРабочегоДня); + НастройкаПолученияМинуты = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.МинутаОкончанияРабочегоДня); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Час = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияЧаса).ЗначениеНастройки; + Если Час = Неопределено Тогда + Час = 23; + КонецЕсли; + Минута = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияМинуты).ЗначениеНастройки; + Если Минута = Неопределено Тогда + Минута = 59; + КонецЕсли; + Возврат Дата(1,1,1,Час,Минута,0); +КонецФункции //ОкончаниеРабочегоДня(ДатаПолученияНастройки = Неопределено) + +Функция ПрефиксQRКодирования(ДатаПолученияНастройки = Неопределено) Экспорт + НастройкаПолученияПрефикса = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ПрефиксQRКодирования); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Префикс = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,НастройкаПолученияПрефикса).ЗначениеНастройки; + Если Префикс = Неопределено Тогда + Префикс = ""; + КонецЕсли; + Возврат Префикс; +КонецФункции //ПрефиксQRКодирования(ДатаПолученияНастройки = Неопределено) + +Функция КомментироватьСобытия(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.КомментироватьСобытия); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Результат = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; + Если Результат = Неопределено Тогда + Результат = Ложь; + КонецЕсли; + Возврат Результат; +КонецФункции //КомментироватьСобытия(ДатаПолученияНастройки = Неопределено) + +Процедура СообщитьОСобытии(СообщениеОСобытии,Ссылка = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.КомментироватьСобытия); + ДатаПолученияНастройки = ТекущаяДата(); + КомментироватьСобытия = РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; + Если КомментироватьСобытия = Неопределено Тогда + КомментироватьСобытия = Ложь; + КонецЕсли; + Если КомментироватьСобытия Тогда + Сообщение = Новый СообщениеПользователю; + Сообщение.Текст = Строка(СообщениеОСобытии); + Если Ссылка <> Неопределено Тогда + Если ЗначениеЗаполнено(Ссылка) Тогда + Сообщение.КлючДанных = Ссылка; + КонецЕсли; + КонецЕсли; + Сообщение.Сообщить(); + КонецЕсли; + Попытка + ЗаголовокСообщения = "ПС. " + ПараметрыСеанса.ПС_ВерсияРасширения + ". Диагностическое сообщение."; + Исключение + ЗаголовокСообщения = "ПС. Диагностическое сообщение."; + КонецПопытки; + ЗаписьЖурналаРегистрации(ЗаголовокСообщения,,,Ссылка,СообщениеОСобытии); +КонецПроцедуры //СообщитьОСобытии(СообщениеОСобытии) + +Функция НомерМесяца(ПереданныйМесяц) + ВозвращаемыйНомер = 0; + Если ТипЗнч(ПереданныйМесяц) = ТипЗнч(Перечисления.ПС_Месяцы.Январь) Тогда + Если ПереданныйМесяц = Перечисления.ПС_Месяцы.Январь Тогда + ВозвращаемыйНомер = 1; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Февраль Тогда + ВозвращаемыйНомер = 2; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Март Тогда + ВозвращаемыйНомер = 3; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Апрель Тогда + ВозвращаемыйНомер = 4; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Май Тогда + ВозвращаемыйНомер = 5; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Июнь Тогда + ВозвращаемыйНомер = 6; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Июль Тогда + ВозвращаемыйНомер = 7; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Август Тогда + ВозвращаемыйНомер = 8; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Сентябрь Тогда + ВозвращаемыйНомер = 9; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Октябрь Тогда + ВозвращаемыйНомер = 10; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Ноябрь Тогда + ВозвращаемыйНомер = 11; + ИначеЕсли ПереданныйМесяц = Перечисления.ПС_Месяцы.Декабрь Тогда + ВозвращаемыйНомер = 12; + КонецЕсли; + КонецЕсли; + Возврат ВозвращаемыйНомер; +КонецФункции // НомерМесяца() + +Функция ПериодОбслуживаняВСтандартныйПериод(МесяцОбслуживания,ГодОбслуживания) Экспорт + ВозвращаемыйСтандартныйПериод = Новый СтандартныйПериод; + ВозвращаемыйСтандартныйПериод.ДатаНачала = Дата(1,1,1,0,0,0); + ВозвращаемыйСтандартныйПериод.ДатаОкончания = Дата(1,1,1,0,0,0); + НомерМесяцаОбслуживания = НомерМесяца(МесяцОбслуживания); + Если НомерМесяцаОбслуживания > 0 Тогда + Попытка + ВозвращаемыйСтандартныйПериод.ДатаНачала = Дата(ГодОбслуживания,НомерМесяцаОбслуживания,1,0,0,0); + ВозвращаемыйСтандартныйПериод.ДатаОкончания = КонецМесяца(ВозвращаемыйСтандартныйПериод.ДатаНачала); + Исключение + КонецПопытки; + КонецЕсли; + Возврат ВозвращаемыйСтандартныйПериод; +КонецФункции + + +Функция МесяцПоНомеру(ПереданныйНомер) + ВозвращаемыйМесяц = 0; + Если ТипЗнч(ПереданныйНомер) = ТипЗнч(1) Тогда + Если ПереданныйНомер = 1 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Январь; + ИначеЕсли ПереданныйНомер = 2 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Февраль; + ИначеЕсли ПереданныйНомер = 3 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Март; + ИначеЕсли ПереданныйНомер = 4 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Апрель; + ИначеЕсли ПереданныйНомер = 5 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Май; + ИначеЕсли ПереданныйНомер = 6 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Июнь; + ИначеЕсли ПереданныйНомер = 7 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Июль; + ИначеЕсли ПереданныйНомер = 8 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Август; + ИначеЕсли ПереданныйНомер = 9 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Сентябрь; + ИначеЕсли ПереданныйНомер = 10 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Октябрь; + ИначеЕсли ПереданныйНомер = 11 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Ноябрь; + ИначеЕсли ПереданныйНомер = 12 Тогда + ВозвращаемыйМесяц = Перечисления.ПС_Месяцы.Декабрь; + КонецЕсли; + КонецЕсли; + Возврат ВозвращаемыйМесяц; +КонецФункции // НомерМесяца() + + +Функция ДатаОбслуживанияВПериодОбслуживаня(ДатаОбслуживания) Экспорт + ВозвращаемыйПериодОбслуживания = Новый Структура("МесяцОбслуживания,ГодОбслуживания"); + Попытка + ВозвращаемыйПериодОбслуживания.МесяцОбслуживания = МесяцПоНомеру(Месяц(ДатаОбслуживания)); + ВозвращаемыйПериодОбслуживания.ГодОбслуживания = Год(ДатаОбслуживания); + Исключение + КонецПопытки; + Возврат ВозвращаемыйПериодОбслуживания; +КонецФункции + +Функция МаксимальноеКоличествоЧасовНепрерывнойДистанционнойРаботы(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.МаксимальноеКоличествоЧасовНепрерывнойДистанционнойРаботы); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //МаксимальноеКоличествоЧасовНепрерывнойДистанционнойРаботы(Дата = Неопределено) + +Функция ПутьКПапкеСФайломСтатистикиОбращенийУдаленногоОбслуживания(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ПутьКПапкеСФайломСтатистикиОбращенийУдаленногоОбслуживания); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ПутьКПапкеСФайломСтатистикиОбращенийУдаленногоОбслуживания(Дата = Неопределено) + +Функция ПутьКПапкеСФайломСтатистикиСеансовУдаленногоДоступа(ДатаПолученияНастройки = Неопределено) Экспорт + Настройка = Новый Структура("ВидНастройки",ПланыВидовХарактеристик.ПС_ВидыНастроек.ПутьКПапкеСФайломСтатистикиСеансовУдаленногоДоступа); + Если ДатаПолученияНастройки = Неопределено Тогда + ДатаПолученияНастройки = ТекущаяДата() + КонецЕсли; + Возврат РегистрыСведений.ПС_Настройки.ПолучитьПоследнее(ДатаПолученияНастройки,Настройка).ЗначениеНастройки; +КонецФункции //ПутьКПапкеСФайломСтатистикиСеансовУдаленногоДоступа(Дата = Неопределено) diff --git a/extension/src/Configuration.xml b/extension/src/Configuration.xml new file mode 100644 index 0000000..7c44e64 --- /dev/null +++ b/extension/src/Configuration.xml @@ -0,0 +1,69 @@ + + + + + + 9cd510cd-abfc-11d4-9434-004095e12fc7 + b1c2d3e4-f5a6-7890-abcd-ef1234567890 + + + 9fcd25a0-4822-11d4-9414-008048da11f9 + c2d3e4f5-a6b7-8901-bcde-f12345678901 + + + e3687481-0a87-462c-a166-9f34594f9bba + d3e4f5a6-b7c8-9012-cdef-123456789012 + + + 9de14907-ec23-4a07-96f0-85521cb6b53b + e4f5a6b7-c8d9-0123-defa-234567890123 + + + 51f2d5d8-ea4d-4064-8892-82951750031e + f5a6b7c8-d9e0-1234-efab-345678901234 + + + e68182ea-4237-4383-967f-90c1e3370bc7 + a6b7c8d9-e0f1-2345-fabc-456789012345 + + + fb282519-d103-4dd3-bc12-cb271d631dfc + b7c8d9e0-f1a2-3456-abcd-567890123456 + + + Logo + Extended + + + + Adopted + Настройки + ruНастройки + Расширение контекста Настройки + AddOn + true + ПС_ + Version8_3_27 + ManagedApplication + + PlatformApplication + + Russian + + 1С:Франчайзи ООО "Профи-Софт", код партнера 42575-13 + 3.0.0.3 + + + ruХранение настроек с историей изменения + ruУниверсальное хранилище настроек. Простые типы: булево, строка, дата, число. Разработано совместно с MiMoCode (Xiaomi MiMo Team). + ru1С:Франчайзи ООО "Профи-Софт", код партнера 42575-13 + + TaxiEnableVersion8_2 + + + ПС_ВидыНастроек + ПС_Настройки + ПС_РаботаСНастройками + + + \ No newline at end of file diff --git a/extension/src/Ext/Logo.xml b/extension/src/Ext/Logo.xml index 9b8e604..03b105c 100644 --- a/extension/src/Ext/Logo.xml +++ b/extension/src/Ext/Logo.xml @@ -1,8 +1,7 @@ - - - - PNG - - - + + + LogoPS.png + false + + \ No newline at end of file diff --git a/extension/src/Extension.xml b/extension/src/Extension.xml deleted file mode 100755 index bf8b27e..0000000 --- a/extension/src/Extension.xml +++ /dev/null @@ -1,84 +0,0 @@ - - - - - - 9cd510cd-abfc-11d4-9434-004095e12fc7 - b1c2d3e4-f5a6-7890-abcd-ef1234567890 - - - 9fcd25a0-4822-11d4-9414-008048da11f9 - c2d3e4f5-a6b7-8901-bcde-f12345678901 - - - e3687481-0a87-462c-a166-9f34594f9bba - d3e4f5a6-b7c8-9012-cdef-123456789012 - - - 9de14907-ec23-4a07-96f0-85521cb6b53b - e4f5a6b7-c8d9-0123-defa-234567890123 - - - 51f2d5d8-ea4d-4064-8892-82951750031e - f5a6b7c8-d9e0-1234-efab-345678901234 - - - e68182ea-4237-4383-967f-90c1e3370bc7 - a6b7c8d9-e0f1-2345-fabc-456789012345 - - - fb282519-d103-4dd3-bc12-cb271d631dfc - b7c8d9e0-f1a2-3456-abcd-567890123456 - - - Logo - Extended - - - - Настройки - - - ru - Настройки - - - Расширение контекста Настройки - Customization - true - ПС_ - Version8_3_27 - ManagedApplication - Russian - - Language.Русский - 1C:Франчайзи ООО Профи-Софт 42575-13 - 3.0.0.1 - - - - - ru - Хранение настроек - - - - - ru - Универсальное хранилище настроек - - - - - ru - 1С:Франчайзи ООО Профи-Софт 42575-13 - - - - - ПС_ВидыНастроек - ПС_Настройки - ПС_РаботаСНастройками - - - \ No newline at end of file diff --git a/extension/src/InformationRegisters/ПС_Настройки.xml b/extension/src/InformationRegisters/ПС_Настройки.xml new file mode 100644 index 0000000..58b22b7 --- /dev/null +++ b/extension/src/InformationRegisters/ПС_Настройки.xml @@ -0,0 +1,185 @@ + + + + + + a28d33ef-edaa-4a04-8bfd-d6669f69eeff + 18e64e7a-1c4c-4e9d-ba0e-3622fb97df81 + + + 6ad5a84c-c880-45d3-a54a-55fa66e8aea9 + 2b55dc8d-fb80-4527-97c3-68b39c9f1306 + + + b2d90406-f611-46b2-8f9b-a24a0cfa0174 + de962d72-0133-482e-a8be-d80e24e22a94 + + + 72874cfa-497a-4f59-b202-718d0e558abf + 760fa967-3b5e-4803-8f07-a240daa799a5 + + + 5241194a-31ee-4bb7-adf6-d679ea1495a8 + 179f08e9-1dfc-481a-861f-d61a12b157bb + + + bae90479-5039-46ca-993b-573db33e5716 + 793c69d5-eccd-40ca-9e43-86b3e0fb635e + + + c5a441dd-475a-40bd-9cb6-bffb38bf9f8e + b06c1782-8a61-4513-b340-993d458e1b06 + + + + ПС_Настройки + + + ru + Настройки + + + + true + InDialog + + + + + Day + Independent + true + false + Managed + DontUse + false + false + + + + + ru + Значения настроек + + + + + DontUse + false + false + + + + + ЗначениеНастройки + + + ru + Значение настройки + + + + + xs:boolean + xs:string + xs:dateTime + xs:decimal + + 10 + 0 + Any + + + 250 + Variable + + + DateTime + + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + Auto + DontIndex + Use + Use + + + + + ВидНастройки + + + ru + Вид настройки + + + + + xs:boolean + xs:string + xs:dateTime + xs:decimal + + 10 + 0 + Any + + + 250 + Variable + + + DateTime + + + false + + + + false + + false + false + + + true + + DontCheck + Items + + + Auto + Auto + + + Auto + true + true + true + DontIndex + Use + Use + TransformValues + + + + + \ No newline at end of file diff --git a/extension/src/Languages/Русский.xml b/extension/src/Languages/Русский.xml deleted file mode 100644 index 2568c31..0000000 --- a/extension/src/Languages/Русский.xml +++ /dev/null @@ -1,10 +0,0 @@ - - - - - Русский - - ru - - - diff --git a/extension/src/Roles/ПС_ПолныйДоступКНастройкам.xml b/extension/src/Roles/ПС_ПолныйДоступКНастройкам.xml deleted file mode 100755 index d982642..0000000 --- a/extension/src/Roles/ПС_ПолныйДоступКНастройкам.xml +++ /dev/null @@ -1,13 +0,0 @@ - - - - ПС_ПолныйДоступКНастройкам - - - ru - ПС: Полный доступ к настройкам - - - - - diff --git a/extension/src/Roles/ПС_ПолныйДоступКНастройкам/Ext/Rights.xml b/extension/src/Roles/ПС_ПолныйДоступКНастройкам/Ext/Rights.xml deleted file mode 100755 index 6555829..0000000 --- a/extension/src/Roles/ПС_ПолныйДоступКНастройкам/Ext/Rights.xml +++ /dev/null @@ -1,80 +0,0 @@ - - - - Configuration.БухгалтерияПредприятияКОРП - - DataAdministration - true - - - ExclusiveMode - false - - - ThinClient - true - - - WebClient - true - - - MobileClient - true - - - ThickClient - true - - - ExternalConnection - true - - - - InformationRegister.ПС_Настройки - - Read - true - - - View - true - - - Insert - true - - - Update - true - - - Delete - true - - - - ChartOfCharacteristicTypes.ПС_ВидыНастроек - - Read - true - - - View - true - - - Insert - true - - - Update - true - - - Delete - true - - - diff --git a/extension/src/Roles/ПС_ПросмотрНастроек.xml b/extension/src/Roles/ПС_ПросмотрНастроек.xml deleted file mode 100755 index a87ef28..0000000 --- a/extension/src/Roles/ПС_ПросмотрНастроек.xml +++ /dev/null @@ -1,13 +0,0 @@ - - - - ПС_ПросмотрНастроек - - - ru - ПС: Просмотр настроек - - - - - diff --git a/extension/src/Roles/ПС_ПросмотрНастроек/Ext/Rights.xml b/extension/src/Roles/ПС_ПросмотрНастроек/Ext/Rights.xml deleted file mode 100755 index 9cc6113..0000000 --- a/extension/src/Roles/ПС_ПросмотрНастроек/Ext/Rights.xml +++ /dev/null @@ -1,56 +0,0 @@ - - - - Configuration.БухгалтерияПредприятияКОРП - - DataAdministration - false - - - ExclusiveMode - false - - - ThinClient - true - - - WebClient - true - - - MobileClient - true - - - ThickClient - true - - - ExternalConnection - true - - - - InformationRegister.ПС_Настройки - - Read - true - - - View - true - - - - ChartOfCharacteristicTypes.ПС_ВидыНастроек - - Read - true - - - View - true - - - diff --git a/extension/src/Roles/ПС_ЧтениеНастроек.xml b/extension/src/Roles/ПС_ЧтениеНастроек.xml deleted file mode 100755 index 248ccaf..0000000 --- a/extension/src/Roles/ПС_ЧтениеНастроек.xml +++ /dev/null @@ -1,13 +0,0 @@ - - - - ПС_ЧтениеНастроек - - - ru - ПС: Чтение настроек - - - - - diff --git a/extension/src/Roles/ПС_ЧтениеНастроек/Ext/Rights.xml b/extension/src/Roles/ПС_ЧтениеНастроек/Ext/Rights.xml deleted file mode 100755 index fa4387c..0000000 --- a/extension/src/Roles/ПС_ЧтениеНастроек/Ext/Rights.xml +++ /dev/null @@ -1,48 +0,0 @@ - - - - Configuration.БухгалтерияПредприятияКОРП - - DataAdministration - false - - - ExclusiveMode - false - - - ThinClient - true - - - WebClient - true - - - MobileClient - true - - - ThickClient - true - - - ExternalConnection - true - - - - InformationRegister.ПС_Настройки - - Read - true - - - - ChartOfCharacteristicTypes.ПС_ВидыНастроек - - Read - true - - - diff --git a/Настройки_v3.0.0.3.cfe b/Настройки_v3.0.0.3.cfe new file mode 100644 index 0000000..7340a61 Binary files /dev/null and b/Настройки_v3.0.0.3.cfe differ diff --git a/Настройки_v3.0.0.4.cfe b/Настройки_v3.0.0.4.cfe new file mode 100644 index 0000000..43fe4ad Binary files /dev/null and b/Настройки_v3.0.0.4.cfe differ