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