Форум программистов, компьютерный форум, киберфорум
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/63: Рейтинг темы: голосов - 63, средняя оценка - 4.54
 Аватар для CyberNDeluxe
1 / 1 / 1
Регистрация: 17.01.2012
Сообщений: 25

Как добавить текст в печатную форму

14.09.2012, 21:17. Показов 12282. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! Вот код обработки ПФ, нужно в макет добавить текст (см. рисунок), но после проведения все равно не работает. Подскажите, в чем ошибка?
Фото прилагается

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
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
 Функция Печать() Экспорт
    Перем ПодразделениеОтветственныхЛиц;
 
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
    Запрос.Текст ="
    |ВЫБРАТЬ
    |   Номер,
    |   Дата,
    |   ДоговорКонтрагента,
    |   Организация,
    |   Контрагент КАК Покупатель,
    |   Организация КАК Руководители,
    |   Организация КАК Поставщик,
    |   ОрганизацияПолучатель КАК Получатель,
    |   СуммаДокумента,
    |   ВалютаДокумента,
    |   УчитыватьНДС,
    |   СуммаВключаетНДС
    |ИЗ
    |   Документ.СчетНаОплатуПокупателю КАК ЗаказПокупателя
    |
    |ГДЕ
    |   ЗаказПокупателя.Ссылка = &ТекущийДокумент";
 
    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();
 
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаказПокупателя_СчетЗаказ";
 
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
    
    ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("ЗаказПокупателя");
    
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   ВложенныйЗапрос.Номенклатура КАК Номенклатура,
    |   ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,
    |   ВложенныйЗапрос.Номенклатура.Код КАК Код,
    |   ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул,
    |   ВложенныйЗапрос.Количество,
    |   ВложенныйЗапрос.ЕдиницаИзмерения,
    |   ВложенныйЗапрос.Цена,
    |   ВложенныйЗапрос.Сумма,
    |   ВложенныйЗапрос.СуммаНДС,
    |   ВложенныйЗапрос.НомерСтроки КАК НомерСтроки,
    |    1 КАК ID
    |ИЗ
    |   (ВЫБРАТЬ
    |       ЗаказПокупателя.Номенклатура КАК Номенклатура,
    |       ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
    |       ЗаказПокупателя.Цена КАК Цена,
    |       СУММА(ЗаказПокупателя.Количество) КАК Количество,
    |       СУММА(ЗаказПокупателя.Сумма) КАК Сумма,
    |       СУММА(ЗаказПокупателя.СуммаНДС) КАК СуммаНДС,
    |       МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки
    |   ИЗ
    |       Документ.СчетНаОплатуПокупателю.Товары КАК ЗаказПокупателя
    |   
    |   ГДЕ
    |       ЗаказПокупателя.Ссылка = &ТекущийДокумент
    |   
    |   СГРУППИРОВАТЬ ПО
    |       ЗаказПокупателя.Номенклатура,
    |       ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,
    |       ЗаказПокупателя.Цена) КАК ВложенныйЗапрос
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |   " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
    |   " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
    |   ЗаказПокупателя.Номенклатура.Код КАК Код,
    |   ЗаказПокупателя.Номенклатура.Артикул КАК Артикул,
    |   ЗаказПокупателя.Количество,
    |   ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,
    |   ЗаказПокупателя.Цена,
    |   ЗаказПокупателя.Сумма,
    |   ЗаказПокупателя.СуммаНДС,
    |   ЗаказПокупателя.НомерСтроки,
    |    2
    |ИЗ
    |   Документ.СчетНаОплатуПокупателю.Услуги КАК ЗаказПокупателя
    |
    |ГДЕ
    |   ЗаказПокупателя.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    ID,
    |   НомерСтроки";
 
    ЗапросТовары = Запрос.Выполнить().Выгрузить();
 
    Макет = ПолучитьМакет("СчетЗаказ1");
 
    // Выводим шапку накладной
 
    СведенияОПолучателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);
    Если СсылкаНаОбъект = "СчетЗак" Тогда
        ОбластьМакета       = Макет.ПолучитьОбласть("ЗаголовокСчета");
        ОбластьМакета.Параметры.Заполнить(Шапка);
        ОбластьМакета.Параметры.ИННПолучателя = СведенияОПолучателе.ИНН;
        ОбластьМакета.Параметры.КПППолучателя = СведенияОПолучателе.КПП;
        Если ТипЗнч(СсылкаНаОбъект.СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда
            Банк = ?(НЕ ЗначениеЗаполнено(СсылкаНаОбъект.СтруктурнаяЕдиница.БанкДляРасчетов), СсылкаНаОбъект.СтруктурнаяЕдиница.Банк, СсылкаНаОбъект.СтруктурнаяЕдиница.БанкДляРасчетов);
            БИК        = Банк.Код;
            КоррСчет   = Банк.КоррСчет;
            ГородБанка = Банк.Город;
            НомерСчета = СсылкаНаОбъект.ВернутьРасчетныйСчет(СсылкаНаОбъект.СтруктурнаяЕдиница);
 
            ОбластьМакета.Параметры.БИКБанкаПолучателя               = БИК;
            ОбластьМакета.Параметры.БанкПолучателя                   = Банк;
            ОбластьМакета.Параметры.БанкПолучателяПредставление      = СокрЛП(Банк) + " " + ГородБанка;
            ОбластьМакета.Параметры.СчетБанкаПолучателя              = КоррСчет;
            ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = КоррСчет;
            ОбластьМакета.Параметры.СчетПолучателяПредставление      = НомерСчета;
            ОбластьМакета.Параметры.СчетПолучателя                   = НомерСчета;
        КонецЕсли;
        
        Если ПустаяСтрока(СсылкаНаОбъект.СтруктурнаяЕдиница.ТекстКорреспондента) Тогда
            ТекстКорреспондента = СведенияОПолучателе.НаименованиеДляПечатныхФорм;
            Если ЗначениеЗаполнено(СсылкаНаОбъект.СтруктурнаяЕдиница.БанкДляРасчетов) Тогда
                ТекстКорреспондента = ТекстКорреспондента + " р/с " + СсылкаНаОбъект.СтруктурнаяЕдиница.НомерСчета
                + " в " + СсылкаНаОбъект.СтруктурнаяЕдиница.Банк + " " + СсылкаНаОбъект.СтруктурнаяЕдиница.Банк.Город;
            КонецЕсли; 
        Иначе
            ТекстКорреспондента = СсылкаНаОбъект.СтруктурнаяЕдиница.ТекстКорреспондента;
        КонецЕсли;     
        ОбластьМакета.Параметры.ПредставлениеПолучателя = ТекстКорреспондента;
        
        ТабДокумент.Вывести(ОбластьМакета);
    КонецЕсли; 
 
    ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
    ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Счет на оплату");
    
    ТабДокумент.Вывести(ОбластьМакета);
 
    ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    СведенияОбОрганизации    = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);
    ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(
        СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,ИНН,КПП,ЮридическийАдрес,Телефоны,");
    ТабДокумент.Вывести(ОбластьМакета);
 
    ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    СведенияОПокупателе     = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата);
    ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(
        СведенияОПокупателе, "НаименованиеДляПечатныхФорм,ИНН,КПП,ЮридическийАдрес,Телефоны,");
    ТабДокумент.Вывести(ОбластьМакета);
    
    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        ВыводитьКоды = Истина;
        Колонка = "Артикул";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
        ВыводитьКоды = Истина;
        Колонка = "Код";
    Иначе
        ВыводитьКоды = Ложь;
    КонецЕсли;
 
    ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицы|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("ШапкаТаблицы|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицы|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("ШапкаТаблицы|Сумма");
 
    ТабДокумент.Вывести(ОбластьНомера);
    Если ВыводитьКоды Тогда
        ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка;
        ТабДокумент.Присоединить(ОбластьКодов);
    КонецЕсли;
    ТабДокумент.Присоединить(ОбластьДанных);
    ТабДокумент.Присоединить(ОбластьСуммы);
 
    ОбластьКолонкаТовар = Макет.Область("Товар");
    
    Если Не ВыводитьКоды Тогда
        ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + 
                                            Макет.Область("КолонкаКодов").ШиринаКолонки;
    КонецЕсли;
 
    ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("Строка|Сумма");
 
    Сумма    = 0;
    СуммаНДС = 0;
    ВсегоСкидок    = 0;
    ВсегоБезСкидок = 0;
 
    Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл 
 
        ОбластьНомера.Параметры.НомерСтроки = ЗапросТовары.Индекс(ВыборкаСтрокТовары) + 1;
        ТабДокумент.Вывести(ОбластьНомера);
        
        Если ВыводитьКоды Тогда
            Если Колонка = "Артикул" Тогда
                ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул;
            Иначе
                ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код;
            КонецЕсли;
            ТабДокумент.Присоединить(ОбластьКодов);
        КонецЕсли;
 
        ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);
        ОбластьДанных.Параметры.Товар       = СокрЛП(ВыборкаСтрокТовары.Товар);
        ТабДокумент.Присоединить(ОбластьДанных);
 
        ОбластьСуммы.Параметры.Заполнить(ВыборкаСтрокТовары);
        ТабДокумент.Присоединить(ОбластьСуммы);
        Сумма          = Сумма       + ВыборкаСтрокТовары.Сумма;
        СуммаНДС       = СуммаНДС    + ВыборкаСтрокТовары.СуммаНДС;
 
    КонецЦикла;
 
    // Вывести Итого
    ОбластьНомера = Макет.ПолучитьОбласть("Итого|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("Итого|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("Итого|Сумма");
 
    ТабДокумент.Вывести(ОбластьНомера);
    Если ВыводитьКоды Тогда
        ТабДокумент.Присоединить(ОбластьКодов);
    КонецЕсли;
    ТабДокумент.Присоединить(ОбластьДанных);
    ОбластьСуммы.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
    ТабДокумент.Присоединить(ОбластьСуммы);
 
    // Вывести ИтогоНДС
    ОбластьНомера = Макет.ПолучитьОбласть("ИтогоНДС|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("ИтогоНДС|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("ИтогоНДС|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("ИтогоНДС|Сумма");
    
    ТабДокумент.Вывести(ОбластьНомера);
    Если ВыводитьКоды Тогда
        ТабДокумент.Присоединить(ОбластьКодов);
    КонецЕсли;
    Если СуммаНДС <> 0 Тогда
        ОбластьДанных.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", "Сумма НДС:");
        ОбластьСуммы.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);
    Иначе
        ОбластьДанных.Параметры.НДС = "Без налога (НДС)";
        ОбластьСуммы.Параметры.ВсегоНДС = "-";
    КонецЕсли;
    ТабДокумент.Присоединить(ОбластьДанных);
    
    ТабДокумент.Присоединить(ОбластьСуммы);
    
    // Вывести ИтогоКОплате
    ОбластьНомера = Макет.ПолучитьОбласть("ИтогоКОплате|НомерСтроки");
    ОбластьКодов = Макет.ПолучитьОбласть("ИтогоКОплате|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("ИтогоКОплате|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("ИтогоКОплате|Сумма");
    ТабДокумент.Вывести(ОбластьНомера);
    Если ВыводитьКоды Тогда
        ТабДокумент.Присоединить(ОбластьКодов);
    КонецЕсли;
    ТабДокумент.Присоединить(ОбластьДанных);
    СуммаКОплате = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
    ОбластьСуммы.Параметры.ИтогоКОплате = ОбщегоНазначения.ФорматСумм(СуммаКОплате);
    ТабДокумент.Присоединить(ОбластьСуммы);
    
    // Вывести Сумму прописью
    ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
    СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
    ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего наименований " + ЗапросТовары.Количество()
    + ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента);
    ОбластьМакета.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, Шапка.ВалютаДокумента);
    ТабДокумент.Вывести(ОбластьМакета);
 
    // Вывести подписи
    Если СсылкаНаОбъект = "Счет" Тогда
        
        Если Шапка.Получатель.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда
            ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");
            
            Руководители = ОбщегоНазначения.ОтветственныеЛица(Шапка.Руководители, Шапка.Дата, ПодразделениеОтветственныхЛиц);
            Руководитель = Руководители.РуководительПредставление;
            Бухгалтер    = Руководители.ГлавныйБухгалтерПредставление;
            
            ОбластьМакета.Параметры.ФИОРуководителя = Руководитель;
            ОбластьМакета.Параметры.ФИОБухгалтера   = Бухгалтер;
            
        Иначе
            ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаПредприниматель");
            
            ФЛ = Шапка.Получатель.ИндивидуальныйПредприниматель;
            ДанныеФЛ = РегистрыСведений.ФИОФизЛиц.СрезПоследних(СсылкаНаОбъект.Дата, Новый Структура("ФизЛицо",ФЛ));
            Если ДанныеФЛ.Количество() > 0 Тогда
                Предприниматель = СокрЛП(ДанныеФЛ[0].Фамилия) + " " + Лев(СокрЛП(ДанныеФЛ[0].Имя),1) + ". " + Лев(СокрЛП(ДанныеФЛ[0].Отчество),1) + ".";
            Иначе
                Предприниматель = "";
            КонецЕсли;
            
            ОбластьМакета.Параметры.ФИОПредпринимателя = Предприниматель;
            
        КонецЕсли;
        
    Иначе
        ОбластьМакета = Макет.ПолучитьОбласть("ПодвалЗаказа");
    КонецЕсли; 
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ТабДокумент.Вывести(ОбластьМакета);
 
    Возврат ТабДокумент;
 
КонецФункции // ПечатьСчетаЗаказа()
P.S. Насколько понял, ошибка в коде описания шапки, но так и не понял конкретно
Миниатюры
Как добавить текст в печатную форму  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.09.2012, 21:17
Ответы с готовыми решениями:

Добавить печатную форму 1С v8
Необходимо Документы - Ведомость в кассу добавить печатную форму 0504403. Зашел в конфигуратор - Документы - Ведомость в кассу - Макеты....

Добавить физ.лицо в печатную форму 1с 8.1
Собственно я не программер, но и не тупой вроде. С 7.7 как то получалось такие мелочи сделать а тут прикурил с 8.1. Суть проблемы: ...

Можно ли добавить ещё одну печатную форму в документ, где уже есть одна форма?
Подскажите пожалуйста,фот у меня в документе есть печатная форма.Можно ли добавить ещё одну печатную форму в этот документ. Внешние...

8
7 / 7 / 2
Регистрация: 05.06.2012
Сообщений: 61
15.09.2012, 00:04
Как понимаю это типовая конфигурация и вы собираетесь сделать Внешнюю печатную форму?
0
 Аватар для CyberNDeluxe
1 / 1 / 1
Регистрация: 17.01.2012
Сообщений: 25
15.09.2012, 00:14  [ТС]
Именно!
0
7 / 7 / 2
Регистрация: 05.06.2012
Сообщений: 61
15.09.2012, 00:21
Тогда советую вам не ковырять кучу кода, а использовать уже имеющиеся в конфигурации модули. Например (В модуле формы Обработчика):

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
Функция Печать() Экспорт
    ИмяМакета = ПолучитьМакет("Макет");
            
        ТабДокумент = Новый ТабличныйДокумент;
                
        // получаем данные для печати
        Выборка = СформироватьЗапросДляПечатиТрудовогоДоговора().Выбрать();
        
        // получаем макет
        Макет = ПолучитьМакет("Макет");
            // выводим данные 
        Если Выборка.Следующий() Тогда
            Макет.Параметры.Заполнить(Выборка);
            Макет.Параметры.ИспытательныйСрокСтрокой = ?(НЕ ЗначениеЗаполнено(Выборка.ИспытательныйСрок),"  месяцев", "" + Выборка.ИспытательныйСрок + " месяца(ев)" );
            Макет.Параметры.ПолноеНазваниеОрганизации = СокрЛП(Макет.Параметры.ПолноеНазваниеОрганизации);
            Макет.Параметры.ДокументКемВыдан = СокрЛП(Макет.Параметры.ДокументКемВыдан);
            
        КонецЕсли;
                
        ТабДокумент.Очистить();
        // выводим готовый документ
        ТабДокумент.Вывести(Макет);
 
        Возврат ТабДокумент;
 
    
КонецФункции
И найди в конфигурации функцию с запросом ( и тоже добавить в модуль обработки):
1C
1
Функция СформироватьЗапросДляПечатиТрудовогоДоговора() Экспорт


Ибо от руки писать это самоубийство)
1
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
15.09.2012, 01:41
Цитата Сообщение от CyberNDeluxe Посмотреть сообщение
ужно в макет добавить текст (см. рисунок), но после проведения все равно не работает.
На рисунке просто постоянный текст, да?
Вы его занесли в ячейку, но после проведения документа он исчезает из макета?
Есть подозрение, что проведение тут ни при чем. А тип заполнения этой ячейки (R5C2) каков? Текст, параметр или шаблон?
0
 Аватар для CyberNDeluxe
