1.
koloboc74
83
17.12.08 05:40
Сейчас в теме
Примерно так , человек вводит в таблицу сотрудников и дату планированого отпуска и печать с группировкой по подразделениями , я вчера навоял но у меня что-то не получаеться сделать группировку по подразделениями , можит кто подправит код.
Процедура Печать()
выгрузитьтабличнуючасть(тз);
тз.Сортировать("подр+");
НазваниеОрганизации = Константа.НазваниеОрганизации;
ДолжностьРуководителя = Константа.Руководитель.Получить(ТекущаяДата()).Должность.Получить(ТекущаяДата());
ФИОРуководителя = глФамилияИмяОтчество(Константа.Руководитель.Получить(ТекущаяДата()));
ДолжностьРуководителяОК = Константа.НачОтделаКадров.Должность.Получить(ТекущаяДата());
ФИОРуководителяОК = глФамилияИмяОтчество(Константа.НачОтделаКадров);
КодПоОКПО = Константа.КодОКПО;
Год = ДатаГод(ДатаНач);
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Т-7");
Таб.ВывестиСекцию("Шапка");
ВысотаШапки = Таб.ВысотаСекции("Шапка");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если тз.подр<>СокрЛП(тз.сотрудник.Подразделение.получить(ДатаДок)) Тогда
Таб.ВывестиСекцию("под");
КонецЕсли;
сотр = сотрудник;
долж = сотрудник.Должность.Получить(ДатаДок);
Таб.ВывестиСекцию("Строка");
КонецЦикла;
НомерПервойСтрокиПовторения = Таб.ВысотаСекции("Шапка<")+1;
Таб.ПовторятьПриПечатиСтроки(НомерПервойСтрокиПовторения,ВысотаШапки);
Таб.ВывестиСекцию("Подвал");
Таб.Опции(0,0,0,0);
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(2,,,,,,,,,1,1,);
Таб.Показать("График отпусков");
КонецПроцедуры