gifts2017

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

Опубликовал Sprut.1 (sprut.1) в раздел Обработки - Обработка документов

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

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

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

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

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

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

См. также

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

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

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

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

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

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

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