#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
Функция ЗначенияПоУмолчанию() Экспорт
СтруктураЗначений = Новый Структура;
СтруктураЗначений.Вставить("ПрименяетсяПБУ18", Ложь);
СтруктураЗначений.Вставить("ВедетсяУчетПостоянныхИВременныхРазниц", Ложь);
СтруктураЗначений.Вставить("ВариантУчетаОтложенногоНалога", Перечисления.ВариантыУчетаОтложенногоНалога.Нет);
СтруктураЗначений.Вставить("ИспользоватьСчет40", Ложь);
СтруктураЗначений.Вставить("ЗабалансовыйУчетТМЦВЭксплуатации", Ложь);
СтруктураЗначений.Вставить("СборкаТоваровЧерезСчет20", Ложь);
СтруктураЗначений.Вставить("УчетПродукцииПереработчикаНа20Счете", Ложь);
СтруктураЗначений.Вставить("ВзаимозачетЧерезСчет76", Ложь);
СтруктураЗначений.Вставить("ВидРазницПБУ18РезервовПоСомнительнымДолгам", Перечисления.ВидыРазницПБУ18.ВР);
СтруктураЗначений.Вставить("ПроводкиПоРаботникам", Ложь);
СтруктураЗначений.Вставить("УчетНИОКРПоФСБУ26", ПолучитьФункциональнуюОпцию("ИспользоватьВнеоборотныеАктивы2_4"));
СтруктураЗначений.Вставить("СтатьяРасходовПоИсследованиям", Неопределено);
СтруктураЗначений.Вставить("АналитикаРасходовПоИсследованиям", Неопределено);
СтруктураЗначений.Вставить("ПрименяетсяФСБУ6", Истина);
СтруктураЗначений.Вставить("ПрименяетсяФСБУ14", Истина);
СтруктураЗначений.Вставить("ПорядокНачисленияАмортизацииОС", Перечисления.ПорядокНачисленияАмортизации.СДатыПринятияКУчету);
СтруктураЗначений.Вставить("ПорядокНачисленияАмортизацииНМА", Перечисления.ПорядокНачисленияАмортизации.СДатыПринятияКУчету);
СтруктураЗначений.Вставить("ПорядокНачисленияАмортизацииАренда", Перечисления.ПорядокНачисленияАмортизации.СДатыПринятияКУчету);
СтруктураЗначений.Вставить("СписыватьСтоимостьМалоценныхТМЦНаРасходы", Ложь);
СтруктураЗначений.Вставить("СтатьяРасходовДляСписанияМалоценныхТМЦ", Неопределено);
СтруктураЗначений.Вставить("АналитикаСписанияМалоценныхТМЦ", Неопределено);
СтруктураЗначений.Вставить("УчетнаяПолитикаСуществует", Ложь);
СтруктураЗначений.Вставить("НастройкаЗаполненияБухОтчетности", Справочники.НастройкиЗаполненияБухОтчетности.НеНастраивается);
СтруктураЗначений.Вставить("МетодПереоценкиОС", Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета);
СтруктураЗначений.Вставить("МетодПереоценкиНМА", Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета);
Возврат СтруктураЗначений
КонецФункции
Функция ТекстЗапросаДействующиеПараметрыНалоговУчетныхПолитик() Экспорт
ТекстЗапроса = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ТаблицаСрезПоследних.Период КАК Период,
| ГоловныеОрганизации.ОбособленноеПодразделение КАК Организация,
| ТаблицаСрезПоследних.ВариантУчетаОтложенногоНалога <> ЗНАЧЕНИЕ(Перечисление.ВариантыУчетаОтложенногоНалога.Нет)
| И ТаблицаСрезПоследних.ВариантУчетаОтложенногоНалога <> ЗНАЧЕНИЕ(Перечисление.ВариантыУчетаОтложенногоНалога.ПустаяСсылка) КАК ПрименяетсяПБУ18,
| ТаблицаСрезПоследних.ВедетсяУчетПостоянныхИВременныхРазниц КАК ВедетсяУчетПостоянныхИВременныхРазниц,
| ТаблицаСрезПоследних.ВариантУчетаОтложенногоНалога КАК ВариантУчетаОтложенногоНалога,
| ТаблицаСрезПоследних.ИспользоватьСчет40 КАК ИспользоватьСчет40,
| ТаблицаСрезПоследних.ЗабалансовыйУчетТМЦВЭксплуатации КАК ЗабалансовыйУчетТМЦВЭксплуатации,
| ТаблицаСрезПоследних.СборкаТоваровЧерезСчет20 КАК СборкаТоваровЧерезСчет20,
| ТаблицаСрезПоследних.УчетПродукцииПереработчикаНа20Счете КАК УчетПродукцииПереработчикаНа20Счете,
| ТаблицаСрезПоследних.ВзаимозачетЧерезСчет76 КАК ВзаимозачетЧерезСчет76,
| ТаблицаСрезПоследних.ВидРазницПБУ18РезервовПоСомнительнымДолгам КАК ВидРазницПБУ18РезервовПоСомнительнымДолгам,
| ТаблицаСрезПоследних.ПроводкиПоРаботникам КАК ПроводкиПоРаботникам,
| ТаблицаСрезПоследних.УчетНИОКРПоФСБУ26 КАК УчетНИОКРПоФСБУ26,
| ТаблицаСрезПоследних.СтатьяРасходовПоИсследованиям КАК СтатьяРасходовПоИсследованиям,
| ТаблицаСрезПоследних.АналитикаРасходовПоИсследованиям КАК АналитикаРасходовПоИсследованиям,
| ТаблицаСрезПоследних.ПрименяетсяФСБУ6 КАК ПрименяетсяФСБУ6,
| ТаблицаСрезПоследних.ПрименяетсяФСБУ14 КАК ПрименяетсяФСБУ14,
| ТаблицаСрезПоследних.ПорядокНачисленияАмортизацииОС КАК ПорядокНачисленияАмортизацииОС,
| ТаблицаСрезПоследних.ПорядокНачисленияАмортизацииНМА КАК ПорядокНачисленияАмортизацииНМА,
| ТаблицаСрезПоследних.ПорядокНачисленияАмортизацииАренда КАК ПорядокНачисленияАмортизацииАренда,
| ТаблицаСрезПоследних.МетодПереоценкиОС КАК МетодПереоценкиОС,
| ТаблицаСрезПоследних.МетодПереоценкиНМА КАК МетодПереоценкиНМА,
| ТаблицаСрезПоследних.НастройкаЗаполненияБухОтчетности КАК НастройкаЗаполненияБухОтчетности,
| ТаблицаСрезПоследних.СписыватьСтоимостьМалоценныхТМЦНаРасходы КАК СписыватьСтоимостьМалоценныхТМЦНаРасходы,
| ТаблицаСрезПоследних.СтатьяРасходовДляСписанияМалоценныхТМЦ КАК СтатьяРасходовДляСписанияМалоценныхТМЦ,
| ТаблицаСрезПоследних.РеформацияБалансаВРазрезеОП КАК РеформацияБалансаВРазрезеОП,
| ТаблицаСрезПоследних.АналитикаСписанияМалоценныхТМЦ КАК АналитикаСписанияМалоценныхТМЦ
|
|ИЗ
| ВтГоловныеОрганизации КАК ГоловныеОрганизации
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.УчетнаяПолитикаБухУчета.СрезПоследних(&Период, Организация В
| (ВЫБРАТЬ
| ГоловныеОрганизации.Организация
| ИЗ
| ВтГоловныеОрганизации КАК ГоловныеОрганизации)) КАК ТаблицаСрезПоследних
| ПО ГоловныеОрганизации.Организация = ТаблицаСрезПоследних.Организация
|";
Возврат ТекстЗапроса
КонецФункции
Функция ОписаниеДействующихПараметров(Организация, ДатаДействия = Неопределено, ДействующиеНастройки = Неопределено, Все = Ложь) Экспорт
Если ДействующиеНастройки = Неопределено Тогда
ДействующиеНастройки = НастройкиНалоговУчетныхПолитик.ДействующиеПараметрыНалоговУчетныхПолитикНаДату(
"УчетнаяПолитикаБухУчета",
Организация,
ДатаДействия,
Ложь);
КонецЕсли;
СтрокаШаблон = "%1: %2." + Символы.ПС;
СтрокаШаблонБулево = "%1." + Символы.ПС;
Если ДействующиеНастройки = Неопределено Тогда
СтрокаОписанияНастроек = НСтр("ru='Не заданы параметры.'");
Возврат СтрокаОписанияНастроек;
КонецЕсли;
СтрокаОписанияНастроек = "";
Если ЗначениеЗаполнено(ДействующиеНастройки.ВариантУчетаОтложенногоНалога) Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Учет по ПБУ 18'"),
ДействующиеНастройки.ВариантУчетаОтложенногоНалога);
КонецЕсли;
Если ДействующиеНастройки.ИспользоватьСчет40 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Выпуск продукции с использованием счета 40 ""Выпуск продукции""'"));
КонецЕсли;
Если ДействующиеНастройки.ЗабалансовыйУчетТМЦВЭксплуатации Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Ведется дополнительный учет ТМЦ в эксплуатации на забалансовых счетах'"));
КонецЕсли;
Если ДействующиеНастройки.СборкаТоваровЧерезСчет20 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Сборка товаров через счет 20'"));
КонецЕсли;
Если ДействующиеНастройки.УчетПродукцииПереработчикаНа20Счете Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Учет продукции переработчика на 20 счете'"));
КонецЕсли;
Если ДействующиеНастройки.ВзаимозачетЧерезСчет76 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Взаимозачет задолженности производится через счет 76.09 (76.39) ""Прочие расчеты с разными дебиторами и кредиторами""'"));
КонецЕсли;
Если ДействующиеНастройки.ВедетсяУчетПостоянныхИВременныхРазниц Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Вид разниц ПБУ 18/02'"),
ДействующиеНастройки.ВидРазницПБУ18РезервовПоСомнительнымДолгам);
КонецЕсли;
Если ДействующиеНастройки.ПроводкиПоРаботникам Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Ведется учет расходов на оплату труда по счету 70 ""Оплата труда"" с детализацией по работникам организации'"));
КонецЕсли;
Если ДействующиеНастройки.СписыватьСтоимостьМалоценныхТМЦНаРасходы Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Списывать стоимость малоценных ТМЦ на расходы в месяце приобретения в соответствии с ФСБУ 5 ""Запасы""'"));
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Статья расходов для списания малоценных ТМЦ'"),
ДействующиеНастройки.СтатьяРасходовДляСписанияМалоценныхТМЦ);
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Аналитика списания малоценных ТМЦ'"),
ДействующиеНастройки.АналитикаСписанияМалоценныхТМЦ);
КонецЕсли;
#Область ВнеоборотныеАктивы
Если ДействующиеНастройки.ПрименяетсяФСБУ6 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Учет ОС ведется в соответствии с ФСБУ 6'"));
КонецЕсли;
Если ДействующиеНастройки.ПрименяетсяФСБУ14 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Учет НМА ведется в соответствии с ФСБУ 14/2022'"));
КонецЕсли;
Если ДействующиеНастройки.УчетНИОКРПоФСБУ26 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Учет НИОКР ведется в соответствии с ФСБУ 26/2020'"));
КонецЕсли;
Если ДействующиеНастройки.ПорядокНачисленияАмортизацииОС = Перечисления.ПорядокНачисленияАмортизации.СоСледующегоМесяца
И ДействующиеНастройки.ПорядокНачисленияАмортизацииНМА = Перечисления.ПорядокНачисленияАмортизации.СоСледующегоМесяца
И ДействующиеНастройки.ПорядокНачисленияАмортизацииАренда = Перечисления.ПорядокНачисленияАмортизации.СоСледующегоМесяца Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация ОС и НМА начисляется с первого числа месяца, следующего за месяцем принятия к учету'"));
ИначеЕсли ДействующиеНастройки.ПорядокНачисленияАмортизацииОС = Перечисления.ПорядокНачисленияАмортизации.СДатыПринятияКУчету
И ДействующиеНастройки.ПорядокНачисленияАмортизацииНМА = Перечисления.ПорядокНачисленияАмортизации.СДатыПринятияКУчету
И ДействующиеНастройки.ПорядокНачисленияАмортизацииАренда = Перечисления.ПорядокНачисленияАмортизации.СДатыПринятияКУчету Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация ОС и НМА начисляется с даты принятия к учету'"));
Иначе
Если ДействующиеНастройки.ПорядокНачисленияАмортизацииОС = Перечисления.ПорядокНачисленияАмортизации.СоСледующегоМесяца Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация собственных ОС начисляется с первого числа месяца, следующего за месяцем принятия к учету'"));
Иначе
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация собственных ОС начисляется с даты принятия к учету'"));
КонецЕсли;
Если ДействующиеНастройки.ПорядокНачисленияАмортизацииАренда = Перечисления.ПорядокНачисленияАмортизации.СоСледующегоМесяца Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация арендованных ОС начисляется с первого числа месяца, следующего за месяцем принятия к учету'"));
Иначе
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация арендованных ОС начисляется с даты принятия к учету'"));
КонецЕсли;
Если ДействующиеНастройки.ПорядокНачисленияАмортизацииНМА = Перечисления.ПорядокНачисленияАмортизации.СоСледующегоМесяца Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация НМА начисляется с первого числа месяца, следующего за месяцем принятия к учету'"));
Иначе
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Амортизация НМА начисляется с даты принятия к учету'"));
КонецЕсли;
КонецЕсли;
Если ДействующиеНастройки.ПрименяетсяФСБУ6
И ДействующиеНастройки.ПрименяетсяФСБУ14 Или Все Тогда
Если ДействующиеНастройки.МетодПереоценкиОС = ДействующиеНастройки.МетодПереоценкиНМА Или Все Тогда
Если ДействующиеНастройки.МетодПереоценкиОС = Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки ОС и НМА применяется метод пропорционального пересчета'"));
ИначеЕсли ДействующиеНастройки.МетодПереоценкиОС = Перечисления.МетодыПереоценкиВНА.СальдовыйМетод Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки ОС и НМА применяется сальдовый метод'"));
КонецЕсли;
Иначе
Если ДействующиеНастройки.МетодПереоценкиОС = Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки ОС применяется метод пропорционального пересчета'"));
ИначеЕсли ДействующиеНастройки.МетодПереоценкиОС = Перечисления.МетодыПереоценкиВНА.СальдовыйМетод Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки ОС применяется сальдовый метод'"));
КонецЕсли;
Если ДействующиеНастройки.МетодПереоценкиНМА = Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки НМА применяется метод пропорционального пересчета'"));
ИначеЕсли ДействующиеНастройки.МетодПереоценкиНМА = Перечисления.МетодыПереоценкиВНА.СальдовыйМетод Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки НМА применяется сальдовый метод'"));
КонецЕсли;
КонецЕсли;
ИначеЕсли ДействующиеНастройки.ПрименяетсяФСБУ6 Тогда
Если ДействующиеНастройки.МетодПереоценкиОС = Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки ОС применяется метод пропорционального пересчета'"));
ИначеЕсли ДействующиеНастройки.МетодПереоценкиОС = Перечисления.МетодыПереоценкиВНА.СальдовыйМетод Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки ОС применяется сальдовый метод'"));
КонецЕсли;
ИначеЕсли ДействующиеНастройки.ПрименяетсяФСБУ14 Тогда
Если ДействующиеНастройки.МетодПереоценкиНМА = Перечисления.МетодыПереоценкиВНА.МетодПропорциональногоПересчета Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки НМА применяется метод пропорционального пересчета'"));
ИначеЕсли ДействующиеНастройки.МетодПереоценкиНМА = Перечисления.МетодыПереоценкиВНА.СальдовыйМетод Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблонБулево,
НСтр("ru='Для переоценки НМА применяется сальдовый метод'"));
КонецЕсли;
КонецЕсли;
Если ДействующиеНастройки.УчетНИОКРПоФСБУ26 Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Статья расходов по исследованиям'"),
ДействующиеНастройки.СтатьяРасходовПоИсследованиям);
Если ЗначениеЗаполнено(ДействующиеНастройки.АналитикаРасходовПоИсследованиям) Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Аналитика расходов по исследованиям'"),
ДействующиеНастройки.АналитикаРасходовПоИсследованиям);
КонецЕсли;
КонецЕсли;
#КонецОбласти
#Область Отчетность
Если ЗначениеЗаполнено(ДействующиеНастройки.НастройкаЗаполненияБухОтчетности) Или Все Тогда
СтрокаОписанияНастроек = СтрокаОписанияНастроек
+ СтрШаблон(СтрокаШаблон,
НСтр("ru='Настройка заполнения бухгалтерской (финансовой) отчетности'"),
ДействующиеНастройки.НастройкаЗаполненияБухОтчетности);
КонецЕсли;
#КонецОбласти
Если НЕ ЗначениеЗаполнено(СтрокаОписанияНастроек) Тогда
СтрокаОписанияНастроек = НСтр("ru='Не заданы параметры.'");
КонецЕсли;
Возврат СтрокаОписанияНастроек;
КонецФункции
#Область ДляВызоваИзДругихПодсистем
Процедура ПриЗаполненииОграниченияДоступа(Ограничение) Экспорт
Ограничение.Текст =
"РазрешитьЧтениеИзменение
|ГДЕ
| ЗначениеРазрешено(Организация)";
КонецПроцедуры
#КонецОбласти
#КонецОбласти
#КонецЕсли