Имя: Пароль:
1C
1С v8
Добавить колонку в Остатки отпусков
0 anisa8310
 
29.10.12
15:33
1С:Предприятие 8.2 (8.2.15.319)
Зарплата и Управление Персоналом, редакция 2.5 (2.5.54.1)

(Кадровый учет-Учет не выходов-Остатки отпусков)
Нужно в эту форму списка-добавить колонку,в какую процедуру нужно лезть? там модуль РаботаСДиалогами, Но процедура не понятно какая
Заранее всех благодарю
1 anisa8310
 
29.10.12
15:50
Кажется нашла, в модуле "ОстаткиОтпусков"
Функция ОстатокОтпускаСотрудникаНаДату(Знач Сотрудник, Знач ДатаОстатков = '00010101', Знач ЭтоРасчетПриУвольнении = Ложь, ПорядокРасчетаОсновногоОтпуска = Неопределено) Экспорт
   
   Если Не ЗначениеЗаполнено(Сотрудник) Тогда
       Возврат 0;
   КонецЕсли;
   
   Если Не ЗначениеЗаполнено(ДатаОстатков) Тогда
       ДатаОстатков = ОбщегоНазначения.ПолучитьРабочуюДату();
   КонецЕсли;
   
   ТаблицаДанных = ОписаниеТаблицыДанных();
   
   Строка = ТаблицаДанных.Добавить();
   Строка.Сотрудник                            = Сотрудник;
   Строка.ДатаОстатков                            = НачалоДня(ДатаОстатков);
   Строка.ЭтоРасчетПриУвольнении                = ЭтоРасчетПриУвольнении;
   Если ЭтоРасчетПриУвольнении Тогда
       Строка.ПорядокРасчетаОсновногоОтпуска    = ПорядокРасчетаОсновногоОтпуска;
   КонецЕсли;
   
   Результат = ОстаткиОтпусков(ТаблицаДанных)[0];
   
   ОстаткиВРазрезеРабочихЛетИВидовОтпусков = Новый Массив;
   Для Каждого РабочийГод Из Результат.ДанныеРасчета Цикл
       Если РабочийГод.ОсталосьДнейОтпускаСУчетомВсехОтпусков = 0 Тогда
           Продолжить;
       КонецЕсли;
       ОстаткиВРазрезеРабочихЛетИВидовОтпусков.Добавить(Новый Структура("ВидЕжегодногоОтпуска, ОсталосьДней, РабочийГодС, РабочийГодПо, ПоследнийРабочийГод",
           РабочийГод.ВидЕжегодногоОтпуска, РабочийГод.ОсталосьДнейОтпускаСУчетомВсехОтпусков, РабочийГод.ДатаНачала, РабочийГод.ДатаОкончания, РабочийГод.ПоследнийРабочийГод));
   КонецЦикла;
   
   Возврат Новый Структура("ОстатокНаДату, РабочийГодС, РабочийГодПо, Примечание, ОстаткиВРазрезеВидовОтпусков, ОстаткиВРазрезеРабочихЛетИВидовОтпусков",
       Результат.ОстатокНаДату, Результат.РабочийГодС, Результат.РабочийГодПо, Результат.Примечание, Результат.ОстатокНаДатуПоВидамЕжегодныхОтпусков, ОстаткиВРазрезеРабочихЛетИВидовОтпусков);
   
КонецФункции
2 anisa8310
 
31.10.12
10:17
Не получается