1 / 1 / 1
Регистрация: 17.01.2012
Сообщений: 25
15.09.2012, 11:49  [ТС]
duk337, После проведения текст не появляется. Когда я спрашивал у знакомых, говорили, что ошибка в коде, а точнее неправильный алгоритм действий при построении шапки. Тип Текст

Добавлено через 12 минут
duk337, Сделал всё форму по видеоуроку, исправил всё под себя. Работает всё, а текст не выводится, словно его и не вводил...
0
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
15.09.2012, 18:50
Цитата Сообщение от CyberNDeluxe Посмотреть сообщение
Работает всё, а текст не выводится, словно его и не вводил...
Посмотри повнимательнее, ту ли область ты выводишь в процедуре? А то прямо мистический канал какой-то. Тот ли макет? Очень часто бывает: трудишься над макетом "Макет1", а выводится "Макет".
0
 Аватар для CyberNDeluxe
1 / 1 / 1
Регистрация: 17.01.2012
Сообщений: 25
15.09.2012, 20:25  [ТС]
duk337, нет нет. Всё точно. Еще раз говорю, ошибка именно в коде. А точнее в коде заполнения шапки, там что-то с порядком действий... По крайней мере мне так сказали. Точную информацию получить не могу, так как мне говорят, чтоб я сам разбирался, а я не понимаю.
0
 Аватар для duk337
2956 / 1768 / 84
Регистрация: 03.11.2011
Сообщений: 8,280
15.09.2012, 23:09
Если в области макета в ячейку вбит текст типа "текст" рядом с текстами, которые выводятся - куда он на хрен денется?!! Уж тогда с горя остановите в отладчике на строке после команды захвата области с Вашим текстом, это типа
1C
1
Область=Макет.ПолучитьОбласть("Шапка")
и посмотрите, что из себя представляет область.
Вставьте команду получения ячейки с Вашим текстом типа
1C
1
ф=Макет.ПолучитьОбласть("R5:C6")
и опять посмотрите
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.09.2012, 23:09
Помогаю со студенческими работами здесь

Добавить колонку в печатную форму
Всем доброе утро! Такой банальный вопрос... Как добавить колонку в печатную форму в конфигураторе? Не программно, на самой форме? Я...

Как подвесить внешнюю печатную форму?
Напшел внешнюю печатную форму, как ее подвесит в камин к кнопке печать?

Как в БД формировать печатную форму в WORD
Пожалуйста помогите! Как из БД ACCESS формировать шаблон в WORD? ОЧЕНЬ ПРОШУ ПОМОЩИ! Пожалуйста, помогите!

Как создать простую печатную форму?
Вот нашел один пример, наверно проще не бывает? ТабДок = Новый ТабличныйДокумент; Макет =...

Как повернуть печатную форму на 90 градусов
Можно ли макет выводимый на печать повернуть на 90 градусов?...заранее спасибо


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru