VPF::1С 8.2, добавление области в печатную форму

SaschaL

Дата 28.5.2012, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9

Добрый день!
Нужна консультация по следующему вопросу. Нужно в печатной форме добавить справа от уже имеющихся строк пертикальную область.

как это сделать, перерыл интернет и как ни странно ни где не наткнулся на пример программного кода. Может кто знает как это делается

Zero

Дата 28.5.2012, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24

Если речь идёт, про табличный документ, тогда нужно использовать метод Присоединить

PS: cтранный вопрос, это ещё с семёрки унаследовалось... Или ты про что-то другое имел ввиду?

SaschaL

Дата 29.5.2012, 05:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

То что присоединить это я понял! но как это использовать так и не понял, с семеркой было все проще. Аречь идет именно про табличный документ.

Zero

Дата 29.5.2012, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24

Цитата(SaschaL @ 29.5.2012, 05:10

)

но как это использовать так и не понял

Посмотри в синтакс-помощнике описание метода Присоединить у табличного документа.
Пример, на всякий случай приведу:

Код


ТабДок = Новый ТабличныйДокумент;
Секция = ТабДок.ПолучитьОбласть("R1C1");
ТабДок.НачатьАвтогруппировкуКолонок();
Секция.Область("R1C1").Текст = "Параметр";
ТабДок.Вывести(Секция,1,"Группа 1",Ложь);
Для К=1 По 10 Цикл
    Секция = ТабДок.ПолучитьОбласть("R1C1");
    Секция.Область().Текст = "А"+К;
    Секция.Область().ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
    ТабДок.Присоединить(Секция,2,"Группа 2",Истина);
КонецЦикла;
Секция.Область("R1C1").Текст = "Итого:";
ТабДок.Присоединить(Секция,1,"Группа 2",Ложь);
Секция.Область("R1C1").Текст = "Значение";
ТабДок.Вывести(Секция,1,"Группа 2",Ложь);
Цена = 10; Итог = Цена;
Для К=1 По 10 Цикл
    Секция = ТабДок.ПолучитьОбласть("R1C1");
    Секция.Область().Текст = Цена;
    ТабДок.Присоединить(Секция,2,"Группа 2",Истина);
    Цена = Цена + 10;
    Итог = Итог + Цена;
КонецЦикла;
Секция.Область("R1C1").Текст = Итог;
ТабДок.Присоединить(Секция,1,"Группа 2",Ложь);
ТабДок.ЗакончитьАвтогруппировкуКолонок();
ТабДок.ИтогиСправа = Истина;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Показать("Пример использования гор. автогруппировки");

Цитата(SaschaL @ 29.5.2012, 05:10

)

с семеркой было все проще

С семёркой ни капли не проще. В восьмёрке более гибкие возмножности по получению и работе с областями (которые на первый взгляд напоминают кодирование, как это было в 7.7)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »