Untitled
plain_text
a month ago
1.5 kB
0
Indexable
Never
Процедура ОбработкаПроведения(Отказ, РежимПроведения) Движения.ДанныеТабеля.Записывать = Истина; НачалоМесяцаТабеля = НачалоМесяца(Дата); Для Каждого СтрокаТаблицы Из СписокСотрудников Цикл Для ДеньМесяца = 1 По 31 Цикл ДанныеДня = СтрокаТаблицы["День" + ДеньМесяца]; Если ЗначениеЗаполнено(ДанныеДня) Тогда НоваяЗапись = Движения.ДанныеТабеля.Добавить(); НоваяЗапись.Период = НачалоМесяцаТабеля + (ДеньМесяца - 1) * 86400; НоваяЗапись.Подразделение = Подразделение; НоваяЗапись.Сотрудник = СтрокаТаблицы.Сотрудник; Если СтрНайти(ДанныеДня, "К") > 0 Тогда НоваяЗапись.ДнейВКомандировке = Число(Лев(ДанныеДня, СтрДлина(ДанныеДня) -1));; Иначе НоваяЗапись.ЧасовОтработано = Число(ДанныеДня); КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецПроцедуры