|
VZ
8 - 18.06.2009 - 06:19
|
6-AlexMir > Гм... Кусочек из модуля документа ТабельОтработанногоВремени: ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если ТипЧасов=Перечисление.ТипыЧасов.Основные Тогда ПозСотра = СписокСотрудников.НайтиЗначение(Сотрудник); Если ПозСотра=0 Тогда СписокСотрудников.ДобавитьЗначение(Сотрудник,Строка(НомерСтроки)); Иначе СписокСотрудников.УстановитьЗначение(ПозСотра,Сотрудник,Строка(НомерСтроки)); КонецЕсли; ИначеЕсли ТипЧасов=Перечисление.ТипыЧасов.Вечерние Тогда Если СписокСотрудниковПоВечерним.НайтиЗначение(Сотрудник)=0 Тогда СписокСотрудниковПоВечерним.ДобавитьЗначение(Сотрудник,Строка(НомерСтроки)) КонецЕсли; ИначеЕсли ТипЧасов=Перечисление.ТипыЧасов.Ночные Тогда Если СписокСотрудниковПоНочным.НайтиЗначение(Сотрудник)=0 Тогда СписокСотрудниковПоНочным.ДобавитьЗначение(Сотрудник,Строка(НомерСтроки)) КонецЕсли; ИначеЕсли (ТипЧасов=Перечисление.ТипыЧасов.Сверхурочные15) ИЛИ (ТипЧасов=Перечисление.ТипыЧасов.Сверхурочные20) Тогда Если СписокСотрудниковСверхурочн.НайтиЗначение(Сотрудник)=0 Тогда СписокСотрудниковСверхурочн.ДобавитьЗначение(Сотрудник,Строка(НомерСтроки)) КонецЕсли; Если СписокСотрудников.НайтиЗначение(Сотрудник)=0 Тогда СписокСотрудников.ДобавитьЗначение(Сотрудник,"0"); КонецЕсли; КонецЕсли; КонецЦикла;
|