Untitled

mail@pastecode.io avatarunknown
plain_text
a month ago
1.5 kB
0
Indexable
Never
Процедура ОбработкаПроведения(Отказ, РежимПроведения)

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