Расчет "Итого" в справочнике

[Davids]

не получается именно сам перебор по сотрудникам..

[prog1c7.7]

//зачем
Таб.ПовторятьПриПечатиСтроки(1,8);

[Davids]

согласен..мусор..
если в цикл добавляю Сообщить, то он выводит ФИО всех сотрудников..все норм..а в печатную форму все равно вводится один и тот же

Код Выделить Развернуть


Процедура Печать()
Спр = СоздатьОбъект("Справочник.Плановая");
           Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Сообщить(Спр.ФИО);
Таб.ВывестиСекцию("Секция_1");
КонецЦикла;
Таб.ВывестиСекцию("Подпись");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать Плановая нагрузка по кафедре штатных преподавателей","");
КонецПроцедуры

[prog1c7.7]

обработку выкладывай

[Davids]

обработку выкладывай

честно сказать я не умею..ее можно экспортировать из справочника или она с нуля делается?

[prog1c7.7]

тогда модуль в тхт файл сохрани и выложи, чтоб полотенца не развешивать

[prog1c7.7]

а в печатной форме ячейка как вообще себя чувствует? (которая в СЕКЦИЯ_1)
это - выражение (шаблон) а  внутри у нее что прописано?

[Davids]

модуль: http://rghost.ru/4286075 секция_1..тип ячейки - выражение: http://rghost.ru/4286114/image.png в итоге  получается ЭТО http://rghost.ru/4286016/image.png

[prog1c7.7]

модуль не могу поймать выложи  на форум тхт

[Davids]

Код Выделить Развернуть


Процедура Всего()
Всего = Лекции+Лабораторные+Практические+Консультации+Контрольные+Курсовые+Практика+Экзамены+Зачеты+Дипломники+ГосЭкзамены+Аспиранты+Контроль+ДрВидыРабот;
КонецПроцедуры

Процедура Очистить()
СпрШт = СоздатьОбъект("Справочник.ПлановаяШт");
СпрШт.ВыбратьЭлементы();
Пока СпрШт.Получитьэлемент()=1 Цикл
СпрШт.Лекции = "0";
СпрШт.Лабораторные =  "0";
СпрШт.Практические = "0";
СпрШт.Консультации = "0";
СпрШт.Контрольные =  "0";
СпрШт.Курсовые =  "0";
СпрШт.Практика = "0";
СпрШт.Экзамены = "0";
СпрШт.Зачеты = "0";
СпрШт.Дипломники = "0";
СпрШт.ГосЭкзамены =  "0";
СпрШт.Аспиранты = "0";
СпрШт.Контроль = "0";
СпрШт.ДрВидыРабот =  "0";
СпрШт.Всего = "0";
СпрШт.Записать();
КонецЦикла
КонецПроцедуры

Процедура Печать()
Спр = СоздатьОбъект("Справочник.ПлановаяШт");
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Сообщить("Сотрудник " + Спр.ФИО);
Таб.ВывестиСекцию("Секция_1");
КонецЦикла;
Таб.ВывестиСекцию("Подпись");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать Плановая нагрузка по кафедре штатных преподавателей","");
КонецПроцедуры