Расшифровка ячейки табличного документа, созданного программно

@extendedflowers · Регистрация: 11.12.2012

Студворк — интернет-сервис помощи студентам

Всем привет.

Есть печатная форма, которая формируется программно от и до. нет ни макетов, ни табличного документа на форме.

Возможно ли программно описать расшифровку для ячеек данного табличного документа?

Спасибо..

@SHIFT_969 · 01.07.2016, 16:30

extendedflowers, код на пустой форме? А можно посмотреть? Интересно

В свойствах, как я понял, нужного не нашел? Или непонятно где искать?

@extendedflowers · 01.07.2016, 16:39 **[ТС]**

SHIFT_969, Сам процесс формирования формы. там есть закомментированные строки, где я пытался описать расшифровку. в отладчике вроде свойство "расшифровка" заполняется нужным мне документом. но щелкая на яейку, ничего не происходит. Собственно оно и понятно. процедура открытия документа нигде не описана. а где ее описать я не догоняю.

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
Для Каждого стр из Результат Цикл
        Если стр.КонтрагентОсновнойМенеджерПокупателя <> ПредыдущийТорговый Тогда
            
            Строка = 3;
            
            Если Не ПервыйПроход Тогда
                НачальнаяКолонка = НачальнаяКолонка + 3;
                КонечнаяКолонка =  КонечнаяКолонка + 3;
            КонецЕсли;
            
            
            ПредыдущийТорговый = стр.КонтрагентОсновнойМенеджерПокупателя;
            ПредыдущийКонтрагент = 0;
            ОбластьТорговый = ТабДок.Область("R2C"+НачальнаяКолонка+":R2C"+КонечнаяКолонка);
            ОбластьТорговый.Объединить();
            ОбластьТорговый.ШиринаКолонки = 20;
            ОбластьТорговый.Текст = стр.КонтрагентОсновнойМенеджерПокупателя;
            ОбластьТорговый.ЦветФона = WebЦвета.ГолубойСоСтальнымОттенком;
            ОбластьТорговый.Шрифт = Новый Шрифт(,14);
            ОбластьТорговый.ГраницаСверху = Линия;
            ОбластьТорговый.ГраницаСлева = Линия;
            ОбластьТорговый.ГраницаСправа = Линия;
            ОбластьТорговый.ГраницаСнизу = Линия;
            
            ПредыдущийКонтрагент = стр.Контрагент;
            ОбластьКонтрагент = ТабДок.Область("R"+(Строка)+"C"+НачальнаяКолонка+":R"+(Строка)+"C"+КонечнаяКолонка);
            ОбластьКонтрагент.Объединить();
            ОбластьКонтрагент.Текст = стр.Контрагент;
            ОбластьКонтрагент.Шрифт = Новый Шрифт(,12, Истина);
            ОбластьКонтрагент.ЦветФона = WebЦвета.Голубой;
            ОбластьКонтрагент.ГраницаСверху = Линия;
            ОбластьКонтрагент.ГраницаСлева = Линия;
            ОбластьКонтрагент.ГраницаСправа = Линия;
            ОбластьКонтрагент.ГраницаСнизу = Линия;
            
            Строка = Строка + 1;
            
            ОбластьСтрока = ТабДок.Область("R"+(Строка)+"C"+НачальнаяКолонка+":R"+(Строка)+"C"+КонечнаяКолонка);
            ОбластьСтрока.Объединить();
            ОбластьСтрока.Текст = "   " + Стр.Задание;
            Если ТипЗнч(Стр.Задание) = ТИП("СправочникСсылка.ШаблоныЗадач") Тогда
                ЗадачаВыполнена = ПроверитьЗадачу(Стр.Задание, Стр.Контрагент);
                Если ЗадачаВыполнена <> Неопределено Тогда
                    ОбластьСтрока.ЦветФона = WebЦвета.ВесеннеЗеленый;
                    ОбластьСтрока.Расшифровка = ЗадачаВыполнена;
                Иначе
                    ОбластьСтрока.ЦветФона = WebЦвета.Желтый;
                КонецЕсли;
            Иначе
                ЗадачаВыполнена = ПроверитьДополнительнуюЗадачу(Стр.Задание, Стр.Контрагент);
                Если ЗадачаВыполнена Тогда
                    ОбластьСтрока.ЦветФона = WebЦвета.ВесеннеЗеленый;
                Иначе
                    ОбластьСтрока.ЦветФона = WebЦвета.Желтый;
                КонецЕсли;
            КонецЕсли;
            ОбластьСтрока.Шрифт = Новый Шрифт(,10);
            ОбластьСтрока.ГраницаСверху = Линия;
            ОбластьСтрока.ГраницаСлева = Линия;
            ОбластьСтрока.ГраницаСправа = Линия;
            ОбластьСтрока.ГраницаСнизу = Линия;
            
            Строка = Строка + 1;
            
            ПервыйПроход = Ложь;
            
        Иначе
            Если стр.Контрагент <> ПредыдущийКонтрагент Тогда
                ПредыдущийКонтрагент = стр.Контрагент;
                ОбластьКонтрагент = ТабДок.Область("R"+(Строка)+"C"+НачальнаяКолонка+":R"+(Строка)+"C"+КонечнаяКолонка);
                ОбластьКонтрагент.Объединить();
                ОбластьКонтрагент.Текст = стр.Контрагент;
                ОбластьКонтрагент.Шрифт = Новый Шрифт(, 12, Истина);
                ОбластьКонтрагент.ЦветФона = WebЦвета.Голубой;
                ОбластьКонтрагент.ГраницаСверху = Линия;
                ОбластьКонтрагент.ГраницаСлева = Линия;
                ОбластьКонтрагент.ГраницаСправа = Линия;
                ОбластьКонтрагент.ГраницаСнизу = Линия;
                
                Строка = Строка + 1;
                
                ОбластьСтрока = ТабДок.Область("R"+(Строка)+"C"+НачальнаяКолонка+":R"+(Строка)+"C"+КонечнаяКолонка);
                ОбластьСтрока.Объединить();
                ОбластьСтрока.Текст = "   " + Стр.Задание;
                Если ТипЗнч(Стр.Задание) = ТИП("СправочникСсылка.ШаблоныЗадач") Тогда
                    ЗадачаВыполнена = ПроверитьЗадачу(Стр.Задание, Стр.Контрагент);
                    Если ЗадачаВыполнена <> Неопределено Тогда
                        ОбластьСтрока.ЦветФона = WebЦвета.ВесеннеЗеленый;
                        ОбластьСтрока.Расшифровка = ЗадачаВыполнена; 
                    Иначе
                        ОбластьСтрока.ЦветФона = WebЦвета.Желтый;
                    КонецЕсли;
                Иначе
                    ЗадачаВыполнена = ПроверитьДополнительнуюЗадачу(Стр.Задание, Стр.Контрагент);
                    Если ЗадачаВыполнена Тогда
                        ОбластьСтрока.ЦветФона = WebЦвета.ВесеннеЗеленый;
                    Иначе
                        ОбластьСтрока.ЦветФона = WebЦвета.Желтый;
                    КонецЕсли;
                КонецЕсли;
                ОбластьСтрока.Шрифт = Новый Шрифт(,10);
                ОбластьСтрока.ГраницаСверху = Линия;
                ОбластьСтрока.ГраницаСлева = Линия;
                ОбластьСтрока.ГраницаСправа = Линия;
                ОбластьСтрока.ГраницаСнизу = Линия;
                
                Строка = Строка + 1;
                
            Иначе
                ОбластьСтрока = ТабДок.Область("R"+(Строка)+"C"+НачальнаяКолонка+":R"+(Строка)+"C"+КонечнаяКолонка);
                ОбластьСтрока.Объединить();
                //ОбластьСтрока.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
                //ОбластьСтрока.Параметр = "Документ";
                //ОбластьСтрока.ПараметрРасшифровки = "Документ";
                ОбластьСтрока.Текст = "   " + Стр.Задание;
                Если ТипЗнч(Стр.Задание) = ТИП("СправочникСсылка.ШаблоныЗадач") Тогда
                    ЗадачаВыполнена = ПроверитьЗадачу(Стр.Задание, Стр.Контрагент);
                    Если ЗадачаВыполнена <> Неопределено Тогда
                        //СтруктураРасшифровки = Новый Структура("Документ", ЗадачаВыполнена);
                        ОбластьСтрока.ЦветФона = WebЦвета.ВесеннеЗеленый;
                        //ОбластьСтрока.Расшифровка = СтруктураРасшифровки;
                        //ОбластьСтрока.ИспользованиеРасшифровки = ИспользованиеРасшифровкиТабличногоДокумента.Ячейка;
                    Иначе
                        ОбластьСтрока.ЦветФона = WebЦвета.Желтый;
                    КонецЕсли;
                Иначе
                    ЗадачаВыполнена = ПроверитьДополнительнуюЗадачу(Стр.Задание, Стр.Контрагент);
                    Если ЗадачаВыполнена Тогда
                        ОбластьСтрока.ЦветФона = WebЦвета.ВесеннеЗеленый;
                    Иначе
                        ОбластьСтрока.ЦветФона = WebЦвета.Желтый;
                    КонецЕсли;
                КонецЕсли;
                ОбластьСтрока.Шрифт = Новый Шрифт(,10);
                ОбластьСтрока.ГраницаСверху = Линия;
                ОбластьСтрока.ГраницаСлева = Линия;
                ОбластьСтрока.ГраницаСправа = Линия;
                ОбластьСтрока.ГраницаСнизу = Линия;
                
                Строка = Строка + 1;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

@SHIFT_969 · 01.07.2016, 16:57

extendedflowers, попробуй такие события прописать.

@Dethmontt · 02.07.2016, 19:32

1C
1
ОбластьСтрока.Расшифровка = СсылкаНаДокумент;

Этого достаточно что бы работала типовая расшифровка.

У таб. дока должно быть свойство "Защита" = ИСТИНА;

@extendedflowers · 03.07.2016, 12:11 **[ТС]**

Dethmontt, SHIFT_969, Спасибо, друзья. Все получилось. Все работает.

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

Расшифровка ячейки табличного документа, созданного программно

Решение

Решение

@extendedflowers 37 / 37 / 1 Регистрация: 11.12.2012 Сообщений: 211

	1C 8.x Расшифровка ячейки табличного документа, созданного программно 01.07.2016, 16:21. Показов 15200. Ответов 5 Метки нет (Все метки) Всем привет. Есть печатная форма, которая формируется программно от и до. нет ни макетов, ни табличного документа на форме. Возможно ли программно описать расшифровку для ячеек данного табличного документа? Спасибо.. 0

@SHIFT_969 Злой самаритянин 182 / 182 / 94 Регистрация: 24.04.2014 Сообщений: 686
	01.07.2016, 16:30
	extendedflowers, код на пустой форме? А можно посмотреть? Интересно В свойствах, как я понял, нужного не нашел? Или непонятно где искать? 1

@SHIFT_969 Злой самаритянин 182 / 182 / 94 Регистрация: 24.04.2014 Сообщений: 686
	01.07.2016, 16:57
	Сообщение было отмечено GreenkA как решение Решение extendedflowers, попробуй такие события прописать. Миниатюры 1

@extendedflowers 37 / 37 / 1 Регистрация: 11.12.2012 Сообщений: 211
	03.07.2016, 12:11 [ТС]
	Dethmontt, SHIFT_969, Спасибо, друзья. Все получилось. Все работает. 0