// Процедура записывает класс условий труда в движение
// Параметры: п_Движение - движение в регистр
// п_ВидыСубконто - вид субконто
// п_СтруктураДляПоискаУсловий - структура с объектом проверки
// п_ВыборкаКлассыУсловийТруда - ыборка значений классных чинов
// п_Подразделение - подразделение проверки
// п_Должность - должность проверки.
Процедура ЗаполнитьКлассУсловийТрудаВЗаписи(п_Движение,п_ВыборкаКлассыУсловийТруда,п_Подразделение,п_Должность,п_СтруктураДляПоискаУсловий) Экспорт
п_СтруктураДляПоискаУсловий.Объект = п_Подразделение;
п_ВыборкаКлассыУсловийТруда.Сбросить();
Если Год(п_Движение.Период) < 2016 Тогда
Если п_ВыборкаКлассыУсловийТруда.НайтиСледующий(п_СтруктураДляПоискаУсловий) <> Неопределено и ЗначениеЗаполнено(п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда) Тогда
п_Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.КлассУсловийТруда] = п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда;
Иначе
Если п_Должность <> Неопределено Тогда
п_СтруктураДляПоискаУсловий.Объект = п_Должность;
п_ВыборкаКлассыУсловийТруда.Сбросить();
Если п_ВыборкаКлассыУсловийТруда.НайтиСледующий(п_СтруктураДляПоискаУсловий) <> Неопределено и ЗначениеЗаполнено(п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда) Тогда
п_Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.КлассУсловийТруда] = п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Иначе
Если п_ВыборкаКлассыУсловийТруда.НайтиСледующий(п_СтруктураДляПоискаУсловий) <> Неопределено и ЗначениеЗаполнено(п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда) Тогда
п_Движение.КлассУсловийТруда = п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда;
Иначе
Если п_Должность <> Неопределено Тогда
п_СтруктураДляПоискаУсловий.Объект = п_Должность;
п_ВыборкаКлассыУсловийТруда.Сбросить();
Если п_ВыборкаКлассыУсловийТруда.НайтиСледующий(п_СтруктураДляПоискаУсловий) <> Неопределено и ЗначениеЗаполнено(п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда) Тогда
п_Движение.КлассУсловийТруда = п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура ЗаполнитьКлассУсловийТрудаВЗаписиБазаДляЕСН(п_Движение,п_ВыборкаКлассыУсловийТруда,п_Подразделение,п_Должность,п_СтруктураДляПоискаУсловий) Экспорт
п_СтруктураДляПоискаУсловий.Объект = п_Подразделение;
п_ВыборкаКлассыУсловийТруда.Сбросить();
Если п_ВыборкаКлассыУсловийТруда.НайтиСледующий(п_СтруктураДляПоискаУсловий) <> Неопределено и ЗначениеЗаполнено(п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда) Тогда
п_Движение.КлассУсловийТруда = п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда;
Иначе
Если п_Должность <> Неопределено Тогда
п_СтруктураДляПоискаУсловий.Объект = п_Должность;
п_ВыборкаКлассыУсловийТруда.Сбросить();
Если п_ВыборкаКлассыУсловийТруда.НайтиСледующий(п_СтруктураДляПоискаУсловий) <> Неопределено и ЗначениеЗаполнено(п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда) Тогда
п_Движение.КлассУсловийТруда = п_ВыборкаКлассыУсловийТруда.КлассУсловийТруда;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
26 января по техническим причинам ГК КАМИН работает до 14:00 по МСК.
Оставить обращение после 14 часов на Линию консультаций и Группу технологической поддержки можно:
• по эл. почте: hotline@kamin.kaluga.ru, register@kamin.kaluga.ru
• или по запросу через специальную заявку на сайте
Опрос
Всего 3 простых вопроса
Продолжая использовать наш сайт, вы даете согласие на обработку файлов cookie и пользовательских данных в целях функционирования сайта, проведения ретаргетинга и статистических исследований, обзоров. Если вы не хотите, чтобы ваши данные обрабатывались, покиньте сайт.
Принять