0
MaxFoxxy
19.01.12
✎
14:41
|
Делаю команду в документ
&НаКлиенте
Процедура Печать(Команда)
РаспечататьДокумент();
КонецПроцедуры
В процедуру вставляю пример из СП:
&НаСервере
Процедура РаспечататьДокумент()
ТабДок = Новый ТабличныйДокумент;
Секция = ТабДок.ПолучитьОбласть("R1");
Секция.Область("R1C1").Текст = "Численность сотрудников";
ТабДок.НачатьАвтогруппировкуСтрок();
ТабДок.Вывести(Секция,1,"Группа",Истина);
Итого = 0;
Для Н=1 По 3 Цикл
Значение = Н; Итог = 0;
Секция.Область("R1C1").Текст = "Отдел "+Н;
Секция.Область("R1C2").Текст = "";
ТабДок.Вывести(Секция,2,"Группа 1",Истина);
Секция.Область("R1C1").Текст = "Группа";
Секция.Область("R1C2").Текст = "Численность";
ТабДок.Вывести(Секция,2,"Группа 1",Истина);
Для К=1 По 10 Цикл
Секция.Область("R1C1").Текст = "А"+Н+К;
Секция.Область("R1C2").Текст = Значение;
ТабДок.Вывести(Секция,3,"Группа 2",Истина);
Итог = Итог + Значение;
Значение = Значение + 10;
КонецЦикла;
Секция.Область("R1C1").Текст = "Итого"+Н;
Секция.Область("R1C2").Текст = Итог;
ТабДок.Вывести(Секция,2,"Группа 1",Истина);
Секция.Область("R1C1:R1C2").Текст = "";
ТабДок.Вывести(Секция);
Итого = Итого + Итог;
КонецЦикла;
Секция.Область("R1C1").Текст = "Всего:";
Секция.Область("R1C2").Текст = Итого;
ТабДок.Вывести(Секция,1,"Группа",Истина);
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.ИтогиСнизу = Истина;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Показать("Пример использования верт. автогруппировки");
КонецПроцедуры
И ничего не происходит!!! Не выводится документ по. Где не прав?
Заранее спасибо
|
|