IE2017

Копирование табличных частей

Обработки - Обработка документов

Копирование табличных частей документов

Когда то надо было скопировать табличную часть одного документа в другой, тут поискал не нашёл , вот написал простенькую обработку(Должна работать с любой конфигурацией)

Upd Заметил что кто то качает и пользается обработкой, поэтому решил немного обновить.

Теперь в обработке 2 кнопки скопировать и заменить. Смысл я думаю понятен. + небольшие косметические изменения.

Скачать файлы

Наименование Файл Версия Размер
Копирование табличных частей
.epf 6,67Kb
19.03.14
234
.epf 6,67Kb 234 Скачать
Копирование табличных частей 2.0.0
.epf 7,01Kb
19.03.14
37
.epf 7,01Kb 37 Скачать

См. также

Комментарии
1. Dimka 74 (Dimka74) 11.11.09 07:39 Сейчас в теме
2. Александр Медведев (anig99) 2533 11.11.09 08:14 Сейчас в теме
Плохо искал. Есть тут универсальные копировальщики табличных строк
(1) справа... синяя табличка
3. Dimka 74 (Dimka74) 11.11.09 08:32 Сейчас в теме
Нашел, скачал, посмотрел... однозначно "+"
Эх вот бы ещё было б здорово копировать табличную часть не только из документов, но ещё и из отчетов... :oops:
4. Юрий В (UV2) 256 11.11.09 08:58 Сейчас в теме
Была универсальная обработка и в стандартных для восьмерки UNIREPS81... ЗагрузкаДанныхИзТабличногоДокумента
5. Андрей (ghostishe) 287 11.11.09 10:39 Сейчас в теме
6. Федор Программист (fedor40) 664 15.09.10 10:35 Сейчас в теме
Надо добавлять в таб части, а вы ее замещаете.

Вот исправил:

Попытка
ЭлементПриемника = Приемник.ПолучитьОбъект();

//копируем тч приемника
ТЗ = ЭлементПриемника[ТабЧастьПриемник].Выгрузить();

ЭлементПриемника[ТабЧастьПриемник].Загрузить(Источник[ТабЧастьИсточник].Выгрузить());

//добавляем предыдущие данные
Для каждого Строка из ТЗ Цикл
Стр = ЭлементПриемника[ТабЧастьПриемник].Добавить();
ЗаполнитьЗначенияСвойств(Стр, Строка);
КонецЦикла;

ЭлементПриемника.Комментарий = ""+ЭлементПриемника.Комментарий+"; "+Источник;
ЭлементПриемника.Записать();
ЭлементПриемника.ПолучитьФорму().Открыть();
Исключение
КонецПопытки;
7. Р З (RRR1RRR) 18.11.11 07:07 Сейчас в теме
Помогает в работе, спасибо!
8. Mike Letto (MikeLetto) 64 05.06.15 14:21 Сейчас в теме
Оставьте свое сообщение