15.
Craig
274
27.04.09 13:28
Сейчас в теме
а еще добавил вот такие строчки :
ИначеЕсли ВР = ВидРасчета.ДоплатаЗаПраздничные Тогда
КоэфСторно = ?(ЖурналРасчетовЗарплата.Сторно = 1, -1, 1);
ТаблицаВытесняемыхРасчетов.НоваяСтрока();
ТаблицаВытесняемыхРасчетов.ВидРасчета = ВР;
ТаблицаВытесняемыхРасчетов.ДатаНачала = ЖурналРасчетовЗарплата.ДатаНачала;
ТаблицаВытесняемыхРасчетов.ДатаОкончания = ЖурналРасчетовЗарплата.ДатаОкончания;
ТаблицаВытесняемыхРасчетов.ПериодРегистрации = ЖурналРасчетовЗарплата.ПериодРегистрации.ДатаОкончания;
ТаблицаВытесняемыхРасчетов.Документ = ЖурналРасчетовЗарплата.Документ;
ЖурналРасчетовЗарплата.Документ.ВыбратьСтроки();
Пока ЖурналРасчетовЗарплата.Документ.ПолучитьСтроку() = 1 Цикл
Если ЖурналРасчетовЗарплата.Документ.Сотрудник = Сотрудник Тогда
ТаблицаВытесняемыхРасчетов.Часы = ЖурналРасчетовЗарплата.Документ.КолвоРабочихЧасов;
ТаблицаВытесняемыхРасчетов.Дни = ТаблицаВытесняемыхРасчетов.Дни+1;
ТаблицаВытесняемыхРасчетов.Сторно = ЖурналРасчетовЗарплата.Сторно;
Прервать;
КонецЕсли
КонецЦикла
Это чтоб праздничные выводил