Untitled
plain_text
a month ago
1.1 kB
0
Indexable
Never
Процедура ЗаполнитьГрафик(ДатаНачала, ДатаОкончания, ВыходныеДни) Экспорт Набор = РегистрыСведений.ГрафикиРаботы.СоздатьНаборЗаписей(); Набор.Отбор.График.Установить (График); Набор.Прочитать(); ЧислоСекундВСутках = 86400; Дат = ДатаНачала; Пока Дат <= ДатаОкончания Цикл Запись = Набор.Добавить(); Запись.Дата = Дат; Запись.График = График; Если Найти(ВыходныеДни, Строка(ДеньНедели(Дат))) Тогда Запись.Часов = 0; Запись.Дней = 0; Иначе Запись.Часов = 8; Запись.Дней = 1; КонецЕсли; Дат = Дат + ЧислоСекундВСутках; КонецЦикла; Набор.Записать(); КонецПроцедуры