Как пронумеровать столбец в макете ?

[cobra77777]

Здравствуйте!


Как пронумеровать столбец в макете (файл вложен) ?
Знаю, что нужно счетчик "включить", но как в 1С сделать не знаю .
Есть код :

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

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);


ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры


&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.АктОтправкиВРемонт.Печать(ТабДок, ПараметрКоманды);

КонецПроцедуры

[MuI_I_Ika]

Все решается вот в этой процедуре

Документы.АктОтправкиВРемонт.Печать(ТабДок, ПараметрКоманды);

Там должен быть цикл в который и нужно добавить счетчик.

[cobra77777]

Начал писать:

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

&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет ("Печать");

и сразу повалили ошибки:
{Документ.АктОтправкиВРемонт.Команда.Печать.МодульКоманды(19,10)}: Процедура или функция с указанным именем не определена (ПолучитьМакет)
   Макет = <<?>>ПолучитьМакет ("Печать"); (Проверка: Сервер)

КонецПроцедуры

[MuI_I_Ika]

Подозреваю, что вы на форме пытаетесь получить макет. Правильнее будет писать данную процедуру в модуле объекта или модуле менеджера объекта. Поскольку на форме не доступен контекст объекта.

Многие извращаются получают объект на форме и уже таким образом вызывают его контекст, но я вам так поступать не советую.

[cobra77777]

Помогите пронумеровать. Никак не пойму что то не дописано Код:

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

Процедура Акт(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Акт)
Макет = Документы.АктОтправкиВРемонт.ПолучитьМакет("Акт");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АктОтправкиВРемонт.Дата,
| АктОтправкиВРемонт.ТабличнаяЧасть.(
| СотрудникОтдела,
| Кабинет,
| Принтер,
| ИнвентарныйНомер,
| ЗаводскойНомер
| )
|ИЗ
| Документ.АктОтправкиВРемонт КАК АктОтправкиВРемонт
|ГДЕ
| АктОтправкиВРемонт.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьТабличнаяЧастьШапка = Макет.ПолучитьОбласть("ТабличнаяЧастьШапка");
ОбластьТабличнаяЧасть = Макет.ПолучитьОбласть("ТабличнаяЧасть");
Подвал = Макет.ПолучитьОбласть("Подвал");

ТабДок.Очистить();

Номер = 0;
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьТабличнаяЧастьШапка);
ВыборкаТабличнаяЧасть = Выборка.ТабличнаяЧасть.Выбрать();
Пока ВыборкаТабличнаяЧасть.Следующий() Цикл
ОбластьТабличнаяЧасть.Параметры.Заполнить(ВыборкаТабличнаяЧасть);
ТабДок.Вывести(ОбластьТабличнаяЧасть, ВыборкаТабличнаяЧасть.Уровень());
КонецЦикла;

Для Каждого Строка из ВыборкаТабличнаяЧасть.Выбрать() Цикл;
   ОбластьТабличнаяЧасть.Номер = Строка.Номер;
   ОбластьТабличнаяЧасть.СотрудникОтдела = Строка.СотрудникОтдела;
           Номер = Номер + 1;
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);


ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры

Добавлено: 26 сен 2013, 09:12

вопрос решился всем спасибо